卡西欧计算器FX-4X00测量程序.doc

《卡西欧计算器FX-4X00测量程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、此文档收集于网络，如有侵权，请联系网站删除卡西欧计算器FX-4X00程序附闭合导线计算１、源程序F1A1L1Defm4N-2L2N:A:B:Pol(C-A,D-B):W<0=>W=W+360?T=WL3K=0=>M=T+180:E=C:F=D:GOTO0:≠>E:F:Pol(G-E,H-F):W<0=>W=W+360?M=WL4Lbl0:L=0:U=0:I=0:R=2:Z[1]=TL5Lbl1:{J}:Z[R]+360:?R=N+1=>GOTO2:≠>R=R+1:GOTO1L6Lbl2:P”JB”=(

2、Z[N+1]-M)?Q”JL”=40√N?R=2L7Lb13:{S}:Z[N+R]=S:L=L+S?L8Z[2N-1+R]=Rec(S,(Z[R]-P(R-1)/N)):U=U+VL9Z[3N-2+R]=W:I=I+W:N=R=>GOT4:≠>R=R+1:GOTO3L10Lbl4:P=U+C-E?Q=I+D-F?L11G”1:M”=L/Pol(P,Q)?R=2L12Lbl5:X”XI”=C+Z[2N-1+R]-PZ[N+R]/L?Y”YI”=D+Z[3N-2+R]-QZ[N+R]/L?L13R=N=>

3、GOTO6:≠>R=R+1:C=X:D=Y:GOTO5L14Lbl6:”END”２、说明（1）、本程序可计算附和导线和闭合导线的坐标，计算的坐标系经过角度闭合差及坐标增量闭合差分配后的结果，能显示角度闭合差、增量闭合差及导线全长的相对精度；（2）、输入的观测角为导线的左角。3、程序代号注释N?导线观测角的折角数；A、B?导线起始点所后视的已知点的坐标x,y；C、D?导线起始点（即设站点）的坐标x,y；E、F?导线终点（已知点）的坐标x,y；G、H?在导线终点设站观测前视已知点的坐标x,y；T?起始站后

4、视至起始点的方位角；M?终点站至前视已知点的方位角；J?观测的左角值；JB?角度闭合差；JL?允许的角度闭合差，程序中是以40√n计算的，如和要求的不一致，可改一下L6语句中的有关部分。S?所测导线的边长；L?边长的累计数；U?△x的累计数；I?△y的累计数；P?x坐标的闭合差；Q?y坐标的闭合差；K?转换符，当K=0时为计算闭合导线，当K≠0（任意数）时为计算附和导线。此文档仅供学习与交流此文档收集于网络，如有侵权，请联系网站删除[此贴子已经被作者于2006-3-1421:09:12编辑过]----

5、------------------------------------------------------------------------------作者：webmaster--发布时间：2006-3-1420:46:08--面积计算（多边形法）1、源程序F1A2L1N:P=A:Q=B:S=0:I=2L2Lbl0:{C,D}:F=(A+C)(B-D):S=S+FL3A=C:B=D:I=I+1L4I≦N=>GOTO0⊿L5F=(C+P)(D-Q):S=S+F:S”W”=S/2◢３、说明：（1）、本

6、程序适用于所测断面为多边形闭合图形的面积计算。（2）、折点坐标按顺时针方向输入，得出的面积为正，否则为负，绝对值是一样的。４、程序代号注释A、B—计算面积起始点纵横坐标；C、D—各转折点的纵横坐标；S—代表计算过程中的有关面积；S“W”—为图形最后需要的计算面积。N—多边形的折点个数。体积计算1、源程序F1A3L1J=0:H=0:WGL2Lbl0:{NAB}:NAB:P=A:Q=B:S=0:I=1L3Lbl1:{CD}:S=S+(A+C)(B-D)/2:A=C:B=D:I=I+1L4IGOTO

7、1⊿S=S+(C+P)(D-Q)/2◢L5J≠1=>GOTO2:≠>L=G-H:V=(R+S+√（R*S))*L/3◢⊿W=W+V◢L6Lbl2:R=S:H=G:J=1:{G}:G:GOTO02、说明（1）、程序可自动计算每一断面面积，当进行到第二个断面时就会显示出1~2断面间的体积，而后再进行第三断面面积计算，并累计出1~3断面之间的体积。。。。。。，直到最后得出需算断面间的总体积。（2）、坐标输入时，应按顺时针方向逐个输入折点坐标，这样得出的面积为正值，一个桩号折点输入完后，程序自动进入下一桩号的

8、输入状态。3、程序代号注释G—断面桩号；A、B—断面起算折点的坐标；C、D—断面上其他折点坐标；S—断面面积；此文档仅供学习与交流此文档收集于网络，如有侵权，请联系网站删除L—断面间距；V—本断面与前一断面之间计算出的体积。N—G桩号断面上的折点个数；W—本断面之前所有体积之和。----------------------------------------------------------------------------------作者：webm