5800正反算测量程序
O字母0数字←┚
J-PQX (平面数据输入，自行切换到J-JSMS
5→DimZ :“JD”?A:“JD-X” ? B:“JD-Y”?C:“FwJ”? F:“L(α-)，R(α+)”?O :“R”? R: :“LS1”?E: “LS2”?K：E<1=> 1÷109→E
K<1=> 1÷109→K
EE÷（24R）-E∧4÷（2688RRR）→Z[1]: E÷2-EEE÷（240RR）→Z[2]: (EE-KK)÷(24R)÷sin Abs( (O))→X: “T1=”: (R+KK÷（24R）-K∧4÷（2688RRR）)tan(Abs O ÷2)+K÷2-KKK÷（240RR）+X→ Z[3]◢
“T2=”: (R+KK÷（24R）-K∧4÷（2688RRR）)tan(Abs O ÷2)+K÷2-KKK÷（240RR）+X→Z[4]◢
“L=”:Abs OπR÷180+(E+K)÷2→L◢
tan-1((R+Z[1])÷(Z[3]-Z[2]) →J: “E=”: (R+Z[1])÷sin J-R→X◢
A-Z[3]→X: X+E→Y:E<1:“ZY=”:X◢
“ZH=”:X◢
“HY=”:Y◢
“QZ=”:X+(L-K-E)÷2+E→Y◢
X+L-K→Y: X+L→X:K<1:“YZ=”:X◢
“YH=”: Y◢
“HZ=”: X◢
Prog“J-JSMS” ←┚
J-JSMS（放样模式主程序
“1-ZS,2-FS”:Lb1 0: “MS”? Z
If Z=1: Then Goto 1:IfEnd
If Z=2: Then Goto 2:IfEnd←┚
Lb1 1 :“P”?P:“BZ(m)”?D:“BJ(。)”?W: Prog“JP”:“X=”:X◢
“Y=”: Y◢
If Z=1: Then Goto 1: Goto 1: IfEnd←┚
Lb1 2 :“X”?X:“Y”?Y:“BJ(。)”? W: Prog“JF”:“P=”: P◢
“BZ(m)=”: D◢
If Z=2: Then Goto 2: Goto 0: IfEnd
JP（平曲线正算子程序
Lb1 1 : F→J: B-Z[3]cos F→X : C-Z[3]sin F→Y : E→G←┚
If P≤A-Z[3]:Then A-Z[3]-P→I: -I→M: 0→N: F+W→H:Goto 5: IfEnd←┚
If P≤A-Z[3]+E:Then P-A+Z[3]→I: 90II÷（REπ）→H:O<0=> -H→H
H+W+F→H:Goto 3: IfEnd←┚
If P≤A-Z[3]+L-K:Then P-A+Z[3]-E→I:Goto 4: Else Goto 2: IfEnd←┚
Lb1 2 : B+Z[4]cos(F+O)→X : C+Z[4]sin(F+O)→Y : F+O+180→J: K→G←┚
If P≤A-Z[3]+L:Then A-Z[3]+L-P→I:90I2÷（RKπ）→H:O>0=> -H→H
H+J+W+180→H:Goto 3:Else P-A+Z[3]-L→I: -I→M: 0→N: J+W+180→H:Goto 5: IfEnd ←┚
Lb1 3 : I-I∧5÷（40RRGG）→M: III÷（6GR）-I∧7÷（336RRRGGG）→N:Goto 5 ←┚
Lb1 4 : (E+2I)×90÷（πR）→H: R sin H+Z[2] →M: R(1-cos H)+Z[1] →N:O<0=> -H→H
J+H+W→H: Goto 5
Lb1 5 :If P≤A-Z[3]+L-K:Then O<0=> -N→N:Else O>0=> -N→N:Goto 6:IfEnd←┚
Lb1 6 : X+M cos J-N sin J+D cos H→X: Y+M sin J+N cos J+D sin H→Y
JF（平曲线反算子程序
X→U: Y→V: 0→D: F-W→J: A+(Y-C)cos J-(X-B)sin J→P←┚
Lb1 1:Prog“JP”: H-180→J: (V-Y)cos J-(U-X)sin J→I
If Abs I<1÷104:Then Goto 2:Else P+I→P:Goto 1:IfEnd←┚
Lb1 2: (V-Y)÷sinH→D
一、 程序简介
本套程序是共有1个主程序，3个子程序。适用于CASIO-5800用户
二、 程序功能
本程序共设置了2种计算模式J-JSMS：
1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=>平面坐标。
2-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。
三、 计算范围
平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长，即可以算卵形曲线，回头曲线
四、 数据输入及各计算模式运行过程
1、正算模式：1-ZS，
运行主程序J-PQX（平曲线），计算过程如下：
显示 输入 计算结果 备注
DJ？ 交点桩号
JD-X？ 交点X值
JD-Y？ 交点Y值
FWJ？ 计算方位角
L(α-)，R(α+)？ 交点转角 左转为负值，右转正值
R？ 圆曲线半径
LS1？ 第一缓和曲线
LS2？ 第二缓和曲线
T1= 前切线
T2= 后切线
L= 曲线长度
E= 外距
ZH= ZH桩号
HY= HY桩号
QZ= QZ桩号
YH= YH桩号
HZ= HZ桩号
1-ZS,2-FS MS？ 计算模式选择，此模式请输入：1 总共有2种计算模式供选择，符号说明见“二、程序功能”。
P？ 待求点桩号
BZ？ 边桩距离 左边为负值，右边为正值，中桩输0
BJ？ 边桩夹角 右边桩与中线夹角，正交为90，斜交另输
X= X值
Y= Y值
P？BZ？BJ？... 本模式循环计算
2、反算模式：2-FS，
运行主程序J-PQX（平曲线），运行过程同“1、1-ZS，正算模式”；若平曲线数据已经输入了，或者计算交点同上次相同，可直接运行J-JSMS（计算模式）
显示 输入 计算结果 备注
······平曲线数据输入过程·····
1-ZS,2-FS MS？ 计算模式选择，此模式请输入：2 总共有2种计算模式供选择，符号说明见“二、程序功能”。
X？ 任意点P的X值
Y？ 任意点P的Y值
BJ？ 边桩夹角 右边桩与中线夹角，正交为90，斜交另输
P= P点桩号
BZ= 边桩距离 负值为左边桩，正值为右边桩
X？Y？... 本模式循环计算
必读：
1、如果中途关机或已知数据与上次计算相同，直接运行J-JSMS计算即可，可不必重新输入已知数据。
2、输入完程序后，先将计算器DimZ扩展到5以上，否则无法运行该程序。
程序输完后运行主程序，以后就可以运行第二子程序，这样快些，除非换了交点
J-PQX (平面数据输入
J-JSMS（放样模式主程序
通用程序，
北冰(569455116) 15:47:18
正算主程序[ZD-KB]
“1,2,3,4,5”?Z:?X:?Y
Lbl 1:Fix 3:?K:?B:90→A:0→P:0→R
Z=1＝＞Prog“YS-1”
Z=2＝＞Prog“YS-2”
Z=3＝＞Prog“YS-3”
Z=4＝＞Prog“YS-4”
Z=5＝＞Prog“YS-5”
Prog“ZDYS”:M-X→I:N-Y→J:Prog“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 8,3,M:Locate 1,4,“N=”:Locate 8,4,N◢
Cls:Goto 1
反算主程序[ZD-MN]
“1,2,3,4,5”?Z:?K
Lbl 0:Fix 3:?M:?N:M→D:N→E
Lbl 1:90→A:0→B:0→P:0→R
Z=1＝＞Prog“YS-1”
Z=2＝＞Prog
