CADCAM实验报告.docx

CADCAM实验报告.docx

《CADCAM实验报告.docx》由会员分享，可在线阅读，更多相关《CADCAM实验报告.docx（13页珍藏版）》请在冰豆网上搜索。

CADCAM实验报告

二叉树的遍历实验

一、实验名称：

二叉树的遍历实验。

二、实验目的：

1、掌握CAD/CAM系统中常用的数据结构二叉树的概念、存储结构以及二叉树遍历技术。

2、熟练应用C语言编写二叉树的建立，以及用先序、中序、后序遍历方法遍历二叉树的程序。

三、实验内容

用TC或VC编程，将图2-14所示的二叉树建立链表存储结构，并分别用先序、中序、后序遍历方法遍历该二叉树α

1、程序流程图

2、程序

#include

#include

structbtree

{chardata;

structbtree*lchild,*rchild;

}*node[9];

voidpreorder（structbtree*node）

{if（!

node）return;

printf（"%c",node->data）;

preorder（node->lchild）;

preorder（node->rchild）;

}

voidinorder（structbtree*node）

{if（!

node）return;

inorder（node->lchild）;

printf（"%c",node->data）;

inorder（node->rchild）;

}

voidpostorder（structbtree*node）

{if（!

node）return;

postorder（node->lchild）;

postorder（node->rchild）;

printf（"%c",node->data）;

}

voidmain（）

{

inti;

for（i=0;i<9;i++）

{

node[i]=（structbtree*）malloc（sizeof（structbtree））;

node[i]->data='A'+i;

node[i]->lchild=NULL;

node[i]->rchild=NULL;

}

node[0]->lchild=node[1];

node[0]->rchild=node[2];

node[1]->lchild=node[3];

node[2]->lchild=node[4];

node[2]->rchild=node[5];

node[3]->lchild=node[6];

node[3]->rchild=node[7];

node[4]->rchild=node[8];

printf（"按先序遍历:

"）;

preorder（node[0]）;

printf（"\n按中序遍历:

"）;

inorder（node[0]）;

printf（"\n按后序遍历:

"）;

postorder（node[0]）;

getchar（）;

return0;

}

实验结果如下：

三、主要仪器设备

计算机（C++语言环境）

实验二数表的程序化处理

一、实验名称：

数表的程序化处理

二、实验目的

1、掌握对工程手册和设计规范中的各种数据表格（包括数值、数表、线图）的计算机处理技术。

2、熟练应用C语言或VC金星编程数据处理程序。

三、实验内容

用TC或VC编写一个线性插值程序，以下表为基本节点参数，插值计算90°-160°范围内任意角度的包角修正系数Kα。

α/（°）

90100110120130140150160

Kα

0.680.740.790.830.860.890.920.95

1、程序流程图

2、程序

#include

#include

#include

voidmain（）

{

inti,j;

inta[8]={90,100,110,120,130,140,150,160};

doublek[8]={0.68,0.74,0.79,0.83,0.86,0.89,0.92,0.95};

doublem;

for（;;）

{

do

{printf（"请输入包角值：

（包角范围为90°至160°）\n"）;

scanf（"%d",&j）;

if（j<90||j>160）

{

printf（"包角输入错误，请重新输入。

\n"）;

printf（"按回车键继续查询，按Ctrl+C键退出\n"）;

getchar（）;

getchar（）;

system（"cls"）;

}

}while（j<90||j>160）;

for（i=0;i<8;i++）

{

if（j==a[i]）

m=k[i];

if（j>a[i]&&j

}

printf（"包角为%d°的包角修正系数为%.3lf\n",j,m）;

printf（"请按任意键继续查询，按Ctrl+C键退出\n"）;

getchar（）;

getchar（）;

system（"cls"）;

}

}

实验三机械零件三维造型

一、实验目的

四、了解三维造型技术的基本原理；

五、熟悉三维造型软件的基本使用方法；

六、掌握用三维造型软件构造三维实体零件的步骤。

二、实验内容

用ProE构造支架零件

三、实验报告

1、三维零件模型

2、零件构成过程是CSG树

实验四排料图编程绘制

3、实验目的

七、熟悉AutoCAD中的二次开发工具AutoLISP的各项功能函数；

八、了解AutoLISP的编程过程和方法；

九、掌握在AutoCAD下实现排料图的绘制技术。

4、实验内容

已知板材尺寸为L×B,在该板料上气割若干个半径为R的圆板，如果不计割缝，按实验图中排版方式，问用这块板最多可以割下多少块圆板？

编程绘制出排料图。

说明：

1.L=2000,B=1000,R=（班号*10）.学号，如2班3号，R=20.03。

2.圆板数用CN变量表示。

3.输出圆板数，并绘制排料图。

5、实验报告

1、画出程序流程图

2、编写程序并调试运行出程序结果

（1）实验程序

（defunc:

PL（）

（setqL（getreal"\n请输入板料长度L:

"））

（setqB（getreal"\n请输入板料厚度B:

"））

（setqR50.17）

（setqCL（fix（/L（*2R））））

（setqCB（fix（/B（*2R））））

（command"zoom""w"'（00）'（LB））

（setqp1（getpoint"\n输入绘图基点p1"））

（setqp2（polarp1（/pi2）B））

（setqp3（polarp20L））

（setqp4（polarp10L））

（command"pline"p1p2p3p4"c"）

（setqM0）

（while（

（setqph（polarp1（/pi2）（*R（+（*M2）1））））

（setqpc（polarph0R））

（setqN0）

（while（

（command"circle"pcR）

（setqpc（polarpc0（*2R）））

（setqN（+N1））

）

（setqM（+M1））

）

（setqCN（*CLCB））

（prompt（strcat"\n-----圆板数:

"（itoaCN）"-----\n"））

）

（2）运行结果

输入：

L=2000，B=1000

输出NC=171