CADCAM實(shí)驗(yàn)報(bào)告

1、cadcam實(shí)驗(yàn)報(bào)告 二叉樹的遍歷實(shí)驗(yàn) 一、實(shí)驗(yàn)名稱：二叉樹的遍歷實(shí)驗(yàn)。 二、實(shí)驗(yàn)?zāi)康模?1、掌握cad/cam系統(tǒng)中常用的數(shù)據(jù)結(jié)構(gòu)二叉樹的概念、存儲結(jié)構(gòu)以及二叉樹遍歷技術(shù)。 2、熟練應(yīng)用c語言編寫二叉樹的建立，以及用先序、中序、后序遍歷方法遍歷二叉樹的程序。 三、實(shí)驗(yàn)內(nèi)容 用tc或vc編程，將圖2-14所示的二叉樹建立鏈表存儲結(jié)構(gòu)，并分別用先序、中序、后序遍歷方法遍歷該二叉樹 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; 實(shí)驗(yàn)結(jié)果如下： 三、主要儀器設(shè)備 計(jì)算機(jī)（c+語言環(huán)境） 實(shí)驗(yàn)二 數(shù)表的

5、程序化處理 一、 實(shí)驗(yàn)名稱：數(shù)表的程序化處理 二、實(shí)驗(yàn)?zāi)康?1、 掌握對工程手冊和設(shè)計(jì)標(biāo)準(zhǔn)中的各種數(shù)據(jù)表格（包括數(shù)值、數(shù)表、線圖）的計(jì)算機(jī)處理技術(shù)。 2、 熟練應(yīng)用c語言或vc金星編程數(shù)據(jù)處理程序。 三、 實(shí)驗(yàn)內(nèi)容 用tc或vc編寫一個(gè)線性插值程序，以下表為根本節(jié)點(diǎn)參數(shù)，插值計(jì)算90°-160°范圍內(nèi)任意角度的包角修正系數(shù)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(“包角輸入錯(cuò)誤，請重新輸入。n“); printf(“按回車鍵繼續(xù)查詢，按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 二、 實(shí)驗(yàn)內(nèi)容 用proe構(gòu)造支架零件 三、 實(shí)驗(yàn)報(bào)告 1、 三維零件模型 2、 零件構(gòu)成過程是csg樹 實(shí)驗(yàn)四 排料圖編程繪制 3、 實(shí)驗(yàn)?zāi)康?七、 熟悉autocad中的二次開發(fā)工具autolisp的各項(xiàng)功能函數(shù)； 八、 了解autolisp的編程過程和方法；九、 掌握在autocad下實(shí)現(xiàn)排料圖的繪制技術(shù)。 4、 實(shí)驗(yàn)內(nèi)容 板材尺寸為l×b,在該板料上氣割假設(shè)干個(gè)半徑為r的圓板，如果不計(jì)割縫，按實(shí)驗(yàn)

8、圖中排版方式，問用這塊板最多可以割下多少塊圓板？編程繪制出排料圖。 說明： 1.l=2000,b=1000,r=(班號*10).學(xué)號，如2班3號，r=20.03。 2.圓板數(shù)用變量表示。 3.輸出圓板數(shù)，并繪制排料圖。 5、 實(shí)驗(yàn)報(bào)告 1、畫出程序流程圖 2、編寫程序并調(diào)試運(yùn)行出程序結(jié)果 （1）實(shí)驗(yàn)程序 (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輸入繪圖基點(diǎ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)