CADCAM实验报告.doc

二叉树的遍历实验一、实验名称：二叉树的遍历实验。二、实验目的：1、掌握CAD/CAM系统中常用的数据结构二叉树的概念、存储结构以及二叉树遍历技术。2、熟练应用C语言编写二叉树的建立，以及用先序、中序、后序遍历方法遍历二叉树的程序。三、实验内容用TC或VC编程，将图2-14所示的二叉树建立链表存储结构，并分别用先序、中序、后序遍历方法遍历该二叉树1、程序流程图2、程序#include #includestruct btree char data; struct btree *lchild,*rchild;*node9; void preorder(struct btree *node) if(!node) return ; printf(%c,node-data); preorder(node-lchild); preorder(node-rchild); void inorder(struct btree *node) if(!node) return ; inorder(node-lchild); printf(%c,node-data); inorder(node-rchild); void postorder(struct btree *node) if(!node) return ; postorder(node-lchild); postorder(node-rchild); printf(%c,node-data);void main() int i; for(i=0;idata=A+i; nodei-lchild=NULL; nodei-rchild=NULL; node0-lchild=node1; node0-rchild=node2; node1-lchild=node3; node2-lchild=node4; node2-rchild=node5; node3-lchild=node6; node3-rchild=node7; node4-rchild=node8; printf(按先序遍历:); preorder(node0); printf(n按中序遍历:); inorder(node0); printf(n按后序遍历:); postorder(node0); getchar(); return 0;实验结果如下：三、主要仪器设备计算机（C+语言环境） 实验二 数表的程序化处理一、 实验名称：数表的程序化处理二、实验目的1、 掌握对工程手册和设计规范中的各种数据表格（包括数值、数表、线图）的计算机处理技术。2、 熟练应用C语言或VC金星编程数据处理程序。三、 实验内容用TC或VC编写一个线性插值程序，以下表为基本节点参数，插值计算90-160范围内任意角度的包角修正系数K。/（）90 100 110 120 130 140 150 160 K0.68 0.74 0.79 0.83 0.86 0.89 0.92 0.951、程序流程图2、程序#include#include#includevoid main() int i,j; int a8=90,100,110,120,130,140,150,160; double k8=0.68,0.74,0.79,0.83,0.86,0.89,0.92,0.95; double m; for(;) do printf(请输入包角值：（包角范围为90至160）n); scanf(%d,&j); if(j160) printf(包角输入错误，请重新输入。n); printf(按回车键继续查询，按Ctrl+C键退出n); getchar(); getchar(); system(cls); while(j160); for(i=0;iai&jai+1) m=(ki+1*(j-ai)+ki*(ai+1-j)/(ai+1-ai); printf(包角为%d的包角修正系数为%.3lfn,j,m); printf(请按任意键继续查询，按Ctrl+C键退出n); getchar(); getchar(); system(cls); 实验三 机械零件三维造型一、 实验目的四、 了解三维造型技术的基本原理；五、 熟悉三维造型软件的基本使用方法；六、 掌握用三维造型软件构造三维实体零件的步骤。二、 实验内容用ProE构造支架零件三、 实验报告1、 三维零件模型2、 零件构成过程是CSG树 实验四 排料图编程绘制3、 实验目的七、 熟悉AutoCAD中的二次开发工具AutoLISP的各项功能函数；八、 了解AutoLISP的编程过程和方法；九、 掌握在AutoCAD下实现排料图的绘制技术。4、 实验内容已知板材尺寸为LB,在该板料上气割若干个半径为R的圆板，如果不计割缝，按实验图中排版方式，问用这块板最多可以割下多少块圆板？编程绘制出排料图。说明：1.L=2000,B=1000,R=(班号*10).学号，如2班3号，R=20.03。2.圆板数用CN变量表示。3.输出圆板数，并绘制排料图。5、 实验报告1、画出程序流程图2、编写程序并调试运行出程序结果（1）实验程序(defun c:PL() (setq L (getreal n请输入板料长度L:) (setq B (getreal n请输入板料厚度B:) (setq R 50.17) (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