❶ 求5800隧道測量程序！！！
程序瀏覽:
FileName:RESET 初始化程序
Norm 1:50→C:12345→J
"RESET PW"?I:I=J=>500→DimZ 為資料庫增加額外變數個，在SET、SETPFDYS程序根據實際再增減變數
50→Z[C+22]
"PASSWORDS"?I:I→Z[C+39] 重設要素保護密碼
Cls:Stop
FileName:DATLOCK 要素保護密碼確定認程序
Cls:Norm 1:50→C
"PASSWORDS"?J:Cls:J≠Z[C+39]=>Stop 2008-08-07修改
FileName:SHELL(外殼程序)
50→C ;在擴充變數預留前50個給別的程序用。如不夠就適量加大。RESET，SHELL，SET，SETPFDYS，這幾個程序中C值必需一致
Z[C+35]→I:"STATION-N"?I:I→Z[C+35] 設置測站N坐標
Z[C+36]→I:"STATION-E"?I:I→Z[C+36] 設置測站E坐標
Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]設置測站Z坐標
Z[C+45]→I:"STATION-HI"?I:I→Z[C+45] 設置儀高
Z[C+41]→I:"GC-DH"?I:I→Z[C+41] 放樣點高差常數
Norm 1
Z[C+23]→N當前分段要素N坐標
Z[C+24]→E當前分段要素E坐標
Z[C+25]→M當前分段要素起點樁號
Z[C+26]→H當前分段要素起點方位角（正北）單位：弧度
Z[C+27]→A當前分段要素起點曲率有左偏負右偏正（注意不半徑）
Z[C+28]→R當前分段要素終點曲率有左偏負右偏正（注意不半徑）
Z[C+29]→L當前分段要素長度
Z[C+3]→W
Z[C+32]→I:"DAT1 2 3"?I:I→Z[C+32] 平曲線要素數庫類型選擇1為內置式，2文件式，3實時輸入(查看當前要素值)
0→I
Z[C+4]→I:"1 2 3"?I:I→Z[C+4] 選擇本程序模式默認為坐標正算，1坐標反算，2橫向邊仰坡放樣，3，縱向邊仰坡放樣(隧道進出口用到)
Lbi 1
Z[C+4]→I
I=1=>Prog"TURNZH"
I=2=>Prog"HXBYP"
I=3=>Prog"ZXBYP"
Lbi A
Deg:Norm 1:Cls
Z[C+1]→G:"ZH"?G:G→Z[C+1] ;G樁求樁號
Z[C+2]→B:"JL"?B:B→Z[C+2] ;B橫向距離，左正右負
Lbi B
Prog "ZBjs" ;坐標正算
Prog "GCJS" ;高程計算
Fix 3:Cls ;設置三位小數
"ZH＝":Locate 4,1,G ;第一行顯示樁號
"X＝":Locate 3,2,X ;第二行顯示X(N)坐標
"Y＝":Locate 3,3,Y；第三行顯示Y(E)坐標
Prog "GCJS" ;高程計算
"Z":Locate 2,4,Z+Z[C+41] ；第四行顯示Z坐標
Locate 10,4,Z[C+2] ；第四行顯示橫向距離
0→I
Do:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;鎖定鍵盤，並在幾十秒後自動返回
Getkey=57=> Goto 1
Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]
Pol(Z[C+35]-X,Z[C+36]-Y)
Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]
"DH":Locate 3,2,Z[C+48]:Locate 12,2,Z[C+49]
"FWJ"
J<0=>J+360→J:J◤DMS◢ 2008-08-07 修改
J→Z[C+46]
I→Z[C+47]
Goto 1
FileName：ZBJS 坐標計算程序
Prog"READDAT"
Rad
G-M→Q
IF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEnd
If J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd 直線段直接計算
If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd 圓弧段直接計算
If J=3 :Then Goto 5 :IfEnd
X+BCos(F+W)→X
Y+BSin(F+W)→Y
Deg:Return
Lbi 5 用五點通用坐標計算計算緩和段
0.5(R-A)÷L→K
AQ→I
KQ2→J
0.0469100770→P:H+IP+JP2→U
0.2307653449→P:H+IP+JP2→V
0.5→P :H+IP+JP2→D
0.7692346551→P:H+IP+JP2→F
0.9530899230→P:H+IP+JP2→T
0.1184634425→I
0.2393143352→J
0.2844444444→O
N+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T))→X
E+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISin(T))→Y
H+AQ+KQ2→F
X+BCos(F+W)→X
Y+BSin(F+W)→Y
Deg:Return
FileName:TURNZH(坐標反算)
Norm 1
Z[C+37]→I:"DQD-N"?I:I→Z[C+37] 輸入待求點N坐標
I=-1=>Prog"INFWJDLDH"
Z[C+38]→I:"DQD-E"?I:I→Z[C+38] 輸入待求點E坐標
0→B：M+L÷2→G：Prog"ZBJS"
Lbi S:Rad
Z[C+37]-X→I:Z[C+38]-Y→J
If I=0 And J=0 :Then Goto A:IfEnd
Pol(I,J)
Lbi A:Rec(I,J-F):J→Z[C+2]
G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙
G→Z[C+1]
FileName：INFWJDLDH實測坐標（用方位角，距離，高差）輸入程序
Deg:Norm 1:Cls
Z[C+46]→J:"DQD-FWJ"?J:J→Z[C+46]
Z[C+47]→I:"DQD-DL"?I:I→Z[C+47]
Z[C+48]→K:"DQD-DZ"?K:K→Z[C+48]
Z[C+49]→P:"RHT"?P:P→Z[C+49]
Rec(I,J)
Z[C+35]+I→Z[C+37]
Z[C+36]+J→Z[C+38]
Z[C+44]+Z[C+45]+K-P→Z[C+43]
FileName:HXBYP 橫向邊仰坡放樣程序
Cls:Norm 1
Z[C+40]→I:"QPD-DL"?I:I→Z[C+40] 輸入起坡點與中樁距離常數
Z[C+41]→I:"QPD-DZ"?I:I→Z[C+41] 輸入起坡點與中樁高差常數
Z[C+42]→I:"i"?I:I→Z[C+42] 輸入邊仰坡坡度，左仰坡(路塹)為正，右仰坡(路塹)為負，左邊坡為負，右邊坡為正
Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43] 輸入實測高程
Prog"TURNZH"
Prog "GCJS"
(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→B
Fix 3:B-Z[C+2]◢ 顯示與上一次測點的偏差
B→Z[C+2]
FileName:ZXBYP 縱向仰坡放樣程序(隧道進口使用)
Cls:Norm 1:Z[C+33]→I:"QPD-ZH"?I:I→Z[C+33] 輸入起坡點樁號
Z[C+34]→I:"QPD-Z"?I:I→Z[C+34] 輸入起坡點高程
Z[C+42]→I:"i"?I:I→Z[C+42] 仰坡時(隧道進出口仰坡)，進口為正，出口為負)
Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43] 輸入實測高程
Prog"TURNZH"
Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→G
Fix 3:G-Z[C+1]◢ 顯示與上一次測點的偏差
G→Z[C+1]
FileName:SET 設置程序
1\Lbi S
2\Norm 1
3\50→C
4\50→Z[C+22]
5\0→K
6\Z[C+5]→I:"1 Or 2"?I:I→Z[C+5] ;選擇1線或者2線
7\180Z[C+3]÷π→J:"XZJJ"?J:Jπ÷180→Z[C+3];斜樁夾角
8\If I=1:Then Z[C+8]→Z[C+6]:Z[C+9]→Z[C+7]
9\Z[C+12]→Z[C+16]:Z[C+13]→Z[C+17]:Z[C+18]→Z[C+20]
10\Else Z[C+10]→Z[C+6]:Z[C+11]→Z[C+7]
11\Z[C+14]→Z[C+16]:Z[C+15]→Z[C+17]:Z[C+19]→Z[C+20]
12\IfEnd
13\Z[C+7]+3→Z[C+31]
14\0→I:"1PQX,2SQX,3YSDS"?I ;1輸入平曲線要素，2輸入豎曲線要素，3輸入1、2線夾平豎曲線交點(變坡點)數量以讓程序規劃內存建立要素數據為，其它值退出本程序
15\I≠0=>Prog"DATLOCK" 2008-07-28 18：23修改
16\I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3 2008-07-28 18：23修改
17\Prog"SETPFDYS"
18\Stop
19\Lbi 1 ;平曲線要素輸入部分
20\Z[C+6]→D
21\-1→Z[D+3]
22\For 1→J To Z[C+16]
23\Cls:"PQX":Locate 9,1,J
24\Z[D+1]→I:"N"?I:I→Z[D+1] ;請輸入N坐標
25\Z[D+2]→I:"E"?I:I→Z[D+2] ;請輸入E坐標
26\Z[D+3]→I:"R"?I:I→Z[D+3] ;請輸入半徑R
27\Z[D+4]→I:"LS1"?I:I→Z[D+4] ;請輸入緩和曲線1長度
28\Z[D+5]→I:"LS2"?I:I→Z[D+5] ;請輸入緩和曲線2長度
29\D+5→D
30\Next
31\1→Z[D-2]
32\Goto S
33\Lbi 2 ;豎曲線要素輸入部分
34\Z[C+7]→D
35\-1→Z[D+3]
36\For 1→J To Z[C+17]
37\Cls:"SQX":Locate 9,1,J
38\Z[D+1]→I:"BPDZH"?I:I→Z[D+1] ;請輸入變坡點樁號 2008-08-07修改
39\Z[D+2]→I:"BPDGC"?I:I→Z[D+2] ;請輸入變坡點高程 2008-08-07修改
40\Z[D+3]→I:"R"?I:I→Z[D+3] ;請輸入半徑R 2008-08-07修改
41\D+3→D
42\Next
43\1→Z[D]
44\Goto S
45\Lbi 3 ;要素點數輸入部分
46\Z[C+12]→I:"1PQXDS"?I:I→Z[C+12] ;輸入1線平曲線點數,最小值為3
47\Z[C+13]→I:"1SQXDS"?I:I→Z[C+13] ;輸入1線豎曲線點數,最小值為3
48\Z[C+18]→I:"1JDZH"?I:I→Z[C+18] ;輸入1線平曲線第一個交點的交點樁號
49\Z[C+14]→I:"2PQXDS"?I:I→Z[C+14] ;輸入2線平曲線點數,最小值為3
50\Z[C+15]→I:"2SQXDS"?I:I→Z[C+15] ;輸入2線豎曲線點數,最小值為3
51\Z[C+19]→I:"2JDZH"?I:I→Z[C+19] ;輸入2線平曲線第一個交點的交點樁號
52\C+Z[C+22]→Z[C+8] 1線路平曲線要素指針偏移基數
53\Z[C+8]+5Z[C+12]→Z[C+9] 1線路豎曲線要素指針偏移基數
54\Z[C+9]+3Z[C+13]→Z[C+10] 2線路平曲線要素指針偏移基數
55\Z[C+10]+5Z[C+14]→Z[C+11] 2線路豎曲線要素指針偏移基數
56\Z[C+11]+3Z[C+15]→Z[C+21] 要素資料庫結束指針
57\Z[C+21]+1→Z[C+30]
58\Z[C+21]→DimZ 增加額外變數
59\-1→K
60\Goto S
❷ 卡西歐5800測量程序
可以登陸亦文軒文具網免費下載測量程序
Fx-5800價格和fx-4850相當，但程序不能共享，Fx-5800的編程語言更接近BASIC程序語言。
2、5800變數輸入語句改為?，賦值語句改為—＞。程序中和1850一樣，除可以使用26個字母變數A~Z存儲數據和獨立於字母變數存儲器的額外變數存儲器Z[1]，Z[2]，Z[3]，Z[4]……外，另外可以使用統計串列存儲器List X，List Y，List Freq。
3、程序命令由4850的16個增加到了34個，取消了⊿、≠=>、｛｝命令，使得由⊿、≠=>、｛｝等重要程序命令構成的fx-4850程序無法在5800上運行。
同時，5800的條件語句修改為更易於使用的If~Then~Else~IfEnd形式，新增For~To~Step~Next循環、條件循環Do~LpWhile與While~WhileEnd語句。
4、5800增加了數據通訊功能，使用SB-62數據線連接好兩台機器的3Pin通訊口可方便地傳輸程序與數據，避免了4850隻能以手工輸入的方式錄入程序，容易出現程序輸入錯誤的弊端。
5、5800有矩陣計算功能，可以編寫嚴密平差程序時組成與解演算法方程，能夠滿足測量專業測量平差編程的計算要求。同時字母變數除了可以輸入26個大寫英文字母外，還能用小寫英文字母、希臘字母。
現在購買的可以送大禮包，
FX-5800P計算器大禮包說明：
1.FX-5800P計算器
2.SB-62(與fx-5800配套進口的數據線)
3.<<casioFX-4800P/4850P與FX-5800P編程計算器功能比較與程序轉換>>覃輝編著 同濟大學出版社（與書配套程序）全路段主線坐標正反算（正交/斜交）
匝道全段坐標正反算（正交/斜交) 全路段中邊樁高程（帶超高，加寬）
有電子版的範例，初學者使用簡單，快捷.讓你短時間成為一個熟練的測量者
4.FX-5800P與FX-4800P/FX-4850P語言的對比及特點說明
❸ 卡西歐5800公路測量程序
CASIO fx—5800計算器 工程測量與公路測量程序
1、坐標正算
＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J
X+ICos(J)→U:Y+ISin(J)→V
＂X=″:U （待求點的坐標）
＂Y=″:V （待求點的Y坐標）
說明：X0 Y0：已知點坐標I：兩點的距離J：方位角
2、坐標反算
Lbl 0
＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V
Pol(U-X,V-Y):
J<0 J+360→J
＂I=″:I
＂J=″:J DMS
GOTO 0
說明：X1Y1：第一點的坐標，X2Y2第二點的坐標，I：兩點的距離，J：方位角
3、圓曲線
＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R
Lbl 1
＂DQHAO=″?L
L<G Or L＞C GOTO 2
＂PY=″?K
180(L-G)÷(πR) →E
2RSin(0.5E) →F
ReC(Abs(F),D+0.5E)：Cls
＂X=″:X+I+KCos(D+E+90) →A
＂Y=″:Y+J+KSin(D+E+90) →B
D+E→o:o<0 360+o→0o
＂FWJ=″:o DMS
Goto 1
Lbl 2
＂END″
說明：X0Y0：起始點的坐標，FWJ：起始點的方位角，QDHAO：起點里程，ZDHAO終點里程，R：半徑，DQHAO：待求點里程，PY：偏移量
4、豎曲線
＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:
((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S
＂T″:S
J-T→X
J＋T→Y
Lbl 0
＂DQ=″?L
If L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End
＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H
Goto 0
Lbl 1
＂END″
說明：QZHAO：曲中點里程，H+B：曲中點高程，I1：第一坡度，I2：第二坡度，R：半徑，T：切線長，DQ：待求點里程。
5．正算偏移
＂X0=″?A: ＂Y0=″?B:＂FWJ=″?D:
Lbl 0
＂LS=″?L: ＂PY=″?C
ReC(L,D)
＂X=″:A+I+CCos(D+ 90) →X
＂Y=″:B+J+CSin(D+ 90) →Y
Goto 0
說明：X0 Y0：已知點坐標，LS：兩點距離，FWJ：方位角
6.萬能公式
＂X0=″?A:＂Y0=″?B:＂FWJ=″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F:
＂ZDHAO″?G
Lbl 1
＂DQHAO=″?H:＂PY=″?o
If H<F:Then Goto 2:Else If H＞G:Then Goto 2:If End:IfEnd
(E-D)÷Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K
A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:
B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V
＂X=″:U+oCos(J+90) →X
＂Y=″:V+oSin(J+90) →Y
＂FWJ=″: J DMS
Goto 1
Lbl 2
＂END″
說明：X0Y0：起開點坐標，FWJ：起開點方位角，1÷R-QD：起開點曲率，1÷R-ZD終點曲率，QDHAO：起點里程，ZDHAO終點里程，DQHAO：待求點里程，XY：待求點坐標
6、標高計算
＂QZHAO=″?J:＂QDHAO=″?G:＂ZDHAO=″?K:＂B—HB=″?B:＂SX=″?Q:＂I1=″?C:
＂I2=″?D:＂R=″?R:＂T=″?T
(D-C)÷100→W:W÷Abs(W)→A:＂T″:0.5RAbs(W) →S
＂o-YIGAO=″?o
J-T→X:J+T→Y
Lbl 1
＂L—DQHAO=″?L:＂PY=″?U:＂XIELV=″?V
If L<X:Then Goto 2:Else If L＞Y:Then Goto 3:If End:I End
＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q
＂HO=″:o-H→Z
Goto 1
Lbl 2
L<G Goto 4
＂HL=″:B+0.01 (L-J)C+0.01UV+Q →H
＂H0=″:o-H→H
Goto 1
Lab 3
L>K Goto 4
＂HL=″:B+0.01 (L-J)D+0.01UV+Q →H
＂HO=:o-H→Z
Goto 1
Lbl 4: ＂END″
說明：QZHAO：曲中點里程（豎曲線），QDHAO：起點里程，ZDHAO：終點里程，B—HB曲中點高程，SX：上下（路面標高下多少為水穩層面），I1：第一坡度，I2：第二坡度，R：半徑，T切線長，L—DQHAO：待求點里程，PY：偏移（中樁到邊樁的距離），XIELV：斜率（橫坡的坡度，左負右正）o-YIGAO：儀器高
❹ 我是做房建測量的用卡西歐5800要用到哪個預裝程序土方開挖，軸線上任一點坐標，水準測量
一、 坐標計算源程序 1.主程序(TYQXjs) "1.SZ => XY"：專"2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠屬>Go to 2Δ←┘ Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X。
❺ 5800計算器編程，測量。
1，熟悉卡西歐5800裡面所有牽扯到測量的功能。2，fx-5800裡面的編程語言basic的一些語法，並回結合測量的例子來說明。這答樣跟容易今後上手。3，對一些例子的分析，包括思路和語法講解。4，在實際工作中，用到最多的函數和程序的分享。最後聲明一點，一定要動手，就是看著文章，手裡面要拿個5800，要不然一切都是白扯。這系列fx-5800教程是默認為會用fx-5800輸入一些基本的字元的。這些都可以參考fx-5800的說明書。電子版fx-5800說明書下載。這里在灌輸一個編程思想。編程要有個思路，1、輸入部分。2、計算部分。3、輸出部分。比方說要正算方位角，首先知道A（x,y）,b(m,n)這是輸入部分。計算部分：pol（x-m,y-n）輸出部分：i,j（i=兩點的距離，j=兩點的方位角）這就是編程。測量上的編程，把它轉化為5800程序就是1"x"?x:"y"?:"m"?m:"n"?n23pol(x-m,y-n)45i◣：j◣
❻ 求卡西歐5800P公路測量程序
5800放樣程序
主程序：
Cls: 30 →Dimz↙
Lb1 1 「=」?K ◢（計算里程）
「xian lu? Z:1 R:2」? T◢
If T=1: Then Prog 「子程序左線要素「:Else Prog 「子程序右線要素「: Ifend: I f O=0:Then Goto 3:Else :Goto 2:Ifend Z[22]↙
LB1 2 ↙（曲線要素計算）
Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙ （M1）
Z[7]/2- Z[7]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙ （M2）
Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙ （P1）
Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙ （P2）
π*A*R/180+0.5*( Z[6]+ Z[7])→S ↙ （曲線總長）
90* Z[6]/(R*π) →Z[14] ↙ （第一緩和曲線總偏角）
90* Z[7]/(R*π) →Z[15] ↙（第二緩和曲線總偏角,可以省略）
Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12]↙ (切線T1)
Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13]↙ (切線T2)
B+ Z[12]*COS (E+180)→ Z[16] ↙ （ZH點X）
C+ Z[12]*SIN(E+180)→ Z[17] ↙ （ZH點Y）
Z[1]-S→Z[3] ↙ (ZH點里程)
Z[3]+ Z[6]→Z[4] ↙ (HY點里程)
Z[1]- Z[7]→Z[5] ↙ (YH點里程)
GOTO 3 ↙
LB1 3 ↙(判斷里程點與曲線關系)
IF K≤Z[3] AND K> Z[2] : THEN GOTO 4 : IFEND ↙
IF K≤Z[4] AND K> Z[3] : THEN GOTO 5 : IFEND ↙
IF K≤Z[5] AND K> Z[4] : THEN GOTO 6 : IFEND ↙
IF K≤Z[1] AND K> Z[5] : THEN GOTO 7 : IFEND ↙
LB1 4 ↙（里程小於直緩點直線獨立坐標）
K- Z[2] →X : 0→Y : E→Z[22] : GOTO 8 ↙
LB1 5 ↙（第一緩和曲線獨立坐標）
K- Z[3] →H ↙
H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →X ↙
H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Y ↙
90*H^2/( R*π* Z[6]) →Z[22] ↙
IF O>0 ：THEN Z[22] +E→Z[22] : ELSE -Y=Y: E- Z[22] →Z[22] : Z[22]<0=>360+ Z[22]→Z[22] : IFEND ：GOTO 8 ↙
LB1 6 ↙（圓曲線獨立坐標）
K- Z[4] →H ↙
H*180/( R*π)+ Z[14]→Z[22] ↙
R*SIN T+ Z[8]→X ↙
R*(1-COS T)+ Z[10]→Y ↙
IF O>0 ：THEN Z[22] +E→Z[22] : ELSE -Y=Y: E- Z[22] →Z[22] : Z[22]<0=>360+ Z[22]→Z[22] : IFEND :GOTO 8 ↙
LB1 7 ↙（第二緩和曲線獨立坐標）
Z[1] -K →H ↙
H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7]^4) →U↙
H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙
90*H^2/( R*π* Z[7]) →Z[22] ↙
Z[13]COS A+ Z[12]-U*COS A-V*SIN A→X ↙
Z[13]*SIN A-U*SIN A+V*COS A→Y ↙
IF O>0 ：THEN F- Z[22]→Z[22] : Z[22]<0=>360+ Z[22]→Z[22] : ELSE -Y=Y: F+ Z[22] →Z[22] : IFEND ：GOTO 8
LB1 8 IfO <0:Then -Y→Y: Ifend ↙
Z[16]+X*COS E-Y*SIN E→Z[18] ↙
Z[17]+X*SIN E+Y*COS E→Z[19] ↙
「Bian ju=」?D◢ （輸入邊樁距）
If D=0:Then GOTO 9: ELSE GOTO A: IFEND ↙
LB1 9
「X=」: Z[18] ◢（中線X）
「Y=」: Z[19] ◢（中線Y）
Pol(Z[18]-M,Z[19]-N):"DI=":I（中樁放樣距）◢J<0=>J+360→J:"FI=":J→DMS◢（中樁放樣方位角）GOTO 1:RETURN↙
LB1 A 「PJ(L-R+)=」?P◢ (輸入邊樁與線路夾角，左-右+)
Z[18]+D*COS(Z[22]+P) →Z[20] ↙
Z[19]+D*SIN(Z[22]+P) →Z[21] ↙
「X=」: Z[20] ◢ （邊樁X）
「Y=」: Z[21] ◢ （邊樁Y）
Pol(Z[20]-M,Z[21]-N):"DP=":I◢（邊樁放樣距）J<0=>J+360→J:"FP=":J→DMS◢（邊樁放樣方位角）GOTO 1:RETURN↙
LB1 9
「QXJ=」 : Z[22]◢ （計算里程點切線方位角，可以不顯示）
子程序一左線要素：
IF K<本段直線終點里程 AND K≥本段直線起點里程:THEN 0→O:本段直線終點里程→Z[3]: 上段曲線終點里程→Z[2]：起點X→Z[16]:終點Y→Z[17]:方位角→E : IFEND
:IF K<本段曲線終點里程 AND K≥本段直線起點里程：THEN 本段終點里程→Z[1] : 上段曲線終點里程→Z[2] ：1→O （註：左偏曲線輸入-1→O,右偏曲線輸入1→O）: 偏角→A：半徑→R : 第一緩和曲線→Z[6] : 第二緩和曲線→Z[7] : 交點 X→B :交點 Y→C : 小里程向交點方位角→E : 交點向大里程方位角→F : IFEND↙
子程序二右線要素：
IF K<本段直線終點里程 AND K≥本段直線起點里程:THEN 0→O:本段直線終點里程→Z[3]: 上段曲線終點里程→Z[2]：起點X→Z[16]:終點Y→Z[17]:方位角→E : IFEND
:IF K<本段曲線終點里程 AND K≥本段直線起點里程：THEN 本段終點里程→Z[1] : 上段曲線終點里程→Z[2] ：1→O （註：左偏曲線輸入-1→O,右偏曲線輸入1→O）: 偏角→A：半徑→R : 第一緩和曲線→Z[6] : 第二緩和曲線→Z[7] : 交點 X→B :交點 Y→C : 小里程向交點方位角→E : 交點向大里程方位角→F : IFEND↙
子程序三：
CLS : FIX 4 : 30→DIM Z ↙
「XHS="?G(後視點X):"YHS="?L(後視點Y):"XZJ="?M(置鏡點X):"YZJ="?N(置鏡點Y):Pol(G-M,L-N):"DH=":I(後視距)◢J<0=>J+360→J:"FH=":J→DMS◢(後視方位角)
❼ 5800土方量計算程序
想用5800計算土方量？不知道你是怎麼想的。。。
方量較大的高程，版用CASS都要卡十幾秒權，用5800怎麼算得出來呢？就算有每格方格網的數據，光是輸入已知條件起碼就要個把星期
童鞋，請自行網路CASS自學吧
❽ fx-5800P_方格網法土方量通用計算程序P10-4中n怎麼輸入
我有破解版的飛時達計算軟體，可以永久使用的，你要嗎？