《平曲线要素、主点里程及坐标、切线方位角计算程序 (CASIO48004850）.doc》由会员分享，可在线阅读，更多相关《平曲线要素、主点里程及坐标、切线方位角计算程序 (CASIO48004850）.doc（2页珍藏版）》请在三一文库上搜索。
1、平曲线要素、主点里程及坐标、切线方位角计算程序 (CASIO4800/4850）附件(点击下载)： 平曲线要数、线元各起点坐标及切线方位角计算程序CASIO（4850-4800）原创版 作者：辜建君 Defm12:LbI0:ABCFZREK:A”JD”:B”JDX”:C”JDY”:F”FJ”: ”ZJ:Z-,Y+”:Z:R:E”LS1”:K”LS2”:EE=1E-9KK=1E-9Z2=E2-EEE240RR:Z6=K2-KKK240RR:Z7=E-E340R2+E53456R4-E7599040R6+E917542600R8:Z8=E26R-E4336R3+E642240R5-E8967680
2、0R7+E103530096640R9: Z9= K-K340R2+K53456R4-K7599040R6+K917542600R8:Z10=K26R-K4336R3+K642240R5-K89676800R7+K103530096640R9: G=sin-1(Z7-Z2)R): U= sin-1(Z9-Z6)R): Z1=RcosG+Z8-R: Z5=RcosU+Z10-R: V=(EE-KK)24RSinAbs: ”T1”:Z3=(R+Z1)tan(Abs2)+Z2-V”T2”:Z4=(R+Z5)tan(Abs2)+Z6+VI=tan-1(R+Z1)(Z3-Z2):“L”:L=AbsR18
3、0+(E+K)2”E0”:U=(R+Z1)sinI-RX=A-Z3:Y=X+E:EGOTO 1: GOTO 2 LbI 1:”ZY”:X “ZYX=”:N=B+Z3Cos(F+180) “ZYY=”:Q=C+Z3sin(F+180) “FWJ=”:F-DMSGOTO 3LbI 2:”ZH”:X “ZHX=”:N=B+Z3cos(F+180) “ZHY=”:Q=C+Z3sin(F+180) “FWJ=”:F-DMS “HY”:Y”HYX=”:N=B+(Z3-Z7)cos(F+180)+Z8cos(F+90Z) “HYY=”:Q=C+(Z3-Z7)sin(F+180)+Z8sin(F+90Z) J
4、=F+ZG：J360=J=F+ZG-360:JJ=F+ZG+360: “FWJ=”:J-DMSLbI 3:”QZ”:S=X+(L-K-E)2+ED=Rsin(90(L-K-E)R+sin-1(Z7-Z2)R)+Z2:H=R(1-cos(90(L-K-E)R+sin-1(Z7-Z2)R)+Z1: “QZX=”:N= B+(Z3-D)cos(F+180)+Hcos(F+90Z) “QZY=”:Q= C+(Z3-D)sin(F+180)+Hsin(F+90Z) J=F+ZG+90Z(L-K-E)R:J360=J= F+ZG+90Z(L-K-E)R -360: JJ= F+ZG+90Z(L-K-E)R
5、+360:“FWJ=”:J DMSLbI 4:M=X+L-K:P=X+L:KGOTO 5: GOTO 6LbI 5:”YZ”:P “YZX=”:N=B+Z4cos(F+) “YZY=”:Q=C+Z4sin(F+) W=F+:W360=W=F+-360: WW=F+360: ”FWJ=”:W-DMSG0TO 0LbI 6:”YH”:M”YHX=”:N=B+(Z4-Z9)cos(F+)+Z10cos(F+90Z) “YHY=”:Q=C+(Z4-Z9)sin(F+)+Z10sin(F+90Z) J=F+ZG+180Z(L-K-E)R:J360=J= F+ZG+180Z(L-K-E)R -360: J
6、J= F+ZG+180Z(L-K-E)R+360:“FWJ=”:J DMS “HZ”:P “HZX=”:N=B+Z4cos(F+) “HZY=”:Q=C+Z4sin(F+) W=F+:W360=W=F+-360: WW=F+360: ”FWJ=”:W-DMSGOTO 0说明：一、便于区分数字零于字母O，在程序中用代替字母O二、本程序适合CASIO4850、4800、4500计算器使用。三、本程序适合于圆曲线、等长或不等长对称曲线。四、程序中变量：JD为交点里程桩号；JDX为交点里程X坐标；JDY为交点里程Y坐标；FJ为交点ZH点至交点方向的方位角；“ZJ:Z-,Y+” 为交点转角，左转为负转角
7、，右转为正转角；Z为转角方向；左转为-1，右转为+1；R为曲线半径；LS1为第一缓和曲线长；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的切线方位角。2、为圆曲线时：T1、T2为曲线切线长；L为曲线总长；E0为外失矩长；ZY、QZ、YZ为曲线元各起点里程；ZYX= 、ZYY= 、QZX=、QZY=、YZX=、YZY= 曲线元各起点的X、Y坐标；FWJ=为曲线元各起点ZY、QZ、YZ的切线方位角。