CASIO fx-4800PA测量小程序.docVIP

CASIO fx-4800PA编程 一、距离、方位角（JL－FWJ）: Lbl 0:｛HKMN｝:H“XI”:K“YI”:M“XP”: N“YP”:I=0:J=0　← Pol ((M-H),(N-K))← I“L” ▲ J＜0=J=J+360△　← J“J”▲ Goto 0　← 二、坐标（ZUOBIAO）: Lbl 0:｛HKLO｝:H“XI”: K“YI”: O“J”:I=0:J=0　← Rec (L,O)　← M“XP”=H+I▲ N“YP”=K+J▲ Goto 0　← 3D: Lbl 0:H“XI”:K“YI”:E“XO”:F“YO”: ← ｛O｝:O“J”:｛L｝:I=0:J=0　← Rec (L,O)　← M“XP”=E+I▲ N“YP”=F+J▲ Pol ((M－H),(N－K)):J＜0=J=J+360△　← P“L”=I▲ Q“J”=J▲ Goto 0　← 四、三边算角（SB(SJ）： Lb1 0:{ABC}← D“JC”=cos-1((A2+B2－C2)/2AB)▲ E“JB”=cos-1((A2+C2－B2)/2AC)▲ F“JA”=cos-1((B2+C2－A2)/2BC)▲ Goto 0 ← 五、面积计算（MJ）： Mcl:Norm:N:Lb1 1:Fixm:{XY}:I=I+1:(XG－FY)/2:Q=Q+Ans:F=X:G=Y:I＜N+1=Goto 1△R=Q2：R“MJ=” ← 注：N为多边形的边数 六、施工(大地（SG(DD）： Fixm:Lb1 0:{ABICD}: A“XI”: B“YI”: I“J”: C“XS”: D“YS” ← M“XP”=Ccos I－Dsin I+A▲ N“YP”=Csin I+Dcos I+B▲ Goto 0 ← 七、大地(施工（DD(SG）： Fixm:Lb1 0:{ABIEF}:A“XI”:{B}:B“YI”:{I}:I“J”:{E}:E“XP”:{F}:F“YP” ← R“XS”=(E－A)cos I+(F－B)sin I▲ S“YS”=－(E－A)sin I+(F－B)cos I▲ Goto 0 ← 八、三点后方交会（SDHFJH）： Lbl 0:｛ABCDEFGHKLMNOPQ｝:A“X1”: B“Y1”: C“H1”: D“X2”: E“Y2”: F“H2”: G“X3”: H“Y3”: K“H3”: L“J12”: M“J13”: N“V1”:O“V2”: P“V3”: Q“HI”:I=0:J=0　← R“JP1”=tan-1(((B-E)/tanL-( B-H)/tanM+( D-G))/(( A-D)/tanL-( A-G)/tanM-(E-H))) ← S“JP2”=R+L ← T“K1”=－（A-D）×tanR+(B-E) ← U“L1”= tanS－tanR ← V“XP”=D+T/U▲ W“YP”=E+T/U×tanS▲ Pol((A－V),(B－W)) ▲ I“LP1=” ▲ J ＜0=J=J+360△　← J“JP1=”▲ X“HP1”=C－Q－tan(90。－N)×I▲ Pol((D－V),(E－W)) ▲ I“LP2=”▲ J ＜0=J=J+360△　← J“JP2=”▲ Y“HP2”= F－Q－tan(90。－O)×I▲ Pol((G－V),(H－W)) ▲ I“LP3=”▲ J ＜0=J=J+360△　← J“JP3=”▲ Z“HP3”= K－Q－tan(90。－P)×I▲ T“HP”=（X+Y+Z）/3▲ Goto 0 ← 九、前方交会(QFJH): Lbl 0:｛ABCDEFGHKLOPQ｝:A“X1”: B“Y1”: C“H1”: D“X2”: E“Y2”:F“H2”: G“J1”: H“J2”: K“V1”: L“V2”: O“HI1”: P“HI2”: Q“HJ”:I=0:J=0　← M“XP”=(A/tanH+D/tanG－B+E)/(1/tanG+1/tanH) ▲ N“YP”=(B/tanH+E/tanG+A－D)/(1/tanG+1/tanH) ▲ Pol((M-A),(N-B))← I“L1P=”▲ J ＜0=J=J+360△　← J“J1P=”▲ R“HP1”= C+tan(90。－K)×I+O－Q▲ Pol((M-D),(N-E))← I“L2P=”▲ J ＜0=J=J+360△　← J“J2P=”▲ S“HP2”= C+tan(90。－L)×I+P－Q▲ T“HP”=（R+S）/2▲ Goto 0 ← 十、测边交会(CBJH): Lbl 0:｛ABCDEFGHKLMNOP｝:A“X1”: B“Y1”: C“H1”: D“X2”: E“Y2”:F“H2”: G“SP2”: H“SP1”: