5800卡西欧计算器程序

5800卡西欧计算器程序 四大主点的坐标和方位角计算程序：LU-XIAN Clrstat:20?Dimz:Fix6:Lib0:"NO.J(2)="?S:"R="?R:"L(H)="?L:Prog"FANG- WEI":J+180?J:J-O?K:K<0＝＞K+360?K:K-180?F:If>0:ThenL(1):ElseR(1): IfEnd?L(1)＝＞-1?W:R(1)＝＞1?W:J+W(I*180/(2πR))?z[6]: "B(HY)=":(z[6]-180)?DME? I*180/(2πR)?B:I/2-I^(3)/(240*R^(2)?G:I^(2)/(24R)?P:"T=":(R+P)*tan(Abs(F)/2)+G?z[7]?? "L(Y)=":πR( Abs(F)-2B)/180?z[8]? "NO.ZH=":S-z[7]?z[9]? "NO.HZ=":z[9]+ 2I+z[8]? "X-ZH=":C+z[7]*cos(J)?z[1]? "Y-ZH=":D+z[7]*sin(J) ?z[2]? "X-HZ=":C+z[7]*cos(O)?z[3]? "Y-ZH=":D+z[7]*sin(O)?z[4]? I-I^(3)/(40R^(2))+I^(5)/(3456*R^(4))-I^(7)/(599040R^(6)?z[5]: "X-HY=":z[1]+z[5]/cos(30I/(πR))*cos(J-180+30WI/(πR))? "Y-HY=":z[2]+z[5]/cos(30I/(Rπ))*sin(J-180+30WI/(πR))? "B(Y)=":O+(-W)*(180I/(2πR)? "X-YH=":z[3]+z[5]/cos(30I/(πR))*cos(O+180-30WI/(πR))? "Y-YH=":z[4]+z[5]/cos(30I/(πR))*sin(O+180-30WI/(πR))? Goto 0 ? NO.JD(2),R,L(H)分别为：交点里程，半径，缓和曲线长;T,L(Y),NO.ZH,NO.HZ, X-ZH,Y-ZH,X-HZ,Y-HZ,X-HY,Y-HY,X-YH,Y-YH,B(YH) 分别为:切线长，圆曲线长，直缓点里程，缓直点里程，四大主点的坐标和圆缓点方位角 方位角计算程序：FANG-WEI Clrstat:Deg:"X1="?A:"Y1="?B:"X2="?C:"Y2="?D:"X3="?E:"Y3="?F? C-A?X:D-B?Y:Arg(X+Yi)?J:J<0＝＞J+360?J:E-C?M:F-D?U: Arg(M+Ui)?O:O<0＝＞O+360?O:"J=":J?DME??"O=":O?DME? X1,Y1,X2,Y2,X3,Y3:分别为三个交点的坐标。 J,O为方位角 曲线上任意点坐标和切线方位角计算程序：LU-XIAN-1 Clrstat:Fix9:6?Dimz: "NO-ZH="?J: "NO-HZ="?Z: "X-ZH="?C: "Y-HZ="?D: "X-HY="?G:"Y-HY="?H: "R="?R: "L(Y)= "?L: "A1="?A: "A2="?B:Lbi0: "KP="?P: "W="?W:J-L?M:Z-L?Q:If P＜M And P＞J:Then Goto 1:IfEnd:If P＜QAnd P＞M:Then Goto 2: IfEnd:If P＜Z And P＞Q:Then Goto 3: IfEnd:If P＜J:Then Goto 4: IfEnd:If P＞Z:Then Goto 5:Lbi:P-J?z[2]:z[2]-z[2]^(5)/(40R^(2)L ^(2))+z[2]^(9)/(3456R^(4)-z[2]^(13)/(R^(6)L^(6)) ?z[1]: "X(ZH-HY)=": C+z[1]/cos(z[2]^(2)/(6RL))*cos(A+Wz[2]^(2)/(6RL)) ? "Y(ZH-HY)=":D+ z[1]/ cos(z[2]^(2)/(6RL))*sin(A+Wz[2]^(2)/(6RL)) ? "AI=":A+ W(z[2]^(2)/(2RL)) ? Goto 0 ? Lbi2:P-M?z[3]: "X(HY-YH)=":G+ 2Rsin(z[3]/(2R))*cos(A+W(L+z[3])/(2R)) ? "Y(HY-YH)=":H+2Rsin( Z[3]/(2R))*sin(A+W(L+z[3])/(2R)) ? "AI=":A+W(z[3]+0.5L)/R? Goto 0 ? Lbi3:Z-P?z[4]: "X(HZ-HY)=":E+(z[4]-z[4]^(5)/(40R ^(2)L^(2))+z[4]^(9)/(3456R^(4)L^(4))-z[4]^(13)/(599040R^(6)L^(6))/cos (z[4]^(2)/(6RL))*cos(B+π-Wz[4]^(2)/(6RL)) ? "Y(HZ-HY)=":F+ (z[4]-z[4]^(5)/(40R^(2)L^(2))+z[4]^(9)/(3456R^(4)L^(4))-z[4]^(13)/(59 9040R^(6)L^(6))/cos(z[4]^(2)/(6RL))*sin(B+π-Wz[4]^(2)/(6RL)) ? "AI=":B-W(z[4]^(2)/(2RL)) ? Goto 0 ? Lib4:J-P ?z[5]: "X(HOU-ZH)=":C+z[5]*cos(A+π) ? "Y(HOU-ZH)=":D+z[5]*sin(A+π) ? "AI=":A ? "AI=":A ? Lbi5:P-Z?z[6]: "X(Q-HZ)=":E+ z[6]*cos(B) ? "Y(Q-HZ)=":F+ z[6]*sin(B) ? "AI=":B ? Goto 0 ? NO.ZH,NO.HZ:为直缓点和缓直点里程；X-ZH,Y-ZH,X-HY,Y-HY为直缓点?缓圆点和缓直点的大地坐标；R,L(Y)为曲线的半径和缓和曲线的长；KP为待定点的里程；AI为待定点的切线方位角；X(ZH-HY), Y(ZH-HY)为待定点在直缓点到缓圆点的坐标；X(HY-YH), Y(HY-YH)为待定定在缓圆点到圆缓点的坐标； X(HZ-YH), Y(HZ-YH)为缓直点到圆缓点得坐标；X(HOU-ZH), Y(HOU-ZH)为后直线上的坐标；X(Q-HZ),Y(Q-HZ)为前直线上的坐标。 坐标转换程序：ZUO-BIAO-ZH Fix3:"ALFA="?A:Lbi0:"N="?N? If N=1:Then Goto 1:IfEnd? If N=2:Then Goto 2:IfEnd? If N=3:Then Goto 3:IfEnd? Lbi1:"X0="?Z:"Y0="?F:"XA="?C:"YA="?D? "XG=":Z+C*cos(A)-D*sin(A)? "YG=":F+C*sin(A)-D*cos(A)? Goto 0 ? Lbi2:"X0="?Z:"Y0="?F:"XG="?U:"YG="?V? "XA=":(U-Z)*cos(A)+(V-F)sin(A)? "YA=":(Z-U)*sin(A)+(V-F)*cos(A)? Goto 0 ? Lbi3:"XZ="?O:"YZ="?T:"P="?P:"E="?E? "XT=":O+(E+P/2)*cos(A+1.57079632)? "YT=":T+(E+P/2)*sin(A)-D*sin(A+1.57079632)? Goto 0 ? ALFA:为切线方位角（弧度） X0,YO：为大地坐标系中的坐标 XG,YG:为转换到大地坐标系中的坐标 XA,YA:为相对坐标 P,E:分别为线间距和偏距 XT,YT：为里程中心大地坐标