5800中边桩坐标计算程序

1、5800计算器全线坐标计算放样程序修改第三版5800计算器全线坐标计算放样程序修改版彭赐明“XLZBJSCX LB10 CLS : FIX 4 : 30DIM Z “XHS=?G(后视点X):YHS=?L(后视点Y):XZJ=?M(置镜点X):YZJ=?N(置镜点Y):Pol(G-M,L-N):DH=:I(后视距)JJ+360J:FH=:JDMS(后视方位角)LB11 “K=?K 计算里程IFK本段曲线终点里程ANDK上段曲线终点里程 ：THEN本段终点里程Z1 : 上段曲线终点里程Z2 ：1O 注：左偏曲线输入-1O,右偏曲线输入1O: 偏角A：半径R : 第一缓和曲线Z6 : 第二缓和曲线

2、Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : GOTO2 : IFEND曲线段分段输入补充直线段输入如下IF K Z2 : THENGOTO4 : IFEND IFKZ4ANDK Z3 : THENGOTO5 : IFEND IFKZ5ANDK Z4 : THENGOTO6 : IFEND IFKZ1ANDK Z5 : THENGOTO7 : IFEND LB14 里程小于直缓点直线独立坐标K- Z3 X : 0Y : ET : PROG“TYZBCX ：GOTO1 LB15 第一缓和曲线独立坐标K- Z3 H H-H5/(40*R2* Z62)+

3、H9/(3456*R4* Z64) X H3/(6*R* Z6)-H7/(336*R3* Z63) Y 90*H2/( R* Z6) T IFO0：THENT +ET : ELSEE-T T : T360+TT : IFEND PROG“TYZBCX ：GOTO1 LB1 6 圆曲线独立坐标K- Z4 H H*180/( R*)+ Z14T R*SIN T+ Z8X R*(1-COS T)+ Z10Y IFO0：THENT +ET : ELSEE-T T : T360+TT : IFEND PROG“TYZBCX ：GOTO1 LB1 7 第二缓和曲线独立坐标Z1 -KH H-H5/(40*R

4、2* Z72)+H9/(3456*R4* Z74) UH3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS A+ Z12-U*COS A-V*SIN AX Z13*SIN A-U*SIN A+V*COS AY IFO0：THENF-TT : T360+TT : ELSEF+T T : IFEND PROG“TYZBCX ：GOTO1 子程序：“TYZBCX 统一坐标计算IFO0: THEN-YY : IFEND “QXJ= :T计算里程点切线方位角，可以不显示Z16+X*COS E-Y*SIN EZ18 Z17+X*SIN E+Y*CO

5、S EZ19 “XI= : Z18 中线X“YI= : Z19 中线YPol(Z18-M,Z19-N):DI=:I中桩放样距JJ+360J:FI=:JDMS中桩放样方位角“PJ=?P (输入边桩与线路夹角，左-右+)“PD=?D输入边桩距Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=: Z20 边桩X“YP=: Z21 边桩YPol(Z20-M,Z21-N):DP=:I边桩放样距JJ+360J:FP=:JDMS边桩放样方位角RETURN经演算可以放心使用谢谢发贴：+90 分 【测量空间】 0 HYPERLINK :/ 查看楼主其它文章 HYPERLINK

6、javascript:history.back(-1) 返回 HYPERLINK javsscript:; 回复内容 HYPERLINK :/ t _blank 只查看楼主与本人回复沙发：防撞护栏09-3-12 17:0 HYPERLINK :/ 回评：+10 分谢谢先下载下来看行不2 楼：防撞护栏09-3-12 17:0 HYPERLINK :/ 回评：+10 分谢谢先下载下来看行不4 楼：彭赐明 楼主 09-3-12 21:39 HYPERLINK :/ 回已经很明白了，计算范围为上段曲线曲终点至本段曲线曲终点之间的一段里程段，含一段直线和一个完整的有不等缓和曲线的曲线段也可以是相等缓和曲

7、线的曲线，每一个线元段都是如此输入用IF IFEND完成整个标段的曲线要素数据顺序输入只是断链要仔细考虑如何输入，搞明白原理也不难5 楼：逝之沙09-3-13 0:40 HYPERLINK :/ 回评：+6 分下来看看先6 楼：david548609-3-13 0:55 HYPERLINK :/ 回多谢楼主！运行成功，结果正确。但为何xi与yi,精度只能显示小数点后3位，4位。既使fix 9也是这样。7 楼：防撞护栏09-3-13 16:48 HYPERLINK :/ 回上楼的师傅david5486你好：把你的列题发过来好吗？代说明的，先谢了。我邮箱是sxhjzcl2163 8 楼：z_b19

8、86101109-3-13 16:51 HYPERLINK :/ 回我以前输过这个程序的,没被修改只前的这是用偏角法算的,我以前试的那个,在刚开始计算的坐标还准确,但越往后就差的越多,是不是偏角公式的问题啊 没次算5大元素那个点的坐标,是准确的9 楼：z_b1986101109-3-13 17:2 HYPERLINK :/ 回DMS怎么输10 楼：彭赐明 楼主 09-3-13 17:33 HYPERLINK :/ 回天啦，这个程序只是加了个放样内容，其它计算没有什么更改，与设计院的坐标有时差0.001米而已，DMS的输入为FUNCTION键加5键加4键可以找到11 楼：z_b198610110

9、9-3-14 7:36 HYPERLINK :/ 回我输了但坐标与设计院的刚开始还对的上,可是越到后面,差的越多为什么啊12 楼：z_b1986101109-3-14 7:37 HYPERLINK :/ 回还有我们这线路上有好种曲线,曲线元素都不一样我该怎么把它们整到一个程序上13 楼：彭赐明09-3-14 10:8 HYPERLINK :/ 回核对一下是否输错了，曲线再多也不影响的，在LB11里面用IF IFEND连续完成曲线输入，由起点到终点顺序输入14 楼：防撞护栏09-3-15 21:53 HYPERLINK :/ 回评：+8 分能发过个代说名的吗，我的邮箱sxhjzcl163 15

10、楼：中专毕业09-3-17 14:22 HYPERLINK :/ 回好，但是我用不到现场放样的那局部，我对编程也不明白楼主是不是我不输入现场的那局部也可以进行中边桩的正反算是不？16 楼：zhaozhengwei2000609-3-17 15:38 HYPERLINK :/ 回试试再说，5800得程序也太不好找了17 楼：sdxsq09-3-18 21:0 HYPERLINK :/ 回评：+4 分4楼:彭赐明谢谢楼主18 楼：09-3-19 20:41 HYPERLINK :/ 回评：+4 分H-H5/(40*R2* Z72)+H9/(3456*R4* Z74) U 楼主大哥呀，请问这一句中的

11、和/在5800计算器上是怎么输入的呢19 楼：彭赐明 楼主 09-3-19 22:8 HYPERLINK :/ 回唉，为乘方符号，R2即R的2次方，Z74即为Z7的4次方，计算器右侧第2行尾有个x加白方块的键就是，/天那好似是除号吧20 楼：黄潮安09-3-20 9:59 HYPERLINK :/ 回评：+6 分5800是新机；我正在用！21 楼：一鸣09-3-20 22:8 HYPERLINK :/ 回fix4怎么输入，程序运行到切线T1的位置就出错22 楼：红尘箫客09-3-22 9:42 HYPERLINK :/ 回彭老师你好，使用了你的程序，谢谢。你的全线坐标计算程序在计算时，第二缓和

12、曲线计算值不正确，其余段落都对，请问可能是什么原因啊。麻烦你了23 楼：防撞护栏09-3-22 10:34 HYPERLINK :/ 回你的程序能运行就是和设计坐标对不上，如果只验算坐标程序咋改？有列题发上来谢谢。24 楼：防撞护栏09-3-22 10:35 HYPERLINK :/ 回评：+8 分忘记评分了，如果验算正确我大力自持。25 楼：彭赐明 楼主 09-3-22 12:8 HYPERLINK :/ 回楼上的发个线路数据来我看看怎么回事，顺便问一下第二缓和曲线与设计误差有多大26 楼：防撞护栏09-3-24 7:3 HYPERLINK :/ 回线路起点0+00坐标X=4267005.4

13、97 Y=386048.7285方位角339-21-47.9JD1=268.919坐标X=4267257.161 Y=385953.9506方位角 339-21-47.9a y=46-24-22.5R=360ZH=86.936HY=141.38 QZ=255.926 YH=370.42ZH=435.159JD2=505.123 坐标X=4267485.572Y=386096.8291方位角25-46-10.4a y=2-00-41.5 R=3985.25 ZH=370.42 QZ=505.116 HZ=575.037线路终点575.037坐标X=4267547.472Y=386096.8291

14、方位角27-46-51.9坐标XY设计给的是0+3504267028.761 386014.146 3604267037.424 386009.151 3704267045.871 386003.800 3804267054.088 385998.102 3904267026.061 385992.067。 5304267141.165 385878.961 596.054267153.02 385814.195。630 4267152.632385780.260646.466 4267151.680 385763.821680 4267150.391 385730.320697.091 42

15、67151.231 385713.2557304267157.740385681.055750.723 4267165.171 385661.726801.348 4267191.053 385618.282890 4267240.375 385544.618985.007 4267293.234 385465.673我仅录取了局部桩号的坐标请复核对误差比拟大你核对就知道了。27 楼：防撞护栏09-3-24 7:54 HYPERLINK :/ 回线路起点0+00坐标X=4266763.294Y=385874.5564方位角58-39-38JD1=17.794 坐标X=4266772.549 Y

16、=385889.7545 方位角 58-39-38a y=5-39-31.8 R=270 ZH=0 HY=0QZ=0 YH=0 HZ=53.333LH1=0LH2=53.333 TH1=17.794TH2=35.574LH=53.333EH=0.5857JH=0.035缓和曲线参数1=0缓和曲线参数2=120.000JD2=245.911 坐标X=4266871.419Y=386095.37方位角64-19-09.8a Z=91-35-49.4 R=155ZH=53.333HY=117.85 QZ= 201.549YH=285.249 HZ=343.744LH1=64.516LH2=58.49

17、5 TH1=192.578 TH2=170.815LH=290.4104EH=68.808JH=72.982缓和曲线参数1=100缓和曲线参数2=160JD3=500.834坐标X=4267162.86 Y=385945.0901 方位角332-43-20.4a Z=66-15-05.9R=240 ZH=0HY=343.744QZ= 469.897YH=596.050HZ=646.466 LH1=0 LH2=50.417 TH1=157.000TH2=181.613LH=302.7226 EH=46.84JH=35.981缓和曲线参数1=0 缓和曲线参数2=50.417JD4=726.038坐

18、标X=4267146.782 Y=385684.4008 方位角266-28-14.5a Y= 37-20-03.5R=160 ZH=646.466 HY=697.091QZ= 723.907YH=750.907HZ=801.348 LH(缓和曲线长度) =50.625 TH=79.572LH=302.7226 EH=46.84JH=35.981缓和曲线参数90线路终点1+358.861坐标X=4267501.234 Y=385155.025 方位角303-48-18设计给的摘录 坐标XY0+3504267028.761 386014.146 3604267037.424 386009.151

19、 3704267045.871 386003.800 3804267054.088 385998.102 3904267026.061 385992.067。 5304267141.165 385878.961 596.054267153.02 385814.195。 630 4267152.632385780.260 646.466 4267151.680 385763.821680 4267150.391 385730.320697.091 4267151.231 385713.2557304267157.740385681.055750.723 4267165.171 385661.72

20、6801.348 4267191.053 385618.282890 4267240.375 385544.618985.007 4267293.234 385465.673我仅录取了局部桩号的坐标请复核对上一次数据复制错了请谅解这次正确28 楼：彭军09-3-24 9:22 HYPERLINK :/ 回楼主你好！IFK本段曲线终点里程ANDK上段曲线终点里程 ：THEN本段终点里程Z1 : 上段曲线终点里程Z2 ：1O 注：左偏曲线输入-1O,右偏曲线输入1O: 半径R : 第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角

21、F : GOTO2 : IFEND在这里我输入要素计算结果不正确啊，本段曲线终点里程是不是第二缓和曲线的终点？上段曲线终点里程可以认为是路线起点？本段终点里程可认为是第二缓和曲线终点？上段曲线终点里程可以认为是路线起点？第一二缓和曲线是第一二缓和曲线起点？小里程向交点方位角为上一计算方位角？交点向大里程方位角为下一计算方位角？以度分秒输入？小里程大里程得到的是该段曲线的偏角？望楼主回复！不胜感谢29 楼：彭赐明 楼主 09-3-24 17:44 HYPERLINK :/ 回28楼，你的疑问判断根本正确，上段曲线终点即上一段曲线的曲终点上段曲线终点本段曲线起点直缓点间一般情况下是存在一段直线的，

22、也可能上段曲线终点里程就是本段曲线直缓点里程。第一二缓和曲线是第一二缓和曲线起点？：这个是输入第一、二缓和曲线长。本程序只能计算只有有不等缓和曲线和相等缓和曲线在数据录入时第一、二缓和曲线长输入相同设计值即可缓和的标准曲线线路。30 楼：彭赐明 楼主 09-3-24 21:39 HYPERLINK :/ 回防撞护栏27楼：经核对你的数据，发现与设计坐标完全吻合，只有最后直线上两里程点坐标未计算，输入时我将缓和曲线长为0的输入为0.001，未发现有误差，请核对是否输入错误31 楼：防撞护栏09-3-25 7:8 HYPERLINK :/ 回我是这样输的你看对吗：IFK53.333AND K0.0

23、00:THEN53.333Z1:0.000Z2:1O:270R:0Z6:53.333Z7:4266772.549B:385889.7545C:58-39-38E:64-19-09.8F:GOTO2:IFENDIFK343.744AND K53.333:THEN373.744Z1:53.333Z2:-1O:155R:64.516Z6:58.495Z7:4266871.419B:386095.37C:64-19-09.8E:332-43-20.4F:GOTO2:IFENDIFK646.466AND K343.744:THEN646.466Z1:343.744Z2:-1O:240R:0Z6:50.4

24、17Z7:4267162.86B:385945.0901C:332-43-20.4E:266-28-14.5F:GOTO2:IFENDIFK801.348AND K646.466:THEN801.348Z1:646.466Z2:-1O:160R:50.625Z6:50.625Z7:4267146.782B:385684.4008C:266-28-14.5E:303-48-18F:GOTO2:IFENDIFK1358.861AND K801.348:THEN1358.861Z1:801.348Z2:-0O:0R:0.001Z6:0.001Z7:4267501.234B:385155.025C:3

25、03-48-18E:303-48-18F:GOTO2:IFEND烦你看输的对吗？另外其他砸到数据也是一样的输吗？谢谢32 楼：彭赐明 楼主 09-3-25 11:58 HYPERLINK :/ 回第四交点应输入1O，缓和曲线长为0的输入0还是0.001我没有具体试过，直线段该怎么输我也没有试过，但直线段-0O:0R，输入应该不对，应该在数据行里直接修改，并转到LB14 中，具体应该为将直线线路终点里程赋值给Z3 ，方位角给E，交点坐标即终点坐标即可，其它可以省略，你试试看有问题再说33 楼：防撞护栏09-3-25 21:23 HYPERLINK :/ 回我按你的思路和我以上的数据计算，XHS=

26、4266763.294YHS-385874.556输进去后XZJ和YZJ均为0算出来350的X=4266954.644,Y=386052.3641和设计上对不上，是什么原因？我们不搞测设，只是核对设计数据哪怎么输才对呀？希望得到你 满意的答复。34 楼：彭赐明 楼主 09-3-25 21:43 HYPERLINK :/ 回前面的LB1 0是放样的程序中后视点和置镜点数据的输入，在你这段线路中，置镜点XZJ和YZJ不可能为0的，最后显示中XI/YI为中桩坐标，XP、YP为边桩坐标，本人350的坐标为7028.7619,6014.145435 楼：刚刚09-3-26 10:18 HYPERLINK

27、 :/ 回评：+10 分座标正算(输平距)5800 “XA?A:“YA?B LbI 0:Cls:“JULI?E:FWJ?F cos(F)E+AC sin(F)E+BD:Cls XB=:C YB=:D Goto 0大哥能帮我该下 输入垂直角标高等能算XYZ的多谢36 楼：刚刚09-3-26 10:20 HYPERLINK :/ 回评：+10 分座标正算(输平距)5800“XA?A:“YA?B LbI 0:Cls:“JULI?E:FWJ?Fcos(F)E+AC sin(F)E+BD:ClsXB=:C YB=:D Goto 0大哥能帮我该下 输入垂直角标高等能算XYZ的多谢37 楼：防撞护栏09-3

28、-26 15:17 HYPERLINK :/ 回楼主你好：我按你说的检查了好几遍且XZJ和YZJ都输了JD2的坐标干嘛算出来的XI,YI和原来的一样？究竟是哪里出错了我真的搞不明白希望你在百忙中给我指点以下，我的邮箱sxhjzcl163 38 楼：79071109-3-26 15:29 HYPERLINK :/ 回请问各位仁兄，DMS符号怎么找不到啊？能告诉我一下吗？39 楼：彭赐明 楼主 09-3-26 18:23 HYPERLINK :/ 回JD2的HY点117.85坐标为7197.8755,6069.7215 QZ点201.549坐标7128.6374,6024.5217YH点285.2

29、49坐标7046.0115,6021.3509JD 2计算明显不对，原因在LB12 中Abs(F-E)A曲线偏角计算考虑不周，修改如下，在LB12中删除Abs(F-E)A ，在数据输入中直接将偏角赋值给A40 楼：彭赐明 楼主 09-3-26 20:59 HYPERLINK :/ 回线路末尾直线段的输入改为IF K1358.861 ANDK801.348:THEN 1O:1358.861Z3:4267501.234Z16:385155.025Z17:303-48-18E:GOTO 4:IFEND41 楼：z_b1986101109-3-27 16:25 HYPERLINK :/ 回评：+10

30、分各位老师请帮我看看,这是我们标段的曲线要素,我按要求输了,可是计算出来的设计坐标对不上,你们帮我看看谢谢我用的是在JD20范围内的里程坐标 :JD19,K95+156.266,转角:5-24-48.9,右转.半径:6000,切线长:283.666/283.666,曲线长:566.910.外距:6.702,X=2923576.273,Y=526967.957JD20,K97+883.200,转角:51-47-55.6,左转.半径:1230,缓和曲线长:260/220,切线长:727.475/708.832,曲线长:1351.992.外距:139.515,X=2925274.481,Y=5248

31、33.247JD21,K98+798.543,转角:7-44-29.2,右转.半径:2450,缓和曲线长:250,切线长:290.828/290.828,曲线长:581.029.外距:6.667,X=2925044.581,Y=523860.382以上是曲线要素:下面我给上几组在JD20范围内的设计坐标:K97+240,X=2924873.809,Y=525336.4054K97+380,X=2924956.526,Y=525223.4882K98+400,X=2925135.487,Y=524248.4146然后我在给上两个导线点坐标GY053,X=2925017.5720,Y=523930

32、.3390NJ-6, X=2924921.9259,Y=524135.6214老师们帮我试试看我算出来的坐标跟设计坐标对不上的,谢谢了 142 楼：彭赐明 楼主 09-3-27 18:58 HYPERLINK :/ 回又来一位,不知道37楼那位问题解决没有，41楼看你方位角输入对不对，这个程序我昨天做了一点完善，你再核对一下是否输入有问题43 楼：qingkong133009-3-27 21:13 HYPERLINK :/ 回评：+10 分各位兄弟：在输入楼主程序之前请仔细核对数据，对楼主提到的说明和考前须知要详细阅读，对自己所做的工程要有充分的了解，然后再用最少12个小时的时间熟悉程序，编写

33、数据库的时候再做一次复核，好了，可以使用了。谢谢楼主共享，向楼主的奉献精神致敬！44 楼：z_b1986101109-3-28 7:44 HYPERLINK :/ 回我是41楼的那个方位角有E,F,小里程向交点是E,大里程向交点F, 也就是说 从JD19到JD20的方位角是E,从JD20到JD21的方位角为F,是不是啊,那个偏角是不是转向角啊?45 楼：了09-3-28 9:7 HYPERLINK :/ 回评：+6 分请问一下这个程序能计算不对称曲线的吗？46 楼：afei09-3-28 10:44 HYPERLINK :/ 回评：+10 分彭工，能不能把你最新修改完善的程序发布一个出来。谢了

34、47 楼：防撞护09-3-28 11:42 HYPERLINK :/ 回彭工，我按你的要求修改后350X=4265663.56Y=385690.591 但980的X=4267290.448Y=38469.8342和设计相差0.001mm就是350坐标和设计相差太多，是不是IFK还要多分段呀？48 楼：彭赐明 楼主 09-3-28 12:55 HYPERLINK :/ 回这个程序应该不能计算匝道我没有试过，但含有不完全缓和曲线的肯定不能算，圆曲线有几个半径的复曲线应该不能使用，回头曲线和虚交点曲线根本没戏，我在上面已经进行了最终修改，就是在LB11里数据输入时加了一个曲线偏角就是转向角A不管左偏

35、右偏一律输入正值，在LB12里删除了Abs(F-E)A，另外直线段的输入是针对单独一条直线的，因为在每一条IF IFEND中都含有本交点中ZH点前一段直线和本段曲线的算法。每一个交点对应一条IF IFEND语句。本程序经我仔细核对，没有任何的输入错误，只要不输错数据和算法公式就可以用了有时间我再参加反算程序，看看速度如何再说5800编程其实很简单，起码我认为比4850功能强大就是速度太慢，多看说明书，能读懂别人的程序就能为己用49 楼：中专毕业09-3-28 12:57 HYPERLINK :/ 回JJ+360J:FH=:JDMS请问下楼主为什么运行到DMS的时候就错误不转换成度分秒？还有运行

36、到子程序结束的时候 到RETURN 这里也提示错误我就整明白。还有楼主程序运行正确50 楼：中专毕业09-3-28 13:16 HYPERLINK :/ 回在给有问题的同行们提点意见，比方：Z6/2- Z63/(240*R2)+ Z65/(34560*R4) Z8在5800程序里面的显示是这样的Z62- Z63240*R2)+Z6534560*R4)Z8我开始的时候都没看说明书也没注意后来才发现多平方和Sin Cos后面的括号很重要。所以有的时候在计算错误的情况下大家都回一位是曲线要数出现问题。其实程序本身也很重要。IFK本曲线缓直点桩号ANDK上个曲线缓直点桩号 ：THEN本曲线缓直点桩号Z

37、1 : 上个曲线缓直点桩号Z2 ：1O 注：左偏曲线输入-1O,右偏曲线输入1O: 偏角就是本交点的转角，因为大家的平时叫法不同A：半径R : 第一缓和曲线长度Z6 : 第二缓和曲线长度Z7 : 交点 XB :交点 YC : 小里程向交点方位角我输入的是本交点的方位角E : 交点向大里程方位角我输入的是下个交点的方位角)F : GOTO2 : IFEND不知道这两理解这两个方位角是不是正确，但是我计算出来的结果是正确的。希望对大家有帮助。还有楼主我是49的我说的错误的问题要怎么解决啊。我不明白程序语言求助啊51 楼：彭赐明 楼主 09-3-28 14:29 HYPERLINK :/ 回DMS输

38、入为FUNCTION键加5键加4键可以找到,RETURN为Return,FUNCTION键加3键下翻到最后可以找到你的方位角输入是对的！括号很重要，必须扩全，只有在语句末尾才能省略一个52 楼：娄09-3-28 22:28 HYPERLINK :/ 回我试过了，很好呀。谢谢了。要是把反算参加更好了。53 楼：娄09-3-28 22:29 HYPERLINK :/ 回你有隧道超欠挖的程序吗？给发个吗？谢谢54 楼：彭军09-3-29 0:27 HYPERLINK :/ 回彭老师你好，按照你的指导，该程序我已经可以成功利用，谢谢！只是有一点，第二缓和曲线计算始终不正确，不知道是什么原因！公式输入没

39、有问题！举例说明：JDX551731.150,JDY486701.349,PJ461202.1,PJ转向左,半径110,缓和曲线长35，计算方位角小里程2643151.2，大里程2181949.1,QDK0+000,ZHK0+022.971,HYK0+057.971,QZK0+084.821,YHK0+111.670,HZK0+146.670输入是FK146.670AND K0.000:THEN146.670Z1:0.000Z2:-1O:461202.1A：110R:35Z6:35Z7:551731.150B:486701.349C:2643151.2E:2181949.1F:GOTO2:IF

40、END无论用那段曲线算都是第二缓和曲线计算不正确！复核用的设计坐标：K0+020 X:551737.59Y:486768.616,K0+040 X:551735.471Y:486748.729,K0+060 X:551731.607Y:486729.123 K0+100 X:551714.132Y:486693.387,K0+120 X:551700.867Y:486678.453麻烦你了55 楼：z_b1986101109-3-29 8:6 HYPERLINK :/ 回彭老师 我今天将整条线路输进去了在计算最开始一段也就是直线段,还可以,有时就差1到2个毫米,但在计算非对称的时候就会有出入,

41、而且越来越大,到最后都能差到小数点前4位数上请老师帮我分析下,我就是41楼和44楼的那个学生谢谢老师56 楼：中专毕业09-3-29 8:32 HYPERLINK :/ 回楼主我在转换度分秒的时候就提示我语法错误。我把显示度分秒的DMS去掉就可以运行程序是不是我设置上有什么不对？57 楼：中专毕业09-3-29 9:2 HYPERLINK :/ 回RETURN 提示我语法错误 我核对了输入没问题 还有在计算缓和曲线的时候运行到PROG“TYZBCX ：GOTO1提示说转移错误 我子文件的名字也对啊 就算缓和曲线的时候出现这样的情况58 楼：中专毕业09-3-29 9:43 HYPERLINK

42、:/ 回楼主不行我还是不能转换成度分秒不知道为什么一运行到转换的时候就错误59 楼：彭赐明 楼主 09-3-29 12:34 HYPERLINK :/ 回你在显示度分秒时是不是加了一个，如果是就请去掉，那是因为计算机里找不到 DMS 符号前面的那个三角符号所以用代替 55楼把你的数据输入段贴出来我看看，就是你输入JD19/JD20/JD21数据时是如何输的，顺便参照43楼的意见，他是个明白人60 楼：中专毕业09-3-30 10:53 HYPERLINK :/ 回楼主我的问题解决了，但是我一个同学在输你程序运行到Z6/2- Z63/(240*R2)+ Z65/(34560*R4) Z8提示错误

43、 光标停留在+号前面 这个是什么问题核对以后输入的没问题，再次请教61 楼：中专毕业09-3-30 10:54 HYPERLINK :/ 回提示Math ERROR数学错误62 楼：彭赐明 楼主 09-3-30 11:15 HYPERLINK :/ 回看说明书对MathIO,LineIO的说明63 楼：谈东亚09-3-30 11:51 HYPERLINK :/ 回评：+10 分谢谢楼主64 楼：ryrye09-4-1 12:18 HYPERLINK :/ 回曲线要素；第一缓和段终点HYZY：K0+914.491第二缓和段终点HZ：K1+268.5第一缓和段起点ZH：K0+864.491第二缓和

44、段起点YHYZ：K1+218.5转角值 右转：40-33-59.4半径R：500第一缓和曲线参数A1：158.1139第二缓和曲线参数A2：158.1139第一缓和段长LS1：50第二缓和段长LS2：50曲线长L：404.01外距E:33.28第一切线长度T1:209.86第一切线长度T2:209.86起点坐标:9899.900，4568.820交点坐标：10917.833,4912.406桩号：K1+074。355计算方位角:18-39-04.4K=?K 计算里程IFK本段曲线终点里程ANDK上段曲线终点里程 ：THEN本段终点里程Z1 : 上段曲线终点里程Z2 ：1O 注：左偏曲线输入-1

45、O,右偏曲线输入1O: 偏角A：半径R : 第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : GOTO2 : IFEND曲线段分段输入补充直线段输入如下IF K本段直线终点里程 ANDK本段直线起点里程:THEN 1O:本段直线终点里程Z3:终点XZ16:终点YZ17:方位角E:GOTO 4:IFEND请问该怎么输入,啊.小里程向交点方位角, 交点向大里程方位角是什么意思!请楼住帮帮助.我怎么输都计算出来的结果都不正确 ,数字非常大.到底是什么原因 ,我的程序检查过很屡次了.在计算的过程中需要些什么吗?65 楼：yur

46、enj09-4-1 14:13 HYPERLINK :/ 回谁能给个全面的5800程序？高程、坐标正反算、结构物、隧道断面放样。奖金1500，先发先得！邮箱499737842qq 66 楼：彭赐明09-4-1 16:26 HYPERLINK :/ 回64楼：你的数据缺第二个方位角的数据，第二个方位角可以这样算，18-39-04.4+360 - 40-33-59.4你可以参照27楼和31楼进行数据输入67 楼：ryrye09-4-2 14:52 HYPERLINK :/ 回曲线要素；第一缓和段终点HYZY：K0+914.491第二缓和段终点HZ：K1+268.5第一缓和段起点ZH：K0+864.

47、491第二缓和段起点YHYZ：K1+218.5转角值 右转：40-33-59.4半径R：500第一缓和曲线参数A1：158.1139第二缓和曲线参数A2：158.1139第一缓和段长LS1：50第二缓和段长LS2：50曲线长L：404.01外距E:33.28第一切线长度T1:209.86第一切线长度T2:209.86起点坐标:9899.900，4568.820交点坐标：10917.833,4912.406桩号：K1+074。355计算方位角:起点到交点的方位18-39-04.4交点到转折点的方位:59-13-03.8转折点坐标:11477.460,5851.850里程:K2+152.134直线

48、段的：终点里程：864.491坐标: 10718.990,4845.290起点里程:0.000第二方位角是:338-5-5吗?K=?K 计算里程IFK914.491ANDK1268.5 ：THEN914.491Z1 : 1268.5Z2 ：1O : 40-33-59.4A：500R : 158.1139Z6 : 158.1139Z7 : 10917.833XB : 4912.406 YC : 18-39-04.4E : 338-5-5F : GOTO2 : IFENDIFK864.491ANDK0.00:THEN1O:864.491Z3:10718.990XZ16:4845.290YZ17:1

49、8-39-04.4E:GOTO 4:IFEND请楼住帮我看看这样输对不?我算出来还是不正确啊1 实在不知道 杂整了.都磨够了1又急到用 帮帮助哈只输一段曲线和只书一段直线应该是这样输入吧如果不是这输入上出问题,我就不知道哪儿出问题了68 楼：彭赐明09-4-2 16:26 HYPERLINK :/ 回输入错了IFK0For 1Q To RGetkey-80MIf M3 And M6ThenMTBreakIfEndNextIf 3T And T6ThenIf Frac(T3)=0ThenX+(T-4.5)1.5XElseY+(T-4.5)2YIfEndIfEndIf X16 Or Y4ThenB

50、reakIfEndLocate X,Y,XLocate D,E,PIf X=D And Y=EThenS+PSRanInt#(1,16)DRanInt#(1,4)ERanInt#(0,9)PLocate D,E,PIfEndClsWhileEndGAME OVERSCORE：Locate 1,3,S然后按右或下开始注：按左或上直接死掉屏幕上会出现X主人公和一个数字，吃掉数字得到相应的分数。77 楼：菜鸟09-4-16 11:31 HYPERLINK :/ 回彭工你好。第二缓和曲线计算跟设计有误差。是怎么回事啊78 楼：彭赐明 楼主 09-4-16 12:32 HYPERLINK :/ 回估计是

51、你输入错误，极有可能是括号没有扩全的缘故，编程时三角函数显示只带一个括号，但你必须把也补齐79 楼：小贝09-4-17 20:35 HYPERLINK :/ 回楼主，该程序能计算缓和曲线加缓和曲线的路线不80 楼：彭赐明 楼主 09-4-17 21:52 HYPERLINK :/ 回这个程序可以算含有不等缓和曲线的线路坐标即直线+缓和曲线+圆曲线+缓和曲线+直线，通常用于整个标段的线路坐标连续计算，有时可以算局部匝道的81 楼：veuns09-5-1 16:40 HYPERLINK :/ 回请问Lbi 7里面计算X坐标公式里Z13cosA+Z12-UcosA.XZ13sinA-UsinA.YX

52、要加Z12Y是不是不加Z12呢？这个我不明白。解答一下。谢谢82 楼：彭赐明09-5-1 17:43 HYPERLINK :/ 回对，Y不用加，你画个图分析一下就会明白83 楼：veuns09-5-1 18:15 HYPERLINK :/ 回彭工。你好。我想问一下。如果计算误差超过万位数！可能是什么问题呢？程序我已经对过好几次。会不会是以曲线数据输入错误呢？JD21 K48+078.92 JDX 2526198.457 JDY 468896.722偏角 右46-17-6.35 半径 1500缓和曲线长 200小方位角 259-18-28.57大方位角 305-35-34.94上曲线终点 K45

53、+106.36缓直 K47+337.34 本曲线HZ K48+549.08交我是这样输入的ifK47337.340 AND K45446.36:Then 1O:47337.340Z3:2526336.043Z16:469625.428Z17:259-18-28.5E:Goto 4:ifend你帮看一下有没错误谢谢84 楼：彭赐明09-5-2 7:27 HYPERLINK :/ 回ifK47337.340 AND K45446.36:Then 1O:47337.340Z3:2526336.043Z16:469625.428Z17:259-18-28.5E:Goto 4:ifend这句不需要，多余

54、的86 楼：我09-5-2 19:1 HYPERLINK :/ 回评：+2 分问下你们有没有5800编隧道的缓和曲线的程序嘛，还有4800的编的起的程序在5800上有用不起，请问下那里出错了。各位指导下。87 楼：肖帅09-5-8 18:38 HYPERLINK :/ 回CLS : FIX 4 : 30DIM Z 我是初学的这个式子输入计算器显示为错误，请高手指教哈88 楼：马永稳09-5-11 14:9 HYPERLINK :/ 回评：+10 分能传一个给我吗？258533290163 89 楼：cjk083009-5-11 17:2 HYPERLINK :/ 回如何如输入这段：“IFK本段

55、曲线终点里程ANDK上段曲线终点里程 ：THEN本段终点里程Z1 : 上段曲线终点里程Z2 ：1O 注：左偏曲线输入-1O,右偏曲线输入1O: 偏角A：半径R : 第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : GOTO2 : IFEND曲线段分段输入补充直线段输入如下IF K0=Goto2：=Goto3 Lb1 2：T0=O=W：O“FWJ=O=360-W：O“FWJ=Z“JL=S2+T2Goto4Lb1 3：T0=O=180-W：O“FWJ=O=180+W：O“FWJ=Z“JL=S2+T2Goto4Lb1 411

56、2 楼：在线等回09-7-29 12:51 HYPERLINK :/ 回评：+10 分彭工 你的程序很好用 就是现在有个问题 你能告诉我小里程向交点方位角和交点向大里程方位角的具体计算方法吗?113 楼：公路测量09-7-29 21:7 HYPERLINK :/ 回JD15 K25+388.234 x=3101804.369 Y=516945.692 偏角15-3-58.7 R=1200 A1=450 A2=450 LH1=168.75LH2=168.75 L=484.298 ZH=25+145.052 ZY=K25+313.802 YZ=K25+460.6 HZ=K25+629.35交点15

57、方位角=185-51-30.1交点16方位角=160-7-43.9设计坐标K25+440 X=3101751.242 Y=516934.634 K25+390 X=3101801.237 Y=516934.331我的输入是 一、IF K25629.35 AND K25145.052：THEN 25629.35Z1：25145.052Z2：1O：15-3-58.7A：1200R：168.75Z6：168.757：3101804.369B：516945.693C：185-51-30.1E：160-7-43.9F：GOTO 2：IFEN 计算出来的结果相差很大 彭工百忙之中能帮助看下问题在那里我觉得

58、是里程方位角有问题114 楼：WCX09-8-8 12:47 HYPERLINK :/ 回评：+10 分请问哈 LBI0LBI1在程序里是接着输入还是分开输?115 楼：WCX09-8-8 12:50 HYPERLINK :/ 回彭工怎么我的程序运行到K?就无法在运行请给予解答谢谢116 楼：王铮09-8-10 8:51 HYPERLINK :/ 回评：+10 分慢慢研究117 楼：12309-8-10 11:45 HYPERLINK :/ 回我有一条程序是这样的,但我不知道它使用时候所输入的显示是什么,能否帮我看看 ?X0？I： Y0？S： K0？O： F0？G： KN？H： R0？P： R

59、N ？R：Q(-Z+Y)？ Q:(P-R)(2(H-O)PR)D：“K?K：L(-Z+Y)? L:ANG? M:Abs(K-O)J：ProgSUB：X= ?XY=?Y=YFWJ=: F-MF2. 正算子程序(SUB)6DimZ:0.1184634425A: 0.2393143352B: 0.2844444444Z1: 0.0469100770C: 0.2307653449E: G+QCJ(1P+CJD)180Z2: G+QEJ(1P+EJD)180Z3: G+0.5 Q J(1P+0.5JD)180Z4: G+Q(1-E)J(1P+(1-E)JD)180Z5: G+Q (1-C)J(1P+(1-C)JD) 180Z6:I+J(AcosZ2+Bcos Z3+Z1cosZ4+BcosZ5+AcosZ6)X:S+J(AsinZ2+Bsin Z3+Z1sinZ4+BsinZ5+AsinZ6)Y：G+QJ(1P+JD) 180+MF：X+LcosFX：Y+LsinFY它显示出来是这样的:XO?YO?KO?FO?KN?Ro?RN?Q(-Z+Y)?K?L(-Z+Y)?ANG?它这些都要相对应输入什么? 请楼主帮我看看