2024年4月13日发(作者：御双玉)
卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版
1.主程序：一般坐标计算及放样程序-----交点法
程序名:1-JD
Lal 0:10→DimZ:Norm 2:1→A: ＂A: XY=1,KMD=2＂? A:A=1=>Goto
1:A=2=>Goto 2: （选择正算还是反算）Lal 1:Lal A:Prog＂QX＂: 90→B ＂
PJ＂?B:B→Z[1]: （默认与道路切线方向90度）Lal B:＂
KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停
止，输 入- 2转反算），偏距默认中桩0，左为-，右为+，）
Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3: ＂X=＂:Locate
6,4,X: ＂Y=＂:Locate 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角）
Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部
分可以省略）
Prog＂5-SD＂:＂-CW +QW=＂:M◢ （隧道超欠挖，如不需要此部分可以省略）
LpWhile Z≠-1(Goto B此处也可以用这个命令)
Lal 2 Prog＂QX＂: （选线，默认（线路1） X1=1，（线路2） .）
Lal C:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: （反算时输入大概桩号，输入-1
则停止，输入-2正算）Prog＂K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate
6,4,Z: ＂D=＂:Locate 6,4,D◢
Prog “S-Z”: Prog “3-GC”: “H=”：H◢
Prog＂5-SD＂:＂-CW +QW=＂:M◢
LpWhile Z≠-1(Goto C此处也可以用这个命令)
2．线路中线元段判别子程序（K）
程序名：K
If Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog “X1”:Return:IfEnd：If
Z[3]=2:Then Prog “X2”:Return:IfEnd：If Z[3]=n:Then Prog “Xn”:
（后面可以增加N条线路！！但需要在QX程序里面 ＂QX:?=0,X1=1,X2=2，Xn=n＂做
更改）。
3．线路选择子程序(线路选择输0时。则输曲线参数（QX）
程序名：QX
1→A: ＂QX:?=0,X1=1,X2=2＂?A:A→Z[3]:
If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FWJ”?G:”ZJ”?P
:”LS1”?H:”LS2”?N:?R:IFEnd
2024年4月13日发(作者：御双玉)
卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版
1.主程序：一般坐标计算及放样程序-----交点法
程序名:1-JD
Lal 0:10→DimZ:Norm 2:1→A: ＂A: XY=1,KMD=2＂? A:A=1=>Goto
1:A=2=>Goto 2: （选择正算还是反算）Lal 1:Lal A:Prog＂QX＂: 90→B ＂
PJ＂?B:B→Z[1]: （默认与道路切线方向90度）Lal B:＂
KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停
止，输 入- 2转反算），偏距默认中桩0，左为-，右为+，）
Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3: ＂X=＂:Locate
6,4,X: ＂Y=＂:Locate 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角）
Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部
分可以省略）
Prog＂5-SD＂:＂-CW +QW=＂:M◢ （隧道超欠挖，如不需要此部分可以省略）
LpWhile Z≠-1(Goto B此处也可以用这个命令)
Lal 2 Prog＂QX＂: （选线，默认（线路1） X1=1，（线路2） .）
Lal C:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: （反算时输入大概桩号，输入-1
则停止，输入-2正算）Prog＂K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate
6,4,Z: ＂D=＂:Locate 6,4,D◢
Prog “S-Z”: Prog “3-GC”: “H=”：H◢
Prog＂5-SD＂:＂-CW +QW=＂:M◢
LpWhile Z≠-1(Goto C此处也可以用这个命令)
2．线路中线元段判别子程序（K）
程序名：K
If Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog “X1”:Return:IfEnd：If
Z[3]=2:Then Prog “X2”:Return:IfEnd：If Z[3]=n:Then Prog “Xn”:
（后面可以增加N条线路！！但需要在QX程序里面 ＂QX:?=0,X1=1,X2=2，Xn=n＂做
更改）。
3．线路选择子程序(线路选择输0时。则输曲线参数（QX）
程序名：QX
1→A: ＂QX:?=0,X1=1,X2=2＂?A:A→Z[3]:
If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FWJ”?G:”ZJ”?P
:”LS1”?H:”LS2”?N:?R:IFEnd