计算间接显示左.doc

计算间接显示左、中、右高程（已算入超高）及左、右二幅路基宽度（已算入加宽）document.write ( code_jk_my(DOWNLOADupIload/article/2009423163132_rar/DOWNLOAD中边桩高程及加宽计算程序（绕中轴旋转高次投物线超高加宽）计算间接显示左、中、右高程（未算进超高）及左、右二幅路基宽度（未算出加宽）谢谢领贴：+4 总 【丈量空间】埒昭.Is_END中边桩高程及加宽计算程序（绕外轴旋转高次掷物线超高加宽）2009年4月23夜疾锋 GCJKJS（客程序）LbiP：A“P1”B“P2”RD“JD ZHANG”I“JD-H” S“LH” G“LJK” M“SJJK” P“LGHP” Q“CGHP” U“ZH” X“HZ” Z“(Z，Y+)”：Z1=Z：Goto0回车LBI0：Z：Z：W=B-A：T=AbsWR2：E=TW4：C=D-T：F=D+T：W0=K=（Z-C）2（2R）： K= -（Z-C）22R：Goto1回车Lbi1：ZD-T=Goto5：ZD-T=ZD+T=Goto3：ZD+T=Goto4：Lbi5：H=I-A（D-Z）回车GotoD：Lbi3：H=I-A（D-Z）+K回车GotoD：Lbi4：H=I-B（D-Z）回车GotoD回车LbiD回车ZU=L0： Goto2奈霹ZU+S=LZU： Goto2奈霹ZXS=LS： Goto2奈霹ZX=LXZ： Goto2奈霹ZX=L0： Goto2奈霹回车Lbi2：J“JK”=（4（LS）3-3（LS）4）M回车Y“WC”=（LS（P+Q）G2-PG2回车O=2P（P+Q）S：LO=V“LC”=-P（G2+J）回车GotoC：=V“LC”=-（LS）（P+Q）-P）（G2+J）回车GotoC回车 LbiC回车Z10= Prog“A”： Goto 0奈霹Prog “B”： Goto0奈霹A（子程序）“G=” ：H=H奈霹LY=Y盎森 “ZG=” ：H=H+Y奈霹“YG=” ：H=H奈霹Goto 1 =Y=Y盎森“ZG=” ：H=H+Y奈霹 “YG=” ：H=H-Y+V奈霹Goto 1Lbi1“ZK=” ：Z2=G/2奈霹“YK=” ：Z3=G/2+J奈霹B（子程序）“G=” ：H=H奈霹LV=V盎森 “ZG=” ：H=H+V奈霹 “YG=” ：H=H奈霹Goto 1=Y=Y盎森“ZG=” ：H=H+V奈霹“YG=” ：H=H+YV奈霹Goto 1 Lbi1“ZK=” ：Z3=G/2+J奈霹“YK=” ：Z4=G/2奈霹解释：一、 程序西字公及符号意思：P1（A）：第一条擒坡坡度（i %，如0.02、-0.02）P2（B）：第二条擒坡坡度（i %，如0.02、-0.02）R：竖曲线半径&,娇韵诗瘦脸霜;#10;JD ZHANG（D）？变坡点桩号I（JD-H）？变坡点高程S“LH”？ 弛缓曲线幼（应不激化直线时，请输为0.0001）G“LJK”？规范路基齐幅宽度M“SJJK”？弯叙设计最大减严值P“LGHP”？ 尺度路拱竖坡坡值Q“CGHP” ？弯途设计最小超高值U“ZH”？曲徐桩桩号X“HZ”？ 慢弯桩桩号Z“(Z，Y+)”？左偏输进胜值，左偏输替邪值Z？待供点桩号“G=”中桩高程“ZG=”右边桩高程 “YG=”左边桩高程 “ZK=”右幅路基宽度“YK=”右幅路基宽度二、 赢进、计算要点1一次只能输出一条仄竖曲线参数2横坡坡度须代出歪背号退止运算尤其阐明：1、利程序双停划线部份非中桩高程计算部份2、原程序单高划线部份非超高添宽计算部份 3、高程计算部份援用了杨老杰的程序，在此特殊感激长处：将高程、超高、加宽一次间泰盘算进去，缩小计算的农息质);附件(点击上载)：西边桩高程及减宽计算程序（绕西轴旋转高次掷物线超高添严）计算间接显示左、中、右高程（已算进超高）及右、左二幅路基宽度（未算出加宽）谢谢领贴：+4 总 【丈量空间】埒昭.原武否共享剜充New!以停内容替利站网朋独特修改弥补，欢送小野也能参加修正共享弥补（毋庸登陆）. . 外边桩高程及加宽计算程序（绕中轴旋转高次掷物线超高加宽）2009年4月23夜疾锋 GCJKJS（客程序）LbiP：A“P1”B“P2”RD“JD ZHANG”I“JD-H” S“LH” G“LJK” M“SJJK” P“LGHP” Q“CGHP” U“ZH” X“HZ” Z“(Z，Y+)”：Z1=Z：Goto0回车LBI0：Z：Z：W=B-A：T=AbsWR2：E=TW4：C=D-T：F=D+T：W0=K=（Z-C）2（2R）： K= -（Z-C）22R：Goto1回车Lbi1：ZD-T=Goto5：ZD-T=ZD+T=Goto3：ZD+T=Goto4：Lbi5：H=I-A（D-Z）回车GotoD：Lbi3：H=I-A（D-Z）+K回车GotoD：Lbi4：H=I-B（D-Z）回车GotoD回车LbiD回车ZU=L0： Goto2奈霹ZU+S=LZU： Goto2奈霹ZXS=LS： Goto2奈霹ZX=LXZ： Goto2奈霹ZX=L0： Goto2奈霹回车Lbi2：J“JK”=（4（LS）3-3（LS）4）M回车Y“WC”=（LS（P+Q）G2-PG2回车O=2P（P+Q）S：LO=V“LC”=-P（G2+J）回车GotoC：=V“LC”=-（LS）（P+Q）-P）（G2+J）回车GotoC回车LbiC回车Z10= Prog“A”： Goto 0奈霹Prog “B”： Goto0奈霹A（子程序）“G=” ：H=H奈霹LY=Y盎森 “ZG=” ：H=H+Y奈霹“YG=” ：H=H奈霹Goto 1 =Y=Y盎森“ZG=” ：H=H+Y奈霹 “YG=” ：H=H-Y+V奈霹Goto 1Lbi1“ZK=” ：Z2=G/2奈霹“YK=” ：Z3=G/2+J奈霹B（子程序）“G=” ：H=H奈霹LV=V盎森 “ZG=” ：H=H+V奈霹“YG=” ：H=H奈霹Goto 1=Y=Y盎森“ZG=” ：H=H+V奈霹“YG=” ：H=H+YV奈霹Goto 1Lbi1“ZK=” ：Z3=G/2+J奈霹“YK=” ：Z4=G/2奈霹阐明：一、 程序外字公及符号意思：P1（A）：第一条横坡坡度（i %，如0.02、-0.02）P2（B）：第二条横坡坡度（i %，如0.02、-0.02）R：竖直线半径JD ZHANG（D）？变坡点桩号I（JD-H）？变坡点高程S“LH”？ 激化曲线幼（应不弛缓曲线时，请输为0.0001）G“LJK”？尺度路基齐幅宽度M“SJJK”？弯叙设计最大加宽值P“LGHP”？ 尺度路拱竖坡坡值Q“CGHP” ？弯叙设计最小超高值U“ZH”？弯徐桩桩号X“HZ”？ 徐弯桩桩号Z“(Z，Y+)”？右偏输出胜值，左偏赢替邪值Z？待供点桩号“G=”中桩高程“ZG=”右边桩高程 “YG=”左边桩高程 “ZK=”左幅路基宽度“YK=”右幅路基宽度二、 输出、盘算要点1一次只能赢进一条仄竖直线参数2擒坡坡度须代进邪胜号退止运算特殊阐明：1、利程序双上划线部份是中桩高程计算部份2、原程序单停划线部份非超高减宽计算部份3、高程计算部份援用了杨老杰的程序，在此特殊感激长处：将高程、超高、添严一次间泰盘算进去，缩小计算的农息质 男友2万块卖了我 （超感人的文章,看的我哭了半天) 分享到搜狐微博超高及加宽计算默认分类 2010-01-28 16:08:26 阅读173 评论0 字号：大中小订阅 一、平曲线加宽、超高程序符号A路肩宽度 B路面宽度 I0路肩坡度 I1路拱坡度IB超高横坡 IX路线纵坡，上坡为正，下坡为负 BJ路面加宽值BJXX距离处路面加宽值 W未加宽前路面宽度 WS待求定的路面加宽值M加宽缓和段起点桩号 N加宽缓和段终点桩号 HN路基内缘与设计高之高差HW路基外缘与设计高之高差超高及加宽计算.功能及适用范围.绕中轴旋转的超高及加宽计算。.绕中轴旋转的超高及加宽计算。.有关规定.当线形设计须采用较长的回旋线时，横坡坡度由2%（或1.5%）过渡到0%路段的超高渐变率不小于1/330。超高过渡应在回旋线全长范围内进行。当超高渐变率太小时，超高的过渡可设在回旋线的某一区段范围之内。.路肩横坡：A、直线路段的路肩横坡可与行车道横坡相同。B、曲线段的路肩横坡：当硬路肩宽度2.25米时，曲线外侧路肩横坡的方向及其坡度值见表1。 路肩横坡方向及其坡度值 表1 行车道超高值（%）2、3、4、56、78、9、10曲线外侧路肩横坡方向向外侧倾斜向外侧倾斜向内侧倾斜曲线外侧路肩坡度（%）-2-1与行车道横坡相同 当硬路肩宽度2.25米时，曲线外侧路肩横坡的方向及其坡度值与行车道相同。 路肩横坡方向与坡度变化处应设过渡段，过渡段的渐变率规定见表2。 路肩横坡过渡的渐变率 表2与行车道横坡方向相同时1/150与行车道横坡方向相反时1/100 路肩的横坡改变倾斜方向的旋转轴为路缘带外侧边缘。.程序清单：.中轴旋转ZHONGK“I1”Z=0 Goto 1：Goto 2Lb1 1I“I0”H“HP”=-（AI/100+BK/200）Goto 9Lb1 2C“ZH”：J“IB”：S“LS”X=Abs（Q-C）F=0Goto 3：Goto 4Lb1 3D=-K/100+（K+J）*X/100*XH“HW”=D（A+B/2）Goto 9Lb1 4W“BJ”L=2KS/100（K+J）/100）M=0Goto 5：Goto 6Lb1 5G“BJX”=XW/S XLGoto 7：Goto 8Lb1 6P=X/SG“BJX”=（4P3-3P4）W XLGoto 7：Goto 8Lb1 7H“HN”=-（A+B/2+G）K/100 Goto 9Lb1 8H“HN”=-（A+B/2+G）JX/100S Lb1 9符号意义 操作符号及意义 表3操 作意 义Z=0直线、ZH（HZ）点路基外缘的高差计算。Z0，F=0X距离处路基外缘的高差计算。Z0，F0，M=0二、三、四级公路缓和段路基内缘的加宽、高差计算。Z0，F0，M0各级汽车专用公路缓和段路基内缘的加宽、高差计算。HP直线、ZH（HZ）、ZY（YZ）点路基边缘与设计高之高差。.边轴旋转BIANI“I0” ：K“I1”Z=0Goto 1：Goto 2Lb1 1H“HF”=AI/100+BK/200 Goto 9Lb1 2J“IB”：C“ZH”：S“LS”X=Abs（Q-C）F=0Goto 3：Goto 4Lb1 3H“HW”=A（I-K）/100+（AK/100+（A+B）J/100）X/S Goto 9Lb1 4W“BJ”L=KS/100（J/100）M=0Goto 5：Goto 6Lb1 5G“BJX”=XW/S XLGoto 7：Goto 8Lb1 6P=X/SG“BJX”=（4P3-3P4）W XLGoto 7：Goto 8Lb1 7H“HF”=AI/100+BK/200 H“HN”=AI/100-（A+G）K/100 Goto 9Lb1 8H“HF”=AI/100+BXJ/200S H“HN”=AI/100-（A+G）JX/100S Lb1 9符号意义 操作符号及意义 表3操 作意 义Z=0直线路基中心的高差计算。Z0，F=0X距离处路基外缘的高差计算。Z0，F0，M=0二、三、四级公路缓和段路基中心的高差、内缘的加宽、高差计算。Z0，F0，M0各级汽车专用公路缓和段路基中心的高差、内缘的加宽、高差计算。HF路基中心与设计高之高差。卡西欧FX4800计算中边桩程序卡西欧FX4800计算中边桩程序,程序：McW“1.js 2.SZ”:W=1=Goto 1 W=2= O“KOULING”:O123456=O=0“OUT” Goto 4 O=0:Defm 83:Z81=1:Goto 0Lbi 0ABCDEFGU:A“X0”:B“Y0”:C“F0:D“R0”:E“RN:F“D0”:G“LS”:U“G” ZZ81=A:ZZ81+10=B:ZZ81+20=C:ZZ81+30=1D:ZZ81+40=1E:ZZ81+50=F: ZZ81+60=F+G: ZZ81+70=UA=0= Dsz Z81:Goto 1Isz Z81:Goto 0Lbi 1HS:H“D:S“Z”:Z82=1:Goto 2Lbi 2Z81Z82 =”OUT” :Goto5HZZ82+60=A=ZZ82:B=ZZ82+10:ZZ82+20=C:D=ZZ82+30: E=ZZ82+40: F=ZZ81+50: G=ZZ81+60: U=ZZ81+70: Goto3:Isz Z82:Goto 2Lbi 3PU（E-D）Abs（G-F）：QAbs（H-F）：IPQ：JC+90 Q（I+2UD）/： JJ=J+360MC+45 Q（I4+2UD）2：NC+135Q（3I4+2UD）2：KC+45Q（I2+ 2UD） S=0=Z=0：Goto4S0=Z1：Goto4Z1：Goto4Lbi 4XA+Q(Cos C+4（Cos M+Cos N）+2Cos K+Cos J) 12 +ZSCos（J+90Z) YB+Q(Sin C+4（Sin M+Sin N）+2Sin K+Sin J) 12 +ZSSin（J+90Z) S=0=“X”:X:Pause 0: “Y” :Y Goto 1S“XL”:X:Pause 0: “YL”:Y Goto 1S0=“XR”:X:Pause 0: “YR”:Y Goto 1 Lbi5二、 变量及说明X0：Y0：F0曲线元起点X、Y坐标及起点正切线方位角R0：RN曲线元起点及终点半径D0：LS：Q曲线元起点桩号、路线长度及线路左右偏标志（左=-1,直线=0,右=1）D曲线元中待求点桩号Z计算边桩距中线平距，左边输入负值，右边输入正值，中桩输入0X：YXL:YLXR:YR 待求点中边桩桩号的X，Y坐标扩充变量：ZZ81: ZZ81+10: ZZ81+20: ZZ81+30: ZZ81+40: ZZ81+50: ZZ81+60: ZZ81+70: 分别为各线元X0:Y0:F0;R0:RN:D0:LS:Q(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0，坐标显示XY；当位于中线左侧时，Z取负值,坐标显示XLYL,；当位于中线右侧时，Z取正值,坐标显示XRYR。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。本程序可以根据曲线段直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距，对该曲线段范围内任意里程中边桩坐标进行正算。本程序是对扩充变量的应用，实现了真正意义上的的全线贯通。程序分为两部分：1为计算2为设置。首先对内存变量进行扩充，增加了83个扩充变量，为Z1Z83，为防止误操作在输入正确口令123456时方可进行设置。本程序设计为十段线元要素，如有需要可以根据内存容量进行增加。在执行程序中将各个线元要素按规律输入到扩充内存变量中，在坐标计算时首先判断其在哪一线元内，并把其线元要素调出进行计算。在进行计算时直接输入桩号、宽度就可以进行全线坐标计算。本程序也可在4800上运行，只需将输出部分进行修改。四、 示例郑石高速路面9标主线线元要素及相关数据如下：X0 Y0 F0 R0RN D0LS Q744450.244510454.431 220o41 o31.8 o 70007000116075.889 3386.2931742505.351507722.676 248o24 o33.6 o 1045 1045 119462.1821980.8250741776.461505880.832 248o24 o33.6 o 85008500121443.007 1517.9991741346.546504427.086258o38 o30.1 o 1045 1045 122961.0071985.9770桩号宽度XY 117000 0743791.308509807.481118000-20 743164.306509027.467119000 20 742707.550508137.933119462.1820 742505.349507722.673120000 -15.253742293.266 507228.206121000 15.260 741953.665506287.142121443.0070 741776.461505880.833122000 -10.20 741578.902505359.701122961.00750.355741395.915504417.169123650 0 741210.853503751.587四、QXZB(曲线坐标) A”ZH(ZH)=:B”X(ZH)=:C”Y(ZH)= ”X(HZ)=:E”Y(HZ)=:F”FWJ-1=:G”FWJ-2=:H”R=:I”L1=:J”L=:K”L2=:L”ZJ(Z=1,Y=-1)= O=180/pi (pi为圆周率，电脑中找不到此符号以此代替) LbI A MN M”ZHUANG HAO= P=M-A MM(A+I+J+K)?GOTO A N”ZHUANG JU(Z+,Y-)= M(A+I+J)?GOTO D M(A+I)?GOTO C LbI B(第一缓和曲线) X=B+(P-(P540H2I2)COS