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

左向卵形曲线计算图示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)FWJ=303 23 51.5 JD2起点 卵曲线 JD15800任意线型中边桩坐标计算程序（卵形曲线示例）RYSX ZB JS (主程序)Lb1 1: “K”? K:Prog “ S1 ” (R -D)/Abs(Z - Q)P: Abs(K - Q)C: PCEF（E2D）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（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:起点X坐标A:起点Y坐标B：起点切线方位角F：起点曲率1/R1D:终点曲率1/R2R: （如是直线均输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 QDK0+084.182中桩9922.31910007.905157度04分52秒2K0+084.182左11.25米9926.70010018.267157度04分52秒3K0+084.182右11.25米9917.9389997.543157度04分52秒4K0+089.182中桩9917.78210010.004153度15分41秒5K0+089.182左11.25米9922.84410020.051153度15分41秒6K0+089.182右11.25米9912.7209999.957153度15分41秒7K0+094.182中桩9913.39510012.401149度26分30秒8K0+094.182左11.25米9919.11510022.088149度26分30秒9K0+094.182右11.25米9907.67510002.713149度26分30秒10K0+099.182中桩9909.17710015.085145度37分19秒11K0+099.182左11.25米9915.53010024.369145度37分19秒12K0+099.182右11.25米9902.82510005.800145度37分19秒13K0+104.182中桩9905.14810018.043141度48分08秒14K0+104.182左11.25米9912.10410026.884141度48分08秒15K0+104.182右11.25米9898.19110009.202141度48分08秒16K0+109.182中桩9901.32410021.264137度58分57秒17K0+109.182左11.25米9908.85510029.622137度58分57秒18K0+109.182右11.25米9893.79410012.906137度58分57秒19K0+114.182中桩9897.72410024.732134度09分46秒20K0+114.182左11.25米9905.79410032.570134度09分46秒21K0+114.182右11.25米9889.65410016.894134度09分46秒22K0+119.182中桩9894.36210028.432130度20分35秒23K0+119.182左11.25米9902.93710035.715130度20分35秒24K0+119.182右11.25米9885.78810021.149130度20分35秒25K0+124.182中桩9891.25510032.348126度31分24秒26K0+124.182左11.25米9900.29610039.043126度31分24秒27K0+124.182右11.25米9882.21410025.653126度31分24秒28K0+129.182中桩9888.41510036.462122度42分13秒29K0+129.182左11.25米9897.88210042.541122度42分13秒30K0+129.182右11.25米9878.94910030.384122度42分13秒31K0+134.182中桩9885.85610040.757118度53分02秒32K0+134.182左11.25米9895.70710046.191118度53分02秒33K0+134.182右11.25米9876.00610035.322118度53分02秒34K0+139.182中桩9883.58910045.212115度03分51秒35K0+139.182左11.25米9893.77910049.978115度03分51秒36K0+139.182右11.25米9873.39810040.446115度03分51秒QZK0+140.257中桩9883.14010046.189114 度 14 分 34.7秒37K0+144.182中桩9881.62310049.808111度14分40秒38K0+144.182左11.25米9892.10810053.885111度14分40秒39K0+144.182右11.25米9871.13710045.732111度14分40秒40K0+149.182中桩9879.96810054.525107度25分29秒41K0+149.182左11.25米9890.70210057.894107度25分29秒42K0+149.182右11.25米9869.23410051.156107度25分29秒43K0+154.182中桩9878.63110059.342103度36分18秒44K0+154.182左11.25米9889.56510061.989103度36分18秒45K0+154.182右11.25米9867.69610056.696103度36分18秒46K0+159.182中桩9877.61710064.23799度47分07秒47K0+159.182左11.25米9888.70410066.15099度47分07秒48K0+159.182右11.25米9866.53110062.32599度47分07秒49K0+164.182中桩9876.93210069.18995度57分56秒50K0+164.182左11.25米9888.12110070.35995度57分56秒51K0+164.182右11.25米9865.74310068.02095度57分56秒52K0+169.182中桩9876.57910074.17692度08分45秒53K0+169.182左11.25米9887.82110074.59792度08分45秒54K0+169.182右11.25米9865.33710073.75592度08分45秒55K0+174.182中桩9876.55810079.17588度19分34秒56K0+174.182左11.25米9887.80310078.84688度19分34秒57K0+174.182右11.25米9865.31310079.50488度19分34秒58K0+179.182中桩9876.87110084.16484度30分23秒59K0+179.182左11.25米9888.06910083.08784度30分23秒60K0+179.182右11.25米9865.67210085.24184度30分23秒61K0+184.182中桩9877.51510089.12280度41分12秒62K0+184.182左11.25米9888.61610087.30180度41分12秒63K0+184.182右11.25米9866.41310090.94280度41分12秒64K0+189.182中桩9878.48810094.02576度52分01秒65K0+189.182左11.25米9889.44310091.46976度52分01秒66K0+189.182右11.25米9867.53210096.58176度52分01秒67K0+194.182中桩9879.78510098.85373度02分50秒68K0+194.182左11.25米9890.54610095.57373度02分50秒69K0+194.182右11.25米9869.02410102.13373度02分50秒YHK0+196.332中桩9880.44110100.90071 度 24 分 17.4 秒70K0+199.182中桩9881.40110103.58369度11分43秒71K0+199.182左11.25米9891.91810099.58769度11分43秒72K0+199.182右11.25米9870.88510107.57969度11分43秒73K0+204.182中桩9883.33910108.19165度09分49秒74K0+204.182左11.25米9893.54810103.46665度09分49秒75K0+204.182右11.25米9873.12910112.91765度09分49秒76K0+209.182中桩9885.60310112.64860度56分00秒77K0+209.182左11.25米9895.43610107.18260度56分00秒78K0+209.182右11.25米9875.77010118.11360度56分00秒79K0+214.182中桩9888.19810116.92156度30分18秒80K0+214.182左11.25米9897.57910110.71256度30分18秒81K0+214.182右11.25米9878.81610123.12956度30分18秒82K0+219.182中桩9891.12110120.97551度52分42秒83K0+219.182左11.25米9899.97110114.03051度52分42秒84K0+219.182右11.25米9882.27110127.92051度52分42秒85K0+224.182中桩9894.36810124.77547度03分13秒86K0+224.182左11.25米9902.60310117.11147度03分13秒87K0+224.182右11.25米9886.13410132.44047度03分13秒88K0+229.182中桩9897.93010128.28242度01分49秒89K0+229.182左11.25米9905.46210119.92642度01分49秒90K0+229.182右11.25米9890.39810136.63942度01分49秒91K0+234.182中桩9901.79010131.45736度48分32秒92K0+234.182左11.25米9908.53110122.45036度48分32秒93K0+234.182右11.25米9895.05010140.46536度48分32秒94K0+239.182中桩9905.92810134.26131度23分22秒95K0+239.182左11.25米9911.78810124.65731度23分22秒96K0+239.182右11.25米9900.06910143.86431度23分22秒97K0+244.182中桩9910.31710136.65325度46分17秒98K0+244.182左11.25米9915.20810126.52225度46分17秒99K0+244.182右11.25米9905.42510146.78425度46分17秒HYK0+244.498中桩9910.60210136.79025 度 24 分34.8 秒100K0+249.182中桩9914.92110138.59920度02分32秒101K0+249.182左11.25米9918.77610128.03020度02分32秒102K0+249.182右11.25米9911.06510149.16820度02分32秒103K0+254.182中桩9919.69610140.07514度18分45秒104K0+254.182左11.25米9922.47710129.17414度18分45秒105K0+254.182右11.25米9916.91510150.97614度18分45秒106K0+259.182中桩9924.59410141.0678度34分59秒107K0+259.182左11.25米9926.27310129.9438度34分59秒108K0+259.182右11.25米9922.91510152.1918度34分59秒109K0+264.182中桩9929.56710141.5652度51分12秒110K0+264.182左11.25米9930.12710130.3292度51分12秒111K0+264.182右11.25米9929.00710152.8012度51分12秒112K0+269.182中桩9934.56510141.564357度07分26秒113K0+269.182左11.25米9934.00110130.328357度07分26秒114K0+269.182右11.25米9935.13010152.800357度07分26秒115K0+274.182中桩9939.53810141.064351度23分40秒116K0+274.182左11.25米9937.85510129.941351度23分40秒117K0+274.182右11.25米9941.22110152.187351度23分40秒118K0+279.182中桩9944.43610140.070345度39分53秒119K0+279.182左11.25米9941.65110129.170345度39分53秒120K0+279.182右11.25米9947.22210150.970345度39分53秒121K0+284.182中桩9949.21110138.592339度56分07秒122K0+284.182左11.25米9945.35110128.025339度56分07秒123K0+284.182右11.25米9953.07010149.159339度56分07秒124K0+289.182中桩9953.81410136.645334度12分20秒125K0+289.182左11.25米9948.91810126.516334度12分20秒126K0+289.182右11.25米9958.70910146.774334度12分20秒127K0+294.182中桩9958.19910134.248328度28分34秒128K0+294.182左11.25米9952.31710124.658328度28分34秒129K0+294.182右11.25米9964.08110143.838328度28分34秒130K0+299.182中桩9962.32410131.425322度44分47秒131K0+299.182左11.25米9955.51310122.470322度44分47秒132K0+299.182右11.25米9969.13410140.380322度44分47秒133K0+304.182中桩9966.14610128.205317度01分01秒134K0+304.182左11.25米9958.47510119.975317度01分01秒135K0+304.182右11.25米9973.81610136.435317度01分01秒136K0+309.182中桩9969.62710124.619311度17分14秒137K0+309.182左11.25米9961.17410117.195311度17分14秒138K0+309.182右11.25米9978.08010132.042311度17分14秒139K0+314.182中桩9972.73310120.703305度33分28秒140K0+314.182左11.25米9963.58110114.161305度33分28秒141K0+314.182右11.25米9981.88510127.245305度33分28秒ZDK0+316.067中桩9973.80010119.149303 度 23 分