| 一、主程序：M（M是文件名，下同） L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK” H”ZHJD°”V”A°”W”L0”K”L1”R L2 Pol(C-A,D-B):M=J L3 Lbl 2:J=90:{NOJZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto 1⊿O”M”J”A°” L4 Lbl 1:P=Z-G:S=E:T=F:U=H:I=H:Fixm L5 P≤0=>Prog ”3”:≠=>P≤W=>Prog ”1”:≠=>P≤W+K=>Prog ”2”:I=90W/π/R+ 180π-1R-1(P-W)⊿⊿P≤W+K=>Prog ”4”:I=H+I⊿⊿ L6 P>W+K=>P=2W+K-P:S=Q:T=L:P>0=>Prog ”1”:X=-X:U=H+V:Prog ”4”: I=U-I:≠=>U=H+V:I=U:P=-P:Prog ”3”⊿⊿ L7 N≠2=>P=O:U=I-J:N=3=>P=-P⊿S=X:T=Y:Prog ”3”⊿ L8 Pol(X-A,Y-B):J=J-M:J<0=>J=J+360⊿ L9 J:”°°°=”◢I:”S=”◢X:”X=”◢Y:”Y=”◢Goto 2 二、子程序：1 L1 I=90P2(πRW)-1 L2 X=P-Pxy5(40R2W2)-1 L3 Y=PIπ/540 三、子程序：2 L1 Y=180π-1R-1(P-0.5W) L2 X=RsinY+W/2- Wxy3/240/R2 L3 Y=W/24/R+R-RcosY 四、子程序：3 L1 X=S+PcosU L2 Y=T+PsinU 五、子程序：4 L1 V<0=>Y=-Y:I=-I⊿ L2 S=S+XcosU-YsinU L3 Y=T+XsinU+YcosU L4 X=S 说明：1、该程序适用于计算器 CASVO fx-4800P。 2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标ZHX,ZHY；缓直 点坐标HZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角ZHJD°；曲线偏 角（曲线左偏为负，右偏为正）A°；缓和曲线长L0；圆曲线长L1;圆曲线半径R；计算 点里程DK；计算曲线的左边点或者右边点）Z/!/Y(1/2/3)，曲线的右边输入1，左边输 入3，线路上输入2；左边的点与当前里程点的连线的距离和当前里程点切线的逆时针 方向的角度A°（如果上一项不选择2的话）。 3、计算结果显示的数据是：极角、极距和坐标。 4、该程序适用于极坐标法测量曲线时的数据（极角和极距）计算，以及曲线坐标计算。 程序设计：杨序邦 2002年7月 重庆 |
|【路桥隧】
( 湘ICP备16018960号-1 ) QQ群：
GMT+8, 2026-4-4 19:41
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.
