5800正反算測(cè)量程序

O字母0數(shù)字←┚
J-PQX (平面數(shù)據(jù)輸入，自行切換到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 
一、 程序簡(jiǎn)介
本套程序是共有1個(gè)主程序，3個(gè)子程序。適用于CASIO-5800用戶
二、 程序功能
本程序共設(shè)置了2種計(jì)算模式J-JSMS：
1-ZS，正算模式：適用于中、邊樁計(jì)算，里程樁號(hào)及邊距=>平面坐標(biāo)。
2-FS，反算模式：適用于任意點(diǎn)里程、邊距計(jì)算，任意點(diǎn)坐標(biāo)=>里程、邊距。
三、 計(jì)算范圍
平曲線：直線-緩和曲線（或無）-圓曲線-緩和曲線（或無）-直線中任意樁號(hào)，允許兩緩和曲線不等長(zhǎng)，即可以算卵形曲線，回頭曲線
四、 數(shù)據(jù)輸入及各計(jì)算模式運(yùn)行過程
1、正算模式：1-ZS，
運(yùn)行主程序J-PQX（平曲線），計(jì)算過程如下：
顯示 輸入 計(jì)算結(jié)果 備注
DJ？ 交點(diǎn)樁號(hào)
JD-X？ 交點(diǎn)X值
JD-Y？ 交點(diǎn)Y值
FWJ？ 計(jì)算方位角
L(α-)，R(α+)？ 交點(diǎn)轉(zhuǎn)角 左轉(zhuǎn)為負(fù)值，右轉(zhuǎn)正值
R？ 圓曲線半徑
LS1？ 第一緩和曲線
LS2？ 第二緩和曲線
T1= 前切線
T2= 后切線
L= 曲線長(zhǎng)度
E= 外距
ZH= ZH樁號(hào)
HY= HY樁號(hào)
QZ= QZ樁號(hào)
YH= YH樁號(hào)
HZ= HZ樁號(hào)
1-ZS,2-FS MS？ 計(jì)算模式選擇，此模式請(qǐng)輸入：1 總共有2種計(jì)算模式供選擇，符號(hào)說明見“二、程序功能”。
P？ 待求點(diǎn)樁號(hào)
BZ？ 邊樁距離 左邊為負(fù)值，右邊為正值，中樁輸0
BJ？ 邊樁夾角 右邊樁與中線夾角，正交為90，斜交另輸
X= X值
Y= Y值
P？BZ？BJ？... 本模式循環(huán)計(jì)算

2、反算模式：2-FS， 
運(yùn)行主程序J-PQX（平曲線），運(yùn)行過程同“1、1-ZS，正算模式”；若平曲線數(shù)據(jù)已經(jīng)輸入了，或者計(jì)算交點(diǎn)同上次相同，可直接運(yùn)行J-JSMS（計(jì)算模式）
顯示 輸入 計(jì)算結(jié)果 備注
······平曲線數(shù)據(jù)輸入過程·····
1-ZS,2-FS MS？ 計(jì)算模式選擇，此模式請(qǐng)輸入：2 總共有2種計(jì)算模式供選擇，符號(hào)說明見“二、程序功能”。
X？ 任意點(diǎn)P的X值
Y？ 任意點(diǎn)P的Y值
BJ？ 邊樁夾角 右邊樁與中線夾角，正交為90，斜交另輸
P= P點(diǎn)樁號(hào)
BZ= 邊樁距離 負(fù)值為左邊樁，正值為右邊樁
X？Y？... 本模式循環(huán)計(jì)算


必讀：
1、如果中途關(guān)機(jī)或已知數(shù)據(jù)與上次計(jì)算相同，直接運(yùn)行J-JSMS計(jì)算即可，可不必重新輸入已知數(shù)據(jù)。
2、輸入完程序后，先將計(jì)算器DimZ擴(kuò)展到5以上，否則無法運(yùn)行該程序。

程序輸完后運(yùn)行主程序，以后就可以運(yùn)行第二子程序，這樣快些，除非換了交點(diǎn)

J-PQX (平面數(shù)據(jù)輸入

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