Get清风CADCAM实验报告Word格式.docx
《Get清风CADCAM实验报告Word格式.docx》由会员分享，可在线阅读，更多相关《Get清风CADCAM实验报告Word格式.docx（13页珍藏版）》请在冰点文库上搜索。
{if（!
node）return;
printf（"
%c"
node->
data）;
preorder（node->
lchild）;
rchild）;
}
voidinorder（structbtree*node）
inorder（node->
}
voidpostorder（structbtree*node）
{if（!
node）return;
postorder（node->
voidmain（）
{
inti;
for（i=0;
i<
9;
i++）
{
node[i]=（structbtree*）malloc（sizeof（structbtree））;
node[i]->
data='
A'
+i;
lchild=NULL;
rchild=NULL;
}
node[0]->
lchild=node[1];
rchild=node[2];
node[1]->
lchild=node[3];
node[2]->
lchild=node[4];
rchild=node[5];
node[3]->
lchild=node[6];
rchild=node[7];
node[4]->
rchild=node[8];
按先序遍历:
"
）;
preorder（node[0]）;
\n按中序遍历:
inorder（node[0]）;
\n按后序遍历:
postorder（node[0]）;
getchar（）;
return0;
实验结果如下：
三、主要仪器设备
计算机〔C++语言环境〕
实验二数表的程序化处理
数表的程序化处理
二、实验目的
1、掌握对工程手册和设计标准中的各种数据表格〔包括数值、数表、线图〕的计算机处理技术。
2、熟练应用C语言或VC金星编程数据处理程序。
用TC或VC编写一个线性插值程序，以下表为根本节点参数，插值计算90°
-160°
范围内任意角度的包角修正系数Kα。
α/〔°
〕
90100110120130140150160
Kα
math.h>
stdlib.h>
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）
包角输入错误，请重新输入。
\n"
按回车键继续查询，按Ctrl+C键退出\n"
getchar（）;
system（"
cls"
}while（j<
160）;
8;
if（j==a[i]）
m=k[i];
if（j>
a[i]&
&
j<
a[i+1]）m=（k[i+1]*（j-a[i]）+k[i]*（a[i+1]-j））/（a[i+1]-a[i]）;
}
printf（"
包角为%d°
的包角修正系数为%.3lf\n"
j,m）;
请按任意键继续查询，按Ctrl+C键退出\n"
实验三机械零件三维造型
一、实验目的
四、了解三维造型技术的根本原理；
五、熟悉三维造型软件的根本使用方法；
六、掌握用三维造型软件构造三维实体零件的步骤。
二、实验内容
用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））
pline"
p1p2p3p4"
c"
（setqM0）
（while（<
MCB）
（setqph（polarp1（/pi2）（*R（+（*M2）1））））
（setqpc（polarph0R））
（setqN0）
NCL）
circle"
pcR）
（setqpc（polarpc0（*2R）））
（setqN（+N1））
）
（setqM（+M1））
（setqCN（*CLCB））
（prompt（strcat"
\n-----圆板数:
（itoaCN）"
-----\n"
〔2〕运行结果
输入：
L=2000，B=1000
输出NC=171
升级会员 