直線圓弧插補程序_第1頁
直線圓弧插補程序_第2頁
直線圓弧插補程序_第3頁
直線圓弧插補程序_第4頁
直線圓弧插補程序_第5頁
已閱讀5頁，還剩6頁未讀， 繼續(xù)免費閱讀

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、直線插補Private Sub Comma nd1_Click() Comma ndl.E nabled = False Line (x(O), y(O)-(xa, ya) f(0) = 0For i = 0 To n - 1If (xa >= 0) And (ya >= 0) The nIf f(i) >= 0 The nFor j = x(i) To x(i) + 1 Step 0.0001 PSet (j, y(i), 255Next jx(i + 1) = x(i) + 1y(i + 1) = y(i)f(i + 1) = f(i) - yaElseFor j = y

2、(i) To y(i) + 1 Step 0.0001PSet (x(i), j), 255Next jy(i + 1) = y(i) + 1x(i + 1) = x(i)f(i + 1) = f(i) + xaEnd IfEnd IfIf (xa > 0) And (ya < 0) The nIf f(i) >= 0 The nFor j = x(i) To x(i) + 1 Step 0.0001 PSet (j, y(i), 255Next jx(i + 1) = x(i) + 1y(i + 1) = y(i)f(i + 1) = f(i) + yaElseFor j

3、= y(i) To y(i) - 1 Step -0.0001PSet (x(i), j), 255Next jy(i + 1) = y(i) - 1x(i + 1) = x(i)f(i + 1) = f(i) + xaEnd IfEnd IfIf (xa < 0) And (ya > 0) The nIf f(i) >= 0 The nFor j = x(i) To x(i) - 1 Step -0.0001 PSet (j, y(i), 255Next jx(i + 1) = x(i) - 1y(i + 1) = y(i) f(i + 1) = f(i) - ya Els

4、eFor j = y(i) To y(i) + 1 Step 0.0001 PSet (x(i), j), 255Next jy(i + 1) = y(i) + 1x(i + 1) = x(i) f(i + 1) = f(i) - xa End IfEnd IfIf (xa < 0) And (ya < 0) The nIf f(i) >= 0 The nFor j = x(i) To x(i) - 1 Step -0.0001 PSet (j, y(i), 255Next jx(i + 1) = x(i) - 1y(i + 1) = y(i) f(i + 1) = f(i)

5、 + ya ElseFor j = y(i) To y(i) - 1 Step -0.0001 PSet (x(i), j), 255Next jy(i + 1) = y(i) - 1x(i + 1) = x(i) f(i + 1) = f(i) - xa End IfEnd IfNext iEnd SubN圓插補Private Sub Comma nd3_Click()Comma nd3.E nabled = Falser = (xa A 2) + (ya A 2) A (1 / 2) Circle (0, 0), rComma nd3.E nabled = Falsef(0) = 0For

6、 i = 0 To n - 1If (x(0) > 0) And (y(0) >= 0) The nIf f(i) >= 0 The nFor j = x(i) To x(i) - 1 Step -0.0001PSet (j, y(i), 255Next jx(i + 1) = x(i) - 1y(i + 1) = y(i)f(i + 1) = f(i) - 2 * x(i) + 1ElseFor j = y(i) To y(i) + 1 Step 0.0001PSet (x(i), j), 255Next jy(i + 1) = y(i) + 1x(i + 1) = x(i

7、)f(i + 1) = f(i) + 2 * y(i) + 1End IfEnd IfIf (x(0) <= 0) And (y(0) > 0) The nIf f(i) < 0 The nFor j = x(i) To x(i) - 1 Step -0.0001PSet (j, y(i), 255Next jx(i + 1) = x(i) - 1y(i + 1) = y(i)f(i + 1) = f(i) - 2 * x(i) + 1ElseFor j = y(i) To y(i) - 1 Step -0.0001PSet (x(i), j), 255Next jy(i +

8、 1) = y(i) - 1x(i + 1) = x(i)f(i + 1) = f(i) - 2 * y(i) + 1End IfEnd IfIf (x(0) < 0) And (y(0) <= 0) The nIf f(i) >= 0 The nFor j = x(i) To x(i) + 1 Step 0.0001 PSet (j, y(i), 255Next jx(i + 1) = x(i) + 1y(i + 1) = y(i)f(i + 1) = f(i) + 2 * x(i) + 1ElseFor j = y(i) To y(i) - 1 Step -0.0001P

9、Set (x(i), j), 255Next jy(i + 1) = y(i) - 1x(i + 1) = x(i)f(i + 1) = f(i) - 2 * y(i) + 1End IfEnd IfIf (x(0) >= 0) And (y(0) < 0) The nIf f(i) < 0 The nFor j = x(i) To x(i) + 1 Step 0.0001PSet (j, y(i), 255Next jx(i + 1) = x(i) + 1y(i + 1) = y(i)f(i + 1) = f(i) + 2 * x(i) + 1ElseFor j = y(i

10、) To y(i) + 1 Step 0.0001PSet (x(i), j), 255Next jy(i + 1) = y(i) + 1x(i + 1) = x(i)f(i + 1) = f(i) + 2 * y(i) + 1End IfEnd IfNext iEnd SubS圓插補Private Sub Comma nd5_Click()Comma nd5.E nabled = Falser = (xa A 2) + (ya A 2) A (1 / 2) Circle (0, 0), rComma nd3.E nabled = Falsef(0) = 0For i = 0 To n - 1

11、If (x(0) >= 0) And (y(0) > 0) The nIf f(i) >= 0 The nFor j = y(i) To y(i) - 1 Step -0.0001PSet (x(i), j), 255Next jy(i + 1) = y(i) - 1x(i + 1) = x(i)f(i + 1) = f(i) - 2 * y(i) + 1ElseFor j = x(i) To x(i) + 1 Step 0.0001PSet (j, y(i), 255Next jx(i + 1) = x(i) + 1y(i + 1) = y(i)f(i + 1) = f(i

12、) + 2 * x(i) + 1End IfEnd IfIf (x(0) > 0) And (y(0) <= 0) The nIf f(i) < 0 The nFor j = y(i) To y(i) - 1 Step -0.0001PSet (x(i), j), 255Next jy(i + 1) = y(i) - 1x(i + 1) = x(i)f(i + 1) = f(i) - 2 * y(i) + 1ElseFor j = x(i) To x(i) - 1 Step -0.0001PSet (j, y(i), 255Next jx(i + 1) = x(i) - 1y

13、(i + 1) = y(i)f(i + 1) = f(i) - 2 * x(i) + 1End IfEnd IfIf (x(0) <= 0) And (y(0) < 0) The nIf f(i) >= 0 The nFor j = y(i) To y(i) + 1 Step 0.0001 PSet (x(i), j), 255Next jy(i + 1) = y(i) + 1x(i + 1) = x(i)f(i + 1) = f(i) + 2 * y(i) + 1ElseFor j = x(i) To x(i) - 1 Step -0.0001PSet (j, y(i),

14、255Next jx(i + 1) = x(i) - 1y(i + 1) = y(i)f(i + 1) = f(i) - 2 * x(i) + 1End IfEnd IfIf (x(0) < 0) And (y(0) >= 0) The nIf f(i) < 0 The nFor j = y(i) To y(i) + 1 Step 0.0001PSet (j, y(i), 255Next jy(i + 1) = y(i) + 1x(i + 1) = x(i)f(i + 1) = f(i) + 2 * y(i) + 1ElseFor j = x(i) To x(i) + 1 S

15、tep 0.0001PSet (j, y(i), 255Next jx(i + 1) = x(i) + 1y(i + 1) = y(i)f(i + 1) = f(i) + 2 * x(i) + 1End IfEnd IfNext iEnd Sub任意象限圓弧插補r = Sqr(X(O) - xa) A 2 + (Y(0) - ya) A 2)Circle (xa, ya), rf(0) = 0i = 0DoIf (X(i) > xa) And (Y(i) >= ya) The nIf f(i) >= 0 The nFor j = X(i) To X(i) - 1 Step -

16、0.0001PSet (j, Y(i), 255Next jX(i + 1) = X(i) - 1Y(i + 1) = Y(i)f(i + 1) = (X(i + 1) - xa) a 2 + (Y(i + 1) - ya) a 2 - r a 2 ElseFor j = Y(i) To Y(i) + 1 Step 0.0001PSet (X(i), j), 255Y(i + 1) = Y(i) + 1Next jY(i + 1) = Y(i) + 1X(i + 1) = X(i)f(i + 1) = (X(i + 1) - xa) a 2 + (Y(i + 1) - ya) a 2 - r

17、a 2 End Ifi = i + 1If (y1 = Y(i) And (x1 = X(i) The n Exit DoEnd IfIf (X(i) <= xa) And (Y(i) > ya) The nIf f(i) < 0 The nFor j = X(i) To X(i) - 1 Step -0.0001PSet (j, Y(i), 255Next jX(i + 1) = X(i) - 1Y(i + 1) = Y(i)f(i + 1) = (X(i + 1) - xa) a 2 + (Y(i + 1) - ya) a 2 - r a 2 ElseFor j = Y(

18、i) To Y(i) - 1 Step -0.0001PSet (X(i), j), 255Next jY(i + 1) = Y(i) - 1X(i + 1) = X(i)f(i + 1) = (X(i + 1) - xa) a 2 + (Y(i + 1) - ya) a 2 - r a 2End IfIf (y1 = Y(i) And (x1 = X(i) The n Exit Doi = i + 1End IfIf (X(i) < xa) And (Y(i) <= ya) The nIf f(i) >= 0 The nFor j = X(i) To X(i) + 1 Step 0.0001PSet (j, Y(i), 255Next jX(i + 1) = X(i) + 1Y(i + 1) = Y(i)f(i + 1) = (X(i + 1) - xa) A 2 + (Y(i + 1) - ya) A 2 - r A 2 ElseFor j = Y(i) To Y(i) - 1 Step -0.0001PSet (X(i), j), 2

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論