CASIO4850P 坐标正算、坐标反算程序.doc

1、左向卵形曲线计算图示 2: JD1 X=9858.265 Y=10034.988 R=75 卵形曲线长 Ls=48.166 JD2 X=9949.871 Y=10155.449 R=50QD K0+084.182 X=9922.319 Y=10007.905 (QX)FWJ=157 04 52YH K0+196.332 X=9880.441 Y=10100.900 (QX)FWJ=71 24 17.4 终点HY K0+244.498 X=9910.602 Y=10136.790 (QX)FWJ=25 24 34.8ZD K0+316.067 X=9973.800 Y=10119.149 (QX

2、)FWJ=303 23 51.5JD2起点卵曲线JD15800 任意线型中边桩坐标计算程序（卵形曲线示例）RYSX ZB JS (主程序)Lb1 1: “K”? K:Prog “ S1 ” (R -D)/Abs(Z - Q)P: Abs(K - Q)C: PCE F（E 2D ）C90JF（E82D）C45（4）MF（3 E82D）C135（4）NF（5 E82D）C225（4）UF（7 E82D）C315（4）VF（E42D）C45（2）HF（E22D）C45OF（3 E 42D）C135（2） G“X=”:AC24（cos（F ）4 （cos（M）cos（N）cos（U）cos（V） ）2

3、（ cos（H）cos （O）cos（G） ）cos （J ） ）X “Y=”:BC24 （sin （F）4 （sin （M）sin（N）sin（U）sin （V） ）2（ sin （H）sin （O ）sin （G） ）sin（J ） ） Y Lb1 1:?W:? L:? I“XL=”:XLcos（JW ） “YL=”:YLsin（J W ） “XR=”:XIcos（J W ） “YR=”:YIsin（JW） Goto 1S1（数据库）子程序If K终点桩号： Then 起点桩号Q:起点 X 坐标A:起点 Y 坐标B ：起点切线方位角F：起点曲率 1/R1D:终点曲率 1/R2R: （如是直

4、线均输 0）Goto 0:If End 换行下一个线元要素输入同上。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。Lb1 0：Return 说明：曲率 “1/R1”? D: “1/R2”?R 为起终点半径的倒数. 左向为负右向为正.若有多条路线数据库建如 S2, S3。 。 。 。 。S5 在使用时把主程序 S1 根据计算需要改为S2。 。 。 。 。S5 要计算线路即可。K 为待求点里程, W 为夹角， L 为左边距，I 为右边距。（ 卵形曲线计算 ）逐桩坐标计算表序号 里 程 中 边 桩 X 坐 标 Y 坐 标 切线方位角1

5、 QD K0+084.182 中桩 9922.319 10007.905 157度 04分 52秒2 K0+084.182 左 11.25米 9926.700 10018.267 157度 04分 52秒3 K0+084.182 右 11.25米 9917.938 9997.543 157度 04分 52秒4 K0+089.182 中桩 9917.782 10010.004 153度 15分 41秒5 K0+089.182 左 11.25米 9922.844 10020.051 153度 15分 41秒6 K0+089.182 右 11.25米 9912.720 9999.957 153度 1

6、5分 41秒7 K0+094.182 中桩 9913.395 10012.401 149度 26分 30秒8 K0+094.182 左 11.25米 9919.115 10022.088 149度 26分 30秒9 K0+094.182 右 11.25米 9907.675 10002.713 149度 26分 30秒10 K0+099.182 中桩 9909.177 10015.085 145度 37分 19秒11 K0+099.182 左 11.25米 9915.530 10024.369 145度 37分 19秒12 K0+099.182 右 11.25米 9902.825 10005.8

7、00 145度 37分 19秒13 K0+104.182 中桩 9905.148 10018.043 141度 48分 08秒14 K0+104.182 左 11.25米 9912.104 10026.884 141度 48分 08秒15 K0+104.182 右 11.25米 9898.191 10009.202 141度 48分 08秒16 K0+109.182 中桩 9901.324 10021.264 137度 58分 57秒17 K0+109.182 左 11.25米 9908.855 10029.622 137度 58分 57秒18 K0+109.182 右 11.25米 9893

8、.794 10012.906 137度 58分 57秒19 K0+114.182 中桩 9897.724 10024.732 134度 09分 46秒20 K0+114.182 左 11.25米 9905.794 10032.570 134度 09分 46秒21 K0+114.182 右 11.25米 9889.654 10016.894 134度 09分 46秒22 K0+119.182 中桩 9894.362 10028.432 130度 20分 35秒23 K0+119.182 左 11.25米 9902.937 10035.715 130度 20分 35秒24 K0+119.182 右

9、 11.25米 9885.788 10021.149 130度 20分 35秒25 K0+124.182 中桩 9891.255 10032.348 126度 31分 24秒26 K0+124.182 左 11.25米 9900.296 10039.043 126度 31分 24秒27 K0+124.182 右 11.25米 9882.214 10025.653 126度 31分 24秒28 K0+129.182 中桩 9888.415 10036.462 122度 42分 13秒29 K0+129.182 左 11.25米 9897.882 10042.541 122度 42分 13秒30

10、K0+129.182 右 11.25米 9878.949 10030.384 122度 42分 13秒31 K0+134.182 中桩 9885.856 10040.757 118度 53分 02秒32 K0+134.182 左 11.25米 9895.707 10046.191 118度 53分 02秒33 K0+134.182 右 11.25米 9876.006 10035.322 118度 53分 02秒34 K0+139.182 中桩 9883.589 10045.212 115度 03分 51秒35 K0+139.182 左 11.25米 9893.779 10049.978 115

11、度 03分 51秒36 K0+139.182 右 11.25米 9873.398 10040.446 115度 03分 51秒QZ K0+140.257 中桩 9883.140 10046.189 114 度 14 分 34.7 秒37 K0+144.182 中桩 9881.623 10049.808 111度 14分 40秒38 K0+144.182 左 11.25米 9892.108 10053.885 111度 14分 40秒39 K0+144.182 右 11.25米 9871.137 10045.732 111度 14分 40秒40 K0+149.182 中桩 9879.968 10

12、054.525 107度 25分 29秒41 K0+149.182 左 11.25米 9890.702 10057.894 107度 25分 29秒42 K0+149.182 右 11.25米 9869.234 10051.156 107度 25分 29秒43 K0+154.182 中桩 9878.631 10059.342 103度 36分 18秒44 K0+154.182 左 11.25米 9889.565 10061.989 103度 36分 18秒45 K0+154.182 右 11.25米 9867.696 10056.696 103度 36分 18秒46 K0+159.182 中桩

13、 9877.617 10064.237 99度 47分 07秒47 K0+159.182 左 11.25米 9888.704 10066.150 99度 47分 07秒48 K0+159.182 右 11.25米 9866.531 10062.325 99度 47分 07秒49 K0+164.182 中桩 9876.932 10069.189 95度 57分 56秒50 K0+164.182 左 11.25米 9888.121 10070.359 95度 57分 56秒51 K0+164.182 右 11.25米 9865.743 10068.020 95度 57分 56秒52 K0+169.

14、182 中桩 9876.579 10074.176 92度 08分 45秒53 K0+169.182 左 11.25米 9887.821 10074.597 92度 08分 45秒54 K0+169.182 右 11.25米 9865.337 10073.755 92度 08分 45秒55 K0+174.182 中桩 9876.558 10079.175 88度 19分 34秒56 K0+174.182 左 11.25米 9887.803 10078.846 88度 19分 34秒57 K0+174.182 右 11.25米 9865.313 10079.504 88度 19分 34秒58 K

15、0+179.182 中桩 9876.871 10084.164 84度 30分 23秒59 K0+179.182 左 11.25米 9888.069 10083.087 84度 30分 23秒60 K0+179.182 右 11.25米 9865.672 10085.241 84度 30分 23秒61 K0+184.182 中桩 9877.515 10089.122 80度 41分 12秒62 K0+184.182 左 11.25米 9888.616 10087.301 80度 41分 12秒63 K0+184.182 右 11.25米 9866.413 10090.942 80度 41分 1

16、2秒64 K0+189.182 中桩 9878.488 10094.025 76度 52分 01秒65 K0+189.182 左 11.25米 9889.443 10091.469 76度 52分 01秒66 K0+189.182 右 11.25米 9867.532 10096.581 76度 52分 01秒67 K0+194.182 中桩 9879.785 10098.853 73度 02分 50秒68 K0+194.182 左 11.25米 9890.546 10095.573 73度 02分 50秒69 K0+194.182 右 11.25米 9869.024 10102.133 73度

17、 02分 50秒YH K0+196.332 中桩 9880.441 10100.900 71 度 24 分 17.4 秒70 K0+199.182 中桩 9881.401 10103.583 69度 11分 43秒71 K0+199.182 左 11.25米 9891.918 10099.587 69度 11分 43秒72 K0+199.182 右 11.25米 9870.885 10107.579 69度 11分 43秒73 K0+204.182 中桩 9883.339 10108.191 65度 09分 49秒74 K0+204.182 左 11.25米 9893.548 10103.46

18、6 65度 09分 49秒75 K0+204.182 右 11.25米 9873.129 10112.917 65度 09分 49秒76 K0+209.182 中桩 9885.603 10112.648 60度 56分 00秒77 K0+209.182 左 11.25米 9895.436 10107.182 60度 56分 00秒78 K0+209.182 右 11.25米 9875.770 10118.113 60度 56分 00秒79 K0+214.182 中桩 9888.198 10116.921 56度 30分 18秒80 K0+214.182 左 11.25米 9897.579 10

19、110.712 56度 30分 18秒81 K0+214.182 右 11.25米 9878.816 10123.129 56度 30分 18秒82 K0+219.182 中桩 9891.121 10120.975 51度 52分 42秒83 K0+219.182 左 11.25米 9899.971 10114.030 51度 52分 42秒84 K0+219.182 右 11.25米 9882.271 10127.920 51度 52分 42秒85 K0+224.182 中桩 9894.368 10124.775 47度 03分 13秒86 K0+224.182 左 11.25米 9902.

20、603 10117.111 47度 03分 13秒87 K0+224.182 右 11.25米 9886.134 10132.440 47度 03分 13秒88 K0+229.182 中桩 9897.930 10128.282 42度 01分 49秒89 K0+229.182 左 11.25米 9905.462 10119.926 42度 01分 49秒90 K0+229.182 右 11.25米 9890.398 10136.639 42度 01分 49秒91 K0+234.182 中桩 9901.790 10131.457 36度 48分 32秒92 K0+234.182 左 11.25米

21、 9908.531 10122.450 36度 48分 32秒93 K0+234.182 右 11.25米 9895.050 10140.465 36度 48分 32秒94 K0+239.182 中桩 9905.928 10134.261 31度 23分 22秒95 K0+239.182 左 11.25米 9911.788 10124.657 31度 23分 22秒96 K0+239.182 右 11.25米 9900.069 10143.864 31度 23分 22秒97 K0+244.182 中桩 9910.317 10136.653 25度 46分 17秒98 K0+244.182 左

22、11.25米 9915.208 10126.522 25度 46分 17秒99 K0+244.182 右 11.25米 9905.425 10146.784 25度 46分 17秒HY K0+244.498 中桩 9910.602 10136.790 25 度 24 分 34.8 秒100 K0+249.182 中桩 9914.921 10138.599 20度 02分 32秒101 K0+249.182 左 11.25米 9918.776 10128.030 20度 02分 32秒102 K0+249.182 右 11.25米 9911.065 10149.168 20度 02分 32秒10

23、3 K0+254.182 中桩 9919.696 10140.075 14度 18分 45秒104 K0+254.182 左 11.25米 9922.477 10129.174 14度 18分 45秒105 K0+254.182 右 11.25米 9916.915 10150.976 14度 18分 45秒106 K0+259.182 中桩 9924.594 10141.067 8度 34分 59秒107 K0+259.182 左 11.25米 9926.273 10129.943 8度 34分 59秒108 K0+259.182 右 11.25米 9922.915 10152.191 8度

24、34分 59秒109 K0+264.182 中桩 9929.567 10141.565 2度 51分 12秒110 K0+264.182 左 11.25米 9930.127 10130.329 2度 51分 12秒111 K0+264.182 右 11.25米 9929.007 10152.801 2度 51分 12秒112 K0+269.182 中桩 9934.565 10141.564 357度 07分 26秒113 K0+269.182 左 11.25米 9934.001 10130.328 357度 07分 26秒114 K0+269.182 右 11.25米 9935.130 101

25、52.800 357度 07分 26秒115 K0+274.182 中桩 9939.538 10141.064 351度 23分 40秒116 K0+274.182 左 11.25米 9937.855 10129.941 351度 23分 40秒117 K0+274.182 右 11.25米 9941.221 10152.187 351度 23分 40秒118 K0+279.182 中桩 9944.436 10140.070 345度 39分 53秒119 K0+279.182 左 11.25米 9941.651 10129.170 345度 39分 53秒120 K0+279.182 右 1

26、1.25米 9947.222 10150.970 345度 39分 53秒121 K0+284.182 中桩 9949.211 10138.592 339度 56分 07秒122 K0+284.182 左 11.25米 9945.351 10128.025 339度 56分 07秒123 K0+284.182 右 11.25米 9953.070 10149.159 339度 56分 07秒124 K0+289.182 中桩 9953.814 10136.645 334度 12分 20秒125 K0+289.182 左 11.25米 9948.918 10126.516 334度 12分 20秒

27、126 K0+289.182 右 11.25米 9958.709 10146.774 334度 12分 20秒127 K0+294.182 中桩 9958.199 10134.248 328度 28分 34秒128 K0+294.182 左 11.25米 9952.317 10124.658 328度 28分 34秒129 K0+294.182 右 11.25米 9964.081 10143.838 328度 28分 34秒130 K0+299.182 中桩 9962.324 10131.425 322度 44分 47秒131 K0+299.182 左 11.25米 9955.513 1012

28、2.470 322度 44分 47秒132 K0+299.182 右 11.25米 9969.134 10140.380 322度 44分 47秒133 K0+304.182 中桩 9966.146 10128.205 317度 01分 01秒134 K0+304.182 左 11.25米 9958.475 10119.975 317度 01分 01秒135 K0+304.182 右 11.25米 9973.816 10136.435 317度 01分 01秒136 K0+309.182 中桩 9969.627 10124.619 311度 17分 14秒137 K0+309.182 左 11

29、.25米 9961.174 10117.195 311度 17分 14秒138 K0+309.182 右 11.25米 9978.080 10132.042 311度 17分 14秒139 K0+314.182 中桩 9972.733 10120.703 305度 33分 28秒140 K0+314.182 左 11.25米 9963.581 10114.161 305度 33分 28秒141 K0+314.182 右 11.25米 9981.885 10127.245 305度 33分 28秒ZD K0+316.067 中桩 9973.800 10119.149 303 度 23 分 51.

30、5 秒RYSX ZB JS (主程序)“1S1 , 2S2 , 3S3 ”?U IfU=1:ThenProg “S1”:IfEnd 进入第一条线路IfU=2:ThenProg “S2”:IfEnd 进入第二条线路IfU=3:Then Prog “S3”:IfEnd 进入第三条线路Lb1 1: “K”? K (R -D)/Abs(Z - Q)P: Abs(K - Q)C: PCEF（E2D） C90JF（E82D）C45（4）MF（3 E82D）C135（4）N F（5 E82D）C225（4）U F（7 E82D）C315（4）V F（E42D）C45（2）H F（E22D）C45OF（3 E

31、 42D）C135（2） G “X=”:AC24（cos（F ）4（cos（M）cos （N）cos（U）cos （V） ）2（cos（H）cos （O）cos （G ） ）cos （J） ）X “Y=”:BC24（sin （F）4（sin（M）sin （N）sin（U）sin（V） ）2（sin （H）sin （O）sin （G） ）sin（J） ）Y Lb1 1:?W:? L:? I“XL=”:XLcos（JW ） “YL=”:YLsin（JW ） “XR=”:XIcos（JW ） “YR=”:YIsin （JW）Goto 1S1（数据库）子程序If K终点桩号：Then 起点桩号Q:终点

32、桩号Z：起点 X 坐标A:起点 Y 坐标B：起点切线方位角F：起点曲率 1/R1D:终点曲率 1/R2R: （如是直线均输 0）Goto 0:If End 换行下一个线元要素输入同上。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。Lb1 0：Return S2 第二条线路子程序。 。 。 。 。 。 。同上输入。S3 第三条线路子程序。 。 。 。 。 。 。同上输入。说明：曲率 “1/R1”? D: “1/R2”?R 为起终点半径的倒数. 左向为负右向为正.若有多条路线数据库建如 S2, S3。 。 。 。 。S5 在使用时把子程序 S1 根据计算需要改为S2。 。 。 。 。S5 要计算线路即可。K 为待求点里程, W 为夹角，L 为左边距，I 为右边距。