平曲线要素、主点里程及坐标、切线方位角计算程序 (CASIO48004850）.doc

平曲线要素、主点里程及坐标、切线方位角计算程序 (CASIO4800/4850）  \o 下载后欢迎进行探讨 附件(点击下载)：?????????????????? 平曲线要数、线元各起点坐标及切线方位角计算程序??????????????????????????CASIO（4850-4800）原创版? 作者：辜建君?? Defm12:LbI0:{ABCFΟZREK}:A”JD”:B”JDX”:C”JDY”:F”FJ”: Ο”ZJ:Z-,Y+”:Z:R:E”LS1”:K”LS2”:E1=E=1E-9⊿K1=K=1E-9⊿Z[2]=E÷2-EEE÷240RR:Z[6]=K÷2-KKK÷240RR:Z[7]=E-E^3÷40R^2+E^5÷3456R^4-E^7÷599040R^6+E^9^8:Z[8]=E^2÷6R-E^4÷336R^3+E^6÷42240R^5-E^8÷9676800R^7+E^10÷3530096640R^9: Z[9]= K-K^3÷40R^2+K^5÷3456R^4-K^7÷599040R^6+K^9^8:Z[10]=K^2÷6R-K^4÷336R^3+K^6÷42240R^5-K^8÷9676800R^7+K^10÷3530096640R^9: G=sin-1((Z[7]-Z[2])÷R): U= sin-1((Z[9]-Z[6])÷R): Z[1]=RcosG+Z[8]-R: Z[5]=RcosU+Z[10]-R: V=(EE-KK)÷24R÷SinAbsΟ:?? ”T1”:Z[3]=(R+Z[1])tan(AbsΟ÷2)+Z[2]-V◢????”T2”:Z[4]=(R+Z[5])tan(AbsΟ÷2)+Z[6]+V◢????I=tan-1((R+Z[1])÷(Z[3]-Z[2])):“L”:L=AbsΟлR÷180+(E+K)÷2◢????”E0”:U=(R+Z[1])÷sinI-R◢????X=A-Z[3]:Y=X+E:E1=GOTO 1: ≠ GOTO 2 ⊿LbI 1:”ZY”:X◢?? “ZYX=”:N=B+Z[3]Cos(F+180) ◢?? “ZYY=”:Q=C+Z[3]sin(F+180) ◢?? “FWJ=”:F-DMS◢GOTO 3LbI 2:”ZH”:X◢?? “ZHX=”:N=B+Z[3]cos(F+180) ◢?? “ZHY=”:Q=C+Z[3]sin(F+180) ◢?? “FWJ=”:F-DMS◢?? “HY”:Y◢????”HYX=”:N=B+(Z[3]-Z[7])cos(F+180)+Z[8]cos(F+90Z) ◢?? “HYY=”:Q=C+(Z[3]-Z[7])sin(F+180)+Z[8]sin(F+90Z) ◢????J=F+ZG：J360=J=F+ZG-360:⊿J0=J=F+ZG+360: ⊿“FWJ=”:J-DMS◢LbI 3:”QZ”:S=X+(L-K-E)÷2+E◢????D=Rsin(90×(L-K-E)÷ЛR+sin-1((Z[7]-Z[2])÷R))+Z[2]:????H=R(1-cos(90×(L-K-E)÷ЛR+sin-1((Z[7]-Z[2])÷R)))+Z[1]:?? “QZX=”:N= B+(Z[3]-D)cos(F+180)+Hcos(F+90Z) ◢?? “QZY=”:Q= C+(Z[3]-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: ⊿J0=J= F+ZG+90Z(L-K-E)÷ЛR+360:⊿“FWJ=”:J DMS◢LbI 4:M=X+L-K:P=X+L:K1=GOTO 5: ≠ GOTO 6⊿LbI 5:”YZ”:P◢?? “YZX=”:N=B+Z[4]cos(F+Ο) ◢?? “YZY=”:Q=C+Z[4]sin(F+Ο) ◢????W=F+Ο:W360=W=F+Ο-360: ⊿W0=W=F+Ο+360: ⊿”FWJ=”:W-DMS◢G0TO 0LbI 6:”YH”:M◢????”YHX=”:N=B+(Z[4]-Z[9])cos(F+Ο)+Z[10]cos(F+Ο+90Z) ◢?? “YHY=”:Q=C+(Z[4]-Z[9])sin(F+Ο)+Z[10]sin(F+Ο+90Z) ◢????J=F+ZG+180Z(L-K-E)÷ЛR:J360=J= F+ZG+180Z(L-K-E)÷ЛR -360: ⊿J0=J= F+ZG+180Z(L-K-E)÷ЛR+360:⊿“FWJ=”:J D