任意曲线坐标放样正反算程序(4800,4850,5800均可以用).docVIP

任意曲线坐标放样正反算程序（fx－4800p） 正算ZS Lbl 0↙ ｛K,L,Q,S｝:K:L:Q:Prog“FXL”:Prog“SUB” ↙ “X=”:X=X:Pause0:Y=Y◢ K=S+K↙ Goto0↙ 反算FS Lbl 0:｛PT｝:P“X0”:T“Y0” ↙ Lbl 1:｛K｝:L=0:Q=0:Prog“FXL”: Prog“SUB” ↙ U=I-90↙ V=（T-Y）CosU-（P-X）SinU↙ AbsV≥0.001=K=K+V:Goto1:≠“K0=”:K=K:Pause0:W“L0”=（T-Y）CosI-（P-X）SinI◢ Goto0↙ 子程序SUB Norm↙ Deg↙ U=（E-D）÷Abs（G-F）:V=Abs（K-F）:W=UV↙ J=C+90V（W+2D）÷π:J0=J=J+360⊿J≥360=J=J-360⊿↙ M=C+45V（W÷4+2D）÷（2π）:N=C+135V（3W÷4+2D）÷（2π）:O=C+45V（W÷2+2D）÷π↙ I=J+Q↙ Fix3↙ X=A+V÷12×（CosC+4（CosM+CosN）+2CosO+CosJ）+L CosI↙ Y=B+V÷12×（SinC+4（SinM+SinN）+2SinO+SinJ）+L SinI↙ 数据库FXL K≥0=K≤1211.753=A=9764.547:B=3344.148:C=