CASIO fx-4500P测量放样程序.doc

CASIO fx-4500PA编程距离、方位角（JLFWJ）：Lb1 0：O：O“XI”：P：P“YI”：Q：Q“XP”：R：R“YP”Pol(Q-O),(R-P) V“S”=V WW=W+360W“J”=WGoto 0 坐标（ZUOBIAO）：Lb1 0：Q：Q“XI”：R：R“YI”：S：J Rec(S,J) T“XP”=Q+V U“YP”=R+WGoto 0 3D：Lb1 0：D“XI”：E“YI”：F“XO”：G“YO”：H：H“S”：I：I“J”Rec(H,I) M“XP”=F+V N“YP”=G+WPol(M-D),(N-E) V“S”=VWW=W+360W“J”=WGoto 0 三边算角（SBSJ）：Lb1 0:A:B:C D“JC”=cos-1(A2+B2C2)/2AB) E“JB”=cos-1(A2+C2B2)/2AC) F“JA”=cos-1(B2+C2A2)/2BC) Goto 0 面积计算（MJ）：Mcl:Norm:N:Lb1 1:Fixm:XY:I=I+1:(XGFY)/2:Q=Q+Ans:F=X:G=Y:IN+1=Goto 1Q2+R：“MJ=”注：N为多边形的边数施工大地（SGDD）：Fixm:Lb1 0:A: A“XI”:B:B“YI”:I:I“J”:C:C“XS”:D:D“YS” M“XP”=Ccos IDsin I+A N“YP”=Csin I+Dcos I+B Goto 0 大地施工（DDSG）：Fixm:Lb1 0:A:A“XI”:B:B“YI”:I:I“J”:E:E“XP”:F:F“YP” R“XS”=(EA)cos I+(FB)sin I S“YS”=(EA)sin I+(FB)cos I Goto 0 导线平差：导线平差子程序：（1） JD： Q=Frac U102：Z=Int U+Int Q/60+Frac Q/36 （2） FW： U：U“B”：Prog JD:A=A+Z+180:AO= A=AOAO= A=AO （3） XY： Rec(ZI+C,ZI):X=X+V:Y=Y+W 支导线计算(ZDXJS):Mcl:X:Y:U“A”：Fixm:Prog JD:A=Z:O=360:Lb1 0:Prog FW:D:Rec(D,A):X=X+VY=Y+WGoto 0 导线平差(DXJD):Mcl:N:M=2N+1:C=N+1:Defm M:E“XA”：F“YA”：U“TA”：Prog JD:A=Z:G“XB”:H“YB”：Fixm:U:U“TB”:Prog JD:B=Z:I=1:O=360:Lb1 1:Prog FW:ZI=A:I=I+1:IC= Goto 1 W=ZC B：V=W/C：W“WB”=10WOI=1：Lb1 2:ZI=ZI+VI:I=I+1:IC=Goto 2I=N+2:Lb1 3:S:ZI=S:D=D+ZI:I=I+1:IM= Goto 3 I=1:DLb1 4:Prog XY:I=I+1:IN= Goto 4K“WX=”=X+EGL“WY=”=Y+FHB“WS=”=(K2+L2) X=0:Q“M=”=D/BY=0:I=1: Lb1 5:Prog XY:X=XKZI+C/D:Y=YLZI+C/D: R“X”=E+XP“Y”=F+YI=I+1:IN= Goto 5 导线平差代号：N：为导线边个数 B：为观测角个数（N+1）XA，YA：为起算点坐标 TA：为起算点方位角XB，YB：为闭合点坐标 TB：为闭合方位角WB：为方位角闭合差 D：为导线总长WX：为坐标X的闭合差 WY：为坐