常用casio4800计算程序集

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

1、常用CASIO4800计算程序集FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb10：Fixm：{AS}：T=T+A-180：T〈0=〉T=T+360⊿T〉360=〉T=T-360⊿T◢X=X+ScosT◢Y=Y+SsinT◢Goto  0程序运行说明：运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐  标方位角，运行一次本程序只需输入一次已知数据。显示A？时

2、输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按    +      可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH”↲Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=”◢I“S=”◢Lb10:{AS}:T=T+A-180：T〈0=〉T=T+360⊿T〉360=〉T=T-360⊿T◢X=

3、X+ScosT◢Y=Y+SsinT◢Goto  0程序运行说明：运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）      程序清单：  C“X0”：D“Y0”：E“T0”：Fixm：Lb11:{SA}↲T=E+A-180：T〈0=〉T=T+360⊿T〉360=〉T=T-360⊿T◢X=C+ScosT◢Y=D+SsinT◢Goto  1程序运行说明：变量输入参照ZBJS程序。4、由两个

4、已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH”↲Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=”◢I“S=”◢Lb11:{SA}↲T=F+A-180：T〈0=〉T=T+360⊿T〉360=〉T=T-360⊿T◢X=X+ScosT◢Y=Y+SsinT◢Goto15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=>LX，≠>FS”：W“1=>1-D≠>

5、2-D”：W=1=>Goto1:≠>Goto2↲Lb11：F“X0=”：G“Y0=”：H“TH-0=”：Goto3↲Lb12:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm:J〈0=〉J=J+360⊿H=J：H“TH-0=”◢I“S-H=”◢Goto3↲Lb13:X=F：Y=G：T=H：V=1=>Goto4:≠>Goto5↲Lb14:{AS}:A:S:T=T+A-180：T〈0=〉T=T+360⊿T〉360=〉T=T-360⊿T◢X=X+ScosT◢Y=Y+SsinT◢Goto4L

6、b15：{AS}:A:ST=H+A-180：T〈0=〉T=T+360⊿T〉360=〉T=T-360⊿T◢X=F+ScosT◢Y=G+SsinT◢Goto  56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb11:{XY}↲Pol(X-F，Y-G)↲J〈0=〉J=J+360⊿A=J-H↲A〈0=〉A=A+360⊿A“A=”◢I“S=”◢Goto  1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

7、7、已知置镜点和后视点坐标进行放样（FY2）程序清单：F“X0”：G“Y0”：M“XH”：N“YH”↲Pol(M-F，N-G)：Fixm：H=J↲H〈0=〉H=H+360⊿H“T-H=”◢I“S-H=”◢Lb11:{XY}:Pol(X-F，Y-G)↲J〈0=〉J=J+360⊿↲A=J-H↲A〈0=〉A=A+360⊿A“A=”◢I“S=”◢Goto  18、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）程序名“FY”程序清单：I“I=1=>1-D≠>2-D”↲I=1=>Goto1:≠>Goto2↲Lb11：F“

8、X0”：G“Y0”：H“T0-H”：Goto3↲Lb12：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J〈0=〉J=J+360⊿H=J:H“T-H=”◢I“S-H=”◢Goto3↲Lb13：{XY}↲Pol(X-F，Y-G)：Fixm↲J〈0=〉J=