平曲线竖曲线计算清单

《平曲线竖曲线计算清单》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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]=YL2：

2、LBI1：{T}：T“LS=”：X=B+L：Y=V-G：Z[10]=T：T“ERROR”：GOTO1：≠>T>V=>“ERROR”：GOTO1：≠>GOTO4ΔΔL3：LBI4：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=>GOTO5：GOTO2：≠>D=0=>GOTO7：G

3、OTO2：≠>GOTO6：GOTO2ΔΔL5：LBI3：C=R*L：F=F+P：F=0=>GOTO8：GOTO3：≠>GOTO9：GOTO3Δ（直缓点、交点坐标输入）LBI5:K=Z[4]：S=Z[5]：Q=Z[6]：H=Z[7]：D=0：M=M+1:GOTOA:GOTO5（缓直点、交点坐标输入）LBI7：K=Z[8]：S=Z[9]：Q=Z[6]：H=Z[7]：D=1：M=0：GOTOA:GOTO7（直缓点、交点和缓圆点坐标输入）LBI8：K=Z[4]：S=Z[5]：Q=Z[6]：H=Z[7]X=（L-L5/（40*C2）+

4、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*SINUD“YI”=S+X*SINU+Y*COSUW“XHYD”=Z：N“YHYD”=D：F=1：M=0:GOTO9:GOTO8（坐标旋转计算段）LBIB:Z“XI”=K+X*COSU-Y*SINUD“YI”=S+X*SINU+Y*COSUO“BO”=T2/（2*C）*180/π:O=E*O+U-E*90GOTOC:

5、GOTOB（方位角反算，主要用于切线方向）LBIA:5POL((Q-K),(H-S))J≥0=>U=J:≠>U=J+360ΔGOTO6:GOTOA（法线方向上的坐标计算）LBIC{A}：A“S01=”REC（A，O）Z[1]“X-”=Z+IZ[2]“Y-”=D+JO=O+180REC（A，O）Z[1]“X+”=Z+IZ[2]“Y+”=D+JT=Z[10]F≥1=>D=0:M=0:GOTO1:GOTOC:≠>GOTO1:GOTOCΔ（缓和曲线主要计算段）LBI6：X=（T-T5/（40*C2）+T9/（3456*C4））Y=E

6、*（T3/（6*C）-T7/（336*C3）+T11/（42240*C5））：F=0GOTOB:TOTO6（圆曲线主要计算段）LBI9:O=U+E*L²/(2*C)*180/π+E*90REC（R，O）X“XO”=W+IY“YO”=N+JO=O+180+E*T/R*180/πREC（R，O）Z“XI”=X+ID“YI”=Y+JGOTOC:GOTO95竖曲线计算程序88（主文件名）L1：{KHRMAB}：K“K0=”：H“H0”：R：M“M=（1/-1）”：C“I1”：F“I2”：A=C/100：B=F/100L2：T=1/2

7、*R*（A+B）E=T2/（2*R）L3：LBI1：{X}:XXD=A:GOTO2:GOTO1:≠>X≥K=>D=B:GOTO3:GOTO1ΔΔLBI2:G=K-T:X≥G=>I=X-G:GOTO4:GOTO2:≠>XI=X-G:GOTO5:GOTO2ΔΔLBI3:G=K+T:X≤G=>I=G-X:GOTO4:GOTO3:≠>X>G=>I=G-X:GOTO5:GOTO3ΔΔLBI4:Y=I²/(2*R):O=H+M*(T-I)*D:Z=O+M*YGOTO1:GOTO4LBI5:Y=H+M*T*D:Z=Y-M*

8、I*DGOTO1:GOTO5平曲线各变量及函数说明输入变量（不是一次全输入，是据计算需要按提示输入）变量作用及说明E=（1OR-1）?E的取值为1或-1，分别表示以曲线的起点切线方向为X轴的座标系中的第一象项或第二象项R=?曲线的半径L01=?第一缓和曲线长，指平曲线起点端的缓和曲线L02