4800计算器使用方法

4800

L1 Defm 10

L2 Lb1 0:{FG}:C"QX":D"QY":A"Q >":E"QDZH":F"ZDZH":H"QR":G"ZR":O"ZDX":U"ZDY" L2 Lb1 1:{K}:K>F＝＞Goto 3△

L3 Lb1 2:P=A+(1/G+1/H)/Abs(F-E):L=Abs(K-E):J=P×L

L4 I=A+90(J+2/H)L/π▲

L5 Z[1]=A+45(J/4+2/H)L/(2π)

L6 Z[2]=A+135(3J/4+2/H)L/(2π)

L7 Z[3]=A+45(J/2+2/H)L/π

L8 Z[4]=A+(J/8+2/H)L(90/8π)

L9 Z[5]=A+(3J/8+2/H)L(3*90/8π)

L10Z[6]=A+(5J/8+2/H)L(5*90/8π)

L11Z[7]=A+(7J/8+2/H)L(7*90/8π)

L12 {B}:X“X”=C+L(CosA+4(CosZ[4]+CosZ[5]+CosZ[6]+CosZ[7])+2(CosZ[1]+CosZ[2]+Cos Z[3])+CosI)/24+BCos(I+ 90)▲

L13 Y“Y” =D+L(SinA+4(SinZ[4]+SinZ[5]+SinZ[6]+SinZ[7])+2(SinZ[1]+SinZ[2]+SinZ[3])+SinI)/24+BSin (I+90)▲

L14 K=F＝＞Goto 4: ≠＞Goto 5△△

L15 Lb1 3:K=F:Goto 2

L16 Lb1 4:C=X:D=Y:E=F:H=G:A=I:Goto 0

L17 Lb1 5:Pol(X-O,Y-U):W<0 ＝＞W=W+360 :Ｗ“FWJ＞”＝Int W+Int（100Frac W）/ 60+Frac （100W）/36▲Fix 3:V“S ”=V▲Norm: Goto 1△

L18 ≠＞W =W:Ｗ“FWJ＞”＝Int W+Int（100Frac W）/ 60+Frac （100W）/36▲Fix 3:V“S ”=V▲Norm:Goto 1

说明：本程序是根据复化辛普生公式（n=4）编制的，适合各种线型的正反算。

QX起点X坐标QY起点Y坐标Q>起点方位角QDZH起点桩号ZDZH 终点桩号

QR起点半径ZR终点半径ZDX测站点X坐标ZDY测站点Y坐标K

所求点里程

注意事项：⒈直线半径输入EXP 99 。

⒉线路左偏时半径输入“-”值。

⒊线路前进方向左侧坐标计算“B”取“-”值，右侧取”+“值，中桩取零，

如：左侧6米B=-6，右侧8米B=8，中桩B=0。

⒋如需要所求点方位角可在L4行末尾加显示符“▲”。

⒌显示“FWJ ＞”即所求点与测站点的方位角，如：36.254121即为36°25′41.21″。

“S=”即所求点与测站点的距离。

6.1/G，1/H可以输入G的-1次方，H的-1次方。

7.当所求点里程大于终点时，显示终点坐标。之后要求输入下一线型终点里程，终点半径。继续计算