1、曲线任意里程中边桩坐标正反算(CASIO fx-4800P 计算器)程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P 计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在 CASIO fx-
2、4500P 计算器及 CASIO fx-4850P 计算器上运行。特别申明：(1). 适用于弧长小于 2 倍半径的各种线元坐标正反算，精度优于 1mm；(2). 在引用该核心计算部分时，请注明来源。二、源程序1.主程序 (TYQXJS)“1.SZ = XY“：“2.XY = SZ“：N：U“X0“：V“Y0“ ：O“S0“ ：G“F0“ ：H“LS“：P“R0“：R“RN“：Q：C=1 P：D=(P-R) (2HPR)：E=180：N=1=Goto 1：Goto 2Lbl 1：SZ：SZ ：W=Abs(S-O)：Prog “SUB1“：X“XS“=X Y“YS“=YF“FS“=F-90Goto
3、 1Lbl 2：XY ：XY：I=X：J=Y ：Prog “SUB2“：S“S“=O+W Z“Z“=ZGoto 22. 正算子程序 (SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442 ：L=0.3300094782：F=1-L ：M=1-K： X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)：Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+Q
4、EMW(C+MWD)：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序 (SUB2)T=G-90：W=Abs(Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog “SUB1“：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZGoto1：W=W+Z：Goto 0Lbl 1：Z=0：Prog “SUB1“：Z=(J-Y) sinF三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时， Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，
5、 Z=0；当位于中线左铡时，Z 取负值；当位于中线中线右侧时，Z 取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的
6、半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明输入部分：1. SZ = XY2. XY = SZ N ? 选择计算方式，输入 1 表示进行由里程、边距计算坐标 ；输入 2 表示由坐标反算里程和边距。X0 ？线元起点的 X 坐标 Y0 ？线元起点的 Y 坐标 S0 ？线元起点里程F0 ？线元起点切线方位角LS ？线元长度R0 ？线元起点曲率半径RN ？线元止点曲率半径Q ？ 线 元左右偏标志 (左偏 Q=-1，右偏 Q=1，直线段 Q=0）S ？ 正算时所求点的里程Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零
7、)X ？反算时所求点的 X 坐标Y ？反算时所求点的 Y 坐标显示部分：XS= 正算时，计算得出的所求点的 X 坐标YS= 正算时，计算得出的所求点的 Y 坐标FS= 正算时，所求点对应的中线点的切线方位角S= 反算时，计算得出的所求点的里程Z= 反算时，计算得出的所求点的边距四、算例某匝道的由五段线元（直线+完整缓和曲线+圆曲线+ 非完整缓和曲线 +直线）组成，各段线元的要素（起点里程 S0、起点坐标 X0 Y0、起点切线方位角 F0、线元长度LS、起点曲率半径 R0、止点曲率半径 RN、线 元左右偏标志 Q）如下：S0 X0 Y0 F0 LS R0 RN Q500.000 19942.83
8、7 28343.561 125 16 31.00 269.256 1E45 1E45 0769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75 -1806.748 19766.566 28594.574 120 25 54.07 112.779 221.75 221.75 -1919.527 19736.072 28701.893 91 17 30.63 80.285 221.75 9579.228 -1999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 0 1、正算
9、（注意：略去计算方式及线元要素输入，请自行根据所求点所在的线元输入线元要素）S=700 Z=-5 计算得 XS=19831.41785 YS=28509.72590S=700 Z=0 计算得 XS=19827.33592 YS=28506.83837S=700 Z= 5 计算得 XS=19823.25398 YS=28503.95084S=780 Z=-5 计算得 XS=19785.25749 YS=28575.02270S=780 Z=0 计算得 XS=19781.15561 YS=28572.16358S=780 Z= 5 计算得 XS=19777.05373 YS=28569.30446
10、S=870 Z=-5 计算得 XS=19747.53609 YS=28654.13091S=870 Z=0 计算得 XS=19742.68648 YS=28652.91379S=870 Z= 5 计算得 XS=19737.83688 YS=28651.69668S=940 Z=-5.123 计算得 XS=19741. 59118 YS=28722.05802S=940 Z=0 计算得 XS=19736.47687 YS=28722.35642S=940 Z= 3.009 计算得 XS=19733.47298 YS=28722.531682、 反算X=19831.418 Y=28509.726
11、计算得 S=699.9999974 Z= -5 .00018164X=19827.336 Y=28506.838 计算得 S=699.9996493 Z= 0.000145136X=19823.25398 Y=28503.95084 计算得 S=699.9999985 Z= 5.000003137X=19785.25749 Y=28575.02270 计算得 S=780.0000035 Z= -5 .000001663X=19781.15561 Y=28572.16358 计算得 S=780.0000025 Z=- 0.000002979X=19777.05373 Y=28569.30446
12、计算得 S=780.0000016 Z= 4.99999578X=19747.536 Y=28654.131 计算得 S=870.0001137 Z= -4.99941049X=19742.686 Y=28652.914 计算得 S=870.0003175 Z=- 0.00041814X=19737.837 Y=28651.697 计算得 S=870.0002748 Z= 4.999808656X=19741.5912 Y=28722.0580 计算得 S=939.9999786 Z= -5.123024937X=19736.4769 Y=28722.3564 计算得 S=939.999986
13、2 Z=- 0.000027710X=19733.4730 Y=28722.5317 计算得 S=940.0000238 Z= 3.00898694谢谢发贴！ 平均用户评分：+4 【测量空间】查看作者其它文章 Goto1 应该是+6 吧? 若是-6 的话好 象不运行啊!楼主：yshf 05-6-27 20:48 线元是指组成道路中线的单一线型单元(即直线段、圆曲线段、缓和曲线段 )。 “1E-6”是10 的-6 次方的意思，是指所求点到相应法线的距离小于 10 的-6 次方时停止计算，在上传时，将比明显比“1”矮的字符“E ”变大所至。另外，请中原浪子仔细对一下程序，不可能反算出误差很大的桩号
14、和边距。姓名：hsb-hy 05-6-27 22:47 楼主好，请教！主程序运行至 Q？输入 0，之后显示“ Go ERROR in TYQXJS“请教楼主是什么问题，我是在 fx4850 上运行，对照了两遍，都是按照上文输入的！楼主：yshf 05-6-28 0:38 请问你输入的程序中有：“Lbl 1：SZ ：SZ：W=Abs(S-O) ：Prog “SUB1“：X“XS“=X”及“Lbl 2：XY：XY：I=X：J=Y：Prog “SUB2“：S“S“=O+W”两语句吗？特别是“Lbl 1”、 “Lbl 2”很重要的，而且“N=1=Goto 1：Goto 2”的中“”有吗？姓名：中原浪子
15、 05-6-28 9:36 那我在计算器里是这样输入的:“10-6“ 对吗?楼主：yshf 05-6-28 9:47 对，可以。姓名：中原浪子 05-6-28 9:55 再问一下!两个子程序可以单独运行吗?楼主：yshf 05-6-28 10:0 只有正算子程序 “SUB1”可以单独运行，从程序中可以明显地看出：在进行反算时，“SUB2”调用“SUB1 ”。姓名：1968cjz 05-6-28 10:34 老大:能否把 A,B,K,L 也编个程式与大家方便?谢谢了!姓名：1968cjz 05-6-28 10:37 (FS 为相应中线点的切线方位角)与涵轴线设计夹角姓名：hsb-hy 05-6-
16、29 0:14 楼主好，请问能否将测站加进去，并计算测站至待定点（xs、ys ）的距离和方位角，方便放样！姓名：hsb-hy 05-6-29 6:38 评：+5 分 在程序中能否将测站加入，计算时，变量输入只要输入里程和偏心距，结果显示测站至放样点（XS,YS）的距离和方位角；在反算时，只要输入测站至测设的（XS,YS) 的距离和方位角，即计算显示里程和偏心距。如果能够这样，在施工放样时，能方便很多！姓名：中原浪子 05-6-29 16:30 评：+5 分 终于试验成功 !不错!但是我现在只是知其然而不知其所以然,有机会的话我还要请教你啊!麻烦了姓名：遥 望 05-7-9 18:35 遥 望:
17、在程序中能否将测站加入，计算时，变量输入只要输入里程和偏心距，结果显示测站至放样点（XS,YS）的距离和方位角；在反算时，只要输入测站至测设的（XS,YS) 的距离和方位角，即计算显示里程和偏心距。如果能够这样，在施工放样时，能方便很多！姓名：zwg961 05-7-12 13:56 请问老师这个号在 4500 上怎么编呀.我在 4500 上编的怎么运行不了呀.最后出 no errow楼主：yshf 05-7-12 14:18 “”是回车换行的意思，即 4500 界面上右下角那颗蓝色的执行键EXE 。 “no errow”应该是 “Go ERROR”吧，请检查你输入的程序中是否有“Lbl 1”
18、、 “Lbl 2”以及是否有以“SUB1” 、 “SUB2”为名的程序文件。也就是说，主程序及两个子程序都是独立的程序文件，文件名分别：“TYQXJS” 、 “SUB1”、 “SUB2”，这样做可以让主程序以外的程序调用“SUB1”和“SUB2 ”。姓名：zwg961 05-7-13 8:48 按照你的程序对照了两遍，最后怎么计算还是出显“Go ERROR”，老师怎么办呢，我是在 4500 上编的，姓名：zwg961 05-7-13 11:1 老师你有没有大地正反算的程序呀,能计算子午线收敛角的,在 4500 上编的程序.多谢姓名：zwg961 05-7-13 17:11 程序调试成功了，很不
19、错的。你有没有大地正反算的程序呀,能计算子午线收敛角的,在4500 上编的程序.多谢姓名：linchunhua 05-7-22 13:35 本来程序算出来的结果就有误差啊！跟人家算出来最大有 2 厘米呢？应该怎样修正？而且本程序最不好的一点是，每段都要输方位角。姓名：小王 05-7-23 12:0 我也顶一下这个程序的确很不错这位老兄很早前就在工测员里面发表了要再次感谢杨先生的共享姓名：1968cjz 05-7-24 12:8 大家在互通匝道计算没 ?小半径计算结果误差大,如:起点半径 295.512,终点 55,结果与设计相差大.是不是取位不够?楼主：yshf 05-7-25 21:36 该
20、算法能保证有 6 次代数精度，不是取位的问题，请将有关数据、设计值及计算结果发一分到 。姓名：yu 05-7-27 21:51 评：+5 分 好！谢谢，使用成功了，姓名：wang811736 05-7-29 16:20 直线及没有缓和曲线的圆曲线好象不能用楼主：yshf 05-7-29 22:31 请“wang811736“仔细看说明、样对输入到计算器中的程序以及所输入的计算数据，不过早下“直线及没有缓和曲线的圆曲线好象不能用”的结论，别人通过了，你怎么通不过呢？姓名：280050876 05-8-5 20:34 评：+3 分 此程序本人试用过 ,感觉很不错,比李少元的辛朴生公式计算精度还好,
21、唯一感到不足的地方是程序运行时不能将一组复合曲线从起点算至终点,每一线元均需输入线元要素,感觉比较麻烦,希望 yshf 先生能够加以完善,使其更具有实用性.姓名：hahaha 05-8-9 11:54 评：+5 分 HY 点的切线方位角怎么得来？姓名：HAHAHAA 05-8-9 11:57 这个程序不能对圆曲线起点也就是 HY 点的切线方位角作出解答，遗憾！姓名：hkjkikh 05-8-9 21:4 评：+2 分 我用 4850 输入此程序后,可以运行,但发现曲线段的结果计算和你提供的例子不符 ,仔细检查五遍,并没发现输错啊!能告诉我 4850 行吗楼主：yshf 05-8-10 16:4
22、9 如果将“Lbl 1：SZ：SZ：W=Abs(S-O)：Prog “SUB1“：X“XS“=XY“YS“=Y”改为：“Lbl 1： SZ：SZ：W=Abs(S-O)：Prog “SUB1“：X“XS“=XY“YS“=Y F“FS“=F-90 “则显示的 FS 为相应中线点的切线方位角。选择正算，在输入该缓和曲线的线元要素后，里程输入 HY 点的值，Z 输入零，经计算，所显示的“FS”值即为 HY 点的切线方位角（即圆曲线起点的方位角） 。谁说不算，只是你对程序及线元的几何约束要素不太清楚所至。楼主：yshf 05-8-10 16:55 请 hkjkikh 再仔细校对程序和数据，本人用的就是
23、4850，后输入 4800 中也通过了，不会出现你的问题。姓名：lizengrong 05-8-12 4:52 评：+5 分 我实验成功了 ,非常感谢, 能否把数学模型和原理告诉我,谢谢.姓名：z22 05-8-18 10:51 这个程序相当不错， 769.256 的 Y 坐标应该是 25863.378 而不是 28563.378.请斑竹给我解释一下这坐标真的有问题吗？这程序为什么在算曲线段时怎么会和你的数据有差别！楼主：yshf 05-8-19 14:31 很不好意思，在第一次编辑时，把 K0+500 至 K0+769.256 直线段的 Y 坐标输入错了，769.256 的 Y 坐标应正确值
24、是 28563.378，而错输入为 25863.378，并于 2005 年 5 月28 日将输入错误的 Y 坐标作了更正。请你仔细再仔细地检查你输入的程序及数据是否完全正确，因好多人与我的结果相同，也有部分人与相似。姓名：yuhai98085 05-8-20 1:15 但是在园曲线上不行啊！姓名：jinyong 05-8-20 14:35 不知道怎么搞的 ,圆曲线上的坐标值有偏差,特别是 Y 值.核对了几次程序象没有输错!请指点一下.姓名：w7209258 02-1-1 10:14 老大，我不会编程，我想问下，这个程序能不能在改下，编个子程序用于全线的从标计算？怎么个编法，能不能劳驾传上来？谢
25、谢！姓名：sh 05-8-24 21:9 请教一下 yshf该程序在对称的缓和曲线上进行分段计算时得出的结果是正确的，而在非对称的缓和曲线上进行分段计算时得出的结果，从第二段圆曲线开始好象就合不上了，同时，我把该程序用在由（陶启粼）编著的，由华南理工大学出版社出版的公路测设实用程序中的 136 页 J 匝道中桩坐标计算表中的一些段回旋线进行计算比较，发现部分结果不相符合，不知是何原因，请帮我解答一下。楼主：yshf 05-8-26 16:13 所附算例就是非对称的缓和曲线，没有出现你的问题，请参看公路施工测量 （人民交通出版社 宋文主编 2001 年 1 月 第 1 版）P164P165 ，其
26、它的问题我也正在查找原因。姓名：wbl 05-8-29 8:54 请教一下 yshf,不同的书上有不同的算法，可是 QZ 到 YH 就会算出不同的值,是啥原因,姓名：wbl 05-8-29 9:0 评：+5 分 请教一下 yshf,不同的书上有不同的算法，可是 QZ 到 YH 就会算出不同的值,是啥原因,楼主：yshf 05-8-29 11:57 请 wbl 将不同算法所使用数据各传一份到 。姓名：Dhb 05-8-29 22:4 评：+5 分 您好!yshf:你的程序应该是比较成功的.我现在也涉及到高速公路互通测量放样坐标计算问题. 但我对你程序不十分懂.能否指教一下(编程序时比如说需不需要
27、留空格等 ).我现在及需待用.能否指教.我的 QQ 是 181610080 或是手机 13116860705 急于求教.谢谢!姓名：fjc 05-8-29 23:7 请问 N=1=Goto 1：Goto 2中的=是= 还是=（单个符号）是 还是= （单个符号）楼主：yshf 05-8-30 7:58 Dhb：编程序时除要显示的提示字符串内可留空格外，其它地方均不应有空格。因计算器中的源程序目前无法直接传入电脑中，采用文字处理软件编辑出的计算器程序，在字符、格式等表达方式上肯定会与计算器中的有差异，比如，为了使用各语句（用冒号作分隔）看得更清楚，在冒号后人为添加了一空格， “=”在计算器中是单个
28、符号，在电脑中没有此符号，为方便输入，采用等号“=”加大于号 “”形象地代替，故 Dhb 最好仔细看 4800 计算器的说明书。fjc：看来你对 4800 编程也是不太熟悉， =是单个符号，也是单个符号。姓名：w7209258 05-8-30 17:25 请教：yshf在这个程序里加个数据库该怎么加？我将你的这几个原程序作为子程序，将线路各线元的数据做为主程序，将待求点桩号做为选择变量，可这样会出现一个 Ne error 的错误提示怎么才能消除？急急急急急急急急急急！另我也看了的那个修改版，试用了下，好象在曲线段求得的坐标有问题，不过在直线段算斜交边桩时我用右角计算，没有出现坐标不正确有情况是
29、哪里有问题吗？请教老师傅！急啊我待用！麻烦您啦！姓名：w7209258 05-8-30 17:26 所以我在上加上有斜交的边桩计算，没问题吧！姓名：ysy 05-8-30 21:51 你好老师，您的程序在我这个工程上不实用，如果没有提供曲率半径没办法计算。您有没有不用曲率半径的曲线坐标计算程序阿楼主：yshf 05-8-31 12:9 请 W7209258 将你的程序发一份到 ，以方便分析。楼主：yshf 05-8-31 12:24 ysy：我不知道你那个工程是怎样用坐标来描述曲线的，但肯定知道你对线元法了解不够深刻，对微分几何知之之甚少。不过，也许我冒昧了，请将你那工程上的曲线数据完完整整地
30、传一份到 ，以避免本人少曲见多怪。楼主：yshf 05-8-31 12:26 请 W7209258 将你的程序发一份到 ，以方便分析。上次的邮箱号错了。姓名：w7209258 05-9-1 16:23 老师，我给你发了，你收到了吗？楼主：yshf 05-9-4 21:23 w7209258：你发过来的资料已收到。姓名：黄光福 05-9-6 19:59 yshf 老师，你好！你的程序很实用，很简略，我以为如果加上一个放样程序的话该程序会更加完美，(在放样程序里可以计算测站点到后视点的距离和方位角以及测站到前视点的距离，方位角，夹角)我是一个测量初学者不懂编程，yshf 老师你编好后能否传给我？谢
31、谢！联系： 姓名：liuyouchun 05-9-11 16:0 评：+5 分 yshf 老师，你好！你才是真正测量大师！你所编的程序很完美，在匝道中能反算真是太厉害。帮我解决这道难题，你是好老师！令人佩服！不像哪些没真本事的搞几个破程序挣钱。在你有空时能否编个公路中弯道加宽(按比例、高次）及加宽（中轴、边轴旋转）的综合程序，编好给我发个邮件好吗？谢谢！我的邮件：姓名：liuyouchun 05-9-11 16:6 yshf 老师，你好！应该是公路中弯道加宽（按比例、高次）及超高（中轴、边轴旋转）程序。谢谢！姓名：lizengrong 05-9-15 9:1 评：+4 分 yshf 老师，你好
32、: 我请教你一个问题,直线段方位角为 90 度时不能反算,我不知道为什么?姓名：谢了 05-9-15 17:20 yshf 高手，你这个程序实在是 wonderfull！精度十分符合要求！哪辈子借你的脑子让我这笨人用用就好了！姓名：111 05-9-27 19:13 评：+5 分 yshf 老师，你好: 你这个程序我再 4500 上用了，算出来结果是对的，但不知道为什么再算你上面例子的时候每个值都会差 0.0 几个毫米。我检查了几遍都没输错啊楼主：yshf 05-10-3 10:27 111：你好！你输入的坐标其整数部分的位数是不是太多了？改有五位整数再试一试。姓名：111 05-10-8 1
33、2:1 yshf 老师，你好:我试的是你给的算例啊正算都对的上，反算是就差 0.00 几毫米啊楼主：yshf 05-10-10 19:43 111：你好！那是因为 4500 显示的是 12 位数，而 4800、4850 显示是的 16 位数。再说啦，在一般的工程中差 0.00 几毫米也不影响什么的，说明输入的程序是正确的，尽管放心使用就是了。姓名：111 05-10-12 12:44 yshf 老师，你好:那就好我 就是 怕程序输入有误，要是算错了可部是好玩的啊呵呵谢谢你啦我还是一次检到你这么大方的人这么好的程序拿出来共享。我们这有个人也有个正反算程序，我向他要他就是死活不给，搞的跟要他命似的
34、，呵呵真是些谢你啦姓名：weijiajungz 05-10-13 10:52 评：+4 分 yshf，你好：你的程序很不错，能满足施工中的精度，不过是程序是逐线元的计算，我因是初搞公路测量，我这工程是一座立交隧道，线路比较复杂，曲线较多，你能把算整个线路的程序编一个发给我吗？我的 QQ：273687907，邮箱： 或,拜托你了！姓名：hanniu_1973 05-10-13 11:30 你问题好笼统呀！应是立交匝道吧，我还没听说有立交隧道之说呀！你要整条线路的程序，那你的设计参数在哪呢，先想好了再问，别让别人一头雾水呀！姓名：weijiajungz 05-10-17 10:49 hanniu-
35、1973:你好!我的问题是有点笼统，不过我这的工程就是一座比较完整的立交隧道，它是一座新建双线隧道通过三条匝道和其上面的一座既有线改造隧道连接，你能告诉我你的邮箱或 QQ 号吗，我给你把线路参数发过来，你看一下好吗？姓名：hanniu_1973 05-10-17 13:32 我的邮箱： hanniu_，请你把你的线路参数完整的发一份给我。欢迎你的加盟！姓名：李 05-10-17 18:55 评：+5 分 该程序在 4500PA 输入几遍都不能运行是怎么回事?无条件也不错.姓名：李 05-10-17 19:10 评：+5 分 请你仔细查看一下该程序是不是有问题.我非赏感谢.我在 4500PA 上
36、输入了几遍就是设有成功请指教一下.我仔细检查过输入与无条件转移语句也没有任何错误.姓名：280050876 05-10-18 19:3 在 4500PA 中,如上例 Prog “SUB1“应改为 Prog SUB1,这样才会调用子程序.不过在4500PA 中执行起来太慢 ,特别是反算姓名：weijiajungz 05-10-19 17:7 这个程序在 CASIOfx-4850P 能进行正反算，在 CASIOfx-4500PA 上正算时正确，而在反算时就相差太大，能告诉我是怎么回事吗？姓名：lovewnagziqiang 05-10-23 15:28 评：+5 分 好东西要大家一块用 !程序的好
37、和坏大家一块儿做鉴定!做人要厚道!楼上的不服气是吧,你就拿出你的好东东,让大家开开眼!开心吧,最主要的是大家共同学习!共同进步!闭门造车的残剧还要重演吗?姓名：lov 05-10-23 16:0 把 A B K L 的计算式!发给我一份好吗?QQ:47911162 E:姓名：CN 05-10-23 16:41 评：+4 分 各位高手谁能把 A B K L 的计算式发给我一份? 或者把它们编程！QQ:47911162 E:谢谢了！姓名：398997454 05-10-23 19:46 我在 4800p 上输入你的程序后，运行到 Q？出入 0，之后显示“Go ERROR in 这是什么原因呢？ 能
38、告诉我详细输入的方法和什么原因吗？楼主：yshf 05-10-24 8:55 398997454：问题出在这里“N=1=Goto 1：Goto 2” ，请检查程序中是否有“Lbl 1：SZ：SZ ”和“Lbl 2：XY：XY”的行。李：请你耐心检查你输入的程序和数据，肯定有输入错误，否则怎么会不能运行呢？weijiajuangz：你在 4500PA 中输入的程序反算部分肯定有问题，请你耐心检查再检查。姓名：lovewangziqiang 05-10-24 9:51 yshf 你好,我以收到谢谢了!我的 QQ47911162姓名：398997454 05-10-24 22:50 yshf 老师你
39、好，我在运用你的程序在 4800P 上运用时，程序运行到 Z？时，输入 0 时按EXE 键，屏幕上出现了 Go ERROR in 我的程序名 ，这是什么原因呢？能详细给我讲解一下吗？我的 QQ 号是 398997454 我将十分感谢楼主：yshf 05-10-25 8:21 398997454：你好，这有两种可能：（1 ）将主程序和两个子程序作为一个程序输入；（2 ）调用子程序的语句 Prog “SUB1“中的子程序（SUB1）名有误；或者子程序名虽然无误，但在计算器内没有名（文件名）为 SUB1 的子程序存在。特别说明：主程序和子程序分别输入并存入计算器内，主程序取任何名都可以，如果子程序不
40、想用 SUB1 及 SUB2 为名，则需要更改程序中所有有 Prog “SUB1“及 Prog “SUB2“的语句，使之与新的子程序名相对应。姓名：398997454 05-10-25 22:43 yshf 老师你好, 按照你指点的方法我运用成功了,谢谢你.您有没有从曲线头一直算到曲线尾的 4800P 程序?姓名：hanniu_1973 05-10-26 13:11 我就纳闷了，本网站里就有这样的程序，怎么有些网友就没看见呢？还有那么多人还在问此相关的问题。姓名：398997454 05-10-27 17:48 yshf 老师你好,上次问您的问题太笼统了,我是想问,从曲线头算到曲线尾中间不用再
41、输入方位角,等要素,即不分段计算的 4800p 程序,本网站若有的话,哪个是呢? 请您告诉我一下好吗?谢谢.姓名：kent 05-10-27 18:32 yshf 大师，我用的是 CASIO fx-4850P 计算机，请问此符号 和此符号 怎样施入，请指教。楼主：yshf 05-10-27 19:46 398997454：请参考由 hanniu_1973 发布的“曲线任意里程中边桩坐标正反算 (CASIO fx-4850P 计算器)程序（ 第四次修改版 ） ”吧。楼主：yshf 05-10-27 19:54 kent:(1)在有“”的地方，敲那颗蓝色的键EXE；(2)在有“”的地方，先敲那颗黄
42、色的键SHIFT，再先敲那颗白色的键EXP。楼主：yshf 05-10-27 19:55 kent:(1)在有“”的地方，敲那颗蓝色的键EXE；(2)在有“”的地方，先敲那颗黄色的键 SHIFT，再敲那颗白色的键EXP。姓名：398997454 05-10-28 12:47 yshf 老师你好,你告诉我的哪个程序 CASIOfx-4850 程序中的 “” 在 CASIOfx-4800 中怎么输入呢？能告诉我详细输入方法吗？谢谢老师楼主：yshf 05-10-31 8:4 398997454：在程序编辑状态下，先敲FUNCTION 键，再按3 、1键即可。姓名：众 05-10-31 16:48
43、我按照你的编出来，计算总不对，不知是哪里的问题姓名：weijiajungz 05-11-1 11:39 评：+5 分 yshy 老师，您好！程序已在 fx-4500 上试用成功,我是初次接触程序,请给我发一份“Gauss-Legendre”到 ,谢谢！拜托你了!姓名：李正云 05-11-1 18:58 评：+5 分 yshy 老师，您好！我也试用成功了,我想更深入了解“ Gauss-Legendre”,以帮助我今后编程,请发一份给我好吗,谢谢！我的邮箱 姓名：张洪涛 05-11-2 16:41 评：+4 分 程序不错，如果可升级一下，做到用于一个标段，只输入一次基础资料，使用时，只须输入所求里
44、程即可得到中、边桩坐标，那就更好了！姓名：李正云 05-11-3 10:7 评：+5 分 谢谢老师！我收到了。上次我请 hanniu_1973 老师给我讲复化辛卜生公式在坐标计算上的应用，他比较忙，没回复我，我以为这次结果也一样。显然，我现在很高兴，谢谢你，以后有问题再向您请教。姓名：小李 05-11-14 15:3 评：+5 分 你的程序非常实用 ,谢谢你姓名：lovewangziqiang 05-11-15 12:43 有没有办法把在 excel 中进行正反算楼主：yshf 05-11-15 14:22 在 Excel 中，使用 VBA 可以进行计算，请参考本网面页中的 “曲线任意里程中边
45、桩坐标正反算(VB6.0)函数” 。姓名：dlx 05-11-15 14:53 评：+5 分 yshfl 老师，你好！我在一公路桥涵施工放样中遇到这样一个名词：“法线方位角”我刚刚接触工程测量这个行业，而且还算是门外汉，请老师帮我解释一下好吗？谢谢！姓名：dlx 05-11-15 14:53 评：+5 分 yshfl 老师，你好！我在一公路桥涵施工放样中遇到这样一个名词：“法线方位角”我刚刚接触工程测量这个行业，而且还算是门外汉，请老师帮我解释一下好吗？谢谢！楼主：yshf 05-11-15 15:33 法线方位角 =切线方位角90，切线方位角是过中线一点且与中线相切的直线的方位角。这解释太简
46、略，最好相关的测量书书籍查看姓名：wL123 05-11-15 21:24 请教！我按上面的内容全部已录入 4800P 计算器中，算出来的结果就是不正确。知道问题出在哪里，请指教！谢谢！姓名：GFD 05-11-16 14:35 yshfl 老师你好 ,我在用一个程序 ,原来在别的路时和设计方算的一样 ,而这条路不一样,计算出的切线长和外距和交底的有的一样,有的不一样,所以坐标就有不同了,难道是公式不一样?楼主：yshf 05-11-16 17:56 wL123：要么你输入的程序有问题，要么你输入的数据问题，或两者兼而有之，请你再仔细检查。DFD：请将你的数据发一份到 好吗？我个人认为公式可
47、以不一样，但结果应该一致。姓名：wuming3310 05-11-18 15:46 老师您好，我用您的程序时发现了一个问题，现向您请教：正算部分，精度都不错，很好反算部分，桩号计算精度也很好，只是边距误差一直呈增大的趋势。我计算的是一条 580 米长的圆曲线，前一百米，精度都很好，但越往后，误差越大，算到最后时，有 2.9 米的误差。请问：这是什么原因楼主：yshf 05-11-18 17:5 该圆曲线的弧长大于 2R，这在工程中很小遇到，采用五节点的 Gauss-Legendre 求积真数公式可满足要，在本网页中可找到。姓名：wuming3310 05-11-18 17:12 没有啊。R=3000 米楼主：yshf 05-11-18 17:38 请将你的数据及计算结果完整地贴出来或发一份到 ，行吗？楼主：yshf 05-11-18 20:43 wuming3310：你输入的程序在反算部分肯定有问题，请仔细检查。根据你所说的圆曲线长 580 米，半径 3000 米，假设其它线元数据，正反算的结果如下：一、圆曲线右偏S0=0 X0=2000 Y0=2000 F0=1253650LS=580 R0=3000 RN=3000 Q=1(1)正算K0+580 左 5m XS=1622.3459886 YS=2439.675848K0+580 中线上 XS=1618.91
