CASIO fx-4500P计算器实用程序
程序1——视距测量1
文 件 名 1.SJ1 视 距 测 量 1 　　步
L1 Lbl 0:{SCZ}:HSCZ:V=Z:Prog D:S(sin V)2:"D="▲Ans/tan V+H-C:"H="▲Goto 0
程序2——坐标反算
文 件 名 2.ZBFS 坐 标 反 算 　　步
L1 M"X1"N"Y1"K"X2"L"Y2":Pol(K-M,L-N:"D="▲Porg A:Prog C:"F="
程序3——坐标方位角计算
文 件 名 3.ZBFWJ 坐 标 方 位 角 计 算 　　步
L1 FB:W=F:Prog B:V=B:Prog D:W=W+V-180:Prog A:Prog C:"F1="
程序4——坐标正算
文 件 名 4.ZBZS 坐 标 正 算 　　步
L1 U"F"DK"X2"L"Y2":W=U:Prog B:X=K+Rec(D,W:"X3="▲Y=L+W:"Y3="
程序5——交会法放样计算
文 件 名 5.JHFFY 交 会 法 放 样 计 算 　　步
L1 M"X1"N"Y1"K"X2"L"Y2":Pol(K-M,L-N:"D="▲Porg A:U=W:Prog C:"F="▲Lbl 0:{B}:V=B:Prog D:T=U+V:E"F△"O"X△"P"Y△"
L2 W=E:Prog B:X=(Ktan T-Otan W+P-L)/(tan T-tan W:"X3="▲
L3 Y=L+tan T(X-K:"Y3="▲I=W:Pol(X-K,Y-L:"D1="▲:Prog A:G=W:Prog C:"F1="▲W=I-G:Prog A:Prog C:"μ="▲Goto 0

程序6——极坐标法放样计算
文 件 名 6.JZBFY 极 坐 标 法 放 样 计 算 　　步
L1 M"X1"N"Y1"K"X2"L"Y2":Pol(K-M,L-N:"D="▲Prog A:G=W:Prog C:"F="▲
L2 X"X△"Y"Y△"Pol(K-X,L-Y:"D1="▲W=W+180:Prog A:I=W:Prog C:"F1="▲W=I-180:Prog A:W=W-G:Prog A:Prog C:"B="
程序7——视距测量2
文 件 名 7.SJ2 视 距 测 量 2 　　步
L1 Lbl 0:{SCZ}:HSCZ:V=Z:Prog D:D=Ssin V:"D="▲D/tan V+H-C:D>300ÞAns+.43D2/6371000△"H="▲Goto 0
程序8——放样点坐标高程计算
文 件 名 8.XYH 放 样 点 坐 标 高 程 计 算 　　步
L1 M"X1"N"Y1"K"X2"L"Y2":Pol(K-M,L-N:"D="▲Prog A:I=W:Prog C:"F="▲
L2 Lbl 0:{ASJZC}:AHSJ"B"ZC:V=Z:Prog D:A=1ÞD=S(sin V)2△A≠1ÞD=Ssin V△"D1="▲W=J:Prog B:W=I+W-180:Prog A:F=W:Prog C:"F1="▲
L3 U=V:Q=K+Rec(D,F:"X3="▲R=L+W:"Y3="▲
L4 D/tan U+H-C:A=1Þ"H="▲△A≠1ÞD>300ÞAns+.43D2/6371000△"H="▲△
L5 {XY}:X"X△":X=0ÞGoto 0△Y"Y△":F=Pol(Q-K,R-L:U=W:Pol(X-K,Y-L:Rec(V,W-U:F-V:"!"▲W:"-"▲Goto 0
子程序1——角度判断
文 件 名 A 角 度 判 断 步
L1 W≥360ÞW=W-360△W＜0ÞW=W+360
子程序2——角度换算①
文 件 名 B 角 度 换 算 ① 步
L1 W=Int W+Frac W/.6+Frac100 W/90
子程序3——角度换算②
文 件 名 C 角 度 换 算 ② 步
L1 W=Int W+.6Frac W-.004Frac60 W
子程序4——角度换算③
文 件 名 D 角 度 换 算 ③ 步
L1 V=Int V+Frac V/.6+Frac100 V/90
程序8——坐标高程计算
文 件 名 8.XYH 坐　标　高　程　计　算 步
L1 M"X1"N"Y1"K"X2"L"Y2":Pol(K-M,L-N:Fixm:I"D="▲Porg "A":G=J:Prog "C":J"F="▲{AHSVZC}:AHSV"B"ZC:Lbl 0:I=Z:Porg "D":A=1ÞD=S(sin I)2△A≠1ÞD=Ssin V△D"D1="▲J=V:Prog "B":J=G+J-180:Prog "A":F=J:Prog "C":J"F1="▲U=I:Q"X3"=K+Rec(D,F▲R"Y3"=L+J▲I=D÷tan U+H-C:A=1Þ"H="▲△A≠1ÞD>300ÞAns+.43D2/6371000△I"H="▲△{XY}:X"X△":X=0ÞGoto 1△Y"Y△":F=Pol(Q-K,R-L:U=J:Pol(X-K,Y-L:Rec(I,J-U: W"!"=F-I▲J"-"▲{ASVZC}:ASV"B"ZC:Goto 0: Lbl 1: {ASVZC}:ASV"B"ZC: X=0ÞGoto 0△Goto 1
子程序1——角度判断
文 件 名 A 角 度 判 断 步
L1 J≥360ÞJ=J-360△J＜0ÞJ=J+360
子程序2——角度换算①
文 件 名 B 角 度 换 算 ① 步
L1 J=Int J+Frac J÷.6+Frac 100J÷90
子程序3——角度换算②
文 件 名 C 角 度 换 算 ② 步
L1 J=Int J+.6Frac J-.004Frac 60J
子程序4——角度换算③
文 件 名 D 角 度 换 算 ③ 步
L1 I=Int I+Frac I÷.6+Frac 100I÷90

验算数例请参见附：程序验算数据。