CASIOfx-4850p计算器路线放样坐标程序

CASIOfx-4850p计算器路线放样坐标程序

CASIOfx-4850p计算器路线坐标放样程序

主程序
1
Deg:Norm:LbIS:Z<1=>{QU}:Q“X°”U“Y°”⊿Fix4:Z≥3=>U=0:K=1mIntZ[Z]k⊿Fixm:LbIA:Z≠.1=>{K}⊿M=K:N=3:LbIB:Z[N+3:Rnd:K<Ans=>Prog“D”:PoI(X[N]-X[N-3],Y[N]-Y[N-3:V=J:PoI(X[N+3]-X[N],Y[N+3]-Y[N:W=J:S=sin-1sin(W-V:C=AbsS:S=S÷C:H=1kFrac1E4Z[N:G=1E5FracX[N]k+Frac1E4Y[N:L=GC÷1r+H:E=G+H2÷(24G)-H∧4÷(2688G∧3):T=Etan .5C+H÷2-H∧3÷240G2:E=E÷cos.5C-G:R=GS:Z[N:Rnd:Z≥4=>Q=Ans⊿P=K-Ans:D=P:X=Rec(-T,V)+X[N:Y=J+Y[N:D≤0=>A=X+Rec(D,V:B=Y+J:F=V:≠=>C=V:O=2:Prog“H”⊿P>H=>O=3:D=P-L÷2:C=V+90S+.5sin-1sin(W-V:X=Rec(E+G,C)+X[N:Y=J+Y[N:A=X+Rec(-G,Dr÷R+C:B=J+Y:F=Dr÷R+C-90S⊿P>L-H=>O=4:D=P-L:R=-R:X=Rec(T,W)+X[N:Y=J+Y[N:C=W:D<0=>Prog“H”:≠>O=0:A=X+Rec(D,W:B=J+Y:F=W⊿⊿H≠0=>E=AbsD÷H⊿D=0:P=90:LbI0:P“ANG.”:Rec(D,P+F:X=A+I:Y=B+J:Prog“F”:Fix3:Z≥1=>X:Pause0:Y:Pause0⊿Z=.2=>Fix1:GotoS⊿Fix3:Z≠.1=>{D}⊿Z≥6=>U=1=>D“[HY]”⊿U=2=>D“[QZ]”⊿U=3=>D“[O]”⊿U=4=>D“[YH]”⊿U=5=>D“[HZ]”⊿D“[ZH]”⊿O=2=>D“Dr”⊿O=3=>D“D°”⊿O=4=>D“D2r”⊿D=i=>P=0:D=0:{PD}:Goto0⊿Z≥3=>K=Q=>K=Q+H=1n⊿U=1=>K=Q+L÷2⊿U=2=>D=R:U=3:Goto0⊿U=3=>K=Q+L-H⊿U=4=>K=Q+L-.4m⊿IszU:U=6=>Z=Z+3:GotoS⊿GotoA⊿D=0=>Z=.1=>M=M-Icos(F-J):Pause0:Abs(F-J)÷90:Rnd:Ans=1=>Isin(F-J:Pause0:K=M:GotoS⊿⊿K=M:GotoA⊿FracDk≠0=>D=D÷∏:A=X:B=Y:P=0:Goto0⊿P=90:Goto0:≠>N=N+3: Goto B

编制:杜芬珍 地址:内蒙通辽时间:08年4月12日

  • 发表于 2018-11-05 14:00
  • 阅读 ( 18 )
  • 分类:4850

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

117 篇文章

作家榜 »

  1. admin 117 文章
  2. 胡亮 3 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 秦汉 1 文章
  6. boyving 1 文章
  7. 雷神 0 文章
  8. 张峰 0 文章