常用测量程序汇编

《常用测量程序汇编》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、常用测量程序汇编（仅适用于4500计算器）一、坐标正算源程序1Lbl0{DB}DBEFRec（D，B）：X=V+E◢Y=W+F◢Goto0算例：D=100B=45°E=100F=100显示：X=170.7106781Y=170.7106781源程序2Lbl0{SBAL}：SBAKLEFZD=SSinA◢Rec（D，B）：X=V+E◢Y=W+F◢H=ScosA+K-L+Z◢Goto0算例：S=100B=45°V=90°K=1.3L=1.3E=100F=100Z=30显示：D=100.000X=170.7106781Y=170.7106781H=30.00二、坐标反算

2、源程序：Lbl0{XY}：XYEFPol（X-E，Y-F）：“D”◢W<0=>W=W+360⊿W:“B=”◢Goto0算例：X=200Y=200E=100F=100显示：D=141.4213562B=45.000一、后方交会计算源主程序：DEFGHI：Prog1RST：Prog2算例：D=200E=100F=373.205G=200H=200I=300R=120°S=120°T=120°显示：X=257.7350269Y=200注意：编号遵循顺时针原则四、三点共圆求圆心坐标源程序：DEFGHI：Prog1R=2A：S=2B：T=2CProg2算例：D=615.97

3、1E=194.862F=693.544G=364.362H=603.592I=393.018显示：X=621.8085556Y=294.6913420注意：①同样遵循顺时针原则②圆上三点不能靠得太近，否则对计算精度有影响子程序1：文件名1Pol（F-D，G-E）：O=W：Z=VPol（H-D，I-E）：P=WPol（H-F，I-G）：Q=WA=P-OA<0=>A=A+360:=>A≥360=>A=A-360⊿⊿B=O+180-QB<0=>B=B+360:=>B≥360=>B=B-360⊿⊿C=Q-PC<0=>C=C+360:=>C≥360=>C=C-360⊿⊿子程

4、序2：文件名2U=tgAtgR/（tgR-tgA）V=tgBtgS/(tgS-tgB)W=tgCtgT/(tgT-tgC)O=U+V+WX=(UD+VF+WH)/O◢Y=(UE+VG+WI)/O◢五、前方交会计算源程序:Lbl0{AB}:ABCDEFM=tgA+tgBN=tgAtgBX=(CtgA-DN+EtgB+FN)/M◢Y=(DtgA+FtgB+(C-E)N)/M◢Goto0算例:C=100D=100E=100F=200A=60°B=60°显示:X=186.6025404Y=150.000注意:①编号同样遵循顺时针原则②顺时针次序为:已知点→待求点→已知点六

5、、边长交会源程序:Lbl0{AB}:ABCDEFM=E-C:N=F-DL=G=(B2-A2+L2)/2LH=X=C+(GM+HN)/L◢Y=D+(GN-HM)/L◢Goto0算例:A=100B=100C=100D=100E=100F=200显示:X=186.6025404Y=150.000注意:①编号同样遵循顺时针原则②顺时针次序为:已知点→待求点→已知点五、面积计算源程序:MCL:AB:C=A:D=B:Lbl1:{XY}:X=0=>X=A:Y=B⊿Y:FixmM=0.5(CY-DX:C=X:D=Y:S=S+M:(A-X+B-Y)=0=>S“S”=S◢⊿Goto1

6、说明(A,B)表示起始点的坐标(X,Y)为后续点的坐标所有点的坐标输完后,最后以输入X=0为结束符,此时面积便显示出来.算例:依次输入各点坐标后,最后输入“0”显示S=10000.000注意:坐标输入时遵循顺时针原则六、两条直线相交求交点坐标源程序:ABCDEFGHPol(C-A,D-B):O=tanWPol(G-E,H-F):P=tanWM=O-PX=(AO-B-EP+F)/M◢Y=((A-E)PO+FO-BP)/M◢算例:A=30851.614B=101290.991C=30719.617D=101415.604E=30682.793F=101297.566G

7、=30906.566H=101411.844显示:X=30787.82888Y=101351.2064五、点到直线的距离源程序:CDEFXYM=X-CN=Y-D:Pol(E-C,F-D):A=cosW:B=sinWW=NA-MB◢S=MA+NB◢算例:C=100.00D=100.00E=100.00F=200.00X=186.6025404Y=150.000显示:W=-86.6025404S=50.00说明:当W为负时,表示待求点在已知直线的逆时针方向当W为正时,表示待求点在已知直线的顺时针方向W为待求点到直线的距离S为垂足至起算点的距离五、图幅号计算源程序:Lb

8、l0{X,