CADCAM实验报告

 二叉树遍历实验
实验名称：二叉树遍历实验
二实验目：
1掌握CADCAM系统中常数结构二叉树概念存储结构二叉树遍历技术
2熟练应C语言编写二叉树建立先序中序序遍历方法遍历二叉树程序
三实验容
TCVC编程图214示二叉树建立链表存储结构分先序中序序遍历方法遍历该二叉树α

1程序流程图

2程序
#include
#include
struct btree
{ char data
struct btree *lchild*rchild
}*node[9]
void preorder(struct btree *node)
{ if(node) return
printf(cnode>data)
preorder(node>lchild)
preorder(node>rchild)
}
void inorder(struct btree *node)
{ if(node) return
inorder(node>lchild)
printf(cnode>data)
inorder(node>rchild)
}
void postorder(struct btree *node)
{ if(node) return
postorder(node>lchild)
postorder(node>rchild)
printf(cnode>data)
}
void main()
{
int i
for(i0i<9i++)
{
node[i](struct btree *)malloc(sizeof(struct btree))
node[i]>data＇A＇+i
node[i]>lchildNULL
node[i]>rchildNULL
}
node[0]>lchildnode[1]
node[0]>rchildnode[2]
node[1]>lchildnode[3]
node[2]>lchildnode[4]
node[2]>rchildnode[5]
node[3]>lchildnode[6]
node[3]>rchildnode[7]
node[4]>rchildnode[8]
printf(先序遍历)
preorder(node[0])
printf(＼n中序遍历)
inorder(node[0])
printf(＼n序遍历)
postorder(node[0])
getchar()
return 0
}
实验结果：

三仪器设备
计算机（C++语言环境）








实验二 数表程序化处理
实验名称：数表程序化处理
二实验目
1 掌握工程手册设计规范中种数表格（包括数值数表线图）计算机处理技术
2 熟练应C语言VC金星编程数处理程序
三 实验容
TCVC编写线性插值程序表基节点参数插值计算90°160°范围意角度包角修正系数Kα

α（°）
90 100 110 120 130 140 150 160
Kα
068 074 079 083 086 089 092 095

1程序流程图

2程序
#include
#include
#include
void main()
{
int ij
int a[8]{90100110120130140150160}
double k[8]{068074079083086089092095}
double m
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(i0i<8i++)
{
if(ja[i])
mk[i]
if(j>a[i]&&j }
printf(包角d°包角修正系数3lf＼njm)
printf(请意键继续查询Ctrl+C键退出＼n)
getchar()
getchar()
system(cls)
}
}



实验三 机械零件三维造型
实验目
四 解三维造型技术基原理
五 熟悉三维造型软件基方法
六 掌握三维造型软件构造三维实体零件步骤
二 实验容
ProE构造支架零件
三 实验报告
1 三维零件模型





2 零件构成程CSG树







实验四 排料图编程绘制
3 实验目
七 熟悉AutoCAD中二次开发工具AutoLISP项功函数
八 解AutoLISP编程程方法
九 掌握AutoCAD实现排料图绘制技术
4 实验容
已知板材尺寸L×B该板料气割干半径R圆板果计割缝实验图中排版方式问块板割少块圆板？编程绘制出排料图
说明：
1L2000B1000R(班号*10)学号2班3号R2003
2圆板数CN变量表示
3输出圆板数绘制排料图











5 实验报告
1画出程序流程图



2编写程序调试运行出程序结果
（1）实验程序
(defun cPL()
(setq L (getreal ＼n请输入板料长度L))
(setq B (getreal ＼n请输入板料厚度B))
(setq R 5017)
(setq CL (fix ( L (* 2 R))))
(setq CB (fix ( B (* 2 R))))
(command zoom w ＇(0 0) ＇(L B))
(setq p1 (getpoint ＼n输入绘图基点p1))
(setq p2 (polar p1 ( pi 2) B))
(setq p3 (polar p2 0 L))
(setq p4 (polar p1 0 L))
(command pline p1 p2 p3 p4 c)
(setq M 0)
(while (< M CB)
(setq ph (polar p1 ( pi 2) (* R (+ (* M 2) 1))))
(setq pc (polar ph 0 R))
(setq N 0)
(while (< N CL)
(command circle pc R)
(setq pc (polar pc 0 (* 2 R)))
(setq N (+ N 1))
)
(setq M (+ M 1))
)
(setq CN (* CL CB))
(prompt (strcat ＼n圆板数 (itoa CN) ＼n))
)

（2）运行结果
输入：L2000B1000
输出NC171

文档香网(httpswwwxiangdangnet)户传

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档