| CASIO4800中边桩计算程序 PQXY-1↙ D"X1"：E"Y1"：F"X2"：G"Y2"：H"X3"：V"Y3"：RL"LS"：W"J"↙ I=D-F：J=E-G：Prog"C":0=J：I=H-F：J=V-G：Prog "C "：U=J↙ M=0-J：M﹤θ=>M=M+360⊿M＜180=>M=180-M：C=I：≠>M=M-180：C=-1⊿↙ P=L2÷24R：Q=L÷2-LΛ3÷240R2：T=Q+（P+R）tan(M÷2) ↙ S=RMπ÷180+L：S◢↙ M=MC：M“J0=” ◢ T◢ M=W-T：N=M：N"ZH"◢ N=M+L:N"HY"◢ N=M+S÷2:N"QZ"◢ N=M+S-L:N"YH"◢ N=M+S:N"HZ"◢ Prog "B "↙ ↙ B Lblθ:Fixm:{KZB}:I=K-W+T:J=Z:B:I<S-L =>I≤θ=>M=I+B cosZ:N=BsinZ:Goto2⊿C=1 =>J=180-Z⊿I≤L=>Prog"D":≠>Prog"F"⊿↙ Lbl 2:J=O: Prog"G":Gotoθ⊿I=S-I↙ I≤θ=>M=I-B cosZ:N=-BsinZ: ≠>G≠1 =>J=180-Z⊿Prog "D ":N=-N⊿J=U: Prog "G ":Gotoθ↙ ↙ C Pol(I，J):J<θ=>J=J+360⊿↙ ↙ D A=RL:M=I-IΛ5÷40A2:N=IΛ3÷6A-IΛ7÷336AΛ3:A=90I2÷πA: Prog"E"↙ ↙ E↙ A=A-J:M=M-CB cosA:N=CN-BsinA↙ ↙ F↙ A=90÷πR×(2I-L):M=RsinA+Q:N=P+R(1-cosA): Prog"E"↙ ↙ G↙ A=cosJ:J=sinJ:I=F+TA-MA+NJ:J=G+TJ-MJ-NA:M=I:N=J↙ I=I-X:J=J-K↙ Prog"C":M"X="◢ N"Y="◢ 注：1.程序中O为符号Ｏ；θ为数字0。 操作说明：Z：表示与中心线的角度； B:边桩离中心线距离； J0 ：偏角：左为-（负）、右为+（正）； S：平曲线总长； J：第一个交点桩号； X1Y1：起点坐标； R:平曲线半径； J0:转角角度； K:计算点桩号； X2Y2：交点坐标； X3Y3：交点坐标。 我用的很是方便拿出来与大家共享。 |
|【路桥隧】
( 湘ICP备16018960号-1 ) QQ群：
GMT+8, 2026-4-4 19:42
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.
