卡西欧5800计算器测量程序-txt

fx-5800P 程序 直线段中边桩坐标计算程序(PM10-9) (1) 计算原理 在图 10-11 中,已知路线直线段起点 A 的 桩号 Z A 及其平面坐标( x A , y A ),端点的已知 数据可以是 B 点的平面坐标( x B , y B ),也可 以是 AB 的方位角 α AB 与平距 D AB . 设直线上任意点 j 的桩号为 Z j , j 点的 则 中桩坐标为 x j = x A + ( Z j Z A ) cos α AB (10-34) y j = y A + ( Z j Z A ) sin α AB 左边桩坐标为 图 10-11 直线段中边桩坐标计算原理 x jL = x j + wL cos(α AB 90°) y jL = y j + wL sin(α AB 90°) 右边桩坐标为 (10-35) x jR = x j + wR cos(α AB + 90°) y jR = y j + wR sin(α AB + 90°) 式中, wL 为路线左半幅宽, wR 为路线右半幅宽. (10-36) (2) 程序 PM10-9,占用内存 746 字节. "LINE COORDINATE PM10-9" 显示直线段坐标计算标题 Deg:Fix 3 基本设置 4 DimZ 定义额外变量用于暂存左,右边桩点坐标 "A MILEAGE PEG(m)="?Z 输入以 m 为单位的 A 点桩号 "XA(m)="?A 输入起点 A 的 x 坐标 "YA(m)="?B 输入起点 A 的 y 坐标 "XB(m), 0 To BEAR A B(Deg)="?C 输入已知点 A 的 x 坐标或输入≤0 的数值 If C>0:Then "YB(m)="?D C>0 时为输入 B 点 y 坐标 Pol(C-A,D-B):Cls:I L 计算 A→B 的方位角与平距 J<0 J+360 J:J R 显示 A→B 的水平距离 "DIST A B(m)=":L "BEAR A B(DMS)=":R 显示 A→B 的方位角 Else "BEAR A B(Deg)="?R C<0 时为输入 A→B 的方位角 "DIST A B(m)="?L 输入 A→B 的平距 0 D:IfEnd 计数变量计数 1 K ClrStat:FreqOn 清除统计串列 List X,List Y,List Freq, 打开频度串列 1 K:Z List X[K] 存储 A 点桩号 "A PEG(m)=":List X[K] 显示 A 点桩号 Prog "SUB10-91" 调子程序计算 A 点中边桩点坐标 If L>0:Then K+1 K 计算 B 点桩号 Z+L List X[K] "B PEG(m)=":List X[K] 显示 B 点桩号 Prog "SUB10-91" 调子程序计算 B 点中边桩点坐标 IfEnd fx-5800P 程序 "INT DIST(m)="?O:O=0 Goto 1 输入整桩间距 "ONLY CALC +PEG(1)="? G 输入 1 为只计算加桩点的坐标 G=1 Goto 1 计算并存储从 A 点开始的第一个整桩号 K+1 K:Int(Z÷O)O+O List X[K] "INT PEG(m)=":List X[K] 显示整桩号 Prog "SUB10-91" 调子程序计算中边桩点坐标 Do 计算并存储整桩号 K+1 K:List X[K-1]+O List X[K] "INT PEG(m)=":List X[K] 显示整桩号 Prog "SUB10-91" 调子程序计算并显示坐标 If C>0:Then If List X[K]+O-Z L:Then 1 Y:Else 0 Y:IfEnd 整桩号<直线端点桩号时循环,否则结束 Else "CONTINUE(1),Stop(Else)"?Y:IfEnd 无端点坐标时每次询问是否继续计算 LpWhile Y=1 没计算到 YZ 点时继续循环 Lbl 1 Do 输入加桩号 "+PEG(m),<0 To END="? H If H<0:Then Goto 2:IfEnd 输入任意负数结束程序 K+1 K 计数变量计数 H List X[K] 存储加桩号到统计串列 "+PEG(m)=":List X[K] 显示加桩号 Prog "SUB10-91" 调子程序计算加桩点中边桩坐标 LpWhile H>0 Lbl 2:"PM10-9 END (3) 子程序——SUB10-91,占用内存 304 字节. 根据存储在 List X[K]中的逐桩点桩号,计算直线段中桩及其左,右边桩

第1页下一页