機(jī)床數(shù)控課設(shè)-插補(bǔ)原理及流程圖設(shè)計(jì)(參考版)
2025-06-07 17:46本頁面
【正文】 *****************************臨時(shí)點(diǎn)坐標(biāo) j = qy i1 = qx j1 = qy jrx = 0 jry = 0 jvx = Abs(j) jvy = Abs(i) m = 2 ^ n yichu = 0 If zx = 0 And zy 0 Then If u 5 Then If zx qx And zy qy Then zxx = zx zyy = zy ElseIf zx = qx And zy = qy Then zxx = Abs(r) zyy = 0 ElseIf zx qx And zy qy Then zxx = Abs(r) zyy = 0 End If ElseIf u = 5 Then zxx = zx zyy = zy End If Else zxx = Abs(r) zyy = 0 End If While (Abs(i zxx) = L Or Abs(j zyy) = L) And count1 0 jrx = jrx + jvx jry = jry + jvy If jrx = m And jry = m And Abs(i zxx) = L And Abs(j zyy) = L Then jrx = jrx m i1 = i + L jry = jry m j1 = j L yichu = 1 ElseIf jrx = m And Abs(i zxx) = L Then jrx = jrx m i1 = i + L yichu = 1 ElseIf jry = m And Abs(j zyy) = L Then jry = jry m j1 = j L yichu = 1 End If If yichu = 1 Then (i + a, j + b)(i1 + a, j1 + b), RGB(255, 0, 0) yichu = 0 count1 = count1 1 End If i = i1 j = j1 jvx = Abs(j) jvy = Abs(i) Wend If (Abs(i zx) = L Or Abs(j zy) = L) And count1 0 Then If j 0 Then j = j L (i + a, j + b)(i1 + a, j1 + b), RGB(255, 0, 0) count1 = count1 1 End If If (Abs(i zx) = L Or Abs(j zy) = L) And count1 0 Then u = u + 1 Call danbuddashun4(i, j, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf Abs(i zx) L And Abs(j zy) L Then count2 = 0 End If ElseIf Abs(i zx) L And Abs(j zy) L Then count2 = 0 End If End Sub 八 .參考文獻(xiàn) 陳蔚芳，王宏濤等 . .北京：科學(xué)出版社 楊有君 . .北京：機(jī)械工業(yè)出版社 羅學(xué)科，謝富春 . .北京：化學(xué)工業(yè)出版社 畢承恩，丁乃建 . .北京：機(jī)械工業(yè)出版社 劉銳寧，宋坤等 . Basic 從入門到精通 .北京：清華大學(xué)出版社 王建平，李團(tuán)結(jié)等 . BASIC 編程 .北京：科學(xué)出版社 。*****************************臨時(shí)點(diǎn)坐標(biāo) j = qy i1 = qx j1 = qy jrx = 0 jry = 0 jvx = Abs(j) jvy = Abs(i) m = 2 ^ n yichu = 0 If zx 0 And zy = 0 Then If u 5 Then If zx qx And zy qy Then zxx = zx zyy = zy ElseIf zx = qx And zy = qy Then zxx = 0 zyy = Abs(r) ElseIf zx qx And zy qy Then zxx = 0 zyy = Abs(r) End If ElseIf u = 5 Then zxx = zx zyy = zy End If Else zxx = 0 zyy = Abs(r) End If While Abs(i zxx) = L Or Abs(j zyy) = L jrx = jrx + jvx jry = jry + jvy If jrx = m And jry = m And Abs(i zxx)
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1