5800(交点法)坐标计算及反算

程序清单：

1、JDF1J-PQXYS(交点法1-平曲线要素)

5→Dimz↙

“JD”?A↙

“JD X”?B↙

“JD Y”?C↙

“FWJ”?F↙

“L(a-),R(a+)”?O↙(字母O)

“R”?R↙

“LS1”?E↙

“LS2”?K↙

If E<1:Then 1*10^(-9) →E:IfEnd↙

If K<1:Then 1*10^(-9) →K:IfEnd↙

E2 ÷(24R)- E^(4)÷(2688R^(3))→Z[1]↙

E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))→Z[2]↙

((E2-K2 )÷(24R))÷Sin(Abs(O))→X↙(字母O)

“T1=”：(R+E2÷(24R)-E^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))-X→Z[3] ◢(字母O)

“T2=”：(R+K2÷(24R)-K^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+K÷2-K^(3)÷(240R2)+K^(5)÷(34560R^(4))+X→Z[4] ◢(字母O)

“L=”：Abs(O)πR÷180+(E+K)÷2→L◢(字母O)

“LY=”:L-(E+K)→Y◢

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↙

If E<1：Then “ZY=”：X◢

:Else “ZH=”：X◢

IfEnd↙

“HY=”：Y◢

“QZ=”：X+E+(L-K-E)÷2→Y◢

X+L-K→Y：X+L→X↙

If K<1：：Then “YZ=”：X◢

:Else “YH=”：Y◢

IfEnd↙

“HZ=”：X◢

Prog“JDF2J-JSMS”↙

2、JDF2J-JSMS(交点法2-计算模式)

LbI 0↙

“1 KD=>XY,2 XY=>KD” ？Z↙

If Z=1:Then Goto 1:IfEnd↙

If Z=2:Then Goto 2:IfEnd↙

LbI 1↙

“JS K”?P:“BZ(m)”?D:“BJ(°)”?W↙

Prog“JDF3JPZS”↙

“X=”:X◢

“Y=”:Y◢

If Z=1: Then Goto 1：Goto 1：IfEnd↙

LbI 2↙

“X”?X:“Y”?Y:“BJ(°)”?W↙

Prog“JDF4JPFS” ↙

“JS K”:P◢

“BZ(m)=”:D◢

If Z=2: Then Goto 2:Goto 2:IfEnd↙

3、JDF3JPZS (交点法3平曲线正算)

LbI 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: Goto5：IfEnd↙(数字0)

If P≤A-Z[3]+E:Then P-A+Z[3]→I:90I2÷(REπ)→H: O<0=>-H→H：(前面为字母0，后面为数字0)H+W+F→H: Goto 3: IfEnd↙

If P≤A-Z[3]+L-K:Then P-A+Z[3]-E→I: Goto 4:Else Goto2: IfEnd↙

LbI 2↙

B+Z[4]cos(F+O)→X↙(字母0)

C+Z[4]sin(F+O)→Y↙(字母0)

F+O+180→J↙(字母0)

K→G↙

If P≤A-Z[3]+L:Then A-Z[3]+L-P→I:90I2÷(RKπ)→H: O>0=>-H→H：(前面为字母0，后面为数字0)H+J+W+180→H: Goto 3 :Else P-A+Z[3]-L→I:-I→M:0→N:（数字0)J+W+180→H: Goto 5：IfEnd↙

LbI 3↙

I-I^(5)÷(40(RG)2)→M↙

I^(3)÷(6GR)-I^(7)÷(336(RG)^(3))→N↙

Goto 5↙

LbI 4↙

(E+2I)×90÷(πR)→H↙

Rsin(H)+Z[2]→M↙

R(1-cos(H))+Z[1]→N↙

O<0=>-H→H↙(前面为字母0，后面为数字0)

J+H+W→H↙

Goto 5↙

LbI 5 ↙

If P≤A-Z[3]+L-K:Then O<0(前面为字母0，后面为数字0)=>-N→N:Else O>0(前面为字母0，后面为数字0)=>-N→N: Goto 6: IfEnd↙

LbI 6 ↙

X+Mcos(J)-Nsin(J)+Dcos(H)→X↙

Y+Msin(J)+Ncos(J)+Dsin(H)→Y↙

4、JDF4JPFS(交点法4平曲线反算)

X→U:Y→V:0→D:F-W→J↙(数字0)

A+(Y-C)cos(J)-(X-B)sin(J)→P↙

LbI 1↙

Prog“JDF3JPZS” ↙

H-180→J↙

(V-Y)cos(J)-(U-X)sin(J)→I↙

If Abs(I)<10^(-4):Then Goto 2:Else P+I→P: Goto1: IfEnd↙

LbI 2↙

(V-Y)÷sin(H)→D↙

程序简介

本套程序共有1个主程序，3个子程序，适用于CASIO-5800用户。

程序说明：

a、功能：

本程序共设置了2种计算模式:

1 KD=>XY,正算模式：适用于中、边桩计算，里程桩号及边距=>平面坐标。

2 XY=>KD,反算模式，适用于任意点里程、边距计算，任意点坐标=>里程、边距。

b、平曲线计算范围：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线，中任意桩号，允许两缓和曲线不等长。

输入及输出：

a.正算模式: 1 KD=>XY

运行主程序JDF1J-PQXYS(交点法1-平曲线要素)

计算过程如下：    

输入

DJ? 交点桩号    

JD X?  交点X值

JD Y?  交点Y值

FWJ?   计算方位角

L(a-)，（a+）？交点转角  左转为负值，右转正值

R?圆曲线半径

LS1?第一缓和曲线

LS2?第二缓和曲线

输出

T1= 前切线

T2= 后切钱

L=曲线长度

LY=圆曲线长度 

E=外距    

ZH= ZH桩号

HY= HY桩号

QZ=QZ桩号

YH= YH桩号

HZ=HZ桩号

1 KD=>XY,2 XY=>KD 计算模式选择，此模式请输入：1。

有2种计算模式供选择，具体见程序说明-功能-a。

(坐标正算)1 KD=>XY

“JS K”?P: 待求点桩号

“BZ(m)”?D: 边桩距离，左边为负值，右边为正值，中桩输0。

“BJ(°)”?W边桩夹角，右边桩与中线，夹角，正交为90，斜交另输。

X=   X值  待求点X

Y=   Y值  待求点Y

b、反算模式：2 XY=>KD

运行主程序J-PQX(平曲线)，运行过程同“KD=>XY正算模式”；若平曲线数据已经输入了，或者计算交点同上次相同，可直接运行JDF2J-JSMS (计算模式)。

显示  输入  计算结果  备注  

………………平曲线数据输入过       程…………………

1 KD=>XY,2 XY=>KD 计算模式选择，此模式请输入： 2。

有2种计算模式供选择，具体见程序说明-功能-a

X=   X值  待求点X

Y=   Y值  待求点Y

“BJ(°)”?W边桩夹角，右边桩与中线，夹角，正交为90，斜交另输。

“JS K”?P: 待求点桩号

“BZ(m)”?D: 边桩距离，左边为负值，右边为正值，中桩输0。

必读：

如果中途关机或已知数据与上次计算相同，直接运行JDF2J-JSMS计算即可，可不必重新输入已知数据。

输入完程序后，先将计算器DimZ扩展到5以上，否则无法运行该程序。程序输完后运行主程序，以后就可以运行第二子程序，这样快些，除非换了交点

JDF1J-PQXYS(交点法1-平曲线要素)

JDF2J-JSMS(交点法2-计算模式)

有用的符号

≥＜＞≤°′″→＾ΛЛ↙◢