(CASIO9750计算器测量程序)

SpiraLcurveLbL0：ClsFile221→DimList2    “NEW=0,OLD≠0”?→Z:Z=0:Then“INTα(s)=”?→F ： (输入交点坐标方位角)“JDPEG=”?→K  ：                           输入交点桩号“INTX(JD)=”?→X    ：                      输入交点X坐标“INTY(JD)=”?→Y  ：                        输入交点Y坐标“INTR(s)=”?→R：                             输入缓和曲线半径“INTL(s)=”?→L：                             输入缓和曲线长“TURNINGANGLE=”?→A  ：                     输入转角“TURNINGDIRECTION–L,+R=”?→I：IfEnd输入路线转向：左负右正  I赋值为1 LblZ：Z=1=＞Prog”01”：Z=2=＞Prog”02”(有多少条曲线就输入多少个数数据库)L2÷(24×R)→PL÷2-L3÷(240×R2)→Q90×L÷（π×R）→B（R+P）Tan（A÷2）+Q→T                        计算切线长R（A-2B）×π÷180→O                          计算圆曲线长R（A-2B）×π÷180+2L→C计算曲线长（R+P）÷cos（A÷2）-R→E计算外距2T-C→D计算切曲差K-T→List2[3]         ZH点List2[3]+L→List2[4]      HY点List2[4]+O→List2[5]      YH点List2[5]+L→List2[6]      HZ点List2[6]-C÷2→List2[7]    QZ点X+Tcos（F+180）→List2[16]List2H点X坐标Y+TsIn（F+180）→List2[17]List2H点Y坐标L-L3÷（90R2）→GList2[16]+Gcos(F+30×I×L÷(π×R))→List2[8]HY点X坐标List2[17]+Gsin(F+30×I×L÷(π×R))→List2[9]HY点Y坐标List2[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R))→List2[14]QList2点X坐标List2[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R))→List2[15]QList2点Y坐标List2[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R))→List2[10]YH点X坐标List2[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R))→List2[11]YH点Y坐标X+Tcos（F+I×A）→List2[12]HList2点X坐标Y+TsIn（F+I×A）→List2[13]HList2点Y坐标LbL2“XIANSHIQXYS”？WIfW=0:ThenGoto3:IfEndIfW=1:ThenGoto4:IfEnd显示曲线要素？输入：0→YES,1→NOLbL3  本段为曲线要素显示结果部分“QIEXIANC=”:T▲“QUXIANC=”:C▲“YQUXIAN=”:O▲“WAIJU=”:E▲“QIEQUCHA=”:D▲“List2HPEG=”:List2[3]▲“X(List2H)=”:List2[16]▲“Y(List2H)=”:List2[17]▲“HYPEG=”:List2[4]▲“X(HY)=”:List2[8]▲“Y(HY)=”:List2[9]▲“QList2PEG=”:List2[7]▲“X(QList2)=”:List2[14]▲“Y(QList2)=”:List2[15]▲“YHPEG=”:List2[5]▲“X(YH)=”:List2[10]▲“Y(YH)=”:List2[11]▲“HList2PEG=”:List2[6]▲“X(HList2)=”:List2[12]▲“Y(HList2)=”:List2[13]▲GoTo0LbL4    本段为待求点桩号计算部分“INTPPEG=”?H输入待求点桩号IfHList2[3]:ThenGoToD:IfEndIfH≥List2[3]AndHList2[4]:ThenGoToAELseIfH≥List2[4]AndHList2[5]:ThenGoToBELseIfH≥List2[5]AndH≤List2[6]:ThenGoToC:IfendIfend:IfendIfHList2[6]:ThenGoToE:IfendLbLD    {待求点位于ZH前的直线段上时}“PIANJIAO=”?→V        输入边桩与路线中心线夹角：左负右正“DR=”?→W                  路基右侧边桩与路中法线距离“DL=”?→T             路基左侧边桩与路中法线距离List2[3]-H→JList2[16]+Jcos(F+180)→M▲List2[17]+Jsin(F+180)→N▲M+W×cos(F+180+V)→List2[18]N+W×sin(F+180+V)→List2[19]M+T×cos(F+180-V)→List2[20]N+T×sin(F+180-V)→List2[21]F→G▲“X(R)=”:List2[18]▲“Y(R)=”:List2[19]▲“X(L)=”:List2[20]▲“Y(L)=”:List2[21]▲GoTo4LbLA    {待求点位于List2H到HY段上时}“PIANJIAO=”?→V        输入边桩与路线中心线夹角：左负右正“DR=”?→W                  路基右侧边桩与路中法线距离“DL=”?→T             路基左侧边桩与路中法线距离H–List2[3]→JJ–J5÷(90×R2×L2)→SList2[16]+Scos(F+30×I×J2÷(π×R×L)→M▲List2[17]+Ssin(F+30×I×J2÷(π×R×L)→N▲M+W×cos(F+90×I×J2÷(π×R×L+V)→List2[18]N+W×sin(F+90×I×J2÷(π×R×L+v)→List2[19]F+90×I×J2÷(π×R×L+V)→G▲M+T×cos(F+90×I×J2÷(π×R×L-V)→List2[20]N+T×sin(F+90×I×J2÷(π×R×L-V)→List2[21]“X(R)=”:List2[18]▲“Y(R)=”:List2[19]▲“X(L)=”:List2[20]▲“Y(L)=”:List2[21]▲GoTo4LbLB    {待求点位于HY到YH段上时}“PIANJIAO=”?→V        输入边桩与路线中心线夹角：左负右正“DR=”?→W                  路基右侧边桩与路中法线距离“DL=”?→T             路基左侧边桩与路中法线距离H–List2[4]→JList2[8]+2Rsin(90×J÷(π×R)cos[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→M▲List2[9]+2Rsin(90×J÷(π×R)sin[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→N▲M+Wcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V)→List2[18]N+Wsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V)→List2[19]F+90×I×J2÷(π×R)+180×I×J2÷(π×R)→G▲M+Tcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)-V)→List2[20]N+Tsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)-V)→List2[21]“X(R)=”:List2[18]▲“Y(R)=”:List2[19]▲“X(L)=”:List2[20]▲“Y(L)=”:List2[21]▲GoTo4LbLC      {待求点位于YH到HList2段时}“PIANJIAO=”?→V        输入边桩与路线中心线夹角：左负右正“DR=”?→W                  路基右侧边桩与路中法线距离“DL=”?→T             路基左侧边桩与路中法线距离List2[6]–H→JJ–J5÷(90×R2×L2)→SList2[12]+Scos(F+I×A+180-30×I×J2÷(π×R×L)→M▲List2[13]+Ssin(F+I×A+180-30×I×J2÷(π×R×L)→N▲M+Wcos(F+I×A-90×I×J2÷(π×R×L)+V)→List2[18]N+Wsin(F+I×A-90×I×J2÷(π×R×L)+V)→List2[19]F+I×A-90×I×J2÷(π×R)→G▲M+Tcos(F+I×A-90×I×J2÷(π×R×L)-V)→List2[20]N+Tsin(F+I×A-90×I×J2÷(π×R×L)-V)→List2[21]“X(R)=”:List2[18]▲“Y(R)=”:List2[19]▲“X(L)=”:List2[20]▲“Y(L)=”:List2[21]▲GoTo4LbLE    {待求点位于ZH前的直线段上时}“PIANJIAO=”?→V        输入边桩与路线中心线夹角：左负右正“DR=”?→W                  路基右侧边桩与路中法线距离“DL=”?→T             路基左侧边桩与路中法线距离H-List2[6]→JList2[12]+Jcos(F+A*I)→M▲List2[13]+Jsin(F+A*I)→N▲M+W×cos(F+A*I+V)→List2[18]N+W×sin(F+A*I+V)→List2[19]F+A*I→G▲M+T×cos(F+A*I-V)→List2[20]N+T×sin(F+A*I-V)→List2[21]“X(R)=”:List2[18]▲“Y(R)=”:List2[19]▲“X(L)=”:List2[20]▲“Y(L)=”:List2[21]▲GoTo4程序库（子程序）01文件名IfZ=1:Then30120.568(JD的里程）→K:86°43°45.47°（曲线起始方位角）→F：38500237.59（XJD）→X：506789.072（YJD）→Y：3200（曲线半径）→R：270（缓和曲线长）→L：7°51°19