卡西奥4800程序.doc

ZUO(用于导线点坐标计算)4800P
A“X0”B“Y0”:X=0:Y=0:I=0:J=0
LbI 1
{S,Q}(S为距离左角为-、右角为+、Q为方位角、计算时方位角减去夹角)
X=Rec(S,Q)+A▲
Y=B+J▲
Goto 1
ZX ZB JS(直线坐标计算)4800P
N“X0”O“Y0”:C“K0”:W“FVJ”(X0,Y0为起点坐标, K0为起点桩号,FVJ为方位角)
LbI 1
{D}:D“KI”(KI为计算点桩号)
S=D-C
X=N+SC0SW▲
Y=O+SSinW▲
Goto 1
FVJ(坐标反算程序)4800P
A“X0”B“Y0”:I=0:J=0(X0,Y0为置仪点坐标)
LbI 1
{X,Y}(X,Y为待测点坐标)
PoI(X-A,Y-B)
E“S”=I▲(S为置仪点与待测点距离)
Q=J(Q为置仪点与待测点方位角)
Q〈0=>Q=Q+360▲
≠=>Q=Q▲
Goto 1
ZH HY()4800P
U“XZH”V“YZH”C“LS”W“FWJ”:R:G“K0”(XZH YZH为直缓点坐标,LS为缓和曲线长度,FWJ为方位角,R为曲线半径,K0为直缓点桩号)
P“(=1)=-1”(左转为1,右转为-1)
LbI 1
{D}:D“KI”(KI为计算点桩号)
L=D-G
S=L-L∧5÷40÷R2÷C2+L∧9÷3456÷R∧4÷C∧4-L∧13÷599040÷R∧6÷C∧6
F=30XL2÷π÷R÷C
X=U+S÷C0SFXC0S(W+PF)▲
Y=V+S÷C0SFXSin(W+PF)▲
Goto 1
HY YH(缓园园缓分段计算)4800P
N“XHY”O“YHY”W“FWJ”T“K0”C“LS”:R(XHY,YHY为缓园点坐标,FWJ为方位角,K0为缓园点桩号,LS为缓和曲线长度,R为曲线半径)
LbI 1
{D}:D“KI”(KI为计算点桩号)
L=D-T
F=90(L+C)÷π÷R
X=N+2Rsin(90L÷π÷R)C0S(W+PF)▲
Y=O+2Rsin(90L÷π÷R)sin(W+PF)▲
Goto 1
YH HZ(园缓. 缓直分段计算)4800P
U“XHZ”:V“YHZ”: W“FUJ”:C“LS”:T“K0”:R(XHZ YHZ为缓直点坐标,LS为缓和曲线长度,FWJ为方位角,R为曲线半径,K0为缓直点桩号)
P“(=1)=-1”(左转为1,右转为-1)
LbI 1
{D}:D“KI”(KI为计算点桩号)
L=T-D
S=L-L∧5÷40÷R2÷C2+L∧9÷3456÷R∧4÷C∧4-L∧13÷399040÷R∧6÷C∧6
F=30XL2÷π÷R÷C
X=U+S÷C0SFXC0S(W+180-PF)▲
Y=V+S÷C0SFXSin(W+180-PF)▲
Goto 1
SJX MJ JD (三角形面积、角度计算)4800P
A:B:D:Q=0(A,B为三角形二边,D为角度)
LbI 1
M=AXBXSinD÷2▲
C=√(A2+B2-C0SDX2XAXB)▲
Q=√Sin-1(MX2÷B÷C)▲(Q为计算角度)
J=180-Q-D▲(J为计算角度)
Goto 1