數(shù)控課程設(shè)計--數(shù)控中非圓曲線逼近的算法實現(xiàn)(參考版)
2025-01-21 16:00本頁面
【正文】 參數(shù)方程：x=a * Cos(i)^3 , y=a * Sin(i)^3End SubPrivate Sub Option3_Click() ‘選定順時針走刀方向daolu = 1End SubPrivate Sub Option4_Click() ‘選定逆時針走刀方向daolu = 2End SubPrivate Sub Option5_Click() ‘選定左刀具補償daobu = 1End SubPrivate Sub Option6_Click() ‘選定右刀具補償daobu = 2End SubPrivate Sub Option7_Click() ‘選定輸出絕對坐標的NC代碼zuobiao = 1End SubPrivate Sub Option8_Click() ‘選定輸出相對坐標的NC代碼zuobiao = 2End Sub17。 vbCrLf amp。 vbCrLf amp。 vbCrLfEnd IfEnd IfPrivate Sub Command5_Click() = TrueEnd SubPrivate Sub Command6_Click() ‘程序結(jié)束EndEnd SubPrivate Sub Label21_Click()End SubPrivate Sub Option1_Click() ‘顯示當前繪制的非圓曲線方程quxian = 1 = True = True = 標準方程：x^2 / a^2 + y^2 / b^2 = 1 amp。 o amp。 vbCrLfEnd IfEnd Ifo = o + 1X(0) = X(1)Y(0) = Y(1)Loop = amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLfEnd IfElseIf o = 4 Thenp = Format(X(1) X(0), )q = Format(Y(1) Y(0), ) = amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLfEnd Ifline1:Do While i 0i = i s * piX(1) = a * Cos(i)Y(1) = b * Sin(i)If Y(1) 0 Thenk = (b ^ 2 * X(1)) / (a ^ 2 * Y(1))w = Abs(k * X(0) Y(0) + Y(1) k * X(1)) / (Sqr(k ^ 2 + 1))End IfIf (w v) = Then (X(1), Y(1)), vbGreenElses = s + GoTo line1End IfIf zuobiao = 1 Thenp = Format(X(1), )q = Format(Y(1), )If o = 4 Then = amp。 N3 Z amp。 q amp。 p amp。 vbCrLf = amp。 Z30 M03 S amp。 e amp。 d amp。 vbCrLf = amp。 Y amp。 N2 X amp。 n amp。 D01 amp。 vbCrLfEnd IfEnd Ifo = o + 1X(0) = X(1)Y(0) = Y(1)LoopPrivate Sub Command4_Click() ‘等誤差直線逼近s = pi = o = 4a = Val() ‘輸入加工參數(shù)b = Val()v = Val()n = Val()F = Val()r = Val()qidaox = Val()qidaoy = Val()qidaoz = Val()d = Val()i = Val() = vbDash = 1If quxian = 1 Then ‘畫橢圓If daolu = 1 Then ‘順時針走刀方向If daobu = 1 Thene = 1a = a + rb = b + rEnd IfIf daobu = 2 Thene = 2a = a rb = b rEnd IfX(0) = a * Cos(i)Y(0) = b * Sin(i) (qidaox, qidaoy), vbGreen (X(0), Y(0)), vbGreen = vbSolid (X(0), Y(0)), vbGreenp = Format(X(0), )q = Format(Y(0), )If zuobiao = 1 Then = N1 G90 G17 G00 G4 amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLfEnd IfElseIf o = 4 Thenp = Format(X(1) X(0), )q = Format(Y(1) Y(0), ) = amp。 Y amp。 X amp。 N amp。 F amp。 q amp。 p amp。 vbCrLfEnd Ifline1:Do While X(0) = (a + )X(1) = X(0) sY(1) = (b * Sqr(Abs(a ^ 2 X(1) ^ 2))) / aIf X(1) X(0) And Y(1) Y(0) Thenk = (Y(1) Y(0)) / (X(1) X(0))If k 0 Thenj = Atn(b / (a * k))End IfIf k 0 Thenj = Atn(b / (a * k)) + piEnd IfX(2) = a * Cos(j)Y(2) = b * Sin(j)w = Abs(k * X(2) Y(2) + Y(0)
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1