圆弧插补逐点比较法(MATLAB版)(2页).docx

《圆弧插补逐点比较法(MATLAB版)(2页).docx》由会员分享，可在线阅读，更多相关《圆弧插补逐点比较法(MATLAB版)(2页).docx（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-圆弧插补逐点比较法(MATLAB版)-第 2 页function myfun = pbpCircleintpol(x0, y0, x1, y1)%x0,y0,x1,y1分别为起始点横、纵坐标和终止点的横、纵坐标%以下程序是将图形限制在area区域内，并且将网格间距调整为1个单位长度area = max(max(x0,y0),max(x1,y1);plot(0 0,area area);grid onset(gca,XTick,0:1:area) set(gca,YTick,0:1:area)hold on;%以下部分程序是画出需要加工的工件轮廓r = sqrt(y02 + x02); %求圆

2、的半径theta0 = atan(y0/x0);theta1 = atan(y1/x1);theta = theta0:0.01:theta1dx = r * cos(theta);dy = r * sin(theta);plot (dx, dy);hold on;%以下部分程序是模拟走刀路径num = abs(x0-x1) + abs(y0-y1);px = x0;py = y0;rxy = r; %当前位置离圆心距离，初始化为rfor i=1:num lastX = px; lastY = py; %lastX，lastY为走刀之前的位置坐标if (rxyr)py = py + 1; else px = px - 1; endline(lastX px,lastY py,Marker,.,Color,r,Linestyle,-,LineWidth,2);rxy = sqrt(px2+py2);pause(.5); %每走一步暂停0.5秒end