5800计算器全线坐标计算放样正反算资料

1、5800 计算器全线坐标计算放样正反算（定稿）5800 计算器全线坐标计算放样正反算程序（定稿）彭赐明主程序 坐标正反算 程序名称： ZBZFSLB1 A /Cis : Fix 4 : 30f Dim Z :"O=ZS,仁FS"?ZIf Z=O:Then Goto B:lfEnd /(Z=0进入里程点坐标正算)If Z=1:The n Prog"FSLCBZ ": Goto A:IfE nd / (Z=1 进入反算里程边桩) Lb1 B /“ K=” ?K (计算里程)Prog"SJK1 ":Prog” ZBFY' :Goto

2、 A子程序 数据库 SJK1IF K本段曲线终点里程 AND K上段曲线终点里程：THEN本段终点里程 f Z1:上段曲线终点里程 f Z2 : 1f O （注：左偏曲线输入-1f 0右偏曲线输入1f O）:半 径f R :曲线偏角f A:第一缓和曲线f Z6:第二缓和曲线 f Z7:交点Xf B :交点 YfC : 小里程向交点方位角 fE : 交点向大里程方位角 fF : Prog ” XLZBJSCX” :Return: IFEND tIF Prog” XLZBJSCX' :Return:IFEND曲线段分段输入）/补充直线段输入如下 （ 单独直线段）IF K本段直线终点里程 A

3、ND K本段直线起点里程:THEN本段直线终点里程f Z3: 终点 XfZ16: 终点 YfZ17: 方位角 fE: Z16+ （K- Z3）*COS EfZ18:Z17+ （K- Z3）*SIN E fZ19 : Return:IFEND子程序坐标正算，名称： XLZBJSCXftZ8( M1 )ftZ9( M2)LB1 2 /(曲线要素计算)Z6/2- Z6A3/(240*RA2)+ Z6A5/(34560*RA4)fZ10t (P1)fZ11t (P2)ftZ25 曲线总长)Z7/2- Z7A3/(240*RA2)+ Z7A5/(34560*RA4)Z6A2/(24*R)- Z6A4/(

4、2688*RA3)Z7A2/(24*R)- Z7A4/(2688*RA3)n *A*R/180+0.5*( Z6+ Z7)90* Z6/(R*n ) f Z14(第一缓和曲线总偏角)90* Z7/(R*n ) f Z15I第二缓和曲线总偏角，可以省略)Z8(R+Z10)TAN(A/2)-(Z10- Z11 )/SIN A fZ1t2 (切线 T1) Z9 ( R+Z1 1)TAN(A/2)+(Z1 0- Z11 )/SIN A fZ1t3 (切线 T2) B+ Z12*COS (E+180) fZ16 t (ZH 点 X )C+ Z12*SIN(E+180) f Z17t(ZH 点 Y)Z1-

5、 Z25 fZ3 t (ZH 点里程 )Z3+ Z6 f Z4t (HY 点里程 )Z1- Z7 T Z5 / (YH 点里程)GOTO 3 /LB1 3 /（判断里程点与曲线关系）IF KW Z3 AND K> Z2THEN GOTO 4IF KW Z4 AND K> Z3IF KW Z5 AND K> Z4IF KW Z1 AND K> Z5THEN GOTO 5THEN GOTO 6THEN GOTO 7IFENDIFENDIFENDIFEND/LB1 4 /(里程小于直缓点直线独立坐标)K- Z3 t z23 : 0t z24 : Et t : GOTOLB1

6、5 /(第一缓和曲线独立坐标)K- Z3 t H /H-屮 5/(40*RA2* Z 6人2)+屮9 /(3456*RA4* Z6 A4)t Z23屮3/(6*R* Z6)- HA7/(336*RA3* Z6人3)t Z24/90*屮2/( R*n * Z6) TIF O>0 : THEN T +Ett : ELSE E-T tt : T<0=>360+T tt : IFEND /GOTO 8 /LB1 6 /(圆曲线独立坐标)K- Z4 t H /H*180/( R* n )+ Z14 T TR*SIN T+ Z8 TZ23R*(1- COS T)+ Z10 t Z24 /

7、IF O>0 : THEN T +Ett : ELSE E-T tt : T<0=>360+T tt : IFEND / GOTO 8 /LB1 7/(第二缓和曲线独立坐标)Z1 -K t H /H-屮 5/(40*RA2* Z7A2)+屮9/(3456*RA4* Z7A4)/TU屮3/(6*R* Z7)- HA7/(336*RA3* Z7A3)t V90*屮2/( R*n * Z7)/T TZ13COS A+ Z12-U*COS A- V*SIN A t Z23 /Z13*SIN A- U*SIN A+V*COS AtZ24/IF O>0 : THEN F-Ttt :

8、 T<0=>360+T tt : ELSE F+T tt : IFEND / GOTO 8 /LLb1 8IF O<0 : THEN - Z24 f Z24 : IFEND /Z16+Z23*COS E- Z24*SIN E f Z18 /Z17+Z23*SIN E+Z2 4*COS E f Z19 /ReTurn/子程序反算里程边桩，名称： FSLCBZLb1 1 /"XK="?X:"YK="?Y /（输入任意测点的 XY坐标）：“ K=” ？K（试算里程，任意输入标 段内里程点即可，也可以输入大致的估算里程加快速度）/Lb1 2/P

9、rog"SJK1 ":T-90 fW:W<0=>360+WfW:Abs（Y -Z19）*Cos W-（X- Z18）*Sin W） f/SIf S<0.0001:Then Goto 4:Else Goto 3:Ifend /Lb1 3/K+SfK: Prog"SJK1":T-90 fW:W<0=>360+WfW:Abs（Y -Z19）*Cos W-（X-Z18）*SinW）fQ/If Q<0.0001 :Then QfS: Goto 4:Else IF Q<S: THEN K+QfK:Goto 2 :Else I

10、FQ>S :THEN K- QfK:G oto 2:Ifend:Ifend:Ifend /Lb1 4/Pol （X-Z18,Y-Z19:"DP（-Z+Y）=":I丄（偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右 边判定）"K=":K+S fKJ（里程）Return/子程序坐标放样： ZBFYLB1 0 /“ XHS="?G后视点 X）:"YHS="?L（后视点 Y）:"XZJ="?M（置镜点 X）:"YZJ="?N（置镜点Y）:Pol（G-M,L-N）:&quo

11、t;DH=":l（ 后视距）丄 J<0=>J+360 f J:"FH=":J f DMSJ （后视方位角）“ QXJ=” N （计算里程点切线方位角，可以不显示）“ XI= ” : Z18“（中线 X）“ YI= ” : Z19“（中线 Y）Pol（Z18-M,Z19-N）:"DI=":l（中桩放样距）丄J<0=>J+360f J:"FI=":J f DMS （中桩放样方位角）“PJ=”NP （输入边桩与线路夹角，左-右+）“ PD=” ?D（输入边桩距）Z18+D*COS（T+P） f Z20/Z1

12、9+D*SI N（T+P） fZ21 /“ XP=” ： Z20J（边桩 X）“ YP=” ： Z21J（边桩 Y）Pol（Z20-M,Z21-N）:"DP=":I 丄（边桩放样距） J<0=>J+360f J:"FP=":J f DM3 （边桩 放样方位角）Return/T回复内容只查看楼主与本人回复沙发：1209-4-1122:26回LU不经意间我就连续点击了12次2 楼：ouzhigang09-4-1221:44回LU学习学习，我没用过5800.求教了3 楼：Ixmf109-4-1222:44回LU等待ing评：+104 楼：'

13、nut09-4-13 8:41 回分 LU期待彭工的该程序早日出炉，支持！6 楼：'Iongfengshan09-4-13 19:27 回评：+8 分LU优势互补，支持共享7 楼：彭军09-4-13 23:46 回国彭工你好这个程序如果再弄一下就非常完美了。计算边桩的程序能不能再改一改， 然后加个判断语句，比喻在小半径曲线上（一头跨径大一头跨径小）要求曲桥直做或曲桥曲做，边桩如何修正偏移值？评：+108楼：彭赐明楼主09-4-15 20:44 回分匡4月15日完成最终修改了，计算速度也可以了9楼：徐长龙09-4-16 14:38回评：+2分CElFix符号在那里找啊 ？评：+1010

14、楼：徐长龙09-4-16 14:39 回分 匡楼主QQ多少啊我有好多问题想问你11楼：彭赐明 楼主09-4-16 18:39回匡有问题请说，FIX按SHIFT加MODE可以找到（第6个），输入程序前请熟读说明评：+1012 楼：zzq028809-4-17 0:26 回分LU很好13 楼：公路09-4-18 7:14 回LU有断链怎么呀？楼主？14楼：彭赐明 楼主09-4-18 14:17回LU看是长链还是短链，在直线上还是在曲线上15 楼：zzq028809-4-19 1:0 回LU都没发现你在哪赋予值给 j啊？Pol（Z18-M,Z19-N）:"DI=":l（中桩放样距

15、）丄 J<0=>J+360 f J:"FI=":J f DMS我用就出错了？这是为啥啊16楼：黄老邪09-4-19 2:22回匡子程序反算里程边桩，名称：FSLCBZLb1 1 /"XK="?X:"YK="?Y / （输入任意测点的 XY坐标）：“K=” ?（貌似这个/应该在最后 ） 还有本段Lb1 4 /Pol （X-Z18,Y-Z19（这块最后也少了一个括号吧？）运算主程序ZBZFS时候，出现输入：“XHS=之后就提示“ SyntaxERRO”，按返回光 标就出现在：子程序坐标放样：ZBFYLB1 0 /“ XHS=&

16、quot;?G后视点X）:"YHS="?这个Y后面是怎么回事？请彭工检查一下好么？问题是我输入错误还是语句有问题呢？17楼：彭赐明 楼主09-4-19 7:11回评：-10分目16楼："XK="?X:"YK="?Y/（输入任意测点的 XY坐标）：“ K=” ？K（貌似这个/应该在最后.）,Y后面的/应该在K后面。一般情况下括号必须扩全，有时也可以省略，比如Pol （X-Z18,Y-Z19:即可。"YHS="?,是 L,请核对。15楼：Pol ()和Rec()是极坐标和直角坐标转换，转换值计算器存在默认的变量IJ上f

17、 DMS是单独一个符号，计算器里有，FUNCTION键加5键加4键可以找到。18楼：贵广09-4-19 7:48 回LU圆曲线上和直线都有，圆曲线是长链。直线是短链。19楼：彭赐明楼主09-4-19 8:18 回LU直线短链要将该直线分成二条直线来对待编制数据库文件即可，曲线长链要单独建 判定语句子程序并然后编制二个数据库(按来向里程和去向里程分别推出曲线起终点里程，以此编制曲线段的数据库)。20 楼：nut09-4-19 9:45 回IAI彭工，你好，我这里有个4800的程序要改成5800,我每次修改都会在这个地方出现 'MATH ERROR'，能帮我改下吗？谢谢！ 4800

18、源程序(部分)为：T=M+(R+P)tan(Z10 /2):K=Z5-180:K<0=>K=K+360:Z12=Z1+Rec(T,K:Z13=Z2+J:K=Z 6:Z14=Z1+ Rec(T,K:Z15=Z2+J:Z16=Z 3-T:Prog"12"在该语句运行到 Rec (T,K _处出现“matherror",不知道什么原因，我猜可能是K值超出范围了，但是为什么在4800程序中它又没有出界呢？请老师指点！谢谢评：+1021楼：黄老邪09-4-19 10:44回分国几乎整了一晚上，没想到彭工那么早就解答了感动ing我估计还是我的数据库输入有问题，计算

19、出来好像不是那么回事啊？麻烦你看一下我的数据库输入：JD24 桩号 K78+788.249(X : 29435.524,Y: 73399.211),转角右 29° 12' 15.8半径 1700; 缓和曲线LS1=LS2=226.118 ;本段曲线终点桩号 K79+324.623 ;上段曲线终点里程：K7 8+231.994小里程向交点方位角 233° 39' 14.2交点向大里程方位角 262° 51 ' 29.9 JD25 桩号 K81+291.129(X : 29121.886,Y: 70896.022)，转角左 44° 0

20、9' 503半径 1200; 缓和曲线LS1=LS2=154.083 ;本段曲线终点桩号 K81+806.007 ;上段曲线终点里程：K7 9+324.623;小里程向交点方位角 262° 51 ' 29.9交点向大里程方位角 218° 41 ' 30.7 输入5800是否：If K<79324.623 AND K> 78231.994 : THEN 79324.623 f Z1 : 78231.994 f Z2 : 1 fO : 1700 f R :29 ° 12 ' 15.8 f A:226.118 : f266l1

21、8 f Z7 :29435.524 f B:73399.211 fC 233° 39' 14.2 ：f 262 ° 51' 29.9 : fFog ” XLZBJSCX': Return: I FEND /If K<81806.007 AND K> 79324.623 : THEN 81806.007 f Z1: 79324.623 f Z2 : -1 f O : 1200 f R :44 ° 09 ' 59.3 : fA.083 f Z6 154.083 f Z7 29121.886 f B: 70896.022 f

22、C: 262° 51 ' 29.9：' f 8° 41 ' 30.7 :fFog ” XLZBJSCX: Return: IFEN D/以上输入是否有误？请彭工帮忙检查一下，谢谢，感激不尽！22 楼：'nut09-4-19 19:57 回LU40楼：彭赐明 楼主 09-3-26 20:59回线路末尾直线段的输入改为IF K<1358.861 AND K>801.348:THEN 1f 0:1358.861 fZ:4267501.234f Z16:385155.025f Z1g-3(8f E:GOTO 4:IFEND请问楼主：在这个

23、程序中线路末尾直线段是怎么输入呀？23 楼：ryrye09-4-20 11:43 回国彭工帮忙看看这个程序哪儿有问题5800中边桩坐标计算程序(含数据库)由4800 4850程序直接引用改编ZZZZZZ(主程序)Lb1 1: ” NO” ?H:Prog 换行1”(E-D)/Abs(G-F) f P: Abs(H-F) f Q: PQf 换行C+( I + 2D ) X QX 90*nfJ亍C +( I 8+ 2D) XQX45 (4 n) fM 换行C+( 3I -B + 2D) XQX135-( 4 n fN 换行C +( 5I B + 2D) XQX225b ( 4 n fU 换行C +(

24、 7I B + 2D ) XQX315 b ( 4 n fV 换行C +( I B+ 2D) XQX45b (2 n) fK 换行C +( I B+ 2D) X QX 45 BnfL行C+( 31 -4 + 2D) XQXl35-( 2力Z 换行A + C424X (cosC+ 4X(cosM + cosN + cosU + cosV) + 2X(cosK + cosL+ cosZ) + cosJ)X换行B + C424X (si nC + 4X ( sinM + si nN + sinU + si nV)+ 2X( si nK + sinL + si nZ) + si nJ)Y换行“ X=”

25、“ WL “？:"WR"?R“XL=O Xcos (J-90)丄“ YL=” ：¥ O Xsin (J-90)丄“ XR=”：果 RXcos (J + 90)丄“ YR=' :¥ RXsin (J+ 90)丄Goto 1换行Z1 (数据库)If HW终点桩号：Then起点桩号 F终点桩号G :起点X坐标A:起点Y坐标B : 起点切线方位角 C :起点曲率D:终点曲率E: Goto 0:If End换行冋上下个线兀要素。OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOON个Lb1 0: Return 换行曲率左偏为负右

26、偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3oo。等等需要使用时把主程序Z1改为Z2依次类推NO？为要求点里程24 楼：ryrye09-4-20 11:44 回丄A + Q424X ( cosC¥4X ( cosM + cosN¥ cosU¥cosV) + 2X (cosK¥ cosL¥ cosZ) + cosJ) X换行运行到在这里运行不起走25 楼：'nut09-4-20 18:6 回LU彭工，你好，我这里有个4800的程序要改成5800,我每次修改都会在这个地方出现'MATH ER

27、ROR'，能帮我改下吗？谢谢！ 4800源程序(部分)为：T=M+(R+P)tan(Z10/2):K=Z5-180:K<0=>K=K+360:Z12=Z1+Rec(T,K:Z13=Z2+J:K=Z 6:Z14=Z1+Rec(T,K:Z15=Z2+J:Z16=Z 3-T:Prog"12"在该语句运行到 Rec(T,K _处出现“matherror",不知道什么原因，我猜可能是K值超出范围了，但是为什么在 4800程序中它又没有出界呢？请老师指点！谢谢26楼：彭赐明 楼主09-4-21 7:46回评：-10分UZlRec(T,K算出来的是二个值(I

28、、J),21楼看你是否把缓和曲线长度输成缓和曲线曲率了，数据输入是对的。24楼看你括号扩对没有27 楼：路人09-4-21 8:8 回囚能处理断链吗28楼：彭赐明 楼主09-4-21 11:42回国能，在数据输入时稍作修改即可，稍后我提供解决方案29 楼：ryrye09-4-21 12:36 回国括号扩对了的！30 楼：28122706309-4-21 12:47 回国彭老师：我在书上抄了一个5800的程序，这个程序是计算任意竖曲线高程的，计算时需要输入竖曲线的各项参数，但是不知道哪里有问题，总算来合不上，请帮忙修改一下，谢谢老师程序名：SQFDJC“ Q ?Q: ?Z” ：£”？

29、R: T”？ I: 了”？ J: 'T= ”： Abs(R(l+J) - 220f M “ H” ？H:Lbl1:M+1 f M:lf M=1:Then Tl f B:Else TJf B:lfEnd:“ A=-BtH 丄“ K” ?K: “D” ?D:0 f NJIN+1 f N: “ S” ？S:lfSA開 ZK>Z:Then-Sf S:-Kf K:IfEnd:lfS Z And Abs(K)>Z:The n-Sf S:lf E nd:H-Af P:S-KfO : “ HP=' :A+P O- T+QDOY (2R N<D=>Goto:M<2=

30、>Goto1: “O K”T:竖曲线的切线长； R：竖曲线的半径； E：切线交点的高程； S：需计算点的桩号； D:计算点的数量； HP:须计算点的高程； H:变坡点的实测高程Z:竖曲线变坡点的桩号K:曲线起点或终点的桩号A:曲线起点或终点的计算高程I、J变坡点两侧路线的设计坡度Q:图形信息（竖曲线为凸曲线时，Q的编码为-1，反正为+1）31楼：彭赐明楼主评：+1009-4-21 13:54 回分LU数据输入时断链解决方案:短链情况：IF K本段曲线终点里程 AND K上段曲线终点里程：THEN IF K短链来向里程：THEN K-短链长度f K:IFEND:本段终点里程-短链长度f Z

31、1:上段曲线终点里程 F 2 : 1 f O （注：左偏曲线输入-1 f 0,右偏曲线输入1 f O）:半径f R :曲线偏角f A:第一缓和曲线f Z6:第二缓和曲线f Z7:交点Xf B :交点Yf C :小里程向 交点方位角 f E :交点向大里程方位角 f F : Prog” XLZBJSC” :Return: IFEND / 长链情况：IF K本段曲线终点里程 AND K上段曲线终点里程：THEN IF K长链来向里程：THEN K+长链长度f K:IFEND:本段终点里程+长链长度f Z1:上段曲线终点里程 f Z2 : 1 f 0 （注：左偏曲线输入-1 f 0右偏曲线输入1 f

32、 0）:半径f R :曲线偏角f A:第一缓和曲线f Z6:第二缓和曲线f Z7:交点Xf B :交点Yf C :小里程向 交点方位角 f E :交点向大里程方位角 f F : Prog” XLZBJSCX :Return: IFEND /先用这个试试32 楼：'nut09-4-21 15:28 回匡彭工，我们工区的图纸是标尾段，设计图纸只提供了最后一直线段的桩号和距离， 曲线偏角，缓和曲线长度，大里程方位角都未提供，我按照单独直线段输入数据，中桩 坐标算出来是正确的，但是边桩坐标是错误的。我想此时的边桩T值是没有赋值的，所以会出现边桩坐标错误33 楼：'nut09-4-21

33、15:38 回星小弟刚刚把标尾段中加入 EfT赋值语句，标尾段边桩坐标计算正确，您看下我改的 对不对09-4-21 17:1 回34 楼：nutLui不好意思，是我弄错了评：+1035楼：中铁22局高健09-4-21 17:36回分LU彭工您好，不知道为什么，我这个程序一输入s=?里程的时候就出现错误，我以前也用过类似这个5800的程序，是4800的，也是要求输入线源元素的，能请教彭工吗？ 请问彭工的QQ号多少？我的是38334822,能加我吗？谢谢啦！Fx-5800计算机程序QXJS-000主程序Lbl 4: “1.SZ=>NE” : “ 2.NE=>SZ ” :?Q:?S:Pr

34、og-SUB0QXJSLbl 0:Q=1 => Goto1:Q=2 => Goto2: /Lbl 1:?Z:Prog “ QXSUB1” : “ N=”2:N'E=”注“ F=” M Goto4/Lbl 2: “ N=” ：？B:“E=” :?C:B CHE:Prog “ QXJSUB2' : “ S=”“ Z=”jZGoto4 /QXJS-SUB0数据库子程序Gotol /同时保存多个曲线时的指针Lbl 1/IF Sv* （线元终点里程）：Then* A （线元起点方位角）:* O （线元起点里程）* U （线元起点X） :* V （线元起点Y） :* P （线元

35、起点曲率半径）:* R（线元终点曲率半径）：* L （线元起点至终点长度）：Return:lfEnd /IF S<*:Then* A:* :* U:* V:* P:* R* L: Return:IfEnd/ 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线 增加一个Lbl，每增加一个工程增加一个文件。QXJS-SUB1正算子程序0.5 （14R-1 羽 -L D:SOX /U+/ （cos（A+（X - P+DX2） X 180 -n ,0/） NV+/ （sin（A+（X - P+DX2）X 180-n ,0/X） EA+（X - P+DX2） X 180 -nFN+Zcos(

36、F+90) f N:E+Zsin(F+90) EQXJS-SUB2反算子程序Lbl 1:0 F: 1fQ : Prog “ QXJSUBO” :Prog “ QXJSUB1” /Pol(N-B+10A(-46), E-C+10A(-46):Isin(F-90- J) f W:S+VfS / Abs(W)>0.0001 => Gotol /Lbl 2: 0fZ : Prog “ QXJSUB1” ：(GE) - sin(F+90)fZ /三、使用说明1、规定(1) 以道路中线的前进方向(即里程增大的方向) 区分左右；当曲线半径在左时，P、 R取负值，当曲线半径在右时， P、R取正值，

37、当曲线半径为无穷大(即直线)时， P、 R以10的45次代替。(2) 当所求点位于中线时，Z=0 ;当位于中线左铡时，Z取负值；当位于中线中线右 侧时，Z取正值。(3) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 值；与圆曲线相接时，曲率半径等于圆曲线的半径

38、。止点与直线相接时，曲率半径等 于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明输入部分：1. SZ => XY2. XY = > SZQ ?选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。09-4-21 22:40 回36楼：黄老邪LU彭工你好完整输入确认无误后，正算还可以为何检查后在运行反算过程中，先输入反算点x坐标，再输入反算点 y坐标，第三步输入估计的桩号后就死机了？37楼：彭赐明 楼主09-4-22 11:56回LU这个程序反算速度在330秒左右也可能超过30秒38 楼：yutiiip09-4-22 13:13

39、 回LU可以详细写出使用方法吗？39 楼：4-25 21:27 回匡写进去了用了后不知道是自己编错了还是数据库录入错了计算结果错得一塌糊涂有个问题想问下Z6/2-Z6A3/(240*RA2)+Z6A5/(34560*RA4)f Z8/(M1 )Z7/2-Z7A3/(240*RA2)+47人5/(34560*只人4)f Z9/(M2)这样的a后面的括号应该扩在 3的后面呢还是在最后？40楼：彭赐明 楼主09-4-25 21:53回3Z6A3在计算器的输入为Z6a (3)即Z6的3次方的意思，其余雷同，最重要的 提示：括号最好一个都不能少，必须扩全41楼：云飞扬09-4-

40、26 11:42回评：+8分国程序不错，共享与指导精神可嘉，很佩服楼主的高风亮节。程序利用的是交点法计 算坐标，但是把直线段单独计算，很不方便，也增加了曲线要素的输入，难道不能在交 点中包涵直线段的计算吗？42 楼：natolase09-4-26 13:50 回源程序1正算主程序 GSZS"X0" ? I： "Y0" ? S： "K0" ? O: "F0" ? G： "KN" ? H : "R0" ? P： "RN" ? R:” Q(Z +Y) ”？Q:(

41、P-R) (2(H- O)PR) fD :“ K” ？K” L(Z +Y) ” ?L: ” ANG M:Abs(K- O) J: Prog"SUB":” X=”？X 丄” Y=” ?Y=、” FWJ=' F -MF 丄2. 正算子程序(SUB)6 DimZ:0.1184634425 A0.2393143352 B0.2844444444 Z1:0.0469100770 C0.23O7653449 E:G+QCJ(1 - P+CJD) X 180 -n Z2:G+QEJ(1 - P+EJD) X 180-n Z3:G+0.5 Q J(1 - P+0.5JD) X 18

42、0-n Z4:G+Q(1-E)J(1 -+(1-E)JD) X 180-n Z5:G+Q (1-C)J(1 P+(1-C)JD) X 180-n Z6:I +J(AcosZ2+Bcos Z3+Z1cosZ4+BcosZ5+AcosZ6) X:S+J(Asi nZ2+Bsin Z3+Z1s in Z4+Bsi nZ5+Asi nZ6): YG+QJ(1 - P+JD)X 180 -n +MFX+LcosF X :Y+Ls inF Y3.曲线元要素数据库：DATIF K>O ANDK V H:THEN*URN:IFENDIF K X) ANDK V H:THEN*URN:IFENDIF KX

43、) ANDK V H:THEN*URN:IFENDIF KX) ANDK V H:THEN*URN:IFEND<I:*S:*:*G:*I:*S:*O:*G:*I:*S:*:*G:*I:*S:*:*G:*H:* P:* R:* Q:RETH:* P:* R:* Q:RETH:* P:* R:* Q:RETH:* P:* R:* Q:RETIF K>O AND K V H :THEN* I:*s：* O:* G:* H:* P:* R:* Q:RETURN:IFEND（注：如有多个曲线元要素继续添加入数据库DAT中）4、M线（坐标正算）组合程序MG-ZBProg ” DAT :Prog

44、 ” GSZS楼主，这是本人根据李正云的 4850程序改编的5800程序，经过本人的实际使用，程序 的GSZS部分计算结果完全正确，但在 MG-ZB这个组合程序中却出现了问题，出来的 过程与GSZS 一样，达不到有数据库应有的效果，一时间又找不到所以然，请楼主帮助 看下，解决问题，愿与各位测量同仁共同进步43 楼：彭赐明09-4-26 14:23 回匡141楼，本程序数据输入已含了曲线前一段直线的数据，最后的直线输入是解决标段尾直线或当独直线的，请详细看程序44 楼：natolase09-4-26 14:31 回匡楼主在线？ 42楼原稿中使用 MG-ZB组合程序后 出现的结果直接就是 K（输入

45、桩 号）L（-Z +Y）（左右偏距）ANG （角度）然后就直接出要求的 X Y坐标了 一直很习惯这个程序 可同样的改到5800就不成立 请楼主指教 45楼：云飞扬09-4-28 10:12回评：+8分匡我看过了，也输入过了，正算能运行，但是是在每个交点间加入直线段后的基础上,但反算不能进行，反算时并不显示错误，只显示右上角一小黑块（正在运行），不管等 多长时间也枉然，（输入了一已知点坐标和已知大概桩号甚至真桩号）就是不出结果。后视点坐标与置镜点坐标及距离与方位角每次计算都显示很麻烦，实际工作中只要开机时计算一次就够了，能否在同次计算第二个及以上的点位坐标计算时不显示？不算边桩 时能否也不显示？

46、想请教楼主，如果想应用在匝道上，怎么样改动？（也就是说用线元法计算），在实际工作中经常有主线和匝道同做，要怎么样把它们并在一起或分线路？46楼：彭赐明 楼主09-4-28 22:4回星这个程序每个交点的数据输入已经含有 ZH点前一段直线数据，无需再加直线数据， 数据多也影响反算速度，我的计算器反算在 3至30秒之间，如果时间过长请核对程序 输入。基本上你不要用这个算匝道等不规则曲线， 除非他交点数据很完善和无不完全缓和曲线，这需要你对程序和要测量的线路数据很理解47 楼：山西09-5-2 3:33 回LUi、交点向大里程方位角？加上转角不就可以了吗？2、已有切线计算，可与设计交点桩号相互审核，

47、避免网友输入错误和及时检查错误。3、HZ和YZ点可同步，减少判断、加快速度。4、增加曲线后端的直线计算不好意思，我没有仔细研读您的程序，只是看了数据库说明后提了几点小建议，还请原、谅。48楼：彭赐明09-5-2 7:21回国加转角有可能要进行小于 0的方位角判断，切线计算是为了减少输入数据，也可以 取消切线计算而在数据输入中加入切线长，曲线后直线有计算方法即单独直线段的计算方法49 楼：山西09-5-2 11:50 回LU全圆方位角怎么会有小于 0的呢？是转角左转吧！增加正负号就可以解决的。这样 做会增加一个判断，会对速度有影响。但可以节省一些字符。像计算边桩部分，偏距加 正负号就可以了。切线

48、计算和交点桩号是有必然联系的，我的意思是让他们起到互相监督的作用。不过， 有增加字符之过！50楼：彭赐明09-5-2 19:55回国你那样输节约不了任何字符，还会拖慢计算速度，十分不理想的，交点桩号没有球 用的51 楼：山西09-5-5 20:9 回国今天输入了此程序进行测试，感觉不错，谢谢楼主评：+1052 楼：elie09-5-5 20:21 回分 亘这个反算大约需要多少秒呀！53楼：彭赐明 楼主09-5-5 21:44回匡h30秒，要看数据库大小，数据库判断比较耗时54 楼：云南09-5-7 21:54 回丙你好，怎么输入多段曲线和直线呢？请教55 楼：云南09-5-7 21:57 回L

49、U我输入多段曲线时出现错误啊评：+1056 楼：zhanghaitaollOI09-5-8 11:8 回分 LU5800我还没接触，准备学习下，支持楼主!评：+1057 楼：浪09-5-9 21:13 回分LU我之前有输入个相似的程序，可就是在缓和曲线中的圆曲段的精度差比较多其他直线段跟缓和段都行请问楼主你这个程序已经测试过没，精度如何，目前本人急需5800程序，请楼主指教下，我 qq是32968325058楼：山西09-5-9 22:39回评：+6分LU不错的程序，不过，我还是建议楼主把后段方位角取消，这个在5800里面是可以自行判断的59 楼：一局09-5-10 11:26 回LU彭老师

50、你好，我已经将程序输入，但是曲线计算结果错误，只有直线是正确的。我已经检查3次程序输入无误。这样也说不清，我的QQ是287807022，请您加下我，想向您请教。60 楼：山西09-5-10 22:13 回国输入是正确的就检查数据库61 楼：浪09-5-10 22:50 回评：+6 分国请问下上楼的，我也 输入此程序发现此程序精度差一米多啊，请问下上楼你输入此程序运行后精度如何啊，麻烦请教下，同时感谢楼主的奉献啊62楼：彭赐明 楼主09-5-11 10:0回国楼主提示：该程序不会存在精度问题，因为所有计算公式都是目前采用的常规公式，但输入程序时要仔细核对，尤其是括号要扩全，乘方次数输入正确，符号

51、无误。63 楼：浪09-5-12 22:13 回评：+6 分Apol (X-Z18,Y- Z19:J<0=>J+360 f J:-T)<0=>-I 1/"DP(-Z+Y)=":I 丄(偏距，左 + 右)在反算这个判定中我感觉这个公式好像不够严密啊，但又不知从何改起请楼主再仔细看下因为当j为0到90度时，路线偏距是往右这样 T正好是为270到360度范围，此时T是比J大，按你的公式判断出来却是往左的。同时谢谢楼主的公式我已经输了不错的程序09-5-13 20:41 回64楼：彭赐明LU这个地方需要大修一下，谢谢提醒65楼：酒剑仙09-5-15 17:3

52、5回评：+6分LU已经输入，坐标计算没问题可是请问楼主，为什么切线方位角不对呢66 楼：李洋09-5-16 20:47 回LU楼主因为我是搞铁路的铁路上的线形没那么复杂就两个完整缓和曲线加中间一个圆曲线如果用你的这个程序的话就有些复杂了楼主你看能不能把你上面的这个程序给改一下改成把两个缓和曲线和圆曲线看成一个整体来算的程序那样对我们这些搞铁路的方便些先谢谢楼主了。如果改好了可以发到我邮箱一份吗？邮箱O913991482开头的是大写字母O评：+1067楼：酒剑仙09-5-25 5:14 回分匚3楼主人呢？经过核实原来是符号输错了现在计算正常，我把坐标放样程序修改了一下现在很好用！谢谢楼主！68

53、楼：吴鹏09-5-25 17:33 回国请教楼主个问题，如果在直线上含两段以上短链怎么处理程序！评：+10 69楼：过大山09-5-25 23:56回分 国楼主能帮我看下这个程序吗我 4800改5800程序计算直线没问题一到曲线上就出问 题了CASIO4800改5800p坐标计算程序1、该程序适用于计算器 CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、 圆曲线、直线段中、边桩坐标及切线方位角。2、A ？输入转角：左转为负，右转为正3、R？输入圆曲线半径4、LS ？输入缓和曲线长度5、JD? 输入交点桩号6、 J?输入0程序计算中桩，输入1程序计算边桩7、 N ? E? 输

54、入交点X、Y坐标8、FW待求点切线方位角9、 当计算交角为60°寸，则公式改为(U+60)，( U-120)1 ？ A:? R: “LS” C: “ JD？ D2 CA 2/24/R-C A 4/2688/RA 3P3 C/2-C A 3/240/R A 2Q4 90C/兀 /R F5 (R+P)ta n(AbsA/2)+Q6 (R+P)/cos(A/2)- RW7 (AbsA)-2B)兀 R/180+2CL8 D-TG9 G+OH10 G+L/2 fl11 G+L-CfK12 G+LfM13 ? N: ? E:? F:?J14 If A v 0: Then -1fS : Else

55、1fS : IfEnd15 F+A/2+90S fU16 W+fV17 N+VcoslfB18 E+VsinUf O19 Lbl 120 ? Z21 If ZWG: Then T+G-ZfL22 F+180fV23 FfU24 Goto 225 IfEnd26 If Z<H : The n Z-GL27 L-L A 5/(90R A 2CA 2) fV2829303132333435363738394041424344454647484950515253545555565730L A 2S/(兀 RC)LF+180FF+LQ“FW“ F+3LU 丄Goto 4IfEndIf ZWK: Then F+A/2+90S-180+180(Z-l)S/R/ 兀