数字积分法 直线插补 第二象限 全部代码
数字积分法直线插补第二象限全部代码.doc
PictureloPicturelo数字积分法直线插补第二象限全部代码私人潜艇 Command 1 Click() xe = CInt (Textl)你们二 CInt(Text2)行(5400、5470)-(5500, 5500) 行(5400、5530)-(5500, 5500)如果xe 二那么就等于0 Picturelo字体颜色二vbBlack PictureloDrawWidth = 2 Picturelo线(5500)-(500) Picturelo行(5500)-(5500, 5500) Picturelo线(500)-(600) Picturelo行(500)-(80, 600) PictureloCurrentX = 10 Picturelo 当前y 坐标二5300Picturelo 当前y 坐标二5200Picturelo 打印"x”Picturelo CurrentX = 100Picturelo 当前y 坐标二100Pictured 打印"Y”i=l 到xePictured 行(50+i 500, 5500)-(50+500, 5450)接下来，我对于j=lPicturelo 行(50, 5500-j 500)-(100, 5500-j 500)下一个我Picturelo字体颜色二vbr业务Picturelo DrawWidth = 2Pictured 行(50, 5500) - (50+500 Int (Textl) ，5500-500 Int (Text2))如果是xe小于等于0,则是0Picturelo DrawWidth = 2Pictured 行(5500、5500)-(5500 年,50) Pictured 行(5500 年,50)-(5530, 150) Pictured 行(5500 年,50) -(5470, 150) Pictured 线(5500、5500)-(5500) Pictured 行(5500)-(150, 5470) Pictured 行(5500)-(150, 5530) Picturelo CurrentX = 5600Picturelo 当前y 坐标二5400 Pictured 打印”(0,0)”Picturel o CurrentX = 100Picturelo 当前y 坐标二5200Picturel o打印”- x”Picturelo 打印"Y”因为i=l到-xePictured 行(5500-500, 5500)-(5500-500, 5450)接下来，我对于j=lPicturelo 行(5500, 5500-j 500)-(5500, 5500-j 500)下一个我Picturelo 字体颜色二vbBlackPicturelo DrawWidth = 2Pictured 行(5500, 5500)-(5500+500 Int(Textl), 5500-500 Int (Text2))如果是xe小于等于0,那么叶小于等于0Pictured 行(5500 年,50)-(5500, 5500)Picturelo 行(5500、5500)-(5530,5400)Picturelo 线(50, 50)-(150 年,20) Pictured 线(50,50)-(150、80)Picturelo CurrentX = 5600Picturelo 当前y 坐标二40Pictured 打印”(0,0)”Picturelo CurrentX = 100Picturelo 当前y 坐标二100Picturelo 打印”- x”Picturelo CurrentX = 5600Picturelo 当前y 坐标二5400Picturelo 打印”- y”因为i=l到-xePictured 行(5500-500, 50)-(5500-500, 100) 接下来，我j=l到一叶Pictured 行(5500, 50+j 500)-(5, 50+j 500)下一个我Picturelo 字体颜色二vbBlackPictured DrawWidth 二 2Pictured 线(550050)-(5500+500 Int(Textl), 50-500 Int(Text2)) 如果是0,那么叶小于等于0Picturelo 字体颜色二vbBlackPicturelo DrawWidth = 2Pictured 行(50, 50)-(5500 年,50)Pictured 行(5500 年,50)-(5400, 80)Picturelo 线(5500 年,50)-(5400 年,20) Pictured 线(50, 50)-(5500)Picturelo 线(5500)-(5400)Picturelo 行(5500)-(80, 5400) Picturelo 当前y 坐标二40Pictured 打印”(0,0)”Picturelo CurrentX = 5700Picturelo 当前y 坐标二100 Picturelo 打印"x”Picturelo CurrentX = 80Picturelo 当前y 坐标二5400 Picturelo 打印”- y”i=l 到xePictured 行(50+500, 50)-(50+500, 100) 接下来，我Picturel. Printj=l至U-叶Pictured 行(50 50+j 500)-(100, 50+j 500)下一个我Picturelo DrawWidth = 2Picturelo 行(50, 50)-(50+500 Int (Textl), 50-500 Int (Text2)) 如果终止子私人潜艇Command2_C 1 ick ()n 二Int (Text5)&二0易建联二0xe 二CInt(Textl)你们二CInt (Text2)jvx 二xejvy二你们jrx 二0 jry 二0如果xe=O,那么就等于0i=l 到 2 njrx=jrx+jvx如果jrx=2 njrx=jrx-2nk = 1xi=xi+1如果杰里如果jry=2 njry-2 nm = 1yi=yi+1如果Picturelo 字体颜色二vbGreen如果k=l和m=lPicturelo 线(50 + 500 *(xi - 1), 5500(500) (yi - 1)*)-(50 + 500 *(xi)500 -(易建联)* 500)如果k= 1和m=0Pictured 行(50+500 (xi-l), 5500-(yi) 500)-(50+500 (xi),5500-(yi)500)如果k=0和m=lPicturel。
数字积分法插补C语言程序
#include<stdio.h>#include<math.h>#include<stdlib.h>/********************************************************************/ /* 函数名: InsertPoint *//* 功能：控制机床各轴进给并将进给结果写入文件中 *//* 参数：double x, double y 插补点单位:毫米 *//* 说明：与机床硬件关联，每产生一个点调用一次 *//********************************************************************/ void InsertPoint(double xCur,double yCur){extern FILE *fp;char ch=10;printf("xCur=%f,yCur=%f\n",xCur,yCur);fprintf(fp,"%f,%f",xCur,yCur);fputc(ch,fp);}/********************************************************************/ /* 函数名: Judge_Quadrant *//* 功能：判断参数坐标的所在象限并返回相应象限值 *//* 参数：double x mm *//* double y mm *//********************************************************************/ unsigned short Judge_Quadrant(double x, double y){unsigned short nDir;if (x>=0){ //象限判断if (y>=0){nDir=1;return 1;}else{nDir=4;return 4;}}else{if (y>=0){nDir=2;return 2;}else{nDir=3;return 3;}}}/********************************************************************/ /* 函数名: DDA_Line */ /* 功能：数字积分法直线插补 *//* 参数：double XEnd, double YEnd 插补终点 mm *//* int step 步长 mm *//* unsigned short n 寄存器位数 *//********************************************************************/ void DDA_Line(unsigned short n, int step, double XEnd, double YEnd){long XRes,YRes; //寄存器溢出后余数long xEnd,yEnd; //插补终点值long XCur=0,YCur=0; //当前位置int IPCount=0;//累加值int nQuadrant;//象限int Q; //累加器容量int bInterpXEnable,bInterpYEnable;XRes=YRes=0;bInterpXEnable=bInterpYEnable=0;xEnd=labs(XEnd);yEnd=labs(YEnd);Q=(fabs(YEnd)+fabs(XEnd))/step;nQuadrant=Judge_Quadrant(XEnd,YEnd);//计算插补象限switch(nQuadrant){case 1:while (IPCount<Q){XRes+=xEnd/step;YRes+=yEnd/step;if (XRes>=Q){XRes=XRes%Q;XCur+=step;bInterpXEnable=1;}if (YRes>=Q){YRes=YRes%Q;YCur+=step;bInterpYEnable=1;}if (bInterpXEnable==1||bInterpYEnable==1) {InsertPoint(XCur,YCur);bInterpXEnable=bInterpYEnable=0;}IPCount++;}break;case 2:while (IPCount<Q){XRes+=xEnd/step;YRes+=yEnd/step;if (XRes>=Q){XRes=XRes%Q;XCur-=step;bInterpXEnable=1;}if (YRes>=Q){YRes=YRes%Q;YCur+=step;bInterpYEnable=1;}if (bInterpXEnable==1||bInterpYEnable==1) { InsertPoint(XCur,YCur); bInterpXEnable=bInterpYEnable=0;}IPCount++;}break;case 3:while (IPCount<Q){XRes+=xEnd/step;YRes+=yEnd/step;if (XRes>=Q){XRes=XRes%Q;XCur-=step;bInterpXEnable=1;}if (YRes>=Q){YRes=YRes%Q;YCur-=step;bInterpYEnable=1;}if (bInterpXEnable==1||bInterpYEnable==1) {InsertPoint(XCur,YCur); bInterpXEnable=bInterpYEnable=0;}IPCount++;}break;case 4:while (IPCount<Q){XRes+=xEnd/step;YRes+=yEnd/step;if (XRes>=Q){XRes=XRes%Q;XCur+=step;bInterpXEnable=1;}if (YRes>=Q){YRes=YRes%Q;YCur-=step;bInterpYEnable=1;}if (bInterpXEnable==1||bInterpYEnable==1) {InsertPoint(XCur,YCur); bInterpXEnable=bInterpYEnable=0;}IPCount++;}break;}}/********************************************************************//* 函数名: DDA_Line *//* 功能：数字积分法圆弧插补 *//* 参数：double XEnd, double YEnd 插补终点 mm *//* int step 步长 mm *//* unsigned short n 寄存器位数 *//********************************************************************/void DDA_Circle(unsigned short n, int step, double XStart, double YStart, double XEnd, double Y End, double radius, int bIsCW){double xCur=XStart,yCur=YStart;long xRes=0,yRes=0;int ndir,Q;int judge=1;int full_circle=0;int xEnable,yEnable;xEnable=yEnable=0;Q=radius;//溢出基值,也可取为pow(2,n)InsertPoint(xCur,yCur);if(XStart==XEnd&YStart==YEnd)full_circle=1;//判断是否要画整圆while(judge==1||full_circle==1)//检测终点{xRes+=fabs(xCur);yRes+=fabs(yCur);if(xRes>=Q&fabs(yCur)<=radius){xRes=xRes%Q;yEnable=1;}if(yRes>=Q&fabs(xCur)<=radius){yRes=yRes%Q;xEnable=1;}if(bIsCW==0)//逆圆插补{ndir=Judge_Quadrant(xCur,yCur);if(yEnable==1)//xRes溢出，y轴进给{switch(ndir){case 1:if(fabs(yCur)<radius) yCur+=step;break;//防止y轴超出半径范围case 2:yCur-=step;break;case 3:if(fabs(yCur)<radius) yCur-=step;break;//防止y轴超出半径范围case 4:yCur+=step;break;}}if(xEnable==1)//yRes溢出，x轴进给{switch(ndir){ case 1:xCur-=step;break;case 2:if(fabs(xCur)<radius) xCur-=step;break;//防止x轴超出半径范围case 3:xCur+=step;break;case 4:if(fabs(xCur)<radius) xCur+=step;break;//防止x轴超出半径范围}}}else//顺圆插补{ndir=Judge_Quadrant(xCur,yCur);if(yEnable==1)//xRes溢出，y轴进给{switch(ndir){case 1:yCur-=step;break;case 2:if(fabs(yCur)<radius) yCur+=step;break;//防止y轴超出半径范围case 3:yCur+=step;break;case 4:if(fabs(yCur)<radius) yCur-=step;break;//防止y轴超出半径范围}}if(xEnable==1)//yRes溢出，x轴进给{switch(ndir){case 1:if(fabs(xCur)<radius) xCur+=step;break;//防止x轴超出半径范围case 2:xCur+=step;break;case 3:if(fabs(xCur)<radius) xCur-=step;break;//防止x轴超出半径范围case 4:xCur-=step;break;}}}judge=(fabs(xCur-XEnd)>=step||fabs(yCur-YEnd)>=step);if(xEnable||yEnable)//判断并进行进给运动{InsertPoint(xCur,yCur);xEnable=yEnable=0;full_circle=0;}}}FILE *fp;int main(){char fn[10];printf("please input filename:\n");scanf("%s",fn);if((fp=fopen(fn,"w"))==NULL) { printf("can't open file\n"); exit(0);}DDA_Circle(4,1,50,0,40,-30,50,1);//输入要插补的圆弧的参数// DDA_Line(4,1,50,-20);//输入要插补的圆弧的参数fclose(fp);return 0;}。
数字积分法(DDA)插补直线参考程序
数字积分法(DDA)插补直线参考程序Sub 插补X()标志X = 0If 余数X >= Q Then余数X = 余数X Mod Qx动点= x动点+ 1: 标志X = 1 End IfEnd SubSub 插补Y()标志Y = 0If 余数Y >= Q Then余数Y = 余数Y Mod Qy动点= y动点+ 1: 标志Y = 1End IfEnd SubSub 插补Z()标志Z = 0If 余数Z >= Q Then余数Z = 余数Z Mod Qz动点= z动点+ 1: 标志Z = 1 End IfEnd SubSub 插补公共()余数X = 余数X + x终点余数Y = 余数Y + y终点余数Z = 余数Z + z终点插补X插补Y插补Z插补记录= 插补记录+ 1End SubSub 插补()Dim c As Integer插补记录= 0: 余数X = 0: 余数Y = 0: 余数Z = 0: 划轮廓线PSet (z原点, x原点), vbRedSelect Case 象限标志Case 1: '第一象限插补Do Until 插补记录= Q插补公共Line -Step(z步长×标志Z, x步长×标志X), vbRedLoopCase 2: '第二象限插补c = x终点: x终点= z终点: z终点= -cc = x步长: x步长= z步长: z步长= -cDo Until 插补记录= Q插补公共Line -Step(x步长×标志X, z步长×标志Z), vbRed LoopCase 3: '第三象限插补x终点= -x终点: z终点= -z终点x步长= -x步长: z步长= -z步长Do Until 插补记录= Q插补公共Line -Step(z步长×标志Z, x步长×标志X), vbRed LoopCase 4: '第四象限插补c = x终点: x终点= -z终点: z终点= cc = x步长: x步长= -z步长: z步长= cDo Until 插补记录= Q插补公共Line -Step(x步长×标志X, z步长×标志Z), vbRed LoopEnd SelectEnd Sub。
逐点插补第二象限插补程序
第二象限插补Dim k As Integer '总步数Dim x1 As Integer '终点横坐标Dim y1 As Integer '终点纵坐标Dim f As Integer '偏差Dim x2 As Integer '动点横坐标Dim y2 As Integer '动点纵坐标Dim lidu As Integer '加工精度Dim result As IntegerPrivate Sub Command1_Click() '绘制需要插补的直线，并且开始插补x1 = Abs(Val(Text1.Text))y1 = Val(Text2.Text)lidu = Val(Text3.Text)k = Abs(x1) + y1f = 0x2 = 0y2 = 0Picture1.Line (100, 100)-(100 - x1, 100 - y1)Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() '重绘坐标轴draw_xyEnd SubPrivate Sub Command4_Click() '各轴回到原点result = get_status(0, 1, value)If value = 0 Then result = symmetry_absolute_move(0, 1, 0, 1000, 2000, 0.1)result = get_status(0, 2, value)If value = 0 Then result = symmetry_absolute_move(0, 2, 0, 1000, 2000, 0.1)End SubPrivate Sub Form_Load()result = adt8940a1_initialdraw_xyTimer1.Enabled = FalseEnd SubPrivate Sub chabu(f As Integer, x As Integer, y As Integer) '插补函数If f >= 0 Then '偏差大于等于0时,x向进给x = x - liduf = f - y1Do '循环判断运动卡状态result = get_status(0, 1, value) '获取状态If value = 0 Then '当运动卡状态为驱动结束时,value值为0,这时可以再次驱动result = symmetry_relative_move(0, 1, -lidu * 10, 1000, 2000, 0.1) 'x轴运动Picture1.Line (x + lidu + 100, 100 - y)-(x + 100, 100 - y) 'x轴绘制End IfLoop Until value = 0Else '偏差小于0时,y向进给y = y + liduf = f + x1Doresult = get_status(0, 2, value)If value = 0 Thenresult = symmetry_relative_move(0, 2, lidu * 10, 1000, 2000, 0.1)Picture1.Line (x + 100, 100 - (y - lidu))-(x + 100, 100 - y)End IfLoop Until value = 0End IfEnd SubPrivate Sub Timer1_Timer() '当k>0时计时器开始调用插补函数If k > 0 Thenk = k - liduchabu f, x2, y2ElseTimer1.Enabled = FalseEnd IfEnd SubPublic Sub draw_xy() '绘制坐标轴函数Picture1.ClsPicture1.Line (100, 10)-(100, 100)Picture1.Line (100, 10)-(101, 11)Picture1.Line (100, 10)-(99, 11)Picture1.Line (10, 100)-(100, 100)Picture1.Line (10, 100)-(11, 101)Picture1.Line (10, 100)-(11, 99)End Sub第一象限插补Dim k As Integer '总步数Dim x1 As Integer '终点横坐标Dim y1 As Integer '终点纵坐标Dim f As Integer '偏差Dim x2 As Integer '动点横坐标Dim y2 As Integer '动点纵坐标Dim lidu As Integer '加工精度Dim result As IntegerPrivate Sub Command1_Click() '绘制需要插补的直线，并且开始插补x1 = V al(Text1.Text)y1 = Val(Text2.Text)lidu = Val(Text3.Text)k = x1 + y1f = 0x2 = 0y2 = 0Picture1.Line (10, 100)-(10 + x1, 100 - y1)Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() '重绘坐标轴draw_xyEnd SubPrivate Sub Command4_Click() '各轴回到原点result = get_status(0, 1, value)If value = 0 Then result = symmetry_absolute_move(0, 1, 0, 1000, 2000, 0.1)result = get_status(0, 2, value)If value = 0 Then result = symmetry_absolute_move(0, 2, 0, 1000, 2000, 0.1)End SubPrivate Sub Form_Load()result = adt8940a1_initialdraw_xyTimer1.Enabled = FalseEnd SubPrivate Sub chabu(f As Integer, x As Integer, y As Integer) '插补函数If f >= 0 Then '偏差大于等于0时,x向进给x = x + liduf = f - y1Do '循环判断运动卡状态result = get_status(0, 1, value) '获取状态If value = 0 Then '当运动卡状态为驱动结束时,value值为0,这时可以再次驱动result = symmetry_relative_move(0, 1, lidu * 10, 1000, 2000, 0.1) 'x轴运动Picture1.Line (x - lidu + 10, 100 - y)-(x + 10, 100 - y) 'x轴绘制End IfLoop Until value = 0Else '偏差小于0时,y向进给y = y + liduf = f + x1Doresult = get_status(0, 2, value)If value = 0 Thenresult = symmetry_relative_move(0, 2, lidu * 10, 1000, 2000, 0.1)Picture1.Line (x + 10, 100 - (y - lidu))-(x + 10, 100 - y)End IfLoop Until value = 0End IfEnd SubPrivate Sub Timer1_Timer() '当k>0时计时器开始调用插补函数If k > 0 Thenk = k - liduchabu f, x2, y2ElseTimer1.Enabled = FalseEnd IfEnd SubPublic Sub draw_xy() '绘制坐标轴函数Picture1.ClsPicture1.Line (10, 10)-(10, 100)Picture1.Line (10, 10)-(11, 11)Picture1.Line (10, 10)-(9, 11)Picture1.Line (10, 100)-(100, 100)Picture1.Line (100, 100)-(99, 101)Picture1.Line (100, 100)-(99, 99)End Sub。
5.数字积分法直线插补
床进给，其效果是一样的。在被寄函数寄存器里可只存Xe， 而省略k。
例如，Xe=100101在一个6位寄存器中存放，若k=1/26， kXe=0.100101也存放在6位寄存器中，数字是一样的，若进
行一次累加，都有溢出，余数数字也相同，只是小数点位置
终点坐标值，每经过一个时间间隔t，将被积函数值向各自的累加器中
累加，当累加结果超出寄存器容量时，就溢出一个脉冲，若寄存器位 数为n，经过2n次累加后，每个坐标轴的溢出脉冲总数就等于该坐标的 被积函数值，从而控制刀具到达终点。
机电工程学院
=k
刀具在X，Y方向移动的微小增量分别为：
X = Vxt = kXet Y = Vyt = kYet
机电工程学院
动点从原点出发走向终点的过程，可以看作是各坐标轴每经过
一个单位时间间隔t，分别以增量kXe及kYe同时累加的结果。
m
m
X = X i = kX eti
i =1
i＝1
m
m
Y = Yi = kYeti
有缘学习更多＋谓ｙｇｄ３０７６或关注桃报：奉献教育（店铺）
如果存放Xe，Ye寄存器的位数是n，对应最大允许数字量
为 2n 1（各位均为1），所以Xe，Ye最大寄存数值为 2n 1
则： k (2n 1，不妨取
k
=
1 2n
代入得：
2
n 2n
1
1
累加次数为： m = 1 = 2n
5. 数字积分法直线插补
如右图所示第一象
限直线OE，起点为坐标 Y
原点O，终点坐标为E （Xe，Ye），直线OE的
长度L为：
Vy V E(Xe,Ye) Vx
数控课程设计(数字积分法第二象限直线插补程序)
数字积分法第二象限直线插补程序设计数字积分法是利用数字积分的方法，计算刀具沿各坐标轴的位移，使得刀具沿着所加工的轮廓曲线运动利用数字积分原理构成的插补装置称为数字积分器，又称数字微分分析器（Digital Differential Analyzer），简称DDA。
数字积分器插补的最大优点在于容易实现多坐标轴的联动插补、能够描述空间直线及平面各种函数曲线等。
因此，数字积分法插补在轮廓数控系统中得到广泛的应用。
具体设计内容如以下：……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………目录一、课程设计目的 (1)二、课程设计题目描述和要求 (1)三、课程设计报告内容 (1)数字积分法直线插补的基本原理 (2)从几何角度来看积分运算 (2)数字积分法在轮廓插补中的具体应用(数字积分法直线插补)3 插补终点判别的具体实现 (4)插补器的组成 (5)数字积分法稳速控制 (5)提高插补精度的措施 (6)减少误差的方法 (6)数字积分法直线插补框图 (7)数字积分法直线（第二象限）插补程序流程图 (7)四结论 (8)五结束语 (8)参考书目 (10)附录数字积分法直线插补程序清单（第二象限） (11)一、课程设计目的1)了解连续轨迹控制数控系统的组成原理。
插补程序源代码
插补程序源代码目录1逐点比较法插补c语言程序源代码 (02)2 逐点比较法圆弧插补VB源程序 (07)3 逐点比较法直线插补VB源程序 (11)4 时间分割法直线插补参考VB程序 (13)5 时间分割法圆弧插补VB源程序 (14)1 逐点比较法插补c语言程序源代码#include "conio.h"#include "graphics.h"#include "process.h"#define Ni_circle 0#define Shun_circle 1void init_graph();void draw_Base_circle();void draw_cabu_circle();void close_graph();void acrroods();static float x0,y0;void line_cabu(), draw_line(),draw_line_cabu();void line_cabu() /*此函数控制直线插步两次*/{int i;init_graph();sleep(1);for(i=0;i<2;i++){line(0,120,300,120); outtextxy(310,120,"Z");line(100,10,100,300); outtextxy(110,300,"X");outtextxy(90,130,"O");draw_line();if(i==0)draw_line_cabu(6);else draw_line_cabu(2);gotoxy(50,5);getch();cleardevice();setcolor(WHITE);}}void draw_line()/*画直线*/{line(100,120,600,450);textcolor(YELLOW);directvideo=0;gotoxy(45,5); cprintf("Line from:X0 Y0 Z0 ");gotoxy(45,6); cprintf("Line to :X500 Y0 Z330");gotoxy(45,7); cprintf("Units :Pixel");gotoxy(45,8); cprintf("Line now:");}void draw_line_cabu(int step)/*关键的直线插补函数*/{int Xe=600,Ye=450;float Fm,Xm=100,Ym=120;setcolor(RED);moveto(Xm,Ym);while(Xm<=Xe&&Ym<=Ye){Fm=(Ym-120)*(Xe-100)-(Xm-100)*(Ye-120);if(Fm>=0)Xm=Xm+step;elseYm=Ym+step;lineto(Xm,Ym);gotoxy(55,8); printf("X%3.0f Y0 Z%3.0f",Xm-100,Ym-120);delay(1100);}}/* 圆插补部分的函数区*/void init_graph() /*图形系统初始化*/{int gdrive=DETECT,gmode;initgraph(&gdrive,&gmode,"");cleardevice();}void acrroods() /*屏幕中心坐标*/{x0=getmaxx()/2;y0=getmaxy()/2;}void draw_Base_circle() /*画圆及写参数*/{line(x0-200,y0,x0+200,y0); outtextxy(x0+220,y0,"Z");line(x0,y0-180,x0,y0+180); outtextxy(x0+10,y0+180,"X");outtextxy(x0-10,y0+10,"O");circle(x0,y0,150);textcolor(YELLOW);directvideo=0;gotoxy(46,2);cprintf("Circle start:X0 Y0 Z150");gotoxy(46,3);cprintf("Circle end :X0 Y0 Z150");gotoxy(46,4);cprintf("Units :Pixel");gotoxy(46,5);cprintf("Circle now:");}void close_graph() /*关图形系统*/{closegraph();}void draw_cabu_circle(int sstep,int Directory)/*关键的圆插补函数*/{int flag=0;float Fm,Xm,Ym;Xm=x0+150; Ym=y0;moveto(Xm,Ym);setcolor(RED);while(1) /*分象限，顺圆和逆圆讨论*/{Fm=(Xm-x0)*(Xm-x0)+(Ym-y0)*(Ym-y0)-150*150;/*圆判断公式*/ if(Fm>=0){if(!Directory){ /*逆圆判断*/if(Xm>=x0&&Ym<=y0){if(flag) break; /*if语句判断象限，以下一样*/else Xm=Xm-sstep;}if(Xm<=x0&&Ym<=y0){flag=1; Ym=Ym+sstep;}if(Xm<=x0&&Ym>=y0)Xm=Xm+sstep;if(Xm>=x0&&Ym>=y0)Ym=Ym-sstep;}else { /*it is Directory's else*/if(Xm>x0&&Ym<y0)Ym=Ym+sstep;if(Xm<=x0&&Ym<=y0)Xm=Xm+sstep;if(Xm<x0&&Ym>y0) {flag=1; Ym=Ym-sstep;}if(Xm>=x0&&Ym>=y0) {if(flag) break;Xm=Xm-sstep;}}}else{ /*it is Fm's else*/if(!Directory) {if(Xm>x0&&Ym<y0){if(flag) break;else Ym=Ym-sstep;}if(Xm<=x0&&Ym<=y0){flag=1; Xm=Xm-sstep;}if(Xm<=x0&&Ym>=y0)Ym=Ym+sstep;if(Xm>=x0&&Ym>=y0)Xm=Xm+sstep;}else{if(Xm>x0&&Ym<y0)Xm=Xm+sstep;if(Xm<=x0&&Ym<=y0)Ym=Ym-sstep;if(Xm<=x0&&Ym>=y0){flag=1; Xm=Xm-sstep;}if(Xm>=x0&&Ym>=y0) {if(flag) break;else Ym=Ym+sstep;}}}lineto(Xm,Ym);gotoxy(58,5); printf("X%3.0f Y0 Z%3.0f ",Ym-y0,Xm-x0);delay(800);}}void circle_demo(int Directory) /*控制圆插补两次*/{int i=0,sstep;init_graph();sleep(2);acrroods(&x0,&y0);for(i=0;i<2;i++){draw_Base_circle(150);if(i==0){sstep=6;draw_cabu_circle(sstep,Directory);}else{sstep=1;draw_cabu_circle(sstep,Directory);}getch();cleardevice();setcolor(WHITE);}}/* 圆插补部分的函数区结束*/main()/*主函数负责写封面和函数调用*/{int choice=0;init_graph();while(choice!=4){setfillstyle(1,RED);bar(200,30,400,80);setcolor(GREEN);settextstyle(3,0,10);outtextxy(220,50,"DEMO PROGRAM BY P.Y.F");setcolor(WHITE);settextstyle(0,0,1);outtextxy(200,120,"1. Line demo.");outtextxy(200,140,"2. Shun_Circle demo.");outtextxy(200,160,"3. Ni_Circle demo.");outtextxy(200,180,"4. Quit the program.");outtextxy(160,200,"Please enter your choice:"); gotoxy(46,13);scanf("%d",&choice);switch(choice){case 1: line_cabu();break;case 2: circle_demo(Ni_circle);break;case 3: circle_demo(Shun_circle);break;case 4: break;default: printf("\nChoice wrong,try again!");}}close_graph();}2 逐点比较法圆弧插补VB源程序Sub 偏差计算()偏差= Sqr((x动点- x圆心) 2 + (z动点- z圆心) 2) - R End SubSub 插补()x动点= x起点: z动点= z起点:动点象限判别xx: Select Case 象限标志Case 1: 单步连续判断If 顺逆标志= "顺" Then '第一象限插补Do Until (x动点- x终点) = 0 And (z动点- z终点) = 0 If 偏差>= 0 Thenx动点= x动点- 1:Line -Step(0, -x步长), vbRedElsez动点= z动点+ 1:Line -Step(z步长, 0), vbRedEnd If偏差计算动点象限判别If 象限标志<> 1 ThenGoTo xxEnd If单步连续判断LoopElseIf 顺逆标志= "逆" ThenDo Until (x动点- x终点) = 0 And (z动点- z终点) = 0If 偏差>= 0 Thenz动点= z动点- 1:Line -Step(-z步长, 0), vbRedElsex动点= x动点+ 1:Line -Step(0, x步长), vbRedEnd IfDoEvents偏差计算动点象限判别If 象限标志<> 1 ThenGoTo xxEnd IfLoopEnd IfCase 2: 单步连续判断If 顺逆标志= "顺" Then '第二象限插补Do Until (x动点- x终点) = 0 And (z动点- z终点) = 0If 偏差>= 0 Thenz动点= z动点- 1:Line -Step(-z步长, 0), vbRedElsex动点= x动点- 1:Line -Step(0, -x步长), vbRedEnd If偏差计算动点象限判别If 象限标志<> 2 ThenGoTo xxEnd IfLoopElseIf 顺逆标志= "逆" ThenDo Until (x动点- x终点) = 0 And (z动点- z终点) = 0If 偏差>= 0 Thenx动点= x动点+ 1:Line -Step(0, x步长), vbRedElsez动点= z动点+ 1:Line -Step(z步长, 0), vbRedEnd If偏差计算动点象限判别If 象限标志<> 2 ThenGoTo xxEnd IfLoopEnd IfCase 3: 单步连续判断If 顺逆标志= "顺" Then '第三象限插补Do Until (x动点- x终点) = 0 And (z动点- z终点) = 0If 偏差>= 0 Thenx动点= x动点+ 1:Line -Step(0, x步长), vbRedElsez动点= z动点- 1:Line -Step(-z步长, 0), vbRedEnd IfDoEvents偏差计算动点象限判别If 象限标志<> 3 ThenGoTo xxEnd IfLoopElseIf 顺逆标志= "逆" ThenDo Until (x动点- x终点) = 0 And (z动点- z终点) = 0 If 偏差>= 0 Thenz动点= z动点+ 1:Line -Step(z步长, 0), vbRedElsex动点= x动点- 1:Line -Step(0, -x步长), vbRedEnd If偏差计算动点象限判别If 象限标志<> 3 ThenGoTo xxEnd IfLoopEnd IfCase 4: 单步连续判断If 顺逆标志= "顺" Then '第三象限插补Do Until (x动点- x终点) = 0 And (z动点- z终点) = 0 If 偏差>= 0 Thenz动点= z动点+ 1:Line -Step(z步长, 0), vbRedElsex动点= x动点+ 1:Line -Step(0, x步长), vbRedEnd If偏差计算动点象限判别If 象限标志<> 4 ThenGoTo xxEnd IfLoopElseIf 顺逆标志= "逆" ThenDo Until (x动点- x终点) = 0 And (z动点- z终点) = 0 If 偏差>= 0 Thenx动点= x动点- 1:Line -Step(0, -x步长), vbRedElsez动点= z动点- 1:Line -Step(-z步长, 0), vbRedEnd If偏差计算动点象限判别If 象限标志<> 4 ThenGoTo xxEnd IfLoopEnd IfEnd SelectEnd Sub3 逐点比较法直线插补VB源程序Sub 偏差计算()偏差 = Abs(x终点) × z动点 - x动点× Abs(z终点) End SubSub 插补()Dim c As IntegerSelect Case 象限标志Case 1: '第一象限插补Do Until x动点 + z动点 >= 总步数If 偏差 >= 0 Thenx动点 = x动点 + 1:Line -Step(0, x步长), vbRedElsez动点 = z动点 + 1:Line -Step(z步长, 0), vbRedEnd If偏差计算LoopCase 2: '第二象限插补c = x终点: x终点= z终点: z终点= -cc = x步长: x步长 = z步长: z步长 = -cDo Until x动点 + z动点 >= 总步数If 偏差 >= 0 Thenx动点 = x动点 + 1:Line -Step(x步长, 0), vbRedElsez动点 = z动点 + 1:Line -Step(0, z步长), vbRedEnd If偏差计算LoopCase 3: '第三象限插补x步长 = -x步长: z步长 = -z步长Do Until x动点 + z动点 >= 总步数If 偏差 >= 0 Thenx动点 = x动点 + 1:Line -Step(0, x步长), vbRedElsez动点 = z动点 + 1:Line -Step(z步长, 0), vbRedEnd If偏差计算LoopCase 4: '第四象限插补c = x终点: x终点= -z终点: z终点 = cc = x步长: x步长 = -z步长: z步长 = cDo Until x动点 + z动点 >= 总步数If 偏差 >= 0 Thenx动点 = x动点 + 1: Line -Step(x步长, 0), vbRedElsez动点 = z动点 + 1: Line -Step(0, z步长), vbRedEnd If偏差计算LoopEnd SelectEnd Sub4 时间分割法直线插补参考VB程序Sub 插补()Dim l, K, a, B, f1, tx动点对起点= 0: z动点对起点= 0f1 = f × 10: t = Ts / 60000l = Sqr((x终点对起点^ 2 + z终点对起点^ 2))K = f1 × t / la = Sqr((x动点对起点- x终点对起点) ^ 2 + (z动点对起点- z终点对起点) ^ 2)x步长= K × x终点对起点: z步长= K × z终点对起点:B = Sqr(z步长^ 2 + x步长^ 2)Do Until a <= B / 2x动点对起点= x动点对起点+ x步长: z动点对起点= z动点对起点+ z步长a = Sqr((x动点对起点- x终点对起点) ^ 2 + (z动点对起点- z终点对起点) ^ 2)Line -Step(z步长×系数, x步长×系数), vbRedx动点对原点= x动点对起点+ x起点对原点: y动点对原点= y动点对起点+y起点对原点: z动点对原点= z动点对起点+ z起点对原点LoopEnd Sub5 时间分割法圆弧插补VB源程序圆弧（切线法）：Sub 插补()Dim 区间符号As IntegerDim x, y, z As DoubleDim KDim 径向误差, R动As Double顺逆符号判别读数据If R < 0.001 ThenElseTs = Ts / 60000步长= f × Ts:K = 步长/ Rx动点对圆心= -x圆心对起点/ 系数: z动点对圆心= -z圆心对起点/ 系数End Ifx = ((x动点对圆心- x终点对圆心) ^ 2 + (z动点对圆心- z终点对圆心) ^ 2) ^ 0.5y = 3 ×步长×系数Do Until x <= ydeltaZ = -顺逆符号× K × x动点对圆心deltaX = 顺逆符号× K × z动点对圆心Line -Step(deltaZ, deltaX), vbRedx动点对圆心= x动点对圆心+ deltaX: z动点对圆心= z动点对圆心+ deltaZ: x动点对原点= x动点对圆心+ x圆心对原点: y动点对原点= y动点对圆心+y圆心对原点: z动点对原点= z动点对圆心+ z圆心对原点:x = ((x动点对圆心- x终点对圆心) ^ 2 + (z动点对圆心- z终点对圆心) ^ 2) ^ 0.5:y = 3 ×步长×系数R动= Sqr(x动点对圆心^ 2 + z动点对圆心^ 2)LoopEnd Sub。
数控机床DDA数字积分法插补第一象限直线,逐点比较法插补二三象限顺圆弧
3.2 执行计算
在右侧面板中有参数输入区，方式选择区以及执行按钮等操作。
若输入参数和符合要求则出现错误对话框;“参数有误”
若不选择插补对象为‘直线’或‘圆弧’直接按下‘复位’按钮会出现警示对话框提示“请选择插补对象”
注：在直线插补中，对起始点坐标和终点坐标不作要求，但步长必须不能为0；在圆弧插补中，起始点坐标必须为二三象限的点，且终止点必须在起始点下侧，这事保证圆弧为劣弧的条件之一。步长在任何情况下不能为0 。
4.2 主要算法的实现
4.2.1参数声明
起点坐标（sx,sy）;终点坐标（ex,ey）；
圆心坐标（cx,cy）；步长bc；
4.2.2复位操作程序：
functionfw_Callback(hObject, eventdata, handles)
globalsx sy ex ey cx cy bc m vx1 vy1 rx1 ry1
3.2 执行计算……………………………………………………………5
3.3DDA法直线插补实例………………………………………………6
3.4逐点比较法插补第二三象限逆时针圆弧…………………………7
四、主要算法及源程序
4.1 程序设计概述………………………………………………………8
set(gca,'YTick',[-10:1:10]);
axis([-10 10 -10 10]);
axismanual;
ifs_1==0&&s_2==0
warndlg('请选择插补对象');
else
ifget(handles.zx,'value')
m=str2double(get(handles.m,'String'));
数字积分法三、四象限顺圆插补VB源程序
程序清单Private Sub 建立坐标系_Click()Picture1.ForeColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (500, 1000)-(8500, 1000) '画直线坐标轴Picture1.Line (4500, 1000)-(4500, 5000)Picture1.CurrentX = 230 '当前位置Picture1.CurrentY = 900Picture1.Print "-X" '坐标轴标注Picture1.CurrentX = 4300Picture1.CurrentY = 800Picture1.Print "(0,0)"Picture1.CurrentX = 8650Picture1.CurrentY = 900Picture1.Print "X"Picture1.CurrentX = 4400Picture1.CurrentY = 5100Picture1.Print "-Y"Picture1.Line (500, 1000)-(600, 950) '箭头Picture1.Line (500, 1000)-(600, 1050)Picture1.Line (8500, 1000)-(8400, 950)Picture1.Line (8500, 1000)-(8400, 1050)Picture1.Line (4500, 5000)-(4450, 4900)Picture1.Line (4500, 5000)-(4550, 4900)End SubPrivate Sub 画圆弧_Click()Dim a, b, c, d, n, m As IntegerDim r As Singlea = V al(Text1.Text)b = V al(Text2.Text)c = V al(Text3.Text)d = V al(Text4.Text)n = a * a + b * bm = c * c + d * dr = Sqr(n)Picture1.ForeColor = vbRedPicture1.DrawWidth = 4If Option1.V alue = True ThenConst PI = 3.1415926535Picture1.Circle (4500, 1000), 300 * r, , PI, -3 * -PI / 2End IfIf Option2.V alue = True ThenPicture1.Circle (4500, 1000), 300 * r, , -3 * -PI / 2, 0 * PIEnd IfEnd SubPrivate Sub 清除_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Option1.V alue = FalseOption2.V alue = FalsePicture1.ClsForm1.ClsEnd SubPrivate Sub 插补计算_Click()If Not (Option1.V alue = True Or Option2.V alue = True) Thenans = MsgBox("出错了，请选择象限", 48, "提示信息")End IfDim a, b, c, d, ni, mi, ai, bi, ci, k, f, g, m, n, l, i, xs, yx, xe, ye, jvx, jvy, xi, yi As Integer Dim r As Singlea = V al(Text1.Text)b = V al(Text2.Text)c = V al(Text3.Text)d = V al(Text4.Text)ni = a * a + b * bmi = c * c + d * dr = Sqr(ni)Form1.Clsci = 2f = 1g = 1k = 0 '正X进给标志1 正向-1负向m = 0 '负Y进给标志 1 正向-1负向n = 0 '累加次数i = CInt(Text5) '寄存器位数赋给il = 2 ^ ixs = CInt(Text1)ys = CInt(Text2)xe = CInt(Text3)ye = CInt(Text4)jvx = Abs(CInt(Text2))jvy = Abs(CInt(Text1))jrx = 0jry = 0xi = Abs(CInt(Text3) - CInt(Text1)) 'X方向总步yi = Abs(CInt(Text4) - CInt(Text2)) 'Y方向总步长ai = xsbi = ysPicture1.ForeColor = vbGreenPicture1.DrawWidth = 3Form1.CurrentX = 200Form1.CurrentY = 200Print " " & " X积分器" & " Y积分器" Form1.CurrentX = 100Form1.CurrentY = 400Print "累加次数n" & " jvx " & "Jrx=Jrx+Jvx" & " △X " & "J∑x" & " Jvy" & " Jry=Jry+Jvy" & " △Y " & " J∑y "Form1.CurrentX = 100Form1.CurrentY = 600Print " 开始" & "" & jvx & " " & jrx & "" & k & " " & xi & " " & jvy & " " & jry & " " & m & " " & yiwz: k = 0 'X方向进给标志1 X正向进给-1负向进给m = 0 'Y方向进给标志 1 Y正向进给-1负向进给If xi > 0 Then 'X方向判断jrx = jrx + jvxIf jrx >= l Then '判断寄存器是否溢出jrx = jrx - l '溢出修正If jrx >= l Then '寄存器位数判断GoTo ww5End Ifk = -1 '负X方向进给xi = xi - 1 'X方向总步长减1End IfEnd IfIf yi > 0 Then 'Y方向判断jry = jry + jvyIf jry >= l Then '判断寄存器是否溢出jry = jry - l '溢出修正If jry >= l Then '寄存器位数判断GoTo ww5End IfIf Option1.V alue = True Then '第三象限m = 1 '正Y方向进给ElseIf Option2.V alue = True Then '第四象限m = -1 '负Y方向进给End Ifyi = yi - 1 'Y方向总步长减1End IfEnd Ifn = n + 1 '累加次数加1Form1.CurrentX = 100Form1.CurrentY = 600 + n * 200If xi = 0 Or yi = 0 ThenIf xi = 0 And yi <> 0 And f = 0 ThenPrint " " & n & " " & jvx & " " & "停止" & " " & "" & " " & "" & " " & jvy & " " & jry & " " & m & " " & yi GoTo wz2End IfIf xi = 0 And yi <> 0 And f < 0 ThenPrint " " & n & " " & jvx & " " & " " & " " & "" & " " & "" & " " & jvy & " " & jry & " " & m & " " & yi GoTo wz2End IfIf xi <> 0 And yi = 0 And g = 0 ThenPrint " " & n & "" & jvx & " " & jrx & "" & k & "" & xi & " " & jvy & " " & "停止"GoTo wz2End IfIf xi <> 0 And yi = 0 And g < 0 ThenPrint " " & n & "" & jvx & " " & jrx & "" & k & "" & xi & " " & jvyGoTo wz2End IfIf xi = 0 And yi = 0 And f = 1 And g < 0 ThenPrint " " & n & "" & jvx & " " & jry & " " & k & "" & xi & " " & jvyGoTo wz2End IfIf xi = 0 And yi = 0 And f < 0 And g = 1 ThenPrint " " & n & " " & jvx & " " & " " & " " & "" & " " & "" & " " & jvy & " " & jry & " " & m & " " & yiGoTo wz2End IfIf xi = 0 And yi = 0 And f = 0 And g = 0 ThenPrint " " & n & " " & jvx & " " & "停止" & " " & "" & " " & "" & " " & jvy & " " & "停止"End IfIf xi = 0 And yi = 0 And f = 0 And g < 0 ThenPrint " " & n & "" & jvx & "" & "停止" & " " & k & " " & xi & " " & jvy & ""GoTo wz2End IfIf xi = 0 And yi = 0 And f < 0 And g = 0 ThenPrint " " & n & " " & jvx & " " & " " & " " & "" & " " & "" & " " & jvy & " " & "停止"GoTo wz2End IfEnd IfPrint " " & n & " " & jvx & "" & jrx & "" & k & " " & xi & " " & jvy & " " & jry & " " & m & " " & yiwz2: If xi = 0 Thenf = f - 1End IfIf yi = 0 Theng = g - 1End IfIf xi = 0 And yi = 0 Thenci = ci - 1If ci = 0 ThenGoTo wz3End IfEnd IfIf Option1.V alue = True ThenIf k = -1 Then '负X方向进给jvy = jvy + 1End IfIf m = 1 Then '正Y方向进给jvx = jvx - 1End IfEnd IfIf Option2.V alue = True ThenIf k = -1 Then '负X方向进给jvy = jvy - 1End IfIf m = -1 Then '负Y方向进给jvx = jvx + 1End IfEnd IfPicture1.Line (4500 + 300 * ai, 1000 - bi * 300)-(4500 + 300 * (ai + k), 1000 - (bi + m) * 300)bi = bi + mGoTo wzww3: Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text1.SetFocusww5: Form1.Clsans = MsgBox("出错了，寄存器位数偏小，请输入", 48, "提示信息")Text5.Text = ""Text5.SetFocusww4:wz3:End Sub。
2--插补象限、圆弧走向处理以及逐点比较法合成进给速度
于是，X轴方向和Y轴方向的进给速度为
vx 60 f X
v
y
60
fY
刀具的合成进给速度为
v vx2 vy2 60 f X 2 fY 2
当刀具沿着平行于坐标轴的方向进行切削时，其进给速度最大，该速度 称为脉冲源进给速度。
vMF 60 fMF 60 ( f X fY ) vx vy
② |Y|=|Y|-1
② |X|=|X|-1 ② |Y|=|Y|+ 1
② |X|=|X|+1
Y SR3、NR4
N +Y -Y
Y SR2、NR3
N
+X
-X
Y SR2、NR1
N +Y -Y
Y SR1、NR4
N
+X
-X
∑= ∑-1
∑= 0
N
Y
结束
（三）圆弧过象限 直线只可能处于一个象限中，因此不存在过象限问题。但是圆弧有可能 跨越几个象限，这时需要在两象限的交接处做相应的处理，此即圆弧过象限 问题。 当圆弧过象限时，具有如下特点： ① 在过象限前后，动点坐标的符号会发生改变； ② 在过象限后，圆弧的走向不变。 逆圆弧过象限的顺序为：NR1 → NR2 → NR3 → NR4 → NR1 →• • • 顺圆弧过象限的顺序为：SR1 → SR4 → SR3 → SR2 → SR1 →• • • ③ 过象限圆弧与坐标轴必有交点，当动点处在坐标轴上时必有一个坐 标值为零。此点可以作为过象限的标志。 ④ 终点判别不能简单地直接使用前述的三种方法，否则将丢失一部分 圆弧轮廓。
Y （0，5）
（3，4） （4，3）
X （5，0）
第一象限顺圆弧的插补问题可转换为第一象限逆圆弧的插补问题，转换方 法如下。
DAA法汇编语言四个象限直线插补
DDA法汇编语言四个象限直线插补DDA法汇编语言四个象限直线插补程序流程图如图所示。
四个象限直线插补程序流程图#include <graphics.h>#include <stdlib.h>#include <stdio.h>#include <conio.h>#include <math.h>int xe,ye,jvx,jvy,jrx,jry,xi,yi,jsh,lxy;/* xe、ye终点坐标jvx、jvy被积函数,jrx、jry余数寄存器xi、yi动点坐标,jsh计数长度, ,lxy象限号*/void zxcb1(); //声明第一象限直线插补函数void zxcb2(); //声明第2象限直线插补函数void zxcb3(); //声明第3象限直线插补函数void zxcb4(); //声明第4象限直线插补函数void main() //主函数{ int gd=DETECT,gm; //显示模式变量again: clrscr(); //清屏printf("L1_L4: Please input xe,ye:"); //提示输入终点坐标scanf("%d,%d",&xe,&ye); //等待输入if(xe==0&&ye==0){ printf("input error,enter any continue.");getch();goto again;} //输入错误继续输入if(xe==0&&ye>0)lxy=2; //终点为第2象限if(xe==0&&ye<0)lxy=4; //终点为第4象限if(ye==0&&xe>0)lxy=1; //终点为第一象限if(ye==0&&xe<0)lxy=3; //终点为第3象限if(xe>0&&ye>0)lxy=1; //终点为第一象限if(xe>0&&ye<0)lxy=4; //终点为第4象限if(xe<0&&ye>0)lxy=2; //终点为第2象限if(xe<0&&ye<0)lxy=3; //终点为第3象限xi=320;yi=240; //动点置屏幕中间initgraph(&gd,&gm,""); //图形显示方式jsh=0;jrx=0;jry=0;jvx=abs(xe);jvy=abs(ye);switch(lxy){ case 1: zxcb1();break; //第一象限调用插补程序函数1 case 2: zxcb2();break; //第一象限调用插补程序函数2 case 3: zxcb3();break; //第一象限调用插补程序函数3 case 4: zxcb4();break; //第一象限调用插补程序函数4 }gotoxy(10,24);printf("L%d: xe=%d,ye=%d",lxy,xe,ye); //显示终点坐标 gotoxy(10,25);printf("press any key:"); //提示按任意键 getch(); //等待按键}void zxcb1() //第一象限插补函数1{asm mov cx, xi //显示起点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm int 10hagain: asm mov ax, jvx //X方向积分asm add jrx, axasm jnc next1 //无进位下asm inc xi //下正X方向进给next1: asm mov ax, jvy //Y方向积分asm add jry, axasm jnc next2 //无进位下转asm dec yi //正Y进给next2: asm mov cx, xi //显示动点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm mov dx, 0100h //延时next2a: asm mov cx, 00ffhnext2b: asm dec cxasm jnz next2basm dec dxasm jnz next2aasm inc jsh //计数长度加1asm jnz again //未到终点继续}void zxcb2() //第2象限插补函数1 {asm mov cx, xi //显示起点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm int 10hagain: asm mov ax, jvx //X方向积分asm add jrx, axasm jnc next1 //无进位下asm dec xi //下负X方向进给next1: asm mov ax, jvy //Y方向积分asm add jry, axasm jnc next2 //无进位下转asm dec yi //正Y进给next2: asm mov cx, xi //显示动点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm int 10hasm mov dx, 0100h //延时next2a: asm mov cx, 00ffhnext2b: asm dec cxasm jnz next2basm dec dxasm jnz next2aasm inc jsh //计数长度加1asm jnz again //未到终点继续}void zxcb3() //第3象限插补函数1 {asm mov cx, xi //显示起点asm mov dx, yiasm mov ah, 0chasm int 10hagain: asm mov ax, jvx //X方向积分asm add jrx, axasm jnc next1 //无进位下asm dec xi //下负X方向进给next1: asm mov ax, jvy //Y方向积分asm add jry, axasm jnc next2 //无进位下转asm inc yi //负Y进给next2: asm mov cx, xi //显示动点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm int 10hasm mov dx, 0100h //延时next2a: asm mov cx, 00ffhnext2b: asm dec cxasm jnz next2basm dec dxasm jnz next2aasm inc jsh //计数长度加1asm jnz again //未到终点继续}void zxcb4() //第一象限插补函数1 {asm mov cx, xi //显示起点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm int 10hagain: asm mov ax, jvx //X方向积分asm add jrx, axasm jnc next1 //无进位下asm inc xi //下正X方向进给next1: asm mov ax, jvy //Y方向积分asm add jry, axasm jnc next2 //无进位下转asm inc yi //负Y进给next2: asm mov cx, xi //显示动点asm mov dx, yiasm mov ah, 0chasm mov al, 2asm int 10hasm mov dx, 0100h //延时next2a: asm mov cx, 00ffhnext2b: asm dec cxasm jnz next2basm dec dxasm jnz next2aasm inc jsh //计数长度加1 asm jnz again //未到终点继续}。
码功能G代码
码功能G代码代码名称-功能简述G00------快速定位G01------直线插补G02------顺时针方向圆弧插补G03------逆时针方向圆弧插补G04------定时暂停G05------通过中间点圆弧插补G06------抛物线插补G07------Z 样条曲线插补G08------进给加速G09------进给减速G10------数据设置G16------极坐标编程G17------加工XY平面G18------加工XZ平面G19------加工YZ平面G20------子程序调用G22------半径尺寸编程方式G220-----系统操作界面上使用G23------直径尺寸编程方式G230-----系统操作界面上使用G24------子程序结束G25------跳转加工G26------循环加工G30------倍率注销G31------倍率定义G32------等螺距螺纹切削，英制G33------等螺距螺纹切削，公制G34------增螺距螺纹切削G35------减螺距螺纹切削G40------刀具补偿/刀具偏置注销G41------刀具补偿——左G42------刀具补偿——右G43------刀具偏置——正G44------刀具偏置——负G45------刀具偏置+/+G46------刀具偏置+/-G47------刀具偏置-/-G48------刀具偏置-/+G49------刀具偏置0/+G50------刀具偏置0/-G51------刀具偏置+/0G52------刀具偏置-/0G53------直线偏移，注销G54------直线偏移xG55------直线偏移yG56------直线偏移zG57------直线偏移xyG58------直线偏移xzG59------直线偏移yzG60------准确路径方式（精）G61------准确路径方式（中）G62------准确路径方式（粗）G63------攻螺纹G68------刀具偏置，内角G69------刀具偏置，外角G70------英制尺寸寸G71------公制尺寸毫米G74------回参考点(机床零点)G75------返回编程坐标零点G76------车螺纹复合循环G80------固定循环注销G81------外圆固定循环G331-----螺纹固定循环G90------绝对尺寸G91------相对尺寸G92------预制坐标G93------时间倒数，进给率G94------进给率，每分钟进给G95------进给率，每转进给G96------恒线速度控制G97------取消恒线速度控制编辑本段功能详解G00—快速定位格式：G00 X(U)__Z(W)__说明：(1)该指令使刀具按照点位控制方式快速移动到指定位置。
二、数字积分法插补
O ∆t
t T
若∆t取最小基本单位“1”，则上式可简化为： n-1 S=∑ Yi
i=0
(累加求和公式或矩形公式）
这种累加求和运算，即积分运算可用数字积分器来实现， 被积函数寄存器 ∆t 存放Y值
+ ∆Y
累加器（余数寄存器）
若求曲线与坐标轴所包围的面积，求解过程如下： 被积函数寄存器用以存放Y值，每当∆t 出现一次，被积函 数寄存器中的Y值就与累加器中的数值相加一次，并将 累加结果存于累加器中，如果累加器的容量为一个单 位面积，则在累加过程中，每超过一个单位面积，累 加器就有溢出。当累加次数达到累加器的容量时，所 产生的溢出总数就是要求的总面积，即积分值。 被积函数寄存器 ∆t 存放Y值
110 110 110 110 110 110 110 110
000 110 100 1 010 1 000 1 110 100 1 010 1 1
000 初始状态 111 第一次累加 110 JRy有进位， ∆Y溢出 101 JRy有进位， ∆Y溢出 100 ∆X,∆Y同时溢出 011 ∆X,∆Y同时无溢出 ∆Y溢出 010 ∆Y溢出 001 000
1
010 001
无溢出 1 000 ∆X∆Y同时溢出
,Y到终点停止迭代
∆X溢出修正Xi
插补计算过程如下：
累加 次数 (∆t） Y终 X积分器 X终 Y积分器 JVx JRy 溢出 点计 Jvy JRx 溢出 点计 数器 （Yi) ∆X 数器 (Xi) ∆Y
备注
∆X溢出修正Xi
12 101 001 1 001 010 001 13 101 110 001 001 14 101 011 1 000 001 000
二、数字积分法插补
直线插补 VB编程
数控技术直线插补vb编程四个象限都可以软件连接网址：提取密码：pmzvVB程序代码：Private Sub Command1_Click()Dim Xe As Integer, Ye As IntegerXe = Text3: Ye = Text4: : : :If Xe > 0 ThenIf Ye > 0 Then"第一象限": Call sub1Else"第四象限": Call sub4End IfElseIf Ye > 0 Then"第二象限": Call sub2Else"第三象限": Call sub3End IfEnd If= vbGreen: = 2If Xe > 0 ThenIf Ye > 0 Then(60, 5500)-(60 + 400 * Xe, 5500 - 400 * Ye) '第一象限Else(50, 50)-(50 + 400 * Int(Xe), 50 + 400 * Int(Abs(Ye))) '第四象限End IfElseIf Ye > 0 Then(5500, 5500)-(5500 - 400 * Int(Abs(Xe)), 5500 - 400 * Int(Ye)) '第二象限Else(5500, 50)-(5500 + 400 * Int(Xe), 50 - 400 * Int(Ye)) '第三象限End IfEnd IfEnd SubPrivate Sub sub1() '第一象限= vbBlack: = 2(60, 50)-(60, 5550): (10, 5500)-(5500, 5500)(100, 90)-(60, 50): (20, 90)-(60, 50)(5460, 5460)-(5500, 5500): (5460, 5540)-(5500, 5500)End SubPrivate Sub sub2() '第二象限= vbBlack: = 2(5500, 50)-(5500, 5550): (60, 5500)-(5550, 5500)(5450, 90)-(5500, 50): (5540, 90)-(5500, 50)(100, 5450)-(60, 5500): (100, 5550)-(60, 5500)End SubPrivate Sub sub3() '第三象限= vbBlack: = 2(5500, 50)-(5500, 5500): (5500, 50)-(500, 50)(5400, 5400)-(5500, 5500): (5550, 5400)-(5500, 5500)(600, 10)-(500, 50): (600, 90)-(500, 50)End SubPrivate Sub sub4() '第四象限= vbBlack: = 2(50, 50)-(50, 5500): (50, 50)-(5500, 50)(90, 5500)-(50, 5550): (10, 5500)-(50, 5550)(5450, 10)-(5500, 50): (5450, 90)-(5500, 50)End SubPrivate Sub Command2_Click()Dim Xe As Integer, Ye As IntegerXe = Text3: Ye = Text4:Dim i, k, m, j, l, g, s, F(999), n As Integerm = 0: i = 1: k = 0: F(m) = 0= vbRed: = 2j = Int(Abs(Xe)) + Int(Abs(Ye)): = 200: = 200Print "初始：进给方向" & " F(m)= 0" & " Xe=" & Xe & " Ye=" & Ye & " ∑= " & j For n = 1 To Int(Abs(Xe)) + Int(Abs(Ye))If F(m) >= 0 And j > 0 Thenm = m + 1: l = l + 1F(m) = F(m - 1) - Int(Abs(Text4))If Xe > 0 ThenIf Ye > 0 Then(50 + 400 * (l - 1), 5500 - k * 400)-(50 + 400 * (l), 5500 - k * 400)Else(50 + 400 * (l - 1), 50 + k * 400)-(50 + 400 * (l), 50 + k * 400)End IfElseIf Ye > 0 Then(5500 - 400 * (l - 1), 5500 - k * 400)-(5500 - 400 * (l), 5500 - k * 400)Else(5500 - 400 * (l - 1), 50 + k * 400)-(5500 - 400 * (l), 50 + k * 400)End IfEnd If= 200: = 200 + n * 300"第" & m & "步" & " △x F(" & m & ")= " & F(m) & " " & "x=-" & l & " " & "y=-" & k & " ∑=" & j - n Elsek = k + 1: m = m + 1If Xe > 0 ThenIf Ye > 0 Then(50 + 400 * l, 5500 - (k - 1) * 400)-(50 + 400 * l, 5500 - k * 400)Else(50 + 400 * l, 50 + (k - 1) * 400)-(50 + 400 * l, 50 + k * 400)End IfElseIf Ye > 0 Then(5500 - 400 * l, 5500 - (k - 1) * 400)-(5500 - 400 * l, 5500 - k * 400)Else(5500 - 400 * l, 50 + (k - 1) * 400)-(5500 - 400 * l, 50 + k * 400)End IfEnd IfF(m) = F(m - 1) + Int(Abs(Text3))"第" & m & "步" & " △y F(" & m & ")= " & F(m) & " " & "x=-" & l & " " & "y=-" & k & " ∑=" & j - n End IfNext nEnd SubPrivate Sub Command3_Click() '清除Text3 = "": Text4 = "": : : :End SubPrivate Sub Command4_Click() '结束 EndEnd SubPrivate Sub Text3_Change()End SubPrivate Sub Text4_Change()End Sub软件截图： ⎪⎪⎪⎪⎪⎩⎪⎪⎪⎪⎪⎨⎧。
3.5.2 直线和圆弧DDA法插补原理
JY-1 JY 5
5 5 5 5-1=4 4-1=3 3-1=2 2-1=1
终点判 别 NX NY
+Y +Y +Y -X,+Y 10-8=2 -X,+Y 10-8=2 -X -X 12-8=4 9-8=1
10-8=2 12-8=4 9-8=1 11-8=3 11-8=3
2012-5-30
数字积分法直线插补运算过程（前五步）
累加 次数 X积分器 Y积分器 终点计 数 器 JE 000
JRX+JVX
1 0+101=101
溢出 △X 0 1
0 1 1
JRY+JVY
0+010=010
溢 出 △Y 0 0
0 1 0
2
3 4 5
101+101=010
010+101=111 111+101=100 100+101=001
一 插补的基本概念； 二 插补方法的分类； 三 逐点比较法； 四 数字积分法； 五 数据采样法（时间分割法）； 六 插补算法中的速度处理。
2012-5-30
四 数字积分法插补
特点：
易于实现多坐标联动插补 Y 1 数字积分法的工作原理 如右图，函数在[t0 , tn ]的定 积分，即为函数在该区间 的面积： O t0 t1 t2 如果从t=0开始，取自变量 t的一系列等间隔值为△t， 当△t足够小时，可得
2 设圆弧AB为第一象限逆圆弧，起点A (3,0),终点为B(0,3)，用DDA法加工圆弧 AB。
2012-5-30
数控课程设计(数字积分法第二象限直线插补程序)
数字积分法第二象限直线插补程序设计数字积分法是利用数字积分的方法，计算刀具沿各坐标轴的位移，使得刀具沿着所加工的轮廓曲线运动利用数字积分原理构成的插补装置称为数字积分器，又称数字微分分析器（Digital Differential Analyzer），简称DDA。
数字积分器插补的最大优点在于容易实现多坐标轴的联动插补、能够描述空间直线及平面各种函数曲线等。
因此，数字积分法插补在轮廓数控系统中得到广泛的应用。
具体设计内容如以下：……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………目录一、课程设计目的 (2)二、课程设计题目描述和要求 (2)三、课程设计报告内容 (2)3.1数字积分法直线插补的基本原理 (3)3.1.1从几何角度来看积分运算 (3)3.1.2数字积分法在轮廓插补中的具体应用(数字积分法直线插补) (4)3.2插补终点判别的具体实现 (5)3.3插补器的组成 (6)3.4数字积分法稳速控制 (6)3.5提高插补精度的措施 (7)3.6减少误差的方法 (7)3.7数字积分法直线插补框图 (8)3.8 数字积分法直线（第二象限）插补程序流程图 (8)四结论 (9)五结束语 (9)参考书目 (11)附录数字积分法直线插补程序清单（第二象限） (12)一、课程设计目的1)了解连续轨迹控制数控系统的组成原理。
G代码大全--实用.doc
G代码功能说明指令格式G00 快速定位G00 X__ Y__ Z__G01 直线插补G01 X __ Y __ Z__ ；一般直线插补模式N100 G01 X__ Y__, C__N105 G01 X__ Y__ ；转角倒角模式,C__ ：假想转角处到倒角切削开始点或终点的距离N100 G01 X__ Y__ ,R__N105 G01 X__ Y__ ；转角倒圆角模式,R__ ：转角的圆弧半径， N100 和 N105 的交点处执行圆角倒角G17;G01 A_X_(Y_);直线角度模式A：直线与平面第一轴的夹角X：终点的X 坐标G02圆弧插补 ( 顺时针 )G02 X__ Y__ R__ F__R：圆弧半径G03 圆弧插补 ( 逆时针 ) G03 X__ Y__ R__ F__G04 暂停G04 X__ 或 G04 P__G02.1 渐开线插补（顺时针）G02.1 X__ Y__ I__ J__ F__ P__I ，J ：圆弧中心坐标P：螺距数，回转数G03.1 渐开线插补（逆时针）G03.1 X__ Y__ I__ J__G02.3 指数函数插补 ( 正转 ) G02.3 X__ Y__ I__ J__ R__ F__ Q__I、J：角度；R：定数值；F：初期进给速度；Q：终点进给速度。
G03.3指数函数插补( 反转 )G03.3 X__ Y__ I__ J__ R__ F__ Q__I、J：角度；R：定数值；F：初期进给速度；Q：终点进给速度。
G05高速高精度制御ⅠG05 P10000；高速高精度制御开启G05 P0；高速高精度制御关闭G05 P3；高速加工开启G05 P0；高速加工关闭G05.1 高速高精度制御ⅡG05.1 Q1 ；高速高精度制御开启G05.1 Q0 ；高速高精度制御关G05.2 Q2 X0 Y0 Z0 ；自由曲面高精度模式开启G05.1 Q0 ；自由曲面高精度模式关G07.1 筒插G07.1 C__C：筒半径G09 正确停止G09G10 程式参数入 / 正入G90 G10 L2 P__ Xp__Yp__Zp__G91P：0 外部工件坐1 G542 G553 G564 G575 G586 G59P0~6 以外数字， P 之 1。
数控理论及加工技术-四川大学-期末作业-四象限直线插补
数控理论及加工技术专业：机械设计及理论姓名：XXX 学号：XXXXXXX一、编写实现四个象限直线数值积分插补计数程序，写出程序设计框图及程序注释。
图1、DDA直线插补程序流程以下是插补计数程序的源代码（C++、只写出主体部分）…………int JVx;int JVy; //JVx、JVy积分函数寄存器int JRx;int JRy; //JRx、JVy余数寄存器int JE; //JE 终点计数器int deltaX;int deltaY; //deltaX、deltaY脉冲累加器main(){JRx=0;JRy=0;JVx=0;JVy=0;JE=0;deltaX=0;deltaY=0;int delta[1025][2]={0}; //初始化置空。
值“1025”仅设定一个容限，可根据实际应用调整cout<<"本程序为四象限直线数值积分插补计数程序\n"<<endl;cout<<"请输入直线的起点坐标和终点坐标"<<endl<<"Please input the starting and end point coordinates of the straight-line "<<endl;int x0,y0,xe,ye,N; //起点,终点坐标寄存器和累加终点值(意同累加增量、累加次数)cin>>x0>>y0>>xe>>ye;JVx=abs(xe-x0); //abs()，求绝对值函数；置积分函数JVx寄存器值if((xe-x0)<0)deltaX=-1;else deltaX=1;JVy=abs(ye-y0); //置积分函数JVy寄存器值if((ye-y0)<0)deltaY=-1;else deltaY=1; //设置插补增量，暨判定直线所经象限if (JVx>=JVy)N=JVx;else N=JVy; //暂定累加增量float index; //index,寄存器位数index=log(N)/log(2);if(index==floor(index)) //floor(),四舍五入向下取整函数index=index;else {index=floor(index)+1;}N=1;for(int i=1;i<=index;i++){N=N*2;} //设定累加次数(累加增量) N//准备工作完成，开始插补计算for(int j=1;JE<N;JE++,j++){ JRx=JRx+JVx;if(JRx>=N){delta[j][0]=deltaX;JRx=JRx-N;}else;JRy=JRy+JVy;if(JRy>=N){delta[j][1]=deltaY;JRy=JRy-N;}else;}for(int j=0;j<=N;j++)cout<<"("<<delta[j][0]<<","<<delta[j][1]<<")"<<endl;//以上代码计算输出插补坐标。
数控机床DDA数字积分法插补第一象限直线,逐点比较法插补二三象限顺圆弧
数控机床DDA数字积分法插补第⼀象限直线,逐点⽐较法插补⼆三象限顺圆弧⽬录⼀、课程设计介绍1.1 任务说明 (3)1.2要求 (3)⼆、程序操作及算法流程图2.1 DDA法插补直线流程 (3)2.2逐点⽐较法插补逆时针圆弧流程 (4)三、⽤户使⽤说明3.1 程序开始运⾏时显⽰介⾯ (5)3.2 执⾏计算 (5)3.3 DDA法直线插补实例 (6)3.4 逐点⽐较法插补第⼆三象限逆时针圆弧 (7)四、主要算法及源程序4.1 程序设计概述 (8)4.2 主要算法的实现 (8)4.2.1 参数声明 (8)4.2.2复位操作 (9)4.2.3单步操作 (11)4.2.4 连续插补 (11)4.2.5 辅助操作 (13)五、本设计的特点 (13)六、课程设计的感想 (13)七、主要参考⽂献 (14)⼀、课程设计介绍1.1、任务说明：（1）直线插补：DL1, DDA 法第⼀象限直线插补。
（2）圆弧插补：PA23，逐点⽐较法⼆三象限顺圆弧插补。
1.2、要求：（1）具有数据输⼊界⾯，如：起点，终点，圆⼼，半径及插补步长。
（2）具有插补过程的动态显⽰功能，如：但单步插补，连续插补，插补步长可调。
本课程设计的题⽬要求是ＤＤＡ数字积分法插补第⼀象限直线,逐点⽐较法插补⼆三象限顺圆弧。
由于本课设要求只为⼆三象限，故默认为劣弧插补。
此外，对于两种插补对象均可根据需要改变插补步长，以表现不同的插补效果。
在插补显⽰过程中，有两种插补显⽰⽅式，即⼿动单步插补和⾃动连续插补动态显⽰。
⼆、程序操作及算法流程图 2.1 DDA 法插补直线流程初始化sx sy ex ey 步长bc 寄存器vx1 vy1 累加器 rx1 ry1rx1=rx1+vx1 ry1=ry1+vy1ry1是否溢出rx1是否溢出是否到达终点结束 +x ⾛⼀个步长 +y ⾛⼀个步长NY NYNY开始DDA 插补第⼀象限的直线流程图2.2逐点⽐较法插补逆时针圆弧流程逐点⽐较法插补⼆三象限逆圆弧参数说明：sx 、sy 为起点坐标ex 、ey 为终点坐标开始初始化sx ex sy sy bc 弧半径平⽅rY21>=0r>=0r>=0向—y ⾛⼀步向x ⾛⼀步向—y ⾛⼀步向—x ⾛⼀步是否到达终点结束yyynnnn yn为进给总次数cx、cy为圆⼼坐标bc为步长m为寄存器位数s_1表⽰按下直线选项，s_2表⽰按下圆弧按钮三、⽤户使⽤说明——软件运⾏说明及结果显⽰3.1 程序开始运⾏时显⽰介⾯3.2 执⾏计算在右侧⾯板中有参数输⼊区，⽅式选择区以及执⾏按钮等操作。
第八讲 插补算法-直线数字积分
插补过程
Y: 10101010 X: 11011010
插补过程
Y: 10101010 X: 11011010
插补过程
Y: 10101010 X: 11011010
插补过程
Y: 10101010 X: 11011010
插补过程
Y: 10101010 X: 11011010
插补过程
Y: 10101010 X: 11011010
4
坐标轴的进给速度由数控系统发给进给系统的脉冲频率确定，V=kf； Vx = k fx，Vy = k fy； Vx ：Vy = fx：fy = Xe ：Ye；
直线插补问题可等效为获取定比脉冲的问题。
和尚打水的故事
从前有座山，山上有座庙，庙里有 一个胖和尚和一个瘦和尚，因路途
遥远、每天早上胖和尚和瘦和尚相
直线插补解决了，圆弧呢？
课后思考！
容量为8
010 10
010 10
溢出的过程
5 + 基准脉冲 8+4 7+5 7 4 4 + 4+4 8+0 4 0
Y轴进给系统 X轴进给系统
容量为8
1010 010
1010 010
溢出的过程
5 + 基准脉冲 4+5 8+1 4 1 4 + 0+4 4 0
Y轴进给系统 X轴进给系统
容量为8
11010 1010
01010 1010
溢出的过程
5 + 基准脉冲 1+5 6 1 4 + 4+4 8+0 4 0
Y轴进给系统 X轴进给系统
容量为8
பைடு நூலகம்
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
For i = 1 To xe
Picture1.Line (50 + i * 500, 50)-(50 + i * 500, 100)
Next i
Picture1.Print
For j = 1 To -ye
Picture1.Line (50, 50 + j * 500)-(100, 50 + j * 500)
Picture1.Line (5500 - 500 * xi, 5500 - (yi - 1) * 500)-(5500 - 500 * xi, 5500 - (yi) * 500)
End If
Form1.FontSize = 12
Print "第" & i & " 步" & " jvx= " & jvx & " jrx= " & jrx & " jvy= " & jvy & " jry= " & jry
Next i
For j = 1 To ye
Picture1.Line (50, 5500 - j * 500)-(100, 5500 - j * 500)
Next j
Picture1.ForeColor = vbRed
Picture1.DrawWidth = 2
Picture1.Line (50, 5500)-(50 + 500 * Int(Text1), 5500 - 500 * Int(Text2))
Picture1.Line (5500, 50)-(5500, 5500)
Picture1.Line (5500, 5500)-(5530, 5400)
Picture1.Line (5500, 5500)-(5470, 5400)
Picture1.Line (5500, 50)-(50, 50)
Picture1.CurrentY = 100
Picture1.Print "-x"
Picture1.CurrentX = 5600
Picture1.CurrentY = 5400
Picture1.Print "-Y"
For i = 1 To -xe
Picture1.Line (5500 - i * 500, 50)-(5500 - i * 500, 100)
Picture1.Line (5500, 50)-(5470, 150)
Picture1.Line (5500, 5500)-(50, 5500)
Picture1.Line (50, 5500)-(150, 5470)
Picture1.Line (50, 5500)-(150, 5530)
Picture1.CurrentX = 5600
xi = xi + 1
End If
jry = jry + jvy
பைடு நூலகம்
If jry >= 2 ^ n Then
jry = jry - 2 ^ n
m = 1
yi = yi + 1
End If
If k = 1 And m = 1 Then
Picture1.Line (5500 - 500 * (xi - 1), 5500 - ((yi - 1) * 500))-(5500 - 500 * xi, 5500 - yi * 500)
ElseIf k = 1 And m = 0 Then
Picture1.Line (50 + 500 * (xi - 1), 5500 - (yi) * 500)-(50 + 500 * (xi), 5500 - (yi) * 500)
ElseIf k = 0 And m = 1 Then
For i = 1 To 2 ^ n
jrx = jrx + jvx
If jrx >= 2 ^ n Then
jrx = jrx - 2 ^ n
k = 1
xi = xi + 1
End If
jry = jry + jvy
If jry >= 2 ^ n Then
jry = jry - 2 ^ n
Picture1.Print "x"
Picture1.CurrentX = 100
Picture1.CurrentY = 100
Picture1.Print "Y"
For i = 1 To xe
Picture1.Line (50 + i * 500, 5500)-(50 + i * 500, 5450)
Picture1.Line (50, 50)-(150, 20)
Picture1.Line (50, 50)-(150, 80)
Picture1.CurrentX = 5600
Picture1.CurrentY = 40
Picture1.Print "(0,0)"
Picture1.CurrentX = 100
ElseIf xe <= 0 And ye >= 0 Then
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 2
Picture1.Line (5500, 5500)-(5500, 50)
Picture1.Line (5500, 50)-(5530, 150)
ElseIf xe >= 0 And ye <= 0 Then
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 2
Picture1.Line (50, 50)-(5500, 50)
Picture1.Line (5500, 50)-(5400, 80)
Picture1.CurrentY = 40
Picture1.Print "(0,0)"
Picture1.CurrentX = 5700
Picture1.CurrentY = 100
Picture1.Print "x"
Picture1.CurrentX = 80
Picture1.CurrentY = 5400
Next i
For j = 1 To -ye
Picture1.Line (5500, 50 + j * 500)-(5400, 50 + j * 500)
Next j
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 2
Picture1.Line (5500, 50)-(5500 + 500 * Int(Text1), 50 - 500 * Int(Text2))
Next j
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 2
Picture1.Line (5500, 5500)-(5500 + 500 * Int(Text1), 5500 - 500 * Int(Text2))
ElseIf xe <= 0 And ye <= 0 Then
Picture1.CurrentY = 5400
Picture1.Print "(0,0)"
Picture1.CurrentX = 100
Picture1.CurrentY = 5200
Picture1.Print "-x"
Picture1.CurrentX = 5600
Picture1.CurrentY = 100
Next j
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 2
Picture1.Line (50, 50)-(50 + 500 * Int(Text1), 50 - 500 * Int(Text2))
End If
End Sub
k = 0
m = 0
Next i
ElseIf xe <= 0 And ye >= 0 Then
For i = 1 To 2 ^ n
jrx = jrx + Abs(jvx)
If Abs(jrx) >= 2 ^ n Then
jrx = Abs(jrx) - 2 ^ n
k = 1
Picture1.Line (50 + 500 * xi, 5500 - (yi - 1) * 500)-(50 + 500 * xi, 5500 - (yi) * 500)
End If
Form8.CurrentX = 200
Form8.CurrentY = 200 + 300 * i
Print "第" & i & " 步" & " jvx= " & jvx & " jrx= " & jrx & " jvy= " & jvy & " jry= " & jry