4850平曲線要數(shù)、線元各起點(diǎn)坐標(biāo)及切線方位角計(jì)算程序

1、4850平曲線要數(shù)、線元各起點(diǎn)坐標(biāo)及切線方位角計(jì)算程序.txt鐵飯碗的真實(shí)含 義不是在一個(gè)地方吃一輩子飯，而是一輩子到哪兒都有飯吃。就算是一坨屎，也有 遇見屎殼郎的那天。所以你大可不必為今天的自己有太多扌日憂。平曲線要數(shù)、線元 各起點(diǎn)坐標(biāo)及切線方位角計(jì)算程序CASIO(4850-4800)原創(chuàng)版Definl2:LbI0:ABCFOZREK:AVJD ”:B"JDX ”:C”JDY”:F”FJ”： O”ZJ:Z- ,Y+'':Z:RE'LSl'':K”LS2":Evi=>E=lE-9ZKvl=>K=lE-9dZ2：=Ev2

2、七 EE 240RR:Z6=Kv2-KKK -r240RR:Z7=E-EA340RA2+EA5-r3456RA4- EA7599040RA6+EA917542600RA8:Z8=EA26R-EA4336RA3+EA6-?42240RA5- EA89676800RA7+EA 103530096640RA9: Z9= K-KA340RA2+KA53456RA4- KA7-r599040RA6+KA9-?17542600RA8:Z10=KA26R-KA4336RA3+KA642240RA5- KA89676800RA7+KA 103530096640RA9: G=sin-l(Z7-Z2R: U= s

3、in-l(Z9- Z6"R: Zl=RcosG+Z8-R: Z5=RcosU+Z 10-R: V=(EE-KK>24R-SinAbs O:%l":Z3=(R+Zltan(AbsCR2+Z2-V/仃2”:Z4=(R+Z5tan(AbsCR2+Z6+r/I=tan-1 (R+Z 1 (Z3-Z2:UL ,:L=AbsOjiR mi80+(E+K>2 A”E0'':U=(R+ZlsinI-R AX=A-Z3:Y=X+E:E<1=>GOTO 1: GOTO 2 ZLbl 1:”ZY ":X A“ZYX=”:N=B+Z3Cos(F+1

4、80 A“ZYY=”:Q=C+Z3sin(F+180 A“FWJ=”:F->DMS AGOTO 3Lbl 2:,ZH ":X,“ZHX=”:N=B+Z3cos(F+180 A“ZHY=”:Q=C+Z3sin(F+180 A“FWJ=”:F->DMS A“HY ”: Y A,HYX=,:N=B+(Z3-Z7cos(F+180+Z8cos(F+90Z A“HYY=”:Q=C+(Z-Z7sin(F+180+Z8sin(F+90Z AJ=F+ZG : J>36O=>J=F+ZG-36O:Z1J<O=>J=F+ZG+36O: Z“FWJ=":J-&

5、gt;DMS 上Lbl 3:”QZ ":S=X+(L-K-E十2+E/D=Rsin(90x(L-K-E-JIR+sin-l(Z7-Z2-?R+Z2:H=R(1 -cos(90x(L-K-E 一 JIR+sim 1 (Z7-Z2R+Z 1:“QZX=”:N= B+(Z3-Dcos(F+180+Hcos(F+90Z A“QZY=”:Q= C+(Z3-Dsin(F+180+Hsin(F+90Z AJ=F+ZG+90Z(L-K-E-JIR:J>360=>J= F+ZG+90Z(L-K-EJIR -360: zJJ<O=>J=F+ZG+90Z(L-K-E=JIR+360

6、: /“FWJ=”:J >DMS ALbl 4:M=X+L-K:P=X+L:K< 1 =>GOTO 5: i> GOTO 6 JLbI5:”YZ”:P>“YZX=”:N=B+Z4cos(F+O A“YZY=”:Q=C+Z4sin(F+O AW=FO:W>360=>W=F+O-360: JW<0=>W=F+0+360: d'FWJ=”:W->DMS / GOTOOLbI6:”YH”:M,”YHX=”:N=B+(Z4-Z9cos(F+0+Z10cos(F+0+90Z A“YHY=”:Q=C+(Z4-Z9sin(F+0+Z10sin

7、(F+0+90Z AJ=F+ZG+180Z(L-K-EJIR:J>360=>J= F+ZG+180Z(L-K-E-JIR -360: zdJ<O=>J=F+ZG+180Z(L-K-EJIR+360: Z“FWJ=”:J >DMS A“HZ ”:P A“HZX=”:N=B+Z4cos(F+O A“HZY=”:Q=C+Z4sin(F+O AW=F+0:W>360=>W=F+0-360: JW<0=>W=F+0+360: ZTFWJ=”:W->DMS /GOTOO說明：一、便于區(qū)分?jǐn)?shù)字零于字母O,在程序中用o代替字母O二、本程序適合CASI

8、O4850、4800、4500計(jì)算器使用。三、本程序適合于圓曲線、等長或不等長對(duì)稱曲線。四、程序中變量：JD為交點(diǎn)里程樁號(hào)；JDX為交點(diǎn)里程X坐標(biāo)；JDY為交點(diǎn)里程Y坐標(biāo)；FJ為交點(diǎn)ZH點(diǎn)至交點(diǎn)方向的方位角；“ZJ：Z,Y+”為交點(diǎn)轉(zhuǎn)角.左轉(zhuǎn)為負(fù)轉(zhuǎn)角，右轉(zhuǎn)為正轉(zhuǎn)角；Z為轉(zhuǎn)角方 向；左轉(zhuǎn)為-1,右轉(zhuǎn)為+1 ； R為曲線半徑；LSI為第一緩和曲線長；LS2為第二緩和曲線長；計(jì)算結(jié)果顯示：1、為緩和曲線時(shí)：T1為第一曲線切線長；T2為第二曲線切線長；L為曲線總長； E0為外失矩長；ZH、HY、QZ、YH、HZ為曲線元各起點(diǎn)里程；ZHX=、ZHY=、HYX二、HYY二、QZX二、QZY二、YHX二、YHY二、HZX二、 HZY=曲線元各起點(diǎn)的X、Y坐標(biāo)；FWJ=為曲線元各起點(diǎn)ZH、HY、 QZ、YH、HZ的切