帮忙修改Fx-4800计算器程序

fillson

各位大哥 自己编的程序还是比较好用,就是有点小问题:<br>1.该程序计算误差有点大 有时有1cm多&nbsp; 帮忙修正一下<br>※ ZBFX ※ <br>Fixm:{Z}:Z:{K}:K``Z0，Y1=``:{S}:S:Prog ``SJK``:T=(R+N2÷24R)tan(0.5Abs (C-A))+N÷2-N3÷240R2:L=πRAbs (C-A)÷180+N:K=0=&gt;K=-1△G=(C-A)÷Abs (C-A):Z≤D-T=&gt;Goto 0△Z≥D-T+L=&gt;Goto 1△Z＜D-T+N=&gt;Goto 2△Z＞D-T+L-N=&gt;Goto 3△M=(A+G(90+90N÷πR+180(Z-D+T-N)÷πR)-180):X=E+Rec((R+N2÷24R)÷cos(Abs (C-A)÷2)，C+G(180-Abs (C-A))÷2:Y=F+J:X=X+Rec(R，M):Y=Y+J:X=X+Rec(B，S+M+90G+90K):Y=Y+J:Goto 5△? Lbl 0:X=X+Rec(Z-D，180+A):Y=F+J:X=X+Rec(B，S+A+90K):Y=Y+J:Goto 5△? Lbl 1:X=X+Rec(Z-D+2T-L，C):Y=F+J:X=X+Rec(B，S+A+90K):Y=Y+J:Goto 5△? Lbl 2:X=X+Rec(T，180+A):Y=F+J:H=Z-D+T:Prog ``4``:X=X+Rec(U，A+Gtan-1(W÷V)):F=Y+J:X=X+Rec(B，S+A+90K+90GH2÷πR):Y=Y+J:Goto 5△? Lbl 3:X=X+Rec(T，C):Y=F+J:H=D-T+L-Z:Prog ``4``:X=X+Rec(U，C+180-Gtan-1(W÷V)):F=Y+J:X=X+Rec(B，S+C+90K-90GH2÷πR):Y=Y+J:Goto 5△? Lbl 5:X▲Y▲ ``SP=``:Pol(X-P，Y-Q):Paus 0:J &lt;0=&gt;J=360+J△J``AP``?<br>&nbsp;※ HOU SHI JULI ※ <br>P``XC=``:Q``YC``:{X}:X:{Y}:Y:Fixm:``SP=``:Pol(X-P，Y-Q):Paus 0:J &lt;0=&gt;J=360+J△J``AP``? <br>※ 4 ※ <br>V=H-H5÷40R2N2+H9÷3456R4N4-H13÷590040R6N6:W=H3÷6RN-H7÷336R3N3+H11÷42240R5N5:P=√?(V2+W2) ※ HOU SHI Z-B ※ E``XC=``:F``YC``:{S}:S``SP=``:{A}:A``AP=``:X=E+Rec(S，A):Y=F+J:Goto 0△? Lbl 0: X▲Y▲? <br>※ SJK ※ <br>Z≤****.***=&gt;Goto 1△: Z≤****.***=&gt;Goto 2△:………Z≤****.***=&gt;Goto 9△? Lbl 1:D=****.***:E=****.***:F=****.***:A=**。**，**”:C=**。**，**”:R=****.***:N=****.***:Goto 0△? ： ： Lbl 9:D=****.***:E=****.***:F=****.***:A=**。**，**”:C=**。**，**”:R=****.***:N=****.***:Goto 0△? Lbl 0: ?<br>&nbsp;程序使用说明： <br>（一）主程序：<br>&nbsp;1、运行“HOU SHI JULI” ??计算后视距离及方位角 XC、YX ??测站(置仪点)坐标X、Y XP、YP ??后视(置镜点)坐标X、Y SP ??测站至后视点的距离 AP ??测站至后视点的方位角(十进制)，需按 SHTFT+ 。，”转换 <br>2、运行“ZUO BIAO” ??计算待测点 (前视点)坐标、距离及方位角 Z ??待测点的桩号 Z0，Y1= ??左幅输入0，右幅输入1 B ??距中桩的距离，当B=0时为中桩坐标 X、Y ??待测点的坐标 SP ??测站至待测点的距离 AP ??测站至待测点的方位角(十进制)，需按 SHTFT+ 。，”转换 <br>3、运行“HOU SHI Z-B” ??计算待测点 (前视点)坐标 XC、YX ??测站(置仪点)坐标X、Y SP ??测站至前视点的距离 AP ??测站至前视点的方位角 X、Y ??前视(置镜点)坐标X、Y <br>（二）子程序：<br>&nbsp;1、“4” ??计算缓和曲线段坐标 <br>2、“SJK” ??数据库 D ??交点桩号 E ??交点X坐标 F ??交点Y坐标 A ??后方位角 C ??前方位角 R ??圆曲线半径 N ??缓和曲线长度