卡西欧测量相关程序

《卡西欧测量相关程序》由会员分享，可在线阅读，更多相关《卡西欧测量相关程序（60页珍藏版）》请在金锄头文库上搜索。

1、附闭合导线计算1、源程序F1 A1L1 Defm 4N-2L2 N:A:B:Pol(C-A,D-B):WW=W+360?T=WL3 K=0=M=T+180:E=C:F=D:GOTO 0: HE:F:Pol(G-E,H-F):WvO=W=W+360?M=WL4 Lbl 0:L=0:U=0:I=0:R=2:Z1=TL5 Lbl 1:J:ZR+360: ?R=N+1=GOTO 2: HR=R+1:GOTO 1L6 Lbl 2:P”JB”=(ZN+1-M) ?Q”JL”=407N?R=2L7 Lb1 3:S:ZN+R=S:L=L+S?L8 Z2N-1+R=Rec(S,(ZR-P(R-1)/N):U=U

2、+VL9 Z3N-2+R=W:l=l+W:N=R=GOT 4: HR=R+1:GOTO 3L10 Lbl 4:P=U+C-E?Q=I+D-F?L11 G”1:M”=L/Pol(P,Q) ?R=2L12 Lbl 5:X”Xl”=C+Z2N-1+R-PZN+R/L?Y”Yl”=D+Z3N-2+R-QZN+R/L?L13 R=N=GOTO 6: HR=R+1:C=X:D=Y:GOTO 5L14 Lbl 6:”END”2、说明(1) 、本程序可计算附和导线和闭合导线的坐标，计算的坐标系经过角度闭合 差及坐标增量闭合差分配后的结果，能显示角度闭合差、增量闭合差及导线全长 的相对精度；(2) 、输入的观测

3、角为导线的左角。3、程序代号注释N?导线观测角的折角数；A、B?导线起始点所后视的已知点的坐标x,y；C、D?导线起始点(即设站点)的坐标x,y；E、F?导线终点(已知点)的坐标x,y；G、H?在导线终点设站观测前视已知点的坐标x,y；T?起始站后视至起始点的方位角；M?终点站至前视已知点的方位角；J?观测的左角值；JB?角度闭合差；JL?允许的角度闭合差，程序中是以40命计算的，如和要求的不一致，可改一 下L6语句中的有关部分。S?所测导线的边长；L?边长的累计数；U?Ax的累计数；y的累计数；P?x坐标的闭合差；Q?y坐标的闭合差；K?转换符，当K=0时为计算闭合导线，当KH0 (任意数)

4、时为计算附和导线。面积计算(多边形法)1、源程序F1 A2L1 N:P=A:Q=B:S=0:I=2L2 Lbl 0:C,D:F=(A+C)(B-D):S=S+FL3 A=C:B=D:I=I+1L4 UN=GOTO 0 /L5 F=(C+P)(D-Q):S=S+F:S”W”=S/2 丄3、说明：(1)、本程序适用于所测断面为多边形闭合图形的面积计算。(2)、折点坐标按顺时针方向输入，得出的面积为正，否则为负，绝对值是一样 的。4、程序代号注释A、B计算面积起始点纵横坐标；C、D各转折点的纵横坐标；S代表计算过程中的有关面积；S“W 为图形最后需要的计算面积。N多边形的折点个数。体积计算1、源程序

5、F1 A3L1 J=0:H=0:WGL2 Lbl 0:NAB:NAB:P=A:Q=B:S=0:I=1L3 Lbl 1:CD:S=S+(A+C)(B-D)/2:A=C:B=D:I=I+1L4 lvN=GOTO 1 /S=S+(C+P)(D+Q)/2 丄L5 JM1=GOTO 2: ML=G-H:V=(R+S+7 (R*S)*L/3 2/W=W+V2L6 Lbl 2:R=S:H=G:J=1:G:G:GOTO 02、说明( 1 )、程序可自动计算每一断面面积，当进行到第二个断面时就会显示出 12 断 面间的体积，而后再进行第三断面面积计算，并累计出13断面之间的体 积。，直到最后得出需算断面间的总体

6、积。(2)、坐标输入时，应按顺时针方向逐个输入折点坐标，这样得出的面积为正 值，一个桩号折点输入完后，程序自动进入下一桩号的输入状态。3、程序代号注释G断面桩号；A、B断面起算折点的坐标；C、D断面上其他折点坐标；S断面面积；L断面间距；V本断面与前一断面之间计算出的体积。NG 桩号断面上的折点个数；w本断面之前所有体积之和。在任意控制点上测定直线上的任意位置与高程数据计算1、源程序F1 A4L1 A”X”:B”Y”:E”Z0”:C”X1”:D”Y1”:F”Z1”:G”H0”:IL2 Lbl 0:LJV:LJVL3 K= tanF:T=tan(E+L)L4 X”XP”=(B-D-AT+KC)/

7、(K-T) 2Y”YP”=B+TX-AT2L5 S=7 (X-A) 2+ (Y-B) 2)L6 H=G+Sta nJ+l-V/GOTO 02、说明 (1)、本程序功能：在已知断面上某一点的坐标及断面方向的方位角后，可直接 将仪器架设在邻近控制点上，为测设各个断面上的点提供数据，不需要一定要将 仪器架设在断面桩上测设断面，而所测的断面点均有坐标和高程。(2)、基本原理：如图所示，A、B为已知控制点，其方位角为Z0,断1-断2为断 面线控制桩，其方位角Z1可以算出，仪器架设在A点，后视B点，转角L1、L2、 L3。，这时A1、A2, oooooo的方位角也为已知，根据解析 几何，两方位直线相交，可

8、解出1# 2#。的坐标及其与A的距离。3、程序代号注释A、B测站点坐标C、D断面桩点坐标L观测断面点的水平角J观测断面点的竖直角V觇标咼S测站至断面测点的距离H-断面测点的高程I仪器咼Z0测站至后视点的方位角Z1断面线的方位角竖曲线计算1 、源程序F1 A5L1 BADTRZL2 Lbl 0:C:CL3 Z 1=H=A+(B-A)/T*(C-D)-(C-D)2/(2R) 2MH=A+QA)/T*(C-D)+ (C-D)2/(2R) /L4 GOTO 0 2、说明（1）、本程序的功能是根据道路施工纵断面图上的设计数据，算出竖曲线上各加 桩点的高程；（2）、本程序适用于由小桩号向大桩号端方向计算，

9、在键入全部已知数据后，当 C 出现时，只要键入该点的桩号，高程立即会显示出来。3、程序代号注释A起点（或终点）高程C需计算点的桩号T竖曲线切线长D起点（或终点）高程R竖曲线半径HC 桩号处的高程B切线交点的高程Z曲线凹凸判断符ZN1时为凸曲线，zvO时为凹曲线。两点测角前方交会坐标计算1 、源程序F1 A6L1 ABCDEFL2 X“XP”= (A/tanF+C/tanE-B+D) /(1/tanE+1/tanF)丄L3 Y“YP”= (B/tanF+D/tanE-C+A) /(1/tanE+1/tanF)丄说明：E1#点的观测角F2#点的观测角 1#、2#点的编号时应注意：面向交会点P的左侧

10、定为1#点，右侧定为2#点。坐标反算( for CASIO fx-48OOP )程序步骤：C”X1”:D” Y1”:E”X2”:F” Y2”:Fixm:Pol(E-C,F- D:l”S1-2=”丄JSO=J=J+360A J”A1-2=”操作过程：ZBFSEXEt输入 X1 值EXE输入 Y1 值EXE输入 X2 值EXE Y2EXE EXEEXES1-2 :计算得出的距离;A1-2:计算得出的角度。(按shift。转换为60进制的角度)注:此程序可循环计算。坐标反算( for CASIO fx-4800P )程序步骤:C”X1”:D” Y1”:E”X2”:F” Y2”:Fixm:Pol(E-

11、C,F- D:l”S1-2=”丄JSO=J=J+360A J”A1-2=”操作过程:ZBFSEXEt输入 X1 值EXE输入 Y1 值EXE输入 X2 值EXE Y2EXE EXEEXES1-2 :计算得出的距离；A1-2:计算得出的角度。(按shift。转换为60进制的角度)注:此程序可循环计算。 缓和曲线曲线要素 ( for CASIO fx-4800P )程序步骤:B=01718.87 * L/R2X=L-L 3/40/ R2 丄Y=L2/6/ R2P=Y-R(1-cos B2Q= X-Rsi n B2T=(R+P)ta n( A/2)+Q 丄E=(R+P)(cos(A/2)-1-R 丄

12、Z= R(A-2B)n/180+2L 丄J=2T-Z2D=X-Y/tan B操作过程：HQQXYStEXEt输入L值（即缓和曲线总长）-EXE-输入R值（即圆曲线半径）-EXE-得 B 角度tEXEt得 Xh 值tEXEt得 Yh 值tEXEt得 P 值tEXEt得 Q 值tEXEt输入 A 角（例 1253123.25） -EXE-得 T 值tEXEt得 E 值tEXEt得 Z 值 tEXEt得 J 值tEXEt得 D 值注：此程序可循环计算。铁路曲线坐标计算程序( for CASIO fx-4500P )一、主程序：M (M是文件名，下同)L1 A”CX”B”C Y”C”HX”D”H Y”

13、E”ZHX”F”ZH Y”Q”HZX”L”HZ Y”G”ZHDK”H”ZHJD”I”A”J”L0”K”L1”RL2 Pol(C-A,D-B):M=WL3 Lbl 2:W=90:NOWZ:Z”DK”N”Z/!/Y(1/2/3)”:N=2=Goto 1 /O”M”W”A”L4 Lbl 1:P=Z-G:S=E:T=F:U=H:V=H:FixmL5 PProg 3:#=PProg 1:#=PProg 2:V=90J/n/R+180n - 1R-1(P-J)/PProg 4:V=H+V/L6 PJ+K=P=2J+K-P:S=Q:T=L:P0=Prog 1:X=-X:U=H+I:Prog 4: V=U-V

14、: 衍U=H+l:V=U:P=-P:Prog 3 /L7 NM2=P=U=V-W:N=3=P=-P/S=X:T=Y:Prog 3 /L8 Pol(X-A,Y-B):W=W-M:Wv0=W=W+360/L9 W:”=” 2V:”S=”丄X:”X=”丄Y:”Y=”丄Goto 2二、子程序：1L1 V=90P2(nRJ)-1L2 X=P-Pxy5(40R2J2)-1L3 Y=PVn/540三、子程序：2L1 Y =180n-1R-1(P-0.5J)L2 X=RsinY+J/2- Jxy3/240/R2L3 Y=J/24/R+R-RcosY四、子程序：3L1 X=S+PcosUL2 Y=T+PsinU五、子程序：4L1 |Y=-Y:V=-V/L2 S=S+XcosU-YsinUL3 Y=T+XsinU+YcosUL4 X=S说明：1、该程序适用于计算器 CAS|O fx-4500PA。2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标ZHX,ZH Y；缓直点坐标HZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角ZHJD。； 曲线偏角(曲线左偏为负，右偏