卡西奥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 HCGHJ （路线主点桩计算）4800P A“LS”:R:E“BAN” （LS为缓和曲线长度， R为曲线半径，BAN为路线夹角） LbI 1 P=A2+24÷R M=A÷2-A∧3÷240÷R2 B=AX90÷R÷π T=（R+P）㏒（E÷2）+M▲（T为切线长） L=（π÷180）（E-2B）R+2A▲（L为曲线长） C“E”=（R+P）÷C0S（E÷2）-R▲（E为外距） G=2T-L▲（G为校正值） ｛O｝:O“JD” F“ZH”=O-T▲ J“HY”=F+A▲ I“QZ”=J+（L-2A）÷2▲ S“YH”=I+（L-2A）÷2▲ K“HZ”=S+A▲ Goto 1 QXZDZ （路线主点桩坐标计算）4800P A“X0”:B“Y0”:C“FUJ”:E“BAJ”:Q:G（X0.Y0为起点坐标，FUJ方位角， BAN为路线夹角，G为校正值） LbI 1 M“O-ZH”=T X Sin（180-Q-G）÷SinQ▲ K“O-JD”= T X SinG+SinQ▲ X“XZH”=A+M C0S（C+Q）▲ Y“YZH”=B+M Sin（C+Q）▲ X“XJD”=A+K SinC▲ Y“YJD”=B+K SinC▲ X“XHZ”=X+TC0S（C+180-E+Q+G）▲ Y“YHZ”=Y+TSin（C+180-E+Q+G）▲ Goto 1