FX5800测量程序_测量5800计算程序
FX5800测量程序由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“测量5800计算程序”。
公路测量坐标计算主程序（正算）
一、SZ-XY（主程序）Lbl 0:4→Dim Z：Cls Lbl 1:Cls:?S ?Z 340000≤S And S＜341480.882Goto A 341480.882≤S And S＜341900.82Goto B 341900.82≤S And S＜343465.805Goto C 343465.805≤S And S＜343885.805Goto D 343885.805≤S And S＜344240.152Goto E 344240.152≤S And S＜344590.152Goto F 344590.152≤S And S＜344913.770Goto G 344913.770≤S And S＜345263.770Goto H 345263.770≤S And S＜349500Goto I 349500≤S And S＜349690.625Goto J 349690.625≤S And S＜350080.625Goto K 350080.625≤S And S＜351523.359Goto L 351523.359≤S And S＜351913.359Goto M 351913.359≤S And S＜352048Goto N Lbl A:Prog“P1” Prog“M1” Goto 0 Lbl B:Prog“P2” Prog“M1” Goto 0 Lbl C:Prog“P3” Prog“M1” Goto 0 Lbl D:Prog“P4” Prog“M1” Goto 0 Lbl E:Prog“P5” Prog“M1” Goto 0 Lbl F:Prog“P6” Prog“M1” Goto 0 Lbl G:Prog“P7” Prog“M1” Goto 0 Lbl H:Prog“P8” Prog“M1” Goto 0 Lbl I:Prog“P9” Prog“M1” Goto 0 Lbl J:Prog“P10” Prog“M1” Goto 0 Lbl K:Prog“P11” Prog“M1” Goto 0 Lbl L:Prog“P12” Prog“M1” Goto 0 Lbl M:Prog“P13” Prog“M1” Goto 0 Lbl N:Prog“P14” Prog“M1” Goto 0
M1（子程序）
1/P→C:(P-R)/(2HPR)→D:180÷π→E Abs(S-O)→W Prog “SUB1”:Cls “XS=”:X⊿ “YS=”:Y⊿
“FS=”:F-90►DMS⊿
公路线路主点要素数据子程序
P1（原始数据，已修改）
45548503.126→U: 506857.907→V: 340000→O: 123°1’4.19’ →G:1480.882→H:1*10→P 451*10→R:0→Q P2（原始数据）
45U=547696.193:V=508099.628:O=341480.882:G=123°1’4.19’:H=420:P=1*10 R=5500:Q=-1 P3（原始数据）
U=547471.850:V=508454.659:O=341900.882:G=120°49’48.62’:H=1564.923:P=5500：R=5500:Q=-1 P4（原始数据）
45U=546870.501:V=509893.716:O=343465.805:G=104°31’39.79’:H=420:P=5500：R=1*10:Q=-1 P5（原始数据）
45U=546775.533:V=510302.810:O=343885.805:G=102°20’24.18’:H=354.347:P=1*10
45R=1*10:Q=0 P6（原始数据）
45U=546699.804:V=510648.971:O=344240.152:G=102°20’24.18’:H=350:P=1*10 R=7000:Q=-1 P7（原始数据）
U=546627.858:V=510991.487:O=344590.152:G=100°54’27.56’:H=323.618:P=7000 R=7000:Q=-1 P8（原始数据）
U=546573.987:V=511310.561:O=344913.770:G=98°15’31.70’:H=350:P=7000 45R=1*10:Q=-1 P9（原始数据）
45U=546529.492:V=511657.712:O=345263.770:G=96°49’35.11’:H=4236.23:P=1*10
45R=1*10:Q=0
P10（原始数据）
45U=546066.740:V=515963.181:O=349500:G=96°58’58.04’:H=190.625:P=1*10
45R=1*10:Q=0 P11（原始数据）
45U=546043.566:V=475046.967:O=349690.625:G=96°58’58.04’:H=390:P=1*10 R=6000:Q=-1
P12（原始数据）
U=546000.351:V=475434.547:O=340000:G=95°7’14.43’:H=1442.734:P=6000 R=6000:Q=-1
P13（原始数据）
U=546044.753:V=476873.123:O=351523.359:G=81°20’36.89’:H=390:P=6000 45R=1*10:Q=-1 P14（原始数据）
45U=546111.787:V=477257.300:O=351913.359:G=79°28’53.31’:H=524.641:P=1*10
45R=1*10:Q=0
公路线路竖曲线计算程序
GMGC(轨面高程)Lbl 1：“S” →？S 340000≤S＜34022975.622+（S-340000）*0.0058→H 340229≤S＜34051977.791-（S-340374）^2/(2*25000)-25000*0.0058*0.0058/2→H 340519≤S＜346018.7576.95-(S-340519)*0.0058→H 346018.75≤S＜346101.2544.812+((S-346060)-25000*(0.0058+0.0025)/2)^2/(2*25000)-25000*0.0058*0.0025/2→H 346101.25≤S＜346628.7544.709-(S-346101.25)*0.0025→H 346628.75≤S＜346691.2543.312+((S-346660)-25000*0.0025/2)^2/(2*25000)→H 346691.25≤S＜348882.543.312→H 348882.5≤S＜348977.543.312-((S-348930)-25000*0.0038/2)^2/(2*25000)→H 348977.5≤S＜350878.7543.132-(S-348977.5)*0.0038→H 350878.75≤S＜351121.2535.446+((S-351000)+25000*(0.0059-0.0038)/2)^2/(2*25000)+ 25000*0.0038*0.0059/2→H 351121.25≤S＜35200036.161+(S-351121.25)*0.0059→H 352000≤S＜35300041.346+(S-352000)*0.0050→H H⊿:Goto 1
三、FX-5800P万能程序(TYQXJS)LB1 0:4→Dim Z:Cls “1.SZ→XY”
“2.XY→SZ”?→N:Cls “X0”?U:“Y0”?V:“S0”?O:“F0”?G:“LS”?H:“R0”？P：“RN”?R:?Q 1÷P→C:(P-R)÷(2HPR)→D:180÷π→E N=2Goto 2 Lb1 1:Cls:?S ?Z:Abs(S-O)→W Prog“SUB1”:Cls “XS=”:X◢
“YS=”Y◢
“FS”:F-90►DMS◢ Goto 1 Lb1 2:Cls:?X ?Y:X→I:Y→J Prog“SUB2”:O+W→S:Cls “S=”:S◢ “Z=”:Z◢ Goto 2
四、方位角、距离计算程序（P-P）
Deg:Fix 3: “XO=”?A:“YO=”?B Lb1 0:“XN=(0 ”YN=“?D Pol(C-A,D-B):Cls If J
”BEARO→N(DMS)=“:F►DMS◢ Goto 0:WhileEnd ”END“
五、子程序
①SUB1(正算子程序)
1÷P→ C：(P-R)÷(2HPR)→ D： 180÷π→ E： 0.1739274226→ A： 0.3260725774→ B： 0.0694318442→ K： 0.3300094782→ L： 1-L→ F：1-K→ M： U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→ X：-
