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

4850平曲线要数、线元各起点坐标及切线方位角计算程序.txt铁饭碗的真实含义不是在一个地方吃一辈子饭，而是一辈子到哪儿都有饭吃。就算是一坨屎，也有遇见屎壳郎的那天。所以你大可不必为今天的自己有太多担忧。平曲线要数、线元各起点坐标及切线方位角计算程序 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 3 LbI 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 0 LbI 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:⊿“FW