平曲线竖曲线计算表.docVIP

CASIO4500P/4800P平曲线、竖曲线计算清单 1(主文件名) 利用SHIFT+DEFM+11+EXE键扩展存储空间11个，使其总存储空间增加到37个。 L1： {RLEBIGKSQHXY}:E“E=（1/-1）”：R“R=”：L“L01=”：G“L02=”：B“KQD=”：V“KZD=”：F=0：M=0：D=0：Z[3]=E：I=0：J=0：K“XZH=”：S“YZH=”：Q“XJD=”：H“YJD=”：X“XHZ=”：Y“YHZ=”：Z[4]=K：Z[5]=S：Z[6]=Q：Z[7]=H：Z[8]=X：Z[9]=Y L2： LBI 1：{T}：T“LS=”：X=B+L：Y=V-G：Z[10]=T： TB=“ERROR”：GOTO1：≠TV=“ERROR”：GOTO1：≠GOTO4ΔΔ L3： LBI 4：T≤X= T=T-B：C=R*L：E=Z[3]：P=1：GOTO2：GOTO4：≠Y≤T=T=V-T：C=R*G：E=Z[3]：E= -E：P=0：GOTO2：GOTO4：≠T=T-L-B：E=Z[3]：P=0：GOTO3：GOTO4ΔΔ L4： LBI2：M=M+P：D=D+P：M=1=GOTO 5：GOTO2：≠ D=0= GOTO7：GOTO2：≠ GOTO6：GOTO2ΔΔ L5： LBI3：C=R*L：F=F+P：F=0=GOTO 8： GOTO3：≠ GOTO9：GOTO3Δ （直缓点、交点坐标输入） LBI 5: K=Z[4]：S =Z[5]：Q=Z[6]：H=Z[7]：D=0：M=M+1:GOTO A:GOTO5 （缓直点、交点坐标输入） LBI 7： K=Z[8]：S=Z[9]：Q=Z[6]：H=Z[7]：D=1：M=0：GOTO A: GOTO 7 （直缓点、交点和缓圆点坐标输入） LBI 8： K=Z[4]：S =Z[5]：Q=Z[6]：H=Z[7] X=（L-L5/（40*C2）+L9/（3456*C4）） Y=E*（L3/（6*C）-L7/（336*C3）+L11/（42240*C5）） POL((Q-K),(H-S)) J≥0=U=J: ≠U=J+360Δ Z“XI”=K+X*COSU-Y*SINU D“YI”=S+X*SINU+Y*COSU W“XHYD” =Z：N“YHYD” =D： F=1：M=0: GOTO 9:GOTO 8 （坐标旋转计算段） LBI B: Z“XI”=K+X*COSU-Y*SINU D“YI”=S+X*SINU+Y*COSU O“BO”=T2/（2*C）*180/π:O=E*O+U-E*90 GOTOC :GOTO B （方位角反算，主要用于切线方向） LBI A: POL((Q-K),(H-S)) J≥0=U=J: ≠U=J+360Δ GOTO 6:GOTO A （法线方向上的坐标计算） LBI C {A}：A“S01=” REC（A，O） Z[1]“X-”=Z+I Z[2]“Y-”=D+J O=O+180 REC（A，O） Z[1]“X+”=Z+I Z[2]“Y+”=D+J T=Z[10] F≥1=D=0: M=0:GOTO 1:GOTO C: ≠ GOTO 1:GOTO C Δ （缓和曲线主要计算段） LBI 6： X=（T-T5/（40*C2）+T9/（3456*C4）） Y=E*（T3/（6*C）-T7/（336*C3）+T11/（42240*C5））：F=0 GOTO B: TOTO 6 （圆曲线主要计算段） LBI 9: O=U+E*L2/(2*C)*180/π+E*90 REC（R，O） X“XO”=W+I Y“YO”=N+J O=O+180+E*T/R*180/π REC（R，O） Z“XI”=X+I D“YI”=Y+J GOTO C:GOTO 9 竖曲线计算程序 88（主文件名） L1： {KHRMAB}：K“K0=”：H“H0”：R：M“M=（1/-1）”：C“I1”：F“I2”：A=C/100：B=F/100 L2： T=1/2*R*（A+B） E=T2/（2*R） L3： LBI 1：{X}: X XK=D=A:GOTO2:GOTO1:≠X≥K=D=B: GOTO3 :GOTO1ΔΔ LBI2: G=K-T:X≥G=I=X-G: GOTO4: GOTO2:≠XG=I=X-G: GOTO5: GOTO2ΔΔ LBI3: G=K+T:X≤G=I=G-X: GOTO4: GOTO3:≠XG=I=G-X: GOTO5: GOTO3ΔΔ LBI4: Y=I2/(2*R):O=H+M*(T-I)*D:Z=O+M*Y GOTO1: