CADCAM实验报告

1、cadcam实验报告 二叉树的遍历实验 一、实验名称：二叉树的遍历实验。 二、实验目的： 1、掌握cad/cam系统中常用的数据结构二叉树的概念、存储结构以及二叉树遍历技术。 2、熟练应用c语言编写二叉树的建立，以及用先序、中序、后序遍历方法遍历二叉树的程序。 三、实验内容 用tc或vc编程，将图2-14所示的二叉树建立链表存储结构，并分别用先序、中序、后序遍历方法遍历该二叉树 1、程序流程图 2、程序 #include #include struct btree char data; struct btree *lchild,*rchild; *node9; void preorder(st

2、ruct 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) retu

3、rn ; postorder(node->lchild); postorder(node->rchild); printf(“%c“,node->data); void main() int i; for(i=0;i<9;i+) nodei=(struct btree *)malloc(sizeof(struct btree); nodei->data=a+i; nodei->lchild=null; nodei->rchild=null; node0->lchild=node1; node0->rchild=node2; node1-&g

4、t;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+语言环境） 实验二 数表的

5、程序化处理 一、 实验名称：数表的程序化处理 二、实验目的 1、 掌握对工程手册和设计标准中的各种数据表格（包括数值、数表、线图）的计算机处理技术。 2、 熟练应用c语言或vc金星编程数据处理程序。 三、 实验内容 用tc或vc编写一个线性插值程序，以下表为根本节点参数，插值计算90°-160°范围内任意角度的包角修正系数k。 /（°） 90 100 110 120 130 140 150 160 k 0.68 0.74 0.79 0.83 0.86 0.89 0.92 0.95 1、程序流程图 2、程序 #include #include #include vo

6、id 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(j<90|j>160) printf(“包角输入错误，请重新输入。n“); printf(“按回车键继续查询，按ctrl+c键退出n“); getchar(); getchar(); syste

7、m(“cls“); while(j<90|j>160); for(i=0;i<8;i+) if(j=ai) m=ki; if(j>ai&&j 二、 实验内容 用proe构造支架零件 三、 实验报告 1、 三维零件模型 2、 零件构成过程是csg树 实验四 排料图编程绘制 3、 实验目的 七、 熟悉autocad中的二次开发工具autolisp的各项功能函数； 八、 了解autolisp的编程过程和方法；九、 掌握在autocad下实现排料图的绘制技术。 4、 实验内容 板材尺寸为l×b,在该板料上气割假设干个半径为r的圆板，如果不计割缝，按实验

8、图中排版方式，问用这块板最多可以割下多少块圆板？编程绘制出排料图。 说明： 1.l=2000,b=1000,r=(班号*10).学号，如2班3号，r=20.03。 2.圆板数用变量表示。 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) (m

9、and “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) (mand “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) (mand “circle“ pc r) (setq pc (polar pc 0 (* 2 r)