5800全線直曲計(jì)算程序通用

1、經(jīng)實(shí)踐在 5800 上可行，反算運(yùn)行時(shí)間就是慢點(diǎn)有 4 秒左右才出 結(jié)果。 5800 測量程序加入了數(shù)據(jù)庫，綜合了網(wǎng)上的一些而成。非本 人原創(chuàng)，希望能與廣大朋友交流。 5800 坐標(biāo)正反程序 ( 加入了數(shù)據(jù)庫 )1. 主程序 (TYQXJS)Lbl 4 ：1.SZ = XY ：2.XY = SZ ：？N ：？S：Prog “SUB0 ”/1 -PTC: (P-R) +(2HPR) TD:180 +n E:N=1= Gotol :Goto2 : /Lbl 1:? Z : Abs(S-O) tw : Prog SUB1 : XS二:X 丄YS= : Y丄 F-90 t f :“FS二 ” :F D

2、MS 丄 Goto4 /Lbl 2 ？X ？Y XTI YTJ Prog“SUB2 ” O+W TS “S=”SJ “Z= ” : Z 丄 Goto4 /2. 正算子程序 (SUB1)0.26 TA0.74 TB 0.02 TK 0.82 TL 1-LTF 1-K TM/U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+ Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)T XV+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+B sin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)T

3、YG+QEW(C+WD)+90 TF X+Zcos (F)TXY+Zsin (F)TY2. 反算子程序 （SUB2）G-90 T: Abs（Y-V）cos（T）-（X-U）sin（T） W: 0Z: Lbl 0 :Prog SUB1 ：T+QEW（C+WD） L: （J-Y）cos （L）-（I-X）sin （L）Z: IF Abs（Z） 0.000001 : Then0 Z:Prog SUB1 :（J-Y）sin （F） ZElse W+Z W:Goto4:IfEndSUB0 數(shù)據(jù)庫子程序Goto1 /同時(shí)保存多個(gè)曲線時(shí)的指針Lbl 1 : IF S*（ 線元終點(diǎn)里程） :Then* G （

4、線元起點(diǎn)方位角） :*0（線元起點(diǎn)里程）：* U （線元起點(diǎn)X） :* V（線元起點(diǎn)Y） :* P （線元起點(diǎn)曲率半徑）:* R （線元終點(diǎn)曲率半徑）：* H （線 元起點(diǎn)至終點(diǎn)長度）：0或1、-1 Q: Return:lfEnd /Lbl 1 :IF S XY2. XY = SZN ? 選擇計(jì)算方式，輸入 1 表示進(jìn)行由里程、邊距計(jì)算坐標(biāo) ；輸入2 表示由坐標(biāo)反算里程和邊距。S ？正算時(shí)所求點(diǎn)的里程， 反算時(shí)為所求點(diǎn)的近似里程， 反算時(shí)輸入的近似里程不能夸線元，若夸線元的話，需進(jìn)行第二次反算，并以第正算)一次的結(jié)果做為近似里程，否則反算的里程及邊距不對， Z ？ 時(shí)所求點(diǎn)距中線的邊距 (左側(cè)

5、取負(fù)，值右側(cè)取正值，在中線上取零 X ？反算時(shí)所求點(diǎn)的 X 坐標(biāo)Y ？反算時(shí)所求點(diǎn)的 Y 坐標(biāo)顯示部分：XS= XXX正算時(shí)，計(jì)算得出的所求點(diǎn)的 X坐標(biāo)YS= xxx正算時(shí)，計(jì)算得出的所求點(diǎn)的 丫坐標(biāo)FS= xxx正算時(shí)，所求點(diǎn)對應(yīng)的中線點(diǎn)的切線方位角S= xxx反算時(shí)，計(jì)算得出的所求點(diǎn)的里程Z= xxx反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距要注意區(qū)別字母0和數(shù)字0 , /為回車符號。ClrMemory:1 f N:5800計(jì)算器由坐標(biāo)計(jì)算面積小程序LbI 0: E:F:X0?X:丫0?丫:(XF-EY)/2 f G:Q+G f Q:XfE:YfF:Abs(Q) fS:Fix 1:S=:Locate

6、6,4,S Norm 2: N=:Locate 6,4,N N+1 N:Goto 0:(說明：至少輸入三點(diǎn)坐標(biāo)，才能計(jì)算正確的面積，N 為了計(jì)輸了的點(diǎn)數(shù))這段時(shí)間下雨，閑就沒事，就搞點(diǎn)小程序，還有需要計(jì)算器程序的，留言說聲，盡能力幫你編，同 時(shí)也是跟大家一起學(xué)習(xí)交流。CASIO fx 5800 計(jì)算器 工程測量與公路測量程序1、坐標(biāo)正算” X0=?X: ” Y0= ?Y: ” I= ?I: ”J=?JX+ICos(J) U:Y+ISin(J) V” X=:U (待求點(diǎn)的 X 坐標(biāo))” Y=:V (待求點(diǎn)的 Y 坐標(biāo))說明：X0 Y0 :已知點(diǎn)坐標(biāo)I :兩點(diǎn)的距離J:方位角2、坐標(biāo)反算Lbl 0

7、” X1=?X: ” Y1= ?Y: ” X2= ?U: ” Y2= ?VPol(U-X,V-Y):J0 J+360 J” I= :I” J= :J DMSGOTO 0說明：X1Y1 :第一點(diǎn)的坐標(biāo)，X2Y2第二點(diǎn)的坐標(biāo)，I:兩點(diǎn)的距離，J:方位角3、圓曲線”X0=?X: ” Y0= ?Y: ” FWJ= ?D: ” QDHAO=?G: ” ZDHAO= ?C: ” R=?RLbl 1” DQHAO= ?LL C GOTO 2” PY= ?K180(L-G) - ( n R) E2RSin(0.5E) FReC(Abs(F),D+0.5E) : Cls” X=:X+I+KCos(D+E+90)

8、 A” Y=:Y+J+KSin(D+E+90) BD+E o:o0 360+o 0o” FWJ= :o DMSGoto 1Lbl 2” END說明：XOYO :起始點(diǎn)的坐標(biāo)，F(xiàn)WJ:起始點(diǎn)的方位角， QDHAO :起點(diǎn)里程，ZDHAO終點(diǎn) 里程，R:半徑，DQHAO :待求點(diǎn)里程，PY:偏移量 4、豎曲線”QZHAO =?J: ” H+B=?B: ” I1= ?C: ” I2= ?D: ” R= ?R: ” T= ?T:(D-C) 100) Abs(D-C)-100) t A:Abs(0.5R(C)100) t ST :SJ-Tt XJTt YLbl 0” DQ= ?LIf L Y:The n

9、 Goto 1:If En d:lf End” GC：B+C(L-J) 100+A(L- J+T) - (2R) t HGoto 0Lbl 1” END說明：QZHAO :曲中點(diǎn)里程，H+B :曲中點(diǎn)高程，11:第一坡度，I2 :第二坡度，R:半徑, T:切線長，DQ:待求點(diǎn)里程。5正算偏移” X0= ?A: ” Y0=?B: ” FWJ= ?D:Lbl 0” LS= ?L:” PY=?CReC(L,D)” X= :A+I+CCos(D+ 90) tX” Y= :B+J+CSin(D+ 90) tYGoto 0說明：X0 Y0 :已知點(diǎn)坐標(biāo)，LS:兩點(diǎn)距離，F(xiàn)WJ :方位角6.萬能公式” X0

10、 ?A: ” Y0= ?B: ” FWJ= ?C: ” 1 -QD ?D: ” 1 辺D ?E: ” QDHAO ?F:” ZDHAO ?GLbl 1” DQHAO= ?H: ” PY= ?oIf HG:Then Goto 2:If End:IfEnd-nT J:C+45Q(I 8+D)(E-D) Abs(G-F) t P:Abs (H-F)t Q:PQt |：C+90Q(I+2D)-nT M:C+135Q(3I - 8+D) -nT N:C+45Q(I - 2+2D) -nT K A+Q(Cos(C) +4(Cos(M)+Cos(N)+2Cos(K)+Cos(J)- 12t U:B+Q(Si

11、 n( C)+4(Si n(M)+Si n( N)+2Si n( K)+S in (J)- 12 t v” X= :U+oCos(J+90) TX” Y= :V+oSin(J+90) TY” FWJ= : J DMSGoto 1Lbl 2” END1 -R-QD :起開點(diǎn)曲率，1 -R-ZD終點(diǎn)曲說明：X0Y0 :起開點(diǎn)坐標(biāo)，F(xiàn)WJ:起開點(diǎn)方位角, 率， QDHAO ：起點(diǎn)里程， ZDHAO 終點(diǎn)里程， DQHAO ：待求點(diǎn)里程， XY ：待求點(diǎn)坐標(biāo) 6、標(biāo)高計(jì)算” QZHAO= ?J: ” QDHAO= ?G: ” ZDHAO= ?K: ” BHB= ?B: ” SX= ?Q: ” I1=

12、?C:” I2= ?D: ” R= ?R: ” T= ?T(D-C) -400 W:W Abs(W) t A: ” ：0.5RAbs(W) f S” -oYIGAO= ?oJ-Tt X:J+T tYLbl 1” LDQHAO= ?L: ” PY= ?U: ” XIELV= ?VIf L Y:The n Goto 3:lf En d:I End” HL= :B+0.01C(L-J)+A(L- J+T) 4 (2R)+0.01UV+Q tQ” HO= :o-Ht ZGoto 1Lbl 2LK Goto 4” HL= :B+0.01 (L- J)D+0.01UV+Q tH” HO=:o-Ht ZGoto