fx－5800魔鬼程序終結(jié)版（好友提供，感謝）

程序 DD (線路調(diào)度)

2000→Dimz↙ 擴(kuò)展額外變量（根據(jù)內(nèi)存情況定義）

''：'Z A B C D E F G'↙ 從8條線路中選擇1條

Do↙

IfGetkey=27：Then 45→Z[41]：305→Z[42]：386→Z[43]：Break：IfEnd↙

IfGetkey=51：Then440→Z[41]：672→Z[42]：744→Z[43]：Break：IfEnd↙

If Getkey=52：Then 792→Z[41]：996→Z[42]：1059→Z[43]：Break：IfEnd↙

If Getkey=53：Then1101→Z[41]：1277→Z[42]：1331→Z[43]：Break：IfEnd↙

IfGetkey=54：Then1367→Z[41]：1515→Z[42]：1560→Z[43]：Break：IfEnd↙

IfGetkey=55：Then1590→Z[41]：1710→Z[42]：1746→Z[43]：Break：IfEnd↙

IfGetkey=56：Then1770→Z[41]：1862→Z[42]：1889→Z[43]：Break：IfEnd↙

IfGetkey=43：Then1907→Z[41]：1971→Z[42]1989→Z[43]:Break:IfEnd↙

LpWhile Getkey≠73↙

Z[41]

4.數(shù)據(jù)輸入：SR

Z[41→C ：Z[42→W ：Z[43→M←┘

”PW”?N:N≠2013=>Step←┘ 輸入密碼 2013

“ZB1,GC2,CG3” ?N:Cls: 坐標(biāo)數(shù)據(jù)按1，高程數(shù)據(jù)按2，超過數(shù)據(jù)按3。

N=2＝>Goto 2：N=3＝>Goto 3：

Lbl 1:

Z[C→A: ”K”?A: A→Z[C]: 輸入線源起點(diǎn)樁號(hào)

Z[C+1→A: ”X”?A: A→Z[C+1]: 輸入線源起點(diǎn)坐標(biāo)X

Z[C+2→A: ”Y”?A: A→Z[C+2]: 輸入線源起點(diǎn)坐標(biāo)Y

Z[C+3→A: ”FW”?A: A→Z[C+3]: 輸入線源起點(diǎn)切線方位角

Z[C+4→A: ”P”?A: A→Z[C+4]: 輸入線源起點(diǎn)半徑

Z[C+5→A: ”R”?A: A→Z[C+5]: 輸入線源終點(diǎn)半徑

Z[C+7→A: ”Q”?A: A→Z[C+7]: 輸入線源方向，直線輸入0，左轉(zhuǎn)輸入-1，右轉(zhuǎn)輸入1

C+7→C: Goto 1←┘

Lbl 2:

Z[W→A: ”GC”?A: A→Z[W]: 輸入變坡點(diǎn)高程

Z[W+1→A: ”JD”?A: A→Z[W+1]: 輸入邊坡點(diǎn)樁號(hào)

Z[W+2→A: ”R”?A: A→Z[W+2]: 輸入豎曲線半徑（起點(diǎn)與終點(diǎn)半徑輸入0）

W+3→W: Goto 2←┘

Lbl 3:

Z[M→A: ”Q(-Z+Y)”?A: A→Z[M]: 輸入平曲線方向，左轉(zhuǎn)輸入-1 右轉(zhuǎn)輸入1。

Z[M+1→A: ”QK”?A: A→Z[M+1]: 輸入超高起點(diǎn)樁號(hào)

Z[M+2→A: ”HY”?A: A→Z[M+2]: 輸入緩圓點(diǎn)樁號(hào)

Z[M+3→A: ”YH”?A: A→Z[M+3]: 輸入圓緩點(diǎn)樁號(hào)

Z[M+4→A: ”ZK”?A: A→Z[M+4]: 輸入超高終點(diǎn)樁號(hào)

Z[M+5→A: ”ⅰ”?A: A→Z[M+5]: 輸入超高最大橫坡

M+6→M: Goto 3←┘

1.正算主程序 GSZS

？K：'L(-Z ,+Y) '？L：'W(+Q, -H) '?W：”α”？M：

Prog'SUB1'：X+Lcos(F+M→X：Y+Lsin(F+M→Y：

'T(0,1)'？T ：

If T=0：Then X+Wcos(F)→X： Y+Wsin(F)→Y：

Eles X+Wcos(F+M-90→X： Y+Wsin(F+M-90→Y：

If End：Cls:

'FWJ=': Loscate 5,1,F°:

”X=”：Loscate 3,2,X :

”Y=”：Loscate 3,2,Y←┘

Prog' SJGC '：

＂SJGC=＂：Locate 6,1,H

2. 反算主程序 GSFS

X：X→U：?Y: Y→V ：

Z[41→C:

Z[C]+Abs((Y-Z[C+2])Cos(Z[C+3]-90)-(X-Z[C+1])Sin(Z[C+3]-90))→K: Lbl 0：Prog 'SUB1'：Pol(U-X,V-Y):

Rec(I,J-F:I+K→K

Abs(I)＞0.001=> Goto 0：J→A:Cls:

”K=”:Locate3,1, K :

”L=” Locate3,2,A←┘

3. 正算子程序(SUB1) 不獨(dú)立運(yùn)行，供其他程序調(diào)用

Z[41→C: Lbl 1: Z[C→O: Z[C+7→H: If K≥OAnd K≤H: Then Z[C+1→N: Z[C+2→E:Z[C+3→G: Z[C+4→P: Z[C+5→R: Z[C+6→Q: Goto 0: If End：

C+7→C: Goto 1←┘

Lbl 0:

(P-R)÷(2(H-O)PR)→D：Abs(K-O)→J：

0.1184634425→Z[1]:0.2393143352→Z[2]:0.2844444444→Z[3]: 0.0469100770→Z[4]:0.2307653449→Z[5]:

N+J(Z[1]cos(G+QZ[4]J(1÷P+ Z[4]JD)×180÷π)

+ Z[2]cos(G+QZ[5]J(1÷P+ Z[5]JD)×180÷π)

+ Z[3]cos(G+0.5QJ(1÷P+0.5JD)×180÷π)

+ Z[2]cos(G+Q(1- Z[5])J(1÷P+(1- Z[5])JD)×180÷π)

+ Z[1]cos(G+Q(1- Z[4])J(1÷P+(1- Z[4])JD) ×180÷π))→X:

E+J(Z[1]sin(G+Q Z[4]J(1÷P+ Z[4]JD)×180÷π)

+ Z[2]sin(G+Q Z[5]J(1÷P+ Z[5]JD)×180÷π)

+ Z[3]sin(G+0.5QJ(1÷P+0.5JD)×180÷π)

+ Z[2]sin(G+Q(1- Z[5])J(1÷P+(1- Z[5])JD)×180÷π)

+ Z[1]sin(G+Q(1- Z[4])J(1÷P+(1- Z[4])JD) ×180÷π))→Y：

G+QJ(1÷P+JD) ×180÷π→F：

F＞360＝＞F-360→F: F＜0＝＞F+360→F:Return

高程主程序（SQXYS）

＂Z?。?Z:＂Y?。?S:

Lbl 3：Z→P: S→Y:?K：＂ZBJ＂?L：＂YBJ＂?B：＂JGC＂?T： Prog＂GC＂←┘

0→Q : Z[43→C：

Lbl 5：Z[C→Q：

If Q=1:Or Q=-1 : Then Z[C+1→E: Z[C+4→J: If K≥EAnd K≤J: Then Z[C+2→F: Z[C+3→I: Z[C+5→G: Goto 6: If End：C+6→C:Goto 5: If End：

Lbl 6：Q=0＝>Goto 2：Q=-1＝>Goto 1：

If Q=1: And K

Else If Q=1 And K

Else If Q=1 And K

If End：If End：If End:P >-S＝>-P→Y:Goto 2：←┘

Lbl 1：

If Q=-1: And K

Else If Q=-1 And K

Else If Q=-1 And K

If End：If End：If End :Y>- Z: >-Y→P:←┘

Lbl 2：Cls:

＂SJGC=＂：Locate6,1,H-T

＂ZGC=＂：Locate6,2,HL÷(L+0.000001)+LP-T

＂YGC=＂：Locate6,3,HB÷(B+0.000001)+BY-T◢

Cls: Goto 3:

輸入：Zⅰ=左橫坡、Yⅰ=右橫坡、 K=樁號(hào)

ZBJ=左邊距、YBJ=右邊距、JGC=結(jié)構(gòu)層厚度

顯示：SJGC=中樁高程， ZGC=左邊樁高程，YGC=右邊樁高程

高程子程序：（GC ）不獨(dú)立運(yùn)行，供其他程序調(diào)用

Z[42→C：C+3→C←┘

Lbl 0←┘

(Z[C]- Z[C-3])÷(Z[C+1]- Z[C-2])→E:

(Z[C+3]- Z[C])÷(Z[C+4]- Z[C+1])→F:

If K≤Z[C+1]+Abs（E-F）×Z[C+2]÷2: Then Z[C→H: Z[C+1→D: Z[C+2→R:

Goto 4: If End:C+3→C: Goto 0←┘

Lbl 4←┘

D- Abs（E-F）R÷2→O: E -R→R←┘

If K≤O: Then H+(K-D)E→H：Else H+(K-D)E- (O-K)^2÷2÷R→H：If End ←┘

程序（ COPY ） (數(shù)據(jù)庫(kù)復(fù)制—— 整理數(shù)據(jù)庫(kù)的工具)

'PW'?N：N≠2013=> Stop↙ 保護(hù)密碼 ?

A：?B：?N↙ 源地址? 目標(biāo)地址? 數(shù)據(jù)單元個(gè)數(shù) ?

0→T↙Do↙IszT↙

Z[A→Z[B]↙

Isz A：IszB↙

LpWhileT<>

A

一、程序功能及原理

1.功能說明：

本程序由三個(gè)主程序——正算主程序(GSZS)、反算主程序(GSFS) 、高程主程序（SQXYS）和兩個(gè)子程——正算子程序(SUB1)、高程子程序（SJGC）組成，可以根據(jù)——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、起點(diǎn)曲率半徑、止點(diǎn)曲率半徑），縱段的要素（變坡點(diǎn)高程變坡點(diǎn)樁號(hào)豎曲線半徑）對(duì)全線范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算和中邊樁高程及超高計(jì)算。本程序可以在CASIO fx-5800P計(jì)算器上運(yùn)行?？蓪?shí)現(xiàn)坐標(biāo)正反算和高程及超高的全線貫通。

2．計(jì)算原理：

坐標(biāo)正反算利用Gauss-Legendre 5點(diǎn)通用公式。

二、說明

程序 DD (線路調(diào)度)

根據(jù)線路數(shù)據(jù)量大小和內(nèi)存使用情況設(shè)置數(shù)據(jù)庫(kù)起始地址，(數(shù)據(jù)庫(kù)按先后順序依次為（平曲線、豎曲線、超高)注意不要重疊，不要和數(shù)據(jù)庫(kù)起始地址寄存器沖突，為合理利用內(nèi)存可把數(shù)據(jù)庫(kù)起始地址寄存器設(shè)置在擴(kuò)展存儲(chǔ)區(qū)的最高端。其實(shí)這一步就是改變程序中帶下劃線處的紅色數(shù)字,不帶下劃線的程序不要改變。

數(shù)據(jù)輸入程序：（SR）

1，坐標(biāo)數(shù)據(jù)（1）樁號(hào)：當(dāng)線路最后一段線源輸入完畢后要輸入終點(diǎn)樁號(hào)。

（2）半徑：當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次代替。當(dāng)線元為圓曲線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。

當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；起點(diǎn)與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；止點(diǎn)與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。

當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；起點(diǎn)與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；止點(diǎn)與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。

2，高程數(shù)據(jù)：當(dāng)起點(diǎn)或終點(diǎn)不是變坡點(diǎn)，半徑R輸入0。

主程序輸入與顯示：

(1)輸入部分：

正算時(shí)可輸入里程K、左右邊距'L(-Z,+Y) '（當(dāng)所求點(diǎn)位于中線時(shí)，L=0；當(dāng)位于中線左側(cè)時(shí)，L取負(fù)值；當(dāng)位于中線右側(cè)時(shí)，L取正值）、前后距離'W(+Q, -H) ' (W計(jì)算構(gòu)造物角點(diǎn)用，如果不需要可輸入0，當(dāng)位于K前側(cè)時(shí)，W取正值；當(dāng)位于K后側(cè)時(shí)，W取負(fù)值)、右交角M（0～180的正值）、及判斷計(jì)算模式'T(0,1)'（當(dāng)構(gòu)造物是斜交時(shí)輸入0計(jì)算平行四邊形，輸入1計(jì)算矩形）可實(shí)現(xiàn)全線坐標(biāo)高程計(jì)算，反算時(shí)可僅輸入實(shí)測(cè)點(diǎn)坐標(biāo)X Y，即可算出該點(diǎn)所對(duì)應(yīng)的線路的里程樁號(hào)和左右偏距。

（2）顯示部分：

X=×××正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)Y=×××正算時(shí)，計(jì)算得出的所求點(diǎn)的Y坐標(biāo)

SJGC=×××計(jì)算得出中樁設(shè)計(jì)高程，

K=××× 反算時(shí)，計(jì)算得出的所求點(diǎn)的里程

L=××× 反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距

放樣程序 FY

Prog”GSZS”：？X：？Y：Prog”LTKZD”:？L: ？P: Pol(N-U，E-V):

J<0＝>J+360→J: “HSJL=”:I◢

J→O:If X=0: Then U+LCos(J+P)→U:V+LSin(J+P)→V:

”X=”:U◢:”Y=”:V◢: Eles Pol(X-U, Y-V): J<0＝>J+360→J:

J→H:H-O→J:J<0＝>J+360→J:“ANG=”:J◢“QSJL=”:I◢

凌鐵大橋控制點(diǎn)數(shù)據(jù)庫(kù) LTKZD

C=23:D=24:E=25:F=26:G=27:H=28:I=29←┘:

A: If A=11 Then****→U:****→V :Goto 0: Return: If End←┘

If A=12 Then****→U:****→V :Goto 0: Return: If End←┘

If A=13 Then****→U:****→V :Goto 0: Return: If End←┘

If A=15 Then****→U:****→V :Goto 0: Return: If End←┘

(注：如有多個(gè)控制點(diǎn)繼續(xù)添加入數(shù)據(jù)庫(kù)LTKZD中)

Lbl 0：?B :

If B=11 Then ****→N:****→E: Return: If End←┘

If B=12 Then ****→N:****→E: Return: If End←┘

If B=13 Then ****→N:****→E: Return: If End←┘

If B=15 Then ****→N:****→E: Return: If End←┘

(注：如有多個(gè)控制點(diǎn)繼續(xù)添加入數(shù)據(jù)庫(kù)LTKZD中)

無定向程序（WDXDX）

＂JSDS=＂?→N: ＂QX=＂?U: ＂QY=＂?V: ＂ZX=＂?X: ＂ZY=＂?Y:Pol(X-U,Y-V):J→B: J→Q: U→E: V→F:B-180→B:0→T:

For 0→I To N

＂JIAODU=＂?A: A→Z[4I+1]: B+180+ Z[4I+1]→Z[4I+1]: Z[4I+1]→B:

＂JULI=＂?D: D→Z[4I+2]: T+Z[4I+2]→T

E+Z[4I+2]Cos(B)→Z[4I+3]: F+Z[4I+2]Sin(B)→Z[4I+4]:

Z[4I+3]→E: Z[4I+4]→F:

Next

Pol(E-U,F-V): Q-J→O: U→E: V→F:

For 0→I To N

E+Z[4I+2]×Cos(Z[4I+1]+O)→Z[4I+3]:

F+Z[4I+2]×Sin(Z[4I+1]+O)→Z[4I+4]:

Z[4I+3] →E: Z[4I+4]→F:

Next

E-X→E: F-Y→F: Cls:＂K=＂:T÷√(E2+F2)◢

0→C

For 0→I To N

C+[4I+2]→Z[4I+2]: Z[4I+2]→C:

Z[4I+3]-E÷T×Z[4I+2]→Z[4I+3]

Z[4I+4]-F÷T×Z[4I+2]→Z[4I+4]

Cls:

＂X=＂: Locate2,1,I+1: Locate 3,1,”=”: Locate 4,1, Z[4I+3]

＂Y=＂: Locate2,2,I+1: Locate 3,2,”=”: Locate 4,2, Z[4I+4]

Next

測(cè)量構(gòu)造物位置程序（ZBFS）

K:?M: Prog'SUB1'：Cls:'Z(0),X（1）'？T ：Lbl 1: 'X='？U：'Y='？V：

Pol(U-X,V-Y: Rec(I,F+M-J:

If T?0: Then I-Jtan(90-M) →I:J ÷cos(90-M) →J: If End ←┘

Cls:'ZY=':Locate 4,1, I ”L=”Locate 4,2,J◢←┘Goto 1:

（1）輸入部分：

？U 所求點(diǎn)X坐標(biāo)

？V 所求點(diǎn)Y坐標(biāo)

？K 基準(zhǔn)點(diǎn)樁號(hào)

？T 判斷正算,斜算

(2)顯示部分X 所求點(diǎn)距基準(zhǔn)點(diǎn)距離（右為正，左為負(fù)）

Y所求點(diǎn)距基線的前后距離（前為正，后為負(fù)）

錐坡（ZHUIPO）

？K：'L(-Z ,+Y) '？L：”α”？M： Prog'SUB1'

X+Lcos(F+M→X：Y+Lsin(F+M→Y：Cls:

'HS'？A ：' HJ '？B ：'P1'？E ：'P2'？Z ：

'0T(0)，WT（1）'？T ：

Lbl 1：？N ：

E（A-B）N÷sin(M→U ：L＜0＝>-U→U：

Z（A-B）÷sin(M)√(1- N2) →V ：T?0：＝> - V→V：

Cls:

'X='：Locate 3,1,X+U cos(F+M)+ V cos(F

'Y='：Locate 3,2,Y+U sin(F+M)+V sin(F:

Goto 1：

輸入部分：

HS 錐頂高程

HJ 錐基高程

P1 坡率1（橫橋向）按1：M表示

P2 坡率2（縱橋向）按1：N表示

T 0號(hào)臺(tái)輸入0，橋尾輸入1

N 將長(zhǎng)軸a分成N等份以小數(shù)表示

隧道超欠挖程序：（CQW）

“H1=” ？Z：輸入實(shí)測(cè)高程

Prog”GSFS”: Prog”SJGC”:

”SJGC=”:Locate 6,3,H

IF Z-H>5.845:Then 7.45→R：0.45→G：0→L：Else

IF Z-H≤5.845 And Z-H>-1.169:Then 6→R：1.5→G：1→L：Else

IF Z-H<-1.169:then 16.5→r：14.05→g：0→l：ifend:="" ifend:="">

“+C-Q=”: Locate 6,4,√((Abs(A)- L)2+(Z-H-G)2)-R

紅色數(shù)字為上、下圓弧的弦線高程減去路面設(shè)計(jì)高程（例如下圓弧弦線高程減去設(shè)計(jì)高程等于-1.169）

說明：R=圓半徑：G=圓心至路面設(shè)計(jì)高程之差（如果圓心位于路面以下要輸入負(fù)值） ： L=圓心至隧道中心線的左右偏距（無論左右均為正值）

顯示：

K=××× 反算計(jì)算得出的所求點(diǎn)的里程

L=××× 反算計(jì)算得出的所求點(diǎn)的邊距

SJGC=中樁高程，

+C-Q=超欠挖“+”為超挖“-”為欠挖

鏈接: http://pan.baidu.com/s/1sj15Put 密碼: j5ar

更多精彩請(qǐng)關(guān)注微信號(hào)：37655317