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&nbsp"C&nbsp"：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)&nbsp↙
S=RMπ÷180+L：S◢↙
M=MC：M“J0=”&nbsp◢
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&nbsp"B&nbsp"↙
↙
B
Lblθ:Fixm:{KZB}:I=K-W+T:J=Z:B:I<S-L&nbsp=>I≤θ=>M=I+B&nbspcosZ:N=BsinZ:Goto2⊿C=1&nbsp=>J=180-Z⊿I≤L=>Prog"D":≠>Prog"F"⊿↙
Lbl&nbsp2:J=O:&nbspProg"G":Gotoθ⊿I=S-I↙
I≤θ=>M=I-B&nbspcosZ:N=-BsinZ:&nbsp≠>G≠1&nbsp=>J=180-Z⊿Prog&nbsp"D&nbsp":N=-N⊿J=U:&nbspProg&nbsp"G&nbsp":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:&nbspProg"E"↙
↙
E↙
A=A-J:M=M-CB&nbspcosA:N=CN-BsinA↙
↙
F↙
A=90÷πR×(2I-L):M=RsinA+Q:N=P+R(1-cosA):&nbspProg"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="◢&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
&nbsp
注：1.程序中O为符号Ｏ；θ为数字0。&nbsp
&nbsp操作说明：Z：表示与中心线的角度；
B:边桩离中心线距离；
J0&nbsp：偏角：左为-（负）、右为+（正）；
S：平曲线总长；
J：第一个交点桩号；
X1Y1：起点坐标；
R:平曲线半径；
J0:转角角度；
K:计算点桩号；
X2Y2：交点坐标；
X3Y3：交点坐标。&nbsp
我用的很是方便拿出来与大家共享。
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp