资源描述：
《5800p全线坐标正反计算程序源文件》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、CASIOfX-5800P公路坐标正反计算程序程序说明因测量工作需要，为了确保计算器丢失后程序丢失造成的不便。根据本人多年工作经历、自学摸索，经多次修改后编制此公路坐标正反算程序，为了能够与广大测量弟兄及编程高手们学习的原望。现将此程序发表共享，有错误或不足之处还请朋友们交流指导为谢！为了便于编制、阅读和输入，本程序共拆分为两个主程序与四个子程序组成，其中主程序为：GLZBZS（公路坐标正算）与GLZBFS（公路坐标反算X子程序为：XL（线路＞DXD（导线点XPQXCS（平曲线参数）和ZB（坐标计算核心i本程序采为交点法原理编制，理论上
2、可以计算任何线形线。程序编制时已经输入一条由三个曲线组成的线路为例，其中有一组为不等长缓和曲线的曲线要素参数（详见程序清单），供朋友们校验程序输好后正确予否。因为CASIOfx-5800自身问题（我认为运算速度很慢），程序运算速度与您的线路参数多少有关，一般来说正算在5秒内可以出结果，反算在15秒内可以出结果，当然请勿输入一些无意义的数字去尝试，如正算时输入远大于设计起终点N倍米数桩号，反算时输入远离本工程N倍远的坐标等，都不能保证出正确结果，反算时也有可能造成不出结果。为了能让初学fx-5800计算器编程人员和刚学习测量的学生们更好的
3、了解本程序，我对本程序的每一个语句段进行了详细的注释。注释写得可能很难理解，没办法！本人学历低，表达能力差，有些地方表达起来可能简单的被我解释成复杂化了，我是很希望各位能够读懂我的程序，使用我的成果。为防止不小心程序误改误删，特对本文档进行了编辑加密。如遇表述不妥之处请与本人联系。QQ群为28741293欢迎你的加入！编制人：陈世航编制日期：2009年7月28曰晚公路坐标正反计算程序1、程序清单：FHeNaffleiGLZBZS序De^:Norm2一数Prog“XL”W公路坐标-:iK算主程计算器设置为角度模式、清除小数点显示位凋用‘线
4、路-子程序’，此过程提示输入线路Prog“DXD”d站点坐标
5、LblO^NormZzCls4-1“K0+000m=”？K:“+Xm=”？B:转角
6、Prog“ZB”一j<0=>J+360->J^Fix3:Cls^“X=，，:Locate5,1,“Y=”:Locate5,2,Y“=一一=，，:L0eate5,3，且一“=><=”:Locate5,4,J°jGoto0FilcNamcijSLZBFS序Deg:Norm2一示位数l^D:Prog“XL”一示输入线路
7、LblO^“X=”？P:“Y=”?Q一“XKO+OOOm:”?!^Lbl1^0-
8、>B:Prou“ZB”d调用‘导线点-子程序’，此过程提示输入测清除小数点显示位数、清除屏幕k=”?z一提示输入待算点-里程、距屮桩米数、调用‘坐标计算-子程序’计算坐标方位角为负值吋加360度设置小数点保留三位，清除屏幕显示待算点成果X显示待算点成果Y显示待算点至测站距离显示待算点至测站方位角公路坐标-反算主程计算器设置为角度模式、清除小数点显默认第一条线，调用‘线路-子程序’，此过程提提示输入待求桩号的坐标X、Y提示输入近似桩号I调用‘坐标计算-子程序’序计算近似桩号中桩坐标Pol(P-X.o-Y^-1Rec(LV-J^IfK.01
9、AndI>-.01:ThenK+I断精度、循环及里程调整LblB^Fix3:Cls^“ZH=”:Locate5,1,K^“JL=”:Locate5,2，B一正右负)“XP=”:Locate5,3,卜1“YP=”:Locate5,4，QjGoto0FilcNamciXLFilcNamc:PQXCSD=l=>Goto1一D=n=>GotonLbl平曲线参数-子程序选用线路1吋凋用线路1选用线路n时调用线路nIfK<9118.921:Jhen11。34。16.56o->A:53.276—L:
10、
11、(j4R:^zReturnJfEnd^线路指A标
12、记^W:6868.73计算近似桩号坐标与待求点方位角计算桩号增量与距中桩距离J^B:GotoB:ElseK+I^K:Gotol:IfEnd<■*判设置小数点保留三位，清除屏幕显示待求点华标的所处桩号成果显示待求点坐标的所处桩号边桩成果（左显示待求x显示待求Y线路-子程序“线路1=1线路2=2线路h=ii”?D一线路选择IfD关1AndD參2AndD^n:ThenLoeate2,l,“1Or2Orn”:Stop:IfEnd"__线路选择不正确吋停止并重选FilcNamcDXD导线点-子程序O^A:“DXD”?A:Cls一默认提示输入导线点
13、编号，清除屏幕IfA=0:Then“(X)=”?E:U(Y)=W?F:Return:IfEnd<-*如果导线点编号为0吋提示输入坐标IfA=l:Then-6939.732—E:-14385.707^F:Lo
