4800中桩、任意角度边桩程序。

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：交点坐标。 
我用的很是方便拿出来与大家共享。
                 



TAG: 测量