CASIO-4800完整缓和曲线任意中边桩坐标计算

DEFM 4Lbl 0:{Z,S,O,U}A:B:C”JDX”:D”JDY”:E”JD”:R:Y”LS”:T”LC”:L:JLbl 2:Z【1】=E-T: Z【2】= Z【1】+Y: Z【3】= Z【2】+L: Z【4】= Z【3】+Y:Z≤Z【1】=>GOTO 3: ≠=>Z>Z【1】=>GOTO 4...

DEFM 4
Lbl 0:{Z,S,O,U}
A:B:C”JDX”:D”JDY”:E”JD”:R:Y”LS”:T”LC”:L:J
Lbl 2:Z【1】=E-T: Z【2】= Z【1】+Y: Z【3】= Z【2】+L: Z【4】= Z【3】+Y:Z≤Z【1】=>GOTO 3: ≠=>Z>Z【1】=>GOTO 4
Lbl3:Q”X(Z1)”=C+T*COS(A+180) ▲V”Y(Z1)” =D+T*SIN(A+180) ▲K=A: GOTO D
Lbl 4: Z≤Z【2】=>GOTO 5: ≠=>Z>Z【2】=>GOTO 7
Lbl 5: F=(Z- Z【1】)-( Z- Z【1】)^5/(40R^2Y^2)
I=(Z- Z【1】)^3/(6RY)- (Z- Z【1】)^7/(336R^3Y^3):M=A+30*J*( Z- Z【1】)^2/(∏RY)
Lbl 6: Q”X(H1)”=C+T*COS(A+180)+ ABS(F^2+I^2)^1/2*COS M▲V”Y(H1)” =D+T*SIN(A+180) + ABS(F^2+I^2)^1/2*SIN M▲K=A+90*J( Z- Z【1】)^2/(∏RY): GOTO D
Lbl 7: Z≤Z【3】=>GOTO 8: ≠=>Z>Z【3】=>GOTO A
Lbl 8: M=A+90*J*Y/(∏R)+90*J*( Z- Z【2】) /(∏R): F=R SIN(180*( Z- Z【2】) /(∏R)):I=R(1-COS(180*( Z- Z【2】) /(∏R))):N= A+30*J*Y/(∏R):P= ABS((Y-Y^3/(40R^2)) ^2+(Y^2/(6R)) ^2) ^1/2
Lbl 9: Q”X(C)”=C+T*COS(A+180)+ ABS(F^2+I^2)^1/2*COS M+P*COS N▲V”Y(H1)” =D+T*SIN(A+180) + ABS(F^2+I^2)^1/2*SIN M+P*SIN N▲K=A+180*J*(Y/2+Z- Z【2】) /(∏R): GOTO D
Lbl A: Z﹤Z【4】=>GOTO B: ≠=>Z≥Z【4】=> Q”X(Z2)”=C+T*COS B▲V”Y(Z2)” =D+T*SIN B▲K=B: GOTO D
Lbl B: F=(Z【4】- Z)-( Z【4】- Z)^5/(40R^2Y^2) :I=( Z【4】- Z)^3/(6RY): M=B-30*J*( Z【4】- Z)^2/(∏RY)
Lbl C: Q”X(H2)”=C+T*COS B- ABS(F^2+I^2)^1/2*COS M▲V”Y(H1)” =D+T*SIN B -ABS(F^2+I^2)^1/2*SIN M▲K=B-90*J(Z【4】- Z)^2/(∏RY)
Lbl D: W”X(L)”=S”LD”*COS(K+180+U)+Q▲H”Y(L)”=S*SIN(K+180+U)+V▲X”X(R)”=O”RD”*COS(K+U)+Q▲H”Y(L)”=O*SIN(K+U)+V▲GOTO 0

  • 发表于 2018-11-05 13:51
  • 阅读 ( 19 )
  • 分类:4800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

117 篇文章

作家榜 »

  1. admin 117 文章
  2. 胡亮 3 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. netbee 1 文章
  6. 秦汉 1 文章
  7. boyving 1 文章
  8. 李晓明 0 文章