直线、曲线及转角表.xls

直直线线、、曲曲线线及及转转角角表表 XXXXXXXXXXXXXXXXXXXXX主线 序号交点桩号 交点坐标转角值 转角值 曲线要素值曲线主点桩号 XY度分秒半径R 缓和曲线 长度LS 缓和曲线 参数A 切线长度T 曲线长度 L 外距E校正值第一缓和曲线 第一缓和曲线 终点 或圆曲线起点 曲线中点 BPK91305.22177098.40810485.800 JD1K95474.72373451.90712602.30751842.5051.14513812550.000290.000859.9421365.8962566.260278.451165.533K94108.827K94398.827K95391.957 JD2K98070.59470874.14511612.108172653.35 17.44815233 2300.000270.000788.036488.126970.41428.2585.838K97582.468K97852.468K98067.675 JD3K99183.85169757.21611542.51827441.96 27.07832143 2100.000250.000724.569630.9681242.47261.30219.463K98552.883K98802.883K99174.120 JD4K100876.989 68283.77110669.614305935.31 30.99314201 1800.000250.000670.820624.4491223.67869.40625.220K100252.540 K100502.540 K100864.379 JD5K102198.674 66936.89110677.833143812.49 14.63680289 2100.000260.000738.918399.857796.46718.6003.248K101798.817 K102058.817 K102197.050 JD6K102800.000 66351.01610528.635K102800.000 JD7 JD8 JD9 JD10 JD11 JD12 第 1 页共 1 页 直线长度及方位角 第二缓和曲线 终点 或圆曲线起点 第二缓和曲线直线长度交点间距计算方位角 K91305.221 2803.6064216.227149525.54 K96385.087K96675.087 907.3812761.4042010048.04 K98282.882K98552.882 0.0021119.0951833354.69 K99545.356K99795.356 457.1841712.6012103836.65 K101226.218 K101476.218 322.5981346.905179391.34 K102335.283 K102595.283 204.717604.5741941713.83 直直线线、、曲曲线线及及转转角角表表 曲线主点桩号 XXXXXXXXXXXXXXXXXXXXX主线主点坐标表 交点桩号XY度分秒SR1R2Q 1BPK91305.221077098.408010485.8000149525.542803.6056104510450 2 ZHK94108.826674633.233911916.6396149525.54290.000010452550.00001 HYK94398.826674379.742612057.4160153734.321986.26022550.00002550.00001 YHK96385.086872449.444512211.34161974519.26290.00002550.000010451 HZK96675.086872176.846912112.5165201048.04907.3815104510450 3 ZHK97582.468271329.808911787.1428201048.04270.000010452300.0000-1 HYK97852.468271075.957411695.2891197391.19430.41372300.00002300.0000-1 YHK98282.882070656.020111603.81041865541.54270.00002300.00001045-1 HZK98552.882070386.963911581.75431833354.690.0015104510450 4 ZHK98552.883570386.962411581.75421833354.69250.000010452100.00001 HYK98802.883570137.843011561.26331865832.36742.47232100.00002100.00001 YHK99545.355869431.900511344.02832071358.98250.00002100.000010451 HZK99795.355869214.359811220.91702103836.65457.1840104510450 5 ZHK100252.539968821.019110987.89262103836.65250.000010451800.0000-1 HYK100502.539968603.084610865.50872063952.7723.67831800.00001800.0000-1 YHK101226.218167909.243610677.68601833745.28250.00001800.00001045-1 HZK101476.218167659.333510673.4245179391.34322.5985104510450 6 ZHK101798.816667336.740910675.3930179391.34260.000010452100.00001 HYK102058.816667076.812710671.61431831150.11276.46682100.00002100.00001 YHK102335.283566802.586710638.09531904425.05260.00002100.000010451 HZK102595.283566549.400810579.15541941713.83204.7165104510450 7 ZHK102800.000066351.016010528.63501941713.83102800.000010450.0000-1 HYK0000.0000DIV/0DIV/0DIV/0 DIV/00.00000.00000.0000-1 YHK0000.0000DIV/0DIV/0DIV/0 DIV/00.00000.00001045-1 HZK0000.000066351.016010528.6350189059.640.0000104510450 编著AKingS452020/7/21 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX主主线线 CASIOCASIO FX-5800PFX-5800P坐坐标标计计算算程程序序 子子程程序序1（（SUB1）） 6→DimZ（P-R）（2SPR）→D180π→E 0.1739274226→Z[1] 0.3260725774→Z[2] 0.0694318442→Z[3] 0.3300094872→Z[4] 1- Z[4]→F1- Z[3]→M GQEW Z[3]（1P Z[3]WD）→Z[3]GQEW Z[4]（1P Z[4]WD→Z[4] GQEFW（1PFWD）→FGQEMW（1PMWD）→M UW（Z[1]cos（Z[3]）Z[2]cos（Z[4]） Z[2]cos（F）Z[1]cos（M））→X VW（Z[1]sin（Z[3]）Z[2]sin（Z[4]） Z[2]sin（F）Z[1]sin（M））→Y GQEW（1PWD）→FXLcos（F90）→XYLsin（F90）→Y 子子程程序序2（（SUB2）） G-90→TAbs（（Y-V）cos（T）-（X-U）sin（T））→W0→L Lbl 0 Prog “SUB1” TQEW（1PWD）→C（J-Y）cos（C）-（I-X）sin（C）→L If Abs（L）＜0.0001Then Goto 1Else WL→WGoto 0If End Lbl 1 0→LProg “SUB1”（J-Y）（sin（F90））→L 主主程程序序 “0＝＞ZX. 1＝＞A. 2＝＞B. 3＝＞C .4＝＞D. 5＝＞E. 6＝＞F . 7＝＞G .8＝＞H. 9＝＞I. 10＝＞LT Z “XCZ”A“Y”B Lbl 0“1.K＝＞XY,2.XY＝＞K”NKN1＝＞Goto 1N2＝＞Goto 2 Lbl 1Prog“SJ-PQX” LAbsK-O→WProg“SUB1” If A≠0Then Pol（X-A,Y-B）I◢ JJ360→JJ ▶DMS◢ Else “X”X◢ “Y”Y◢ “FWJ” F ▶DMS◢ If End Goto 0 Lbl 2Prog“SJ-PQX” “X”X“Y”YX→IY→JProg “SUB2” OW→Z[5]“K”Z[5]◢ “D”L◢ Goto 0 数数据据库库SJ-PQXSJ-PQX If K91305.221Then ClsStopIf End If K≥91305.221Then 91305.221→O77098.408→U10485.8→V149 52 ′5.54 ″→G2803.6056→S1045→P1045→R0→QReturnIf End If K≥94108.8266Then 94108.8266→O74633.2339→U11916.6396→V149 52 ′5.54 ″→G290→S1045→P2550→R1→QReturnIf End If K≥94398.8266Then 94398.8266→O74379.7426→U12057.416→V153 7 ′34.32 ″→G1986.2602→S2550→P2550→R1→QReturnIf End If K≥96385.0868Then 96385.0868→O72449.4445→U12211.3416→V197 45 ′19.26 ″→G290→S2550→P1045→R1→QReturnIf End If K≥96675.0868Then 96675.0868→O72176.8469→U12112.5165→V201 0 ′48.04 ″→G907.3815→S1045→P1045→R0→QReturnIf End 编著AKingS552020/7/21 If K≥97582.4682Then 97582.4682→O71329.8089→U11787.1428→V201 0 ′48.04 ″→G270→S1045→P2300→R-1→QReturnIf End If K≥97852.4682Then 97852.4682→O71075.9574→U11695.2891→V197 39 ′1.19 ″→G430.4137→S2300→P2300→R-1→QReturnIf End If K≥98282.882Then 98282.882→O70656.0201→U11603.8104→V186 55 ′41.54 ″→G270→S2300→P1045→R-1→QReturnIf End If K≥98552.882Then 98552.882→O70386.9639→U11581.7543→V183 33 ′54.69 ″→G0.0015→S1045→P1045→R0→QReturnIf End If K≥98552.8835Then 98552.8835→O70386.9624→U11581.7542→V183 33 ′54.69 ″→G250→S1045→P2100→R1→QReturnIf End If K≥98802.8835Then 98802.8835→O70137.843→U11561.2633→V186 58 ′32.36 ″→G742.4723→S2100→P2100→R1→QReturnIf End If K≥99545.3558Then 99545.3558→O69431.9005→U11344.0283→V207 13 ′58.98 ″→G250→S2100→P1045→R1→QReturnIf End If K≥99795.3558Then 99795.3558→O69214.3598→U11220.917→V210 38 ′36.65 ″→G457.184→S1045→P1045→R0→QReturnIf End If K≥100252.5399Then 100252.5399→O68821.0191→U10987.8926→V210 38 ′36.65 ″→G250→S1045→P1800→R-1→QReturnIf End If K≥100502.5399Then 100502.5399→O68603.0846→U10865.5087→V206 39 ′52.7 ″→G723.6783→S1800→P1800→R-1→QReturnIf End If K≥101226.2181Then 101226.2181→O67909.2436→U10677.686→V183 37 ′45.28 ″→G250→S1800→P1045→R-1→QReturnIf End If K≥101476.2181Then 101476.2181→O67659.3335→U10673.4245→V179 39 ′1.34 ″→G322.5985→S1045→P1045→R0→QReturnIf End If K≥101798.8166Then 101798.8166→O67336.7409→U10675.393→V179 39 ′1.34 ″→G260→S1045→P2100→R1→QReturnIf End If K≥102058.8166Then 102058.8166→O67076.8127→U10671.6143→V183 11 ′50.11 ″→G276.4668→S2100→P2100→R1→QReturnIf End If K≥102335.2835Then 102335.2835→O66802.5867→U10638.0953→V190 44 ′25.05 ″→G260→S2100→P1045→R1→QReturnIf End If K≥102595.2835Then 102595.2835→O66549.4008→U10579.1554→V194 17 ′13.83 ″→G204.7165→S1045→P1045→R0→QReturnIf End If K＞102800Then ClsStopIf End