|
1.开口（坡脚）线刷破放样程序 SPFY Deg：Lbl 0:L≥0=> Prog “SPSJK”： Goto 1△：{ABCDFGMNPQ}:N”JiaKuan”:F”1Jsjpd”:Q”1Jsjgd”: D”SJdlkd”:G”2Jsjpd”≤0=>Goto 1△：A”2Jsjgd”:P”1Jsjpt” :M”2Jsjpt”:B”3Jsjpd”≤0 =>Goto 1△C”3Jsjgd” Lbl 1:{WVE}:W”FYkd”≤0 =>Goto 0△V”CL(H)”:E”SJ(H)” Lbl 2:”(-W,+T)=”:H=E-V▲ （一般H小于0为挖方段，H大于0为填方段） H=Abs H H<Q => K=D+N+FH-W:Goto 3△ H<Q+A => K=D+N+FQ+G(H-Q)+P-W:Goto 3△ H<Q+A+C => K=D+N+FQ+GA+B(H-Q-A)+P+M-W△ Lbl 3:”PYjl=”:k▲ Goto 1 SPSJK Z>0=> Goto 0：≠ > Goto 1 △(通过Z值判断左右侧) Lbl 0 右侧（按习惯规定Z大于0为右侧） S≥起点桩号=>S＜止点桩号=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△ 【如果无第二级设计坡度即G=0，其他类似，下同】 S≥起点桩号=>S＜止点桩号=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△ ………………… Goto 2 Lbl 1 左侧 S≥起点桩号=>S＜止点桩号=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△ S≥起点桩号=>S＜止点桩号=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△ ………………… Lbl 2 说明（本程序适合挖方填方刷破放样）： L： 大于或等于零时进入数据库模式 S: 为待放样刷坡段（点）里程（桩号） N”JiaKuan”：填方根据技术交底适当加宽，挖方为（碎落台 + 排水沟）宽度 F”1Jsjpd”: 第一级设计坡度值（边坡坡度为1：1.75，则F=1.75，下同） Q”1Jsjgd”: 第一级设计坡高值 G”2Jsjpd”： 第二级设计坡度值 A”2Jsjgd”: 第二级设计坡高值 P”1Jsjpt”: 第一级设计平台（护坡道）宽度值 M”2Jsjpt”: 第二级设计平台（护坡道）宽度值 B”3Jsjpd”： 第三级设计坡度值 D”SJdlkd”： 半幅道路设计路宽 W”FYkd”: 实际假定放样的宽度 V”CL(H)”: 放样点的实际测量高程 E”SJ(H)”： 放样点对应桩号边桩的设计高程（即为挖方坡脚线或填方坡顶线设计高程） H”(-W,+T)=”：放样点超挖欠挖情况（-W表示欠挖，+T表示超挖） K”PYjl=”: 放样点应该沿垂直道路中线方向（即放样点与放样点对应桩号的连线）偏移值，正值向外负值向内移动 （注意：本程序只考虑了3级坡度和2级平台和2级高度，实际超出的再加上。。。） 2.有了它,上工地告别图纸和资料 （程序中加入了路基抄平的计算） QXZDGC Lbl A (L表示待放样点的桩号) {L}:L"DKI"：Prog “S”：Prog “SQX”：Prog“P”：Prog“PQX” “HO=”:Z◢ (显示纵断中桩设计值) "HZ="O:◢ (显示横断左边桩设计值) "HY="P:◢ (显示横断右边桩设计值) Lbl B:{KM}:K=0=>Goto A⊿Y"HSGC":V"HSDS":M"QSDS"≤0=>{YV}:Goto B ⊿ "Hn=":N=Y+V-M◢ (测量点的实际高程) D=0=>"E(HO=":W=Z-N◢ (中桩设计与实际高程之差,负挖正填,下同) Goto A⊿ K=-1=>"E(HZ=":W=O-N◢ (左边桩设计与实际高程之差) Goto A⊿ K=1=>"E(HY=":W=P-N◢ (右边桩设计与实际高程之差) Goto A ⊿ (说明：程序中的K是个变化参数，等于 -1 计算左边，等于 1 计算右边) SQX(竖曲线子程序) T=Abs((I-J)R÷2):R=R((I-J)÷Abs(I-J)):N=A-T：W=A+T：U=Abs (A-L) L≤N=>Z=H-JU-X"H0":Goto 1 ⊿ (H0 表示如路面到路基顶部的高度(结构层)等,下同) L≤A=>Z=H-JU+(L-N)2÷(2R)-X"H0":Goto 1 ⊿ L≤W=>Z=H+IU+(W-L)2÷(2R)-X"H0":Goto 1 ⊿ L>W=>Z=H+IU -X"H0"⊿ Lbl 1 PQX(平曲线子程序) L≤S=>E=.02:G=E:Goto 1 ⊿ L≤(S+B)=>E=.02-(L-S)÷B×(.02+C):G= -E:Abs (E) ≤.02=>G=.02: ⊿Goto 1:⊿ L≤(S+Q-B)=>E= -C:G= -E:Goto 1 ⊿ L≤(S+Q)=>E=.02-(S+Q-L)÷B×(.02+C):G= -E:Abs (E) ≤.02=>G=.02: ⊿Goto 1:⊿ L＞(S+Q)=>E=.02:G=E⊿ Lbl 1：{D} :T=D-.75:F=1=>"EZ="E ◢ "EY=":G ◢ (0.75表示中央分隔带为0.75*2= O=Z-TE:P=Z-TG:≠>F=-1=>"EZ="G◢ "EY=":E ◢ O=Z-TG:P=Z-TE⊿⊿ S(数据库竖曲线子程序) 【注意：竖曲线纵坡上坡为正值，下坡为负值】 L ≤145788.038(竖曲线终点桩号)=>R=40000(竖曲线半径):A=145600(竖曲线中心桩号):H=411.313(变坡点高程):J=0.0049(变坡点前纵坡):I=-0.0045(变坡点后纵坡):Goto 1: ⊿ … Lbl 1 P(数据库平曲线子程序) L ≤146999.541(平曲线超高终点桩号)=>B=120(超高缓和曲线长度):Q=612.094(超高曲线全长度):C=0.03(最大超高值):F=1(平曲线参数,左转=-1，右转=1):S=146387.447(超高缓和起点桩号):Goto 1: ⊿ … Lbl 1 (一):三次抛物线超高公式: 前缓和曲线:K=(L-S)÷B 后缓和曲线:K=(S+Q-L)÷B E=e-(e+c)(3K2-2K3) 或者 E=e-(e+c)(2K-K^2) 其中:E为待求断面横坡值; L为待放样点的桩号; S为超高缓和起点桩号; Q为超高曲线总长; B为超高缓和曲线长度; e为超高起点横坡值; c为超高终点横坡值. (二):线性超高公式: 前段缓和曲线超高公式:E=0.02-(L-S)÷B×(0.02+C): 后段缓和曲线超高公式:E=0.02-(S+Q-L)÷B×(0.02+C): 其中： B为超高缓和曲线长度 S为超高缓和起点桩号 L为放样点桩号 C为最大超高值. Q为超高曲线总长度 3.公路测量放样正反计算程序【匝道版】（第五次修改-正式版） 1.QXZDJS （此子程序仅用于多条线路，如果只有一条则可删除该程序） M=1=>Prog "SJK1":Prog "SUBSJK"△ M=n=>Prog "SJKn":Prog "SUBSJK"△ 2.SUBSJK "1.SZ => XY"："2.XY => SZ"：｛N,S｝：N：S"DKI"：Prog “SJK Deg:S>H=>Goto AΔD=(P-R)÷2PR(H-O)：N=1=>Goto 1：≠>Goto 2Δ Lbl 1：{ZT}：Z"BJ（-0+）"：T=90：W=Abs(S-O)：Prog "SUB1"：F=F-90：F<0=>F=F+360Δ 说明：边距左负右正，T如果此处不赋值，表示线路为斜交。 "QX-FWJ="：F←DMS "XS="：X◢ "YS="：Y◢ I=0：J=0：Pol（X-C"X0"，Y-E"Y0"）：J<0＝＞J=J+360：Δ“FWJ=”:J←DMS◢ “I=”：I◢ 说明：（X0，Y0）表示测站（置镜）点坐标 Goto A Lbl 2：{XY}：I=X：J=Y：Prog "SUB2"： "S=":S=O+W◢ "Z=":Z◢ 说明：S，Z为反算时的桩号及边距 Lbl A 3.SJK1 S≤本线元终点里程＝＞U=本线元起点X坐标：V=本线元起点Y坐标：G=本线元起点正切线方位角：P=本线元起点曲率半径：R=本线元终点曲率半径：O=本线元起点里程：H=本线元终点里程：Q=本线元偏向（左-1直0右+1）:Goto0Δ … Goto0Δ LB1 0 4.SUB1 （正算子程序） A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：X=U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Acos(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：Y=V+W(Asin(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Asin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：F=G+180QW(1÷P+WD)÷π+90：X=X+ZcosF：Y=Y+ZsinF 5.SUB2（反算子程序） T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+180QW(1÷P+WD)÷π：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1÷10^6=>Goto1：≠>W=W+Z：Goto 0Δ←┘ Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF (1) 当线元为直线时，其起止点的曲率半径为无穷大，以10的45次代替。
(2) 当线元为圆曲线时，无论其起止点与什么线元相接，其曲率半径均等于圆 弧的半径。 (3) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大；与圆曲线相接时，曲率半径等于圆曲线的半径。 (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 ---------------------------------------------------------------------------------------------------------------------------
4.公路逐桩坐标计算程序 该程序适用于直线,圆曲线及完整对称的缓和曲线中边桩坐标计算及极坐标放样 R Lbl 0：Deg：{S}：S“DKI”：Prog “RSJK”：L=S-Z：K=A∏R÷180+C:P=C2÷24R-C4÷2688R3: T=(R+P)tan (A÷2)+C÷2-C3÷240R2:N=-1：L>K-C=>L=K-L：N=1△ L≤0=>Q=0：X=L：Y=0：Goto 1△ L≤C=>Q= L≤K-C=>Q=180(L-C) ÷∏R+ Lbl 1:N=1=>Q=A-Q:I=X:J=Y:X=T+(T-I)cosA-JsinA:Y=(T-I)sinA+JcosA△ I=X:J=FY:X=G+Tcos(180+B)+IcosB-JsinB:Y=V+Tsin(180+B)+IsinB+JcosB:Q=B+FQ:{DH}: D“BJ(-0+)”:D=0=>H=0△H=90:X=X+Dcos(Q+H):Y=Y+Dsin(Q+H):Q→DMS X▲ Y▲ Pol(X-E“X Goto 0 注意：当H≠90度时表示线路斜交。 RSJK S≤HY点(或者HZ点)里程桩号=>A=转角:R=圆曲线半径:C=缓和曲线长:B=起点正切线方位角:G=交点(角桩)的X坐标:V=交点(角桩)的Y坐标:F=曲线偏向(左偏=-1,右偏=1):Z=ZY点(或者ZH点)里程桩号:Goto 0△ … Lbl 0
----------------------------------------------------------------------------------------------------------
5.坐标正反算程序 ZBZFS(程序名) Deg：M“ZS=>1,FS=>2”=1 =>Goto 0：≠=>Goto 1△ Lbl 0:{CD}:A”XO”:B”YO”:C”XH”≤0=>{AB}:Goto 0△ D”YH”:I=0:J=0:Pol(C-A,D-B):J<0=>J=J+360△ “Fwj=”:J->DMS “JL=”:I▲ Goto 0 Lbl 1：{CD}：A”XO”：Ｂ“YO”：Ｃ“JL”≤0=>{AB}：Goto 1△ D“Fwj” “XH=”:X=A+Ccos D▲ “YH=”:Y=B+Csin D▲ Goto 1 说明（正算）：A：起点X坐标；B：起点Y坐标 C：终点X坐标；D：终点Y坐标 J->DMS：显示为起点到终点的方位角 “JL=”： 显示为起点到终点的距离 说明（反算）：A：起点X坐标；B：起点Y坐标 C：起点到终点的距离；D：起点到终点的方位角 “XH=”：显示为终点的X坐标 “YH=”：显示为终点的Y坐标 注意：方位角的起始方向，如M点到N点的方位角为a ,那么N点到M点的方位角为a±180
--------------------------------------------------------------------------------------
6.3 锥坡放样程序6.3.1 功能与应用在锥坡施工放样中，不少人还在用“拉线法”、“图解等比例量距法”等原始方法进行放样。本节介绍了一种全新的锥坡放样方法，可用下述程序配合全站仪对各种正、斜交锥坡放样。大大减轻了放样人员的内外业劳动强度，减小了出错机率。特别是对斜交锥坡放样，其先进性和便捷性更是无与伦比。 6.3.2 基本原理与基本公式基本原理：为使路堤与桥台或挡土墙墙面等构造物连接处圆滑过渡，并使水流通畅，需在构造物两侧构筑呈锥体型土坡体，且为了保证构造物靠流水一侧不受冲刷侵蚀，故在其表面砌石防护，称为锥坡。 锥坡的形状为四分之一个椭圆截锥体，当锥坡的填土高度小于6m时，锥坡的纵向即平行于路线方向的坡度一般为1：1；横向即垂直于路线方向的坡度一般为1：1.5，与路基边坡一致。当锥坡的填土高度超过6m时，路基面以下超过6m的坡体纵向由1：1变为1：1.25，横向由1：1.5变为1：1.75。因为锥坡程序在本书中为非重点内容，故本程序中未考虑“二级变坡”，请使用者注意，如果在应用中出现“二级变坡”的情况，可先计算出椭圆的长、短半轴后，再将其换算成一个直坡，运行本程序，同样可精确求解。 锥坡的常用测量方法有：椭圆曲线内侧支距法、椭圆曲线外侧支距法、纵横等分图解法、双点双距图解法、双圆垂直投影图解法等，本书中是采用的椭圆曲线内侧支距法计算椭圆纵横支距参数，然后用坐标转化公式将其转化为大地坐标，可以将全站仪置于导线点上直接施测。
基本公式：
椭圆方程为：
图6-3 椭圆内侧支距法(正交) 根据坡比，椭圆长半轴为a=i1×(HS-HJ)，短半轴为b=i2×(HS-HJ)。令长半轴a上某点到锥尖的距离为n，如果构造物为斜交时，令斜角为α0。如图6-3所示，正交时α0=0，于是在长半轴上距锥尖na处的横、纵支距分别为：  
 再用坐标转换公式
将其转换成施工坐标。 式中 X、Y——在长半轴上距锥尖na处的大地坐标 xzj、yzj——锥尖处大地坐标（作起算值） x、y——在长半轴上距锥尖na处的横、纵支距 α——锥尖沿短半轴方向的方位角
α0——构造物与路基法线方向交角，左斜为正，右斜为负
6.3.3 源程序程序名：【 ZPFYJS 】 Lbl0 Norm:Deg D"X0"G"Y0"A"AZIMUTH"B"α0"H"HS"I"HJ"K"i1"L"i2"Z"1.LEFT 2.RIGHT" J=0:N=0:Goto2 Lbl1 {N}:N"n" N<0=>Goto0△ N>1=>Goto0△ Lbl2 J"POInt"=J+1◣…………………………………显示坐标值的组数 E=K(H-I)N÷cosB:F=L(H-I)(1-N2) ………………………计算纵横支距值 Z=1=>E=E≠>Z=2=>E= - E△………………………………判定锥坡在桥台的左右方向 X=D+Ecos(A+90+B)+FcosA◣………………… 将支距转换成X坐标并显示 Y=G+Esin(A+90+B)+FsinA◣………………… 将支距转换成Y坐标并显示 J≥15=>Goto1△…………………………………如果算完第15组，N=1则转到标记1处运行 N≥0.9=>N=N+0.02:Goto2△………………如果在0.9~1之间则以0.02为步长加密并转到标记2处运行 N≥0=>N=N+0.1:Goto2△……………………如果在0~0.9之间则以0.1为步长计算并转到标记2处运行 6.3.4 程序说明一、程序中各注释文的涵义 X0、Y0——锥坡尖点的横、纵坐标 HS——锥坡尖点的标高 HJ——锥坡基础顶面标高 i1——路基横坡度（椎体长半轴方向），如果为1：1.5则输入为1.5 i2——锥坡迎水面坡度（路线方向，短半轴方向），如果为1：1则输入为1 AZIMUTH——锥尖沿短半轴方向指向锥坡边缘方向的方位角 α0——构造物与路基法线方向交角，左斜为正，右斜为负。如图6-5。 1.LEFT 2.RIGHT——如果要放样的锥坡为左侧锥坡则输为1，反之输为2 n——为椭圆长半轴等分数，其值应在0~1之间。当n值输入的间隔越密集，则测出的点就越密集。 二、程序应用注意事项 在程序运行后，将直接输出按椭圆长半轴上到锥尖的距离十等分后每个等分点对应在椭圆弧上的坐标，即自动得出从0a、0.1a……到0.9a、0.92a、0.94a、0.96a、0.98a、1.0a对应的椭圆弧上共15组坐标值。考虑到n值在0.9~1.0之间时输出的点间隔较大，该程序已在0.9a~1.0a之间按0.02a的步长自动加密。当15组点输出后考虑到有的点位需要复核重放或局部加密的需要，程序还可以根据用户输入的n值任意加密，例如，想在0.66a处加密，则输入n=0.66，即可得出椭圆弧上对应于长半轴上0.66a处的大地坐标值。 在计算正交时可将α0输入为0，斜交时按图6-5中所示角度输入，当锥坡左斜时，α0应输入为正值，反之为负值。 图6-4 正交桥台锥坡示意图 图6-5 斜交桥台锥坡示意图 6.3.5 应用实例因为本程序不考虑两级放坡，但可以计算两级放坡。关于一级放坡的例子就此略过，现在就看看两级放坡用本程序如何计算。 例6-3：有一右斜U型桥台，斜角为30°，锥坡尖点设计标高为HS=752.568m，锥坡基础顶面设计标高为HJ=743.368m，锥坡尖点在施工坐标系内的坐标（x0，y0）为（73259.562，84293.358），方位角AZIMUTH=125°39′36″，以6m为变坡点设置两级放坡。第一级放坡为1:i1=1:1.5；1:i2=1:1，第二级放坡为1:i12=1:1.75；1:i22=1:1.25。试计算左侧锥坡的放样数据。 解：对于两级放坡的情况，我们可以通过计算将其转化为一单向坡面。 先分别计算椭圆的长、短半轴长。 第一级：a1=i1×6=1.5×6=9m b1=i2×6= 1.0×6=6m 第二级: a2=i12×(HS-HJ-6)=1.75×(752.568-743.368-6)=5.6m b2=i22×(HS-HJ-6)=1.25×(752.568-743.368-6)=4m 故长、短半轴长分别为a=a1+a2=14.6m；b=b1+b2=10m 根据单坡面时长半轴a=i1×(HS-HJ)，短半轴b=i2×(HS-HJ)故可得到，在将其折算为单坡面时i1和 i2分别为：i1=14.6÷9.2=1.587；i2=10÷9.2=1.087 【注意：锥坡总高度 752.568-743.368-6=9.2】 再将HS=752.568、HJ=743.368、X0=73259.562、Y0=84293.358、α0=-30、AZIMUTH=125°39′36″、i1=1.587、i2=1.087、1.LEFT 2.RIGHT=1逐一输入程序当中，即可算得基础内缘的椭圆弧上各点的坐标值。 其值如下： POInt=1;X=73253.732;Y=84301.483 POInt=8;X=73243.655;Y=84297.997 POInt=2;X=73252.084;Y=84301.276 POInt=9;X=73242.642;Y=84296.903 POInt=3;X=73250.494;Y=84300.987 POInt=10;X=73241.922;Y=84295.403 POInt=4;X=73248.967;Y=84300.610 POInt=11;X=73241.842;Y=84295.013 POInt=5;X=73247.508;Y=84300.140 POInt=12;X=73241.803;Y=84294.567 POInt=6;X=73246.125;Y=84299.563 POInt=13;X=73241.824;Y=84294.037 POInt=7;X=73244.832;Y=84298.861 POInt=14;X=73241.960;Y=84293.345 POInt=15;X=73242.785;Y=84291.695
------------------------------------------------------------------------------------------------------------------------------------- 线路坐标正反算程序
因为无4850计算器，故未对下面程序进行验证，望有缘者验证后告知运行如何 正算反算，支持不等长缓和曲线。注意：1E-9表示10的负9次方,Ο(字母),因为无计算器，故未对下面程序进行验证，望有缘者验证后告知运行如何 【1-(XY+ZS)(计算坐标及极坐标放样),2-FS（反算桩号和边距）】
J-PQX (主程序)
Defm 15：Deg Lb1 A：{PZ}：P"DKI":Prog“SJK” (P"DKI"待求点桩号，反算时大致桩号) E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]=E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs Ο :Z[3]“T1” =(R+Z[1])tan(Abs Ο ÷2)+Z[2]-X◢ Z[4]“T2” =(R+KK÷24R-K∧4÷2688RRR)tan(Abs Ο ÷2)+K÷2-KKK÷240RR+X◢ L=Abs ΟπR÷180+(E+K)÷2◢ J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E”:X=(R+Z[1])÷sin J-R◢ X=A-Z[3]:Y=X+E:E<1=>“ZY”:X◢ ≠=>“ZH”:X◢ “HY”:Y◢ ⊿“QZ”:Y=X+(L-K-E)÷2+E◢ Y=X+L-K:X=X+L:K<1=>“YZ”:X◢ ≠=>“YH”:Y◢ “HZ”:X◢ ⊿Z"1-(XY+ZS),2-FS"=1=>Goto 1≠=>Z=2=>Goto 2≠=>Goto A⊿⊿ Lb1 1 :{DW}:D“BJ”:W“JiaJiao”:Prog“JP”:“X=”:X◢(D边距左负右正，W表示线路前进方向与右 边桩法线夹角，下同) “Y=”:Y ◢ I=0:J=0:Pol（X-S"X0"，Y-T"Y0"）：J<0＝＞J=J+360Δ (说明:(X0，Y0)表示测站(置镜)点坐标) “FWJ=”:J←DMS◢ “I=”：I◢ Goto A Lb1 2 :{XYW}:X:Y:W“JiaJiao”:Prog“JF”: “P=”:P◢ “BJ=”:D◢ {X}:X<0=>Goto A≠=>Goto 2⊿ JP（平曲线正算子程序）
Fixm Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5 ≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:Ο<0=>H=-H⊿H=H+W+F:Goto 3 ≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4: ≠=>Goto 2⊿⊿ Lb1 2 :X= B+Z[4]cos(F+Ο :Y= C+Z[4]sin(F+Ο :J=F+Ο+180:G=K P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:Ο>0=>H=-H⊿H=H+J+W+180:Goto 3 ≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:Ο<0=>H=-H⊿H=J+H+W: Goto 5 Lb1 5 :P≤A-Z[3]+L-K=> Ο<0=>N=-N⊿≠=>Ο>0=>N=-N⊿⊿Goto 6 Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin H JF（平曲线反算子程序） Fixm：U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿ Lb2: D=(V-Y)÷sinH SJK（数据库子程序）
S≤HY点(或者HZ点)里程桩号=>A=交点桩号:B=交点的X坐标:C=交点的Y坐标:F=起点正切线方位角:Ο=曲线转角(左偏为负值,右偏为正值):R=圆曲线半径:E=第一缓和曲线长(无输0):K=第二缓和曲线长:Goto 0△ … Lbl 0 ---------------------------------------------------------------------------------
J-SQX（竖曲线数据输入）
“J-SQX”:{NHUVMQP}:Z[9]=N“SJD”:Z[10]=H“JDZ”:Z[11]=U“I1”:Z[12]=V“I2”:Z[13]=M“R”:Z[14]=Q“QD”:Z[15]=P“ZD”:“TO J-JSMS” J-PQX (平面数据输入，自行切换到J-JSMS)
A“JD” B“JDX” C“JDY” F“FJ” O“ZJ：Z-，Y+” RE“LS Z[4]“T L=Abs OπR÷180+(E+K)÷2◢ J=tan-1((R+Z[1])÷(Z[3]-Z[2]):X“E”=(R+Z[1])÷sin J-R◢ X=A-Z[3]:Y=X+E:E<1=>X“ZY”◢ ≠=>X“ZH”◢ Y“HY”◢ ⊿Y“QZ”=X+(L-K-E)÷2+E◢ Y=X+L-K:X=X+L:K<1=>X“YZ”◢ ≠=>Y“YH”◢ X“HZ”◢ ⊿Prog“J-JSMS” ←┚ J-JSMS（放样模式主程序）
“1-ZS,2-F1,3-FS”:“4-F2,5-Z0,6-DM”:Lb1 0:{Z}: Z“MS”≤2=>Goto 1: ≠=> Z≤4=> Goto2 :≠=> Goto 3⊿⊿←┚ Lb1 1 :{PDW}:PD“BZ”W“BJ”: Prog“JP”:X“X=”◢(4850输入“X=”：X◢) Y“Y=” ◢ (4850输入“Y=”：Y◢) Z<2=> Goto 1:≠=>Prog“JS”:Prog“JC”:H“Z”=H+G◢ Goto 1⊿←┚ Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”: P“P=”◢(4850输入“P=”：P◢) D“BZ=”◢(4850输入“BZ=”：D◢) Z<4=>Goto 2:≠=>{Q}:Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto 2⊿←┚ Lb1 3 :{P}:P: Prog“JS”:H“Z0=”◢(4850输入“Z0=”：H◢) Z<6=>Goto 3:≠=>{D}:S“CGZ”:T“JKZ”:Z[8]=Q“LH”:D“BZ”:Prog“JC”:J“JK=”◢(4850输入“JK=”：J◢) G“Z”=H+G◢(4850输入“Z=”：G=H+G◢) Goto 0⊿ JS（竖曲线计算子程序）
P<Z[14]=>Prog“J-SQX” ⊿P>Z[15]=>Prog“SJ-SQX”⊿←┚ N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=H Abs(U-V)÷200:P<N=>I=U:M=N-G:M>P=>M=P⊿≠=>I=V: M=N+G:M<P=>M=P⊿⊿J=(P-M)2÷2H:U-V>0=>J=-J⊿H=Z[10]+(P-N)×I÷100+J JP（平曲线正算子程序）
Fixm←┚ Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E←┚ P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚ ≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:Goto 3←┚ ≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4: ≠=>Goto 2⊿⊿←┚ Lb1 2 :X= B+Z[4]cos(F+O :Y= C+Z[4]sin(F+O :J=F+O+180:G=K←┚ P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:O>0=>H=-H⊿H=H+J+W+180:Goto 3 ←┚ ≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 ←┚ Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚ Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O<0=>H=-H⊿H=J+H+W: Goto 5 ←┚ Lb1 5 :P≤A-Z[3]+L-K=> O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto 6←┚ Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin H JF（平曲线反算子程序）
Fixm←┚ U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J←┚ Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿←┚ Lb2: D=(V-Y)÷sinH JC（超高加宽计算子程序）
Fixm:Z[8]<1=>Z[8]=1E-8⊿ I=E:M=A-Z[3]:E<1=>I=Z[8]:M=M-I⊿G=K:N=A-Z[3]+L:K<1=>G=Z[8]:N=N+G⊿←┚ P≤0.5(N+M=>U=(P-M)÷I:≠=>U=(N-P)÷G⊿U<0=>U=0⊿U>1=>U=1⊿ J=UT 高次抛物线加宽J=T(1-3UU+2UUU ) : DO<0=>J=0⊿ I=1:Prog“JD”:I=US:G=I+UN-N:U=Abs D-V:⊿U<0=>U=O⊿U>M+J+Z[5]=>U=M+J+Z[5]⊿ Z[7]=1=>Goto 1 :≠=>Goto 2←┚ Lb1 1:I=G:DO>0=>I=-I:Abs I<N=>I=-N⊿⊿G=UI:N=I:Goto 3←┚ Lb1 2:N<I=>N=I⊿G=N(M-U)+Z[5]Z[6]:N=-N:DO<0=>G=G+2IU:N=I⊿Goto 3←┚ Lb1 3: U= M+J+V+Z[5]:Abs D≥U-0.01=>G=G-Z[5](N+Z[6])⊿ JB（路基边桩放样子程序）
H=H+G-Q:H<0=>I=2:H“W=”=Abs H◢ ≠=>I=3 :H“T=”◢(4850输入“T=”：H◢) ⊿Prog“JD”:G=H÷V:G<1=>I=MG:≠=>G<2=>I=M+N(G-1): ≠=>I=M+N+Z[6](G-2) ⊿⊿ I“BP”=Abs D-VI-Z[7]Int G-U-Z[5] ◢ G=V Frac G:G<1.5=>G“PT”◢ ⊿ JD（断面数据储存子程序）
I=1=>M=4:N=0.015:Z[5]=0.25:Z[6]=0.015:V=0:Z[7]=2 :≠=> I=2=> Z[5]=1.1: M=0.5: N= 0.75: Z[6]=1.00: V=10: Z[7]=1.0 :≠=> Z[5]=0:M=1.50: N=1.75: Z[6]=2.00 : V=8: Z[7]=1.0⊿⊿ 符号说明： ←┚ ◢ ⊿ ≠=> => ≤ ≥ 一、 程序简介 本套程序是共有2个主程序，7个子程序。包括了路线坐标正反算、竖曲线、超高加宽、边坡放样及断面计算等程序。 适用于CASIO4800/4850，4850用户需要修改清单内结果显示的字段（例如： X“X=”◢ 改为 “X=”：X◢ 或 G“Z”=H+G◢ 改为“Z=”：G=H+G◢）。 二、 程序功能 本着用最懒的方法做最繁杂的事（当然认真更重要！），根据不同需要，本程序共设置了6种计算模式J-JSMS： 1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=>平面坐标。 2-FI，放样1模式：适用于路面施工放样，里程桩号及边距=>平面坐标、路面高程。 3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。 4-F2，放样2模式：适用于路基施工放样，任意点坐标=>里程、边距、填挖高度，边坡超欠挖宽度，最近平台高度（<1.5）。 5-Z0，设计高程计算，即竖曲线计算，里程桩号=>设计高程。 6-DM，断面计算，里程桩号、边距=>设计高程、加宽值、指定边桩的高程。 三、 计算范围 平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长，即可以算卵形曲线，回头曲线 竖曲线：前交点SYZ到后交点SZY中的任意桩号 四、 数据输入及各计算模式运行过程 1、正算模式：1-ZS， 运行主程序J-PQX（平曲线），计算过程如下：
2、反算模式：3-FS， 运行主程序J-PQX（平曲线），运行过程同“1、1-ZS，正算模式”；若平曲线数据已经输入了，或者计算交点同上次相同，可直接运行J-JSMS（计算模式）
3、 纵断面设计高程计算：5-Z0， 步骤1：首先运行J-SQX（竖曲线），此步骤只是竖曲线数据输入，不进行计算。若计算交点与上次计算交点相同，可跳过此步骤。输入过程如下：
之所以分开两个步骤，是因为当计算桩号超出计算范围时程序会自动切换到竖曲线数据输入状态，避免出现低级失误。而且将计算放在J-JSMS中会使程序更加灵活。 步骤2：运行J-JSMS进入模式5-Z0：
4、断面计算：6-DM， 在此模式中可以输入超高值、加宽值与及超高缓和长度，并进行计算！！！ 为了方便其它计算模式的切换，每次完成模式6计算后程序会返回模式选择（MS？）。 断面计算的主要内容是待求桩号P点的加宽值、指定边桩的高程，因此运行前应输入竖曲线数据（已输入过或同上次计算可以跳过此步）。
5、放样1模式：2-F1 此模式计算内容X，Y，Z，是将正算，竖曲线，超高结合起来计算的综合模式，Z值是边桩或中桩设计高程，计算过程如下（详细的过程说明参照前面的模式说明）： 步骤:“J-SQX”→“J-PQX”→“J-JSMS”（自动切换）→6-DM→2-F1
6、放样2模式：4-F2 此模式只有一个功能，就是路基放样，也是整个程序最重要的功能。整个计算包括了正、反算，竖曲线，超高加宽，边坡计算，计算过程如下（详细的过程说明参照前面的模式说明）： 步骤:“J-SQX”→“J-PQX”→“J-JSMS”（自动切换）→6-DM→４-F２
JD（断面数据储存子程序
I=1=>M=①:N=②:Z[5]= ③:Z[6]= ④:V=⑤:Z[7]= ⑥ ①0.5路面宽度②路面横坡③路肩宽度④路肩横坡⑤0.5中央带宽度⑥超高方式：1中，2边 :≠=> I=2=> Z[5]= ①: M=②: N= ③: Z[6]= ④: V=⑤: Z[7]= ⑥ 挖方路基①边沟宽度②第一级边坡率③第二级边坡率④第三级边坡率⑤每级最大坡高⑥平台宽度 :≠=> Z[5]= ①:M=②: N=③: Z[6]= ④ : V=⑤: Z[7]= ⑥⊿⊿ 填方路基①路堤超填宽度②第一级边坡率③第二级边坡率④第三级边坡率⑤每级最大坡高⑥护道（平台）宽度 必读： 1、如果中途关机或已知数据与上次计算相同，直接运行J-JSMS计算即可，可不必重新输入已知数据。 2、输入竖曲线计算范围桩号（QD，ZD）非常重要，当计算桩号超出竖曲线计算范围时，程序会自动切换到J-SQX数据输入状态，完成输入数据后程序仍然会继续上一步的计算，而不需要退出计算模式。 3、程序内未加入长短链数据，涉及长短链的曲线计算时P值应该增加（或减少）长短链数值。 4、因为路肩横坡的超高在各个工程中的不同，所以路肩的横坡保持不变（不超高），但不影响其它计算。 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
来自： kaixin100sc > 《测量程序》
