CASIOfx-4800P公路测量程序
Friday, August 15th, 20081、主程序(XLZB)
Defm 10:Norm:O“X0”:G“Y0”:N≥1=>Goto 1:≠>N≥2=>Goto 2:≠>N≥3=>Goto 3:≠>N≥4=>Goto 4△△△△
Lb1 1:{KPM}:KPM:Prog“C”:I=K-J:Prog“A”:X“XS”=X▲
Y“YS”=Y▲
Prog“W”
Goto 1
Lb1 2:{KXY}:KXY:A=X:B=Y:Prog“C”:Prog“B”:K=J+I▲
P=P▲
Goto 2
Lb1 3:{KSQAB}:KSQAB:Prog“J”: Prog“C”: I=K-J: Prog“A”: X“XS”=X▲
Y“YS”=Y▲
Prog“W”
Goto 3
Lb1 4:{KE}:KE: Prog“W”: Prog“C”: I=K-J:P=T: M=90:Prog“A”: X“XS”=X▲
Y“YS”=Y▲
Prog“W”
Goto 4
a、当N=1时,求一般坐标放样。K:待求点桩号 P:偏移距离,当求中桩时P=0(左负右正) M:与右侧夹角,当求中桩时M=0
b、当N=2时,求桩号及距中桩距离。K:待求点桩号曲线上随意的一个桩号
X:反算时所求点的X坐标 Y:反算时所求点的Y坐标
c、当N=3时,求构造物防样几个角点坐标。K:待求点桩号 S:构造物的角点编号
Q:与路线右夹角 A:横向距离 B:纵向距离
d、当N=4时,所测标高点进行边线放样。K:待求点桩号 E:待求点边桩位置标高
2、正算子程序(A)
Z[5]=90*I/п/R:Z=W+Z[3]*2*Z[5]+Z[4]*I*L*Z[5]:X=U+Z[2]*I*cosZ+Z[3]*(2RsinZ[5]*cos(W+Z[5]))+Z[4]((I-I5/(40R2L2))cosW-(I3/(6RL)-I7/(336R3L3))sinW):Y= V+Z[2]*I*csinZ+Z[3]*(2RsinZ[5]*sin(W+Z[5]))+Z[4]((I-I5/(40R2L2))sinW+(I3/(6RL)-I7/(336R3L3))cosW):Z<0=>Z=Z+360△Z>360=>Z=Z-360△Z“QA”=Z:X=X+Pcos(Z+M):Y=Y+Psin(Z+M)
[...]