fx-4800任意置站放样程序

F1
FWJZ（任意点坐标计算及复核）

B″NC″C″EC″D″N0″E″E0″：X=B-D：Y=C-E：J=tan-1 (Y/X):G=J:X<0＝＞G=360+G△X＞0=＞G=180+G△X<0＝＞Y<0=＞G=G-360△X＞0=＞Y＞0=＞G=G+180△△△G″FWJ″▲S=√((X)2+(Y)2)▲Defm4:LbI0:｛PKFH｝:F=0=＞Prog8:Goto0△F≠0=＞W″Deg″=cos－1((S2+P2-F2)/(2SP))
▲△X=B+P cos(G+KW)▲Y=C+Psin(G+KW) ▲｛I｝:Z［1］″X1″=X+Fcos((G+KW)+K(I+180)):Z［2］″Y1″ =Y+Fsin((G+KW)+K(I+180)):Z［3］″X2″=D-Z［1］▲Z［4］″Y2″=E-Z［2］▲Goto0

F2
8(转点坐标计算)

X=B+P cos(G+KH)▲Y=C+Psin(G+KH) ▲

程序符号说明：P-后视距离输入； K-判定方向：左为-1、右为+1；F-前视距离输入；I-任意点角；H-置站点转角；

程序使用说明：此程序使用于在施工过程中某些段落和某些放样点位不通视的地方，你可选择任意点置站进行放样，搞不明白的最好别用，小心方向搞反了，不过有复核程序，可以反算前后视的坐标是正确。
当F=0时，进入转点坐标计算。
此程序最好只用于路基等精度要求不高的地方用，因为前后视的累计误差都会集中到你选择的置站点上。