ZHY程序FX5800
辛普森计算器公路测量常用程序修改版一、程序功能
LbI 0:＂X=＂?A: ＂Y=＂?B：＂Z=＂?C：＂1/（R1）＂?D：＂1/（R2）＂?E：＂QT=＂?F: ＂QT=＂?G: ＂V＂?V：＂W＂?W LbI 1：＂L＂?L：＂O＂?O：＂H＂?H：IF L>G：Then Goto 1：IFEnd
（E-D）/（G-F）→P：L-F→Q：P*Q→I
C+（I+2*D）*Q*（90/∏）→J
C+（I/4 +2*D）*Q*（45/（2*∏））→M
C+（3/4*I+2*D）*Q*（135/（2*∏））→N
C+(I÷2+2*D)*Q*(45÷∏) →K
＂X=＂:A+Q÷12*(COS（C）+4*（COS（M）+C0S（N））+2*COS （K）+COS（J）)+O*COS（J+H）→X◢
＂Y=＂:B+Q÷12*(SIN（C）+4*（SIN（M）+SIS（N））+2*SIN （K）+SIN（J）)+O*SIN（J+H）→Y◢
X-V→I：Y-W→J
PoL（I，J）
”J=”:J▲DMS▲
If J <0:Then “J=”:J+360°→J:J▲DMS ▲ if End Goto1
F5800计算器曲线计算JD程序（ZH~HZ）坐标计算放样公式
主程序：
30→Dim Z: "XJD="?B: "YJD="?D: "KJD="?M: "A="?A: "ZJ="?
Q: "R="?R: "LS1="?C: "LS2="?T: "F="?F:prog "A":Lb1 0: "XO="?G: "YO="?H: "LC="?L: "JJ="?Z: "PJ="?S:If L≤M-Z[11]+C:Then M- Z[11]COS(F) →N:D- Z[11]Sin(F) →E:Prog "ZHHY":Prog "FWJ": Goto 0:Else If L≤M-Z[11]+ Z[13]-T:
Then M- Z[11] →K:B- Z[11] COS(F) →N:D- Z[11]Sin(F) →E: Prog "HYYH":Prog "FWJ": Goto 0: Else If L≤M-Z[11]+ Z[13]:Then M- Z[11]+ Z[13] →K:F+AQ+180→V:B-Z[12] COS(V) →N:D- Z[12] Sin(V) →E: Prog "YHHZ":Prog "FWJ": Goto 0: Else "End" ▲
If End: If End: If End
说明：以上主程序需要四个副程序，缺少任何一个副程序不能运行！
"XJD="?: "YJD="?: "KJD="?为曲线交点坐标及桩号
"A="?为曲线左转取-1；右转取1
"ZJ="?为曲线转角值；"R="?为曲线半径
"LS1="?： "LS2="?为前后段缓和曲线长度
"F="?曲线起始方位角； " X0="?、" Y0="?:全站仪测站点坐标
" LC="?为曲线ZH-HZ段内所求任意点桩号；
"JJ="?为切线顺时针夹角；"PJ="?为左右侧所求点距设计线距离；。