4850平曲线要数、线元各起点坐标及切线方位角计算程序

1、4850平曲线要数、线元各起点坐标及切线方位角计算程序.txt铁饭碗的真实含 义不是在一个地方吃一辈子饭，而是一辈子到哪儿都有饭吃。就算是一坨屎，也有 遇见屎壳郎的那天。所以你大可不必为今天的自己有太多扌日忧。平曲线要数、线元 各起点坐标及切线方位角计算程序CASIO(4850-4800)原创版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说明：一、便于区分数字零于字母O,在程序中用o代替字母O二、本程序适合CASI

8、O4850、4800、4500计算器使用。三、本程序适合于圆曲线、等长或不等长对称曲线。四、程序中变量：JD为交点里程桩号；JDX为交点里程X坐标；JDY为交点里程Y坐标；FJ为交点ZH点至交点方向的方位角；“ZJ：Z,Y+”为交点转角.左转为负转角，右转为正转角；Z为转角方 向；左转为-1,右转为+1 ； R为曲线半径；LSI为第一缓和曲线长；LS2为第二缓和曲线长；计算结果显示：1、为缓和曲线时：T1为第一曲线切线长；T2为第二曲线切线长；L为曲线总长； E0为外失矩长；ZH、HY、QZ、YH、HZ为曲线元各起点里程；ZHX=、ZHY=、HYX二、HYY二、QZX二、QZY二、YHX二、YHY二、HZX二、 HZY=曲线元各起点的X、Y坐标；FWJ=为曲线元各起点ZH、HY、 QZ、YH、HZ的切