公路、铁路曲线坐标计算程序公路、铁路曲线坐标计算程序
一、主程序: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?...
公路、铁路曲线坐标计算程序
一、主程序: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+ -1-1180πR(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 2-1 L1 I=90P(πRW)y22-1 L2 X=P-Px5(40RW)
L3 Y=PIπ/540
三、子程序:2 -1-1L1 Y=180πR(P-0.5W) y2 L2 X=RsinY+W/2- Wx3/240/R
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、该程序适用于计算器 CASIO 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、该程序适用于极坐标法测量曲线时的数据,极角和极距,计算～以及曲线坐标计算。
程序设计:范耀君 2004年7月 广东惠州
本文档为【公路、铁路曲线坐标计算程序】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483