机床数控技术课程设计.doc

《机床数控技术课程设计.doc》由会员分享，可在线阅读，更多相关《机床数控技术课程设计.doc（16页珍藏版）》请在三一办公上搜索。

1、 机床数控技术课程设计说明书学校：南京航空航天大学专业：机械工程及自动化学号：姓名:设计题目：P1 D1指导老师:时间:一课设任务:1PL1-逐点比较法插补第象限直线;2。DC21-A法插补第21象限顺圆弧。二.课设要求:1.具有数据输入界面，如输入直线插补的起点、终点,圆弧插补的起止点、圆心或半径、插补的步长等；2.具有插补过程的动态显示功能,如单步插补、连续插补等;3。插补的步长可调;4。直线的起点、圆弧的圆心在坐标系中的位置可变(即直线的起点、圆弧的圆心可不设定在坐标原点)5。建议使用语言编程,有条件者可使用B、V等语言编程。三.程序界面及运行截图1。直线连续插补：2. 直线单步插补：3

2、. 圆弧连续插补：4.圆弧单步插补：四、程序流程图。PL:逐点比较法插补第象限直线逐点比较法插补直线的过程为每进给一步需完成偏差判别,坐标进给,偏差计算，终点判别四个步骤,具体流程如图1 所示。开始E=E-1YNY向正Y方向前进一步F=F+(x02-x01)向正X方向前进一步F=F-(y02-y01)F=0E0N结束E=(abs(x01-x02)+abs(y01-y02)/k (总步数)F=0 （判别函数）初始化，输入起点x01、y01，终点x02、y02，步长k2、DDA法圆弧插补xm=fix(xx-x03)/b);ym=fix(yy+R-y03)/b)Yjvx=0;jvy=0m=2jxm0

3、？jvx=jvx+yj-yyYNym0？jvy=jvy+xx-xjYjvx溢出？0？+X前进一步xm=xm-1Yjvy溢出？0？+Y前进一步ym=ym-1xm0|ym0?N二一象限顺圆？计算圆心坐标（xx,yy）xj=x03,yj=y03初始化，输入起点坐标（xr03,y03），终点坐标(x04,y04) 半径R步长b和寄存器位数j开始NY+X前进一步xn=xn-1-Y前进一步yn=yn-1xn=fix(x04-xx)/b);yn=fix(yy+R-y04)/b);Nxn0？jvx=jvx+yj-yyYNyn0？jvy=jvy+xj-xxYjvx溢出？0？Yjvy溢出？0？xn0|yn0?NY

4、结束五.程序及变量说明（tlab）nton varrout = cxy_0509061(vrari)guiSingleon = 1；uiStt struc（gui_Nme, fienam， 。. guiSingleon, ui_ingltn, 。. gu_pengF, y_59060_OpeningF， 。 gui_OutputFcn，cxy_05091610_puFcn，。.。 gu_LayoutF, ， 。 gui_allack, )；if nargn & iscar（varargin1) uitae.gui_allbk= sr2fc（varrgn）;ndifnargout arrou1:

5、nrgou = guiainc(gu_Sta，varargi：）;ee gi_main(gui_State, vrai：）；enduction cy_0090610OeningFn(hObjet,eveata, ndes, arrgin)gobl uu=0;lobalfla;la；ndls。out = jec;gidata(hObet, anls);fion vaargot cxy00910610_tputcn（hOjec， eentdata， handle) vargou1 =nles。utut;funcon x1_Callback(hObjet，eenata, ndles)glob x0；

6、01=st2double（get(andles。x1,trin）；fnction _CeteFcn（hObjct， endata， andle)f ispc squa（get(hObject,BackgounColo)， ge（0，efaultUicotrolBackgroundColo) et（hObjet，BackgounColo,wite);endfuct2_Cabak（Oc,eventdata, hds)a 0;x0=strdoue(get(handes.x2,strng）)；fncionx2_retFn(hObect, eventdat， handl)if isc & ieual(e

7、(hObjct，acgrudColor）, ge(,defultUicontrolckgruCoor）) set(hOe,BacrondColor,wie);ndunctoyCallbck(hObjct, vetda， hnles）globa y1;y01=tr2ue(ge(hadlesy1，sring）);union y1reteFcn（hjct， etdata， hanles）if isp squal(get（hjct,BackgrodColor), ge（0，defaulUcontrolBaoundColr） t(hObec,Backgroundolo,hi）;ndfncto y2_Ca

8、lback（hObct,evntdata,handles）glol y02；02=srdoul(et(hane。y2，strng）；uncion y2_reteFn（hObt, eventat, hadles)if spc &iqua（get(Obect，BackgndClor）, gt(0，deaultUiconlBackgrudol) set（hObjet,Bacgroundoor，hite);endfnco xCalbc（hObct， eventdata, handles）gloal x03;x3=str2oule(get（handls.3，string）;funcon x3_Crete

9、Fcn（hObjct， ventata， hadls)if ispc & seul(et(hOjec，ackroundCoor）， get(0，defaltUiotrolBarndColor）) set（hObject，BackgroudColor,whit)；edfuntion y3llac(hObjet， eventdata, handle)glbal03;0=str2duble(get(hande。y3，string);fnction 3_Creatcn（bject， eentdat， hanles）i ispc&isequal(et（hOet，ackgounClor),get(0,df

10、ultictrolBackgrouColor）) t（hObject,BkgroundClor，hit)；endfunto x4Callbac（hObet， eetd， handles）lobal4;x04=strduble(e(dles。x4,sring）)；fuctinx4_CreatFcn（hObject， evtaa, aes)i ispc & iequal（et(hObjec,BckgroudClr）, get(0，defaltUntlBakgrundColor） se(hObect，BacroundClor，ite);ndfuncto _allback(hObjet，eentdat

11、a，andls)loal y0；y04=2double(get（handes。y4，ting）);nction y4_reatFcn(hObjet， eventdata, handles)f spc &ieqal(get(hObjet，akgndoo）, get（0，efaultUicntolBacgroCoor）) t(hbject，BckronCo,whte）;endfunctin r_Callack（hObject, eventdta， hdles）gobal R；=tr2double(get(handles。r,srng）;function _CrteFn(hOje,eentdta，

12、andles)if ispc& ieal(get(bjt,BakgronColr)， et（，defultUicontlBckgroundolor）) st(Obct,BakgrounColr，white)；edfunction cr_alck（hjct, ventdata, andles）cla;funcin aightli_allbck(hObjet， eentta， han）glal s;grido;x1=str2dub(get（hanles。x1,string）)；x02=tr2double(g(hanles.x,string）)；1=st2due(get(hndl。,stin)）；y

13、0s2de(t（hanes.2,tring)；=npace（x1,x2,1000）;y=(y0y0)/（x2x01)（-x1)+01；lot(x，y,b）;holdon;=1;unio circur_arcCalback(hObect, vnata,hadles）ri on；x3strdoue(get（hales。x3,strin）);x04=sr2ub(get(handes。4，n）)；y3=str2doble（get(halesy，tin);y04=stru（ge(hndle。，sring）;R=sr2dule(get(hadles。r，strng)）；=q(（y043）.2+（04).2

14、）;=sqrt（2（l2)/4);x0（x+x04)2+（(y4-y03)*k)/l;y0(y03+y0)-（(x04x0)k）/l；x=lsace(x0，04,00)；y=y0sqr(2（xx0).2）;plt（x,b）;axis qua；hld on；lobalss=;funcilxcb_aba（bjec，ventat, ndls)globls FX ；if =1 01=tr2doub（get(hndles.1，strn)）; 2=sr2doule（et(anles。x2，sting)）； y1=str2dble(ge（hndles。y1，strin)）； y022doub(get(hnd

15、les。y2，sring）); kt2doule(ge(hnls.buc,strn）); X=x;Y=01; F; （ab（02)+bs（y01y0)/k; hil E0 0 X=X+k； m=nsac(，00）; n=; F=F(y2-y1)； lo(m,n,r）; es Y=+k； =X; q=insace（-,，100); FF+(x02x1); plo(p，q，); ed E=E1; endelse x03=str2dobe(g（aes。x,srg)）; x0=stroul(ge（handles.x4,string); y3=rdoub(gt（adles.y，sti)； y4=trdo

16、be(t（handles.y,string)）; =tr2dule（get(andles.bucang,sring)； j=srdouble(et(hdles。jcq,stin）)； Rr2dbe（get（andes。r,string）)； =（y04y)2+(x03）2）。5； m（04y03）/l; =(x03-04）/l； x=(x3+x04)2+（Rl2/4）05*m; yy=（3+y04)（2l2/）。5n;if(x03x&xx04&y03=yy&y04y） errordg(请输入第二一象限的顺圆弧）;ele xi=x0;iy3；xii=03;yiiy03； jvx=0； j=0;

17、jfix(（x0）/);yj=ix(yy+Ry0)/b); %计算步数 m=j; %模 while （xjy0） f x0 jvvx+yi-yy； n if y0 jvy=vyxxxi; end fa=0; i（jvx） xjx1;ag=1; xi=xi+b; jv=mo(jx,)； end （vym) y=j1；flag=； yi=； jyod(jy,m)； e if lag line（xi,xi，ii,y,cl，r）; hol ; xi=; yii=y; en endend lie(,x,yi,yR,clor，r）; i=x；i=R;xiixx;yii=+R; jvx=0; jvy=0;

18、xjfi（x04xx)）；y=x(（yy+R04）/); m=2j； axsau； hile (xj|y) if xj0 jvjvx+iy; end ij0 j=j+xi-xx; end lag=0； (jvxm） xj=xj1;lag=1； xi=xi+； jx=o(jvx,m); n f(jvm） yj=yj1；lg1； yi=yib； jvymd(v，m)； n f flag lie(xii,xi,yi,y，color,r)； xii=xi; yii=yi; holdo； nd endfunin db_Callback（hbject, eventta, dle)goblX Y F u E

19、 s；if x01=trdbl(get（andl.x1,sting）); y0=str2oule(ge（andles.y1，string）); x0=str2dobe(get(hanle。x2，srig）; y02=sr2dubl(t（hanles。y2,string); k=stroble(get(hales。uchag,string); ifu=0 X=x01； Y=y01； u=u； E（abs（x01-)+abs（y01y2）)/k; F=0; ese if E0 i F0 X=Xk; m=linspae（X-k,X，000)； n=Y； F=F（y2y0）； pot（m,n，); h

20、ld ; else Y=Yk； p=; =linspe(k,Y）; F+(x02x0)； plot（，); holon; e =E-； els u0; en endelse loal a； x=sr2doube（g(handles3,trn）); 04sr2dule(t（handles。4，trin）)； y03=str2doble(get（hanles.y,strig）); y4=str2dube（get（anles。y4，stin）)； bt2dule（get(anles。bchng，string）); j=str2doule(ge(handles.j,sti)； Rsr2doble(et

21、(hande。r，strig)）； l=(04y03）2(x0x03）2)05;=（y04)l;n=(x004)/l;x=(03+x)/2(R2-2/)0。*m;yy(y3+y04)+（2l24)0。5n;if(x0=xxxx) i x0 jx=jxyiyy; end f yj0 jvyvyxxxi； end flg=0; i(jvxm） xjx-;fa=1; xixi+b； jx=mod(v,m)； end （jvym) yj=yj-1；fla=; yyi+; jvy=mod(jvy,); end if flag=1 XC(）xi; C(k）yi; k=k+1； en endnd i=x；y

22、i=yy+R;xii=xx;ii=yyR; %第一象限顺圆插补 jv=0; jv0； n=i（x04xx)/b)；n=fix(+R-y04）/b)； %第一象限的计数器 m=2j; xis auo; whie （x|yn0) if jvx=vx+yyy; end f n0 jvy=+xix; nd fag=0; if（jvxm） xn=xn1；lag=； i=i+b; jx=md（jvx,）; end if(jym） y=n1；flg=1; yiyi-; jvyod(vy,m）; end if lag= XC（）=i; YC(k）=yi; k=k； end en a=piaan(as(y0yy

23、)(x0-xx)）; batan(abs（(0yy)/（xx)）; alphb:i/100：a; X=xx+R*cos（alpha); YQ=y+R*sin（alp）; plot(Q,Q) hld n; pl（x，y，Ro); i l= a=fa； elseif fl= line（x03,XC(1),y03,Y(1),color,r）； fla=la1； lseif fa2 line(C(fla）,XC(fla+1），YC(l)，Y（la+1),color,); fla=la1; lse rrorl(插补结束)； l=0； endendunctionuchang_Cllbac(Obet， ee

24、ntdat, hanle)ftn buchang_eateFcn(hObect，eventdta,hande)i ispc & iseal(et(hject,Bacgrounlo), gt(0,deaultUicontolBackgrouCr) se（hObject，BackgroundClo,whit);endfuctioncq_Clak（Oect， vntaa， andes)fncio jcq_Craecn（hObject, eventat, anles)i sp iequal（get(hObject,acgrudolor)， get（0,faulUcotrolBackgroundColor) t（hObet，BckgrundClor,wite)；n六 心得体会本次课设是在考研结束后的一周内做完的，时间其实应该是很够的,但是由于本人不善于编程，所以最后完成得很仓促.通过这次课设，我对matlab的操作有了更深的认识,对相关函数语句还有逻辑循环套用的应用有了更深的理解。而且此次课设，让我对逐点比较法直线插补和DA圆弧插补有了感性和理性的全面认识，对我学习数控机床这门课也有非常大的帮助。最后，遇到困难不要着急，静下心来总有解决办法