CASIO程序集.docVIP

CASIO程序集（修改）用于坐标正反算、任意曲线中桩和边桩坐标计算、圆曲线中桩坐 CASIO??fx-4800p 计算程序（1）、坐标反算：fs------‘文件名Lbl 0: {ABCD}??????A”X1=”:B”Y1=”:C”X2=”:D”Y2=”I=0:J=0:Pol (C-A,D-B) ↙J0=J=J+360:⊿↙I”D=”◢??????‘D=------两点边长J”A=”??????‘A=-----两点方位角Goto??0(2)、坐标正算：ZS------ ‘文件名Lbl 0: {ABDC}A”X1=”:B”Y1=”:D”D=”:C”CA=”I=0:J=0:Rec (D,C) ↙X”X2”=A+I◢Y”Y2”=B+J◢Goto??0↙(3)、 直线坐标计算 ZX------ ‘文件名Lbl 0: A”X1=”:B”Y1=”: C”CA=”Lbl 1: {DLR}↙??????‘ D----直线上任意点里程，L----左边距，R----右边距S=Abs(D-E) I=0:J=0:Rec(S,C) ↙F”X2”=A+I◢?????? ‘X2、y2----中线坐标G”Y2”=B+JRec(L,C-90) ↙M”LX”=F+I◢????????‘ LX、LY----左边桩坐标N”LY”=G+JRec(R