CASIO程序(线路计算6.0版.等缓篇)

一、扩展变量设置说明统计各种要素点的数目各要素点数目表名称平曲线交点竖曲线变坡点超高起始点最多台阶数线路导线点数目（个）abcde要素点数目为0时取值-1-5/3000备注不含起终点不含起终点含起终点其取值为0或10设置扩展变量总数目为：32+5a+3b+2c+d+2e(使用横坡点)或26+5a+3b+2c+d+2e(未使用横坡点)个设置各扩展变量数据固定变量及自由变量Z[1]～Z[15]Z[1]:结构层厚度Z[2]:半幅路基硬路面宽度(包含分隔带)Z[3]～Z[15]:程序中使用的自由变量平曲线要素扩展变量Z[16]～Z[21+5a]各平曲线要素于扩展变量中的位置表名称起点第1个交点第2个交点…第i个交点…1个交点第a个交点终点交点X坐标Z[16]Z[17]Z[18]…Z[16+i]…Z[15+a]Z[16+a]Z[17+a]交点Y坐标Z[18+a]Z[19+a]Z[20+a]…Z[18+a+i]…Z[17+2a]Z[18+2a]Z[19+2a]圆曲线半径----Z[20+2a]Z[21+2a]…Z[19+2a+i]…Z[18+3a]Z[19+3a]----缓和曲线长度----Z[20+3a]Z[21+3a]…Z[19+3a+i]…Z[18+4a]Z[19+4a]----曲线起点桩号Z[20+4a](线路起点)Z[21+4a]Z[22+4a]…Z[20+4a+i]…Z[19+5a]Z[20+5a]Z[21+5a](线路终点)竖曲线要素扩展变量Z[22+5a]～Z[26+5a+3b]各竖曲线要素于扩展变量中的位置表名称起点第1个变坡点第2个变坡点…第i个变坡点…1个变坡点第b个变坡点终点变坡点桩号Z[22+5a]Z[23+5a]Z[24+5a]…Z[22+5a+i]…Z[21+5a+i]Z[22+5a+b]Z[23+5a+b]变坡点高程Z[24+5a+b]Z[25+5a+b]Z[26+5a+b]…Z[24+5a+b+i]…Z[23+5a+2b]Z[24+5a+2b]Z[25+5a+2b]竖曲线切线长----Z[26+5a+2b]Z[27+5a+2b]…Z[25+5a+2b+i]…Z[24+5a+3b]Z[25+5a+3b]Z[26+5a+3b]此变量为空注：扩展变量Z[26+5a+3b]设置为空值（即为0），以便其在程序中使用。超高设计扩展变量Z[27+5a+3b]～Z[26+5a+3b+2c]各段超高设计数值于扩展变量中的位置表名称第1个起超点第2个起超点…第i个起超点…1个起超点第c个起超点起超点桩号Z[27+5a+3b]Z[28+5a+3b]…Z[26+5a+3b+i]…Z[25+5a+3b+c]Z[26+5a+3b+c]设计横坡%Z[27+5a+3b+c]Z[28+5a+3b+c]…Z[26+5a+3b+c+i]…Z[25+5a+3b+2c]Z[26+5a+3b+2c]说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可，当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。边坡坡度扩展量Z[27+5a+3b+2c]～Z[26+5a+3b+2c+d]当使用了子程序FY时，d=10，否则d=0，这些扩展变量主要用于储存各阶边坡的坡度。导线点扩展变量Z[27+5a+3b+2c+d]～Z[26+5a+3b+2c+d+2e]各导线点坐标值于扩展变量中的位置表名称第1个导线点第2个导线点…第i个导线点…1个导线点第d个导线点X坐标Z[27+5a+3b+2c+d]Z[28+5a+3b+2c+d]…Z[26+5a+3b+2c+d+i]…Z[25+5a+3b+2c+d+e]Z[26+5a+3b+2c+d+e]Y坐标Z[27+5a+3b+2c+d+e]Z[28+5a+3b+2c+d+e]…Z[26+5a+3b+2c+d+e+i]…Z[25+5a+3b+2c+d+2e]Z[26+5a+3b+2c+d+2e]路基横断面点扩展变量Z[27+5a+3b+2c+d+2e]～Z[32+5a+3b+2c+d+2e](根据情况可省)Z[27+5a+3b+2c+d+2e]=-11.5（路基横坡1#点）Z[28+5a+3b+2c+d+2e]=-6.0（路基横坡2#点）Z[29+5a+3b+2c+d+2e]=-0.75（路基横坡3#点）Z[30+5a+3b+2c+d+2e]=0.75（路基横坡4#点）Z[31+5a+3b+2c+d+2e]=6.0（路基横坡5#点）Z[32+5a+3b+2c+d+2e]=11.5（路基横坡6#点）上述横断面点的扩展变量里数据设置可根据需要进行修改。3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定存入对应变量中的数据，同时应根据各程序中方框内的表达式所计算的结果，把方框内的表达式修改为实际数据。当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。存入各要素点的桩号时,均为扣除断链后的实际桩号，而不是设计图上的设计桩号。二、程序操作说明特别说明：各程序均要求在RAD模式下运行测量放样计算程序CLFYFY：1.ZX2.BX?(1)放样选择:1.中线放样2.边线放样?ZJ：1.DX2.XL?(2)置镜点选择:1.置镜点为导线点2.置镜点为线路点(已知桩号和偏距的中桩或边桩)?DZ?(3)置镜点输入DZ?当第(2)步选择1时,此输入置镜点的导线点点号当第(2)步选择2时,此输入置镜点的线路边桩点桩号LZ?(4)置镜点的边桩点距线路中线偏距输入LZ(左为“-”,右为“+”)?当置镜点为线路中桩时,输其为0当第(2)步选择1时,无此第(4)步,只有当第(2)步选择2时,才会出现此步HS：1.DX2.XL?(5)后视点选择:1.后视点为导线点2.后视点为线路点(已知桩号和偏距的中桩或边桩)?DH?(6)后视点输入DH?当第(5)步选择1时,此输入后视点的导线点点号当第(5)步选择2时,此输入后视点的线路边桩点桩号LH?(7)后视点的边桩点距线路中线偏距输入LH(左为“-”,右为“+”)?当后视点为线路中桩时,输其为0当第(5)步选择1时,无此第(7)步,只有当第(5)步选择2时,才会出现此步AH?(8)输入后视角度AH?KF?(9)输入放样点的桩号KF?L?(10)输入放样点偏离中线的平距(左为“-”,右为“+”)?当第(1)步选择1时,无此第(10)步,只有当第(1)选择2时,才会出现此步AJ?(11)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?当第(1)步选择1时,无此第(11)步,只有当第(1)选择2时,才会出现此步S=(12)输出放样距离SA=(13)输出放样角度AAT=(14)输出放样桩号的线路方向与放样视线的夹角AT此行操作完成后返回第(9)步,要求重新输入计算高程较差计算程序GCJCYG?(1)输入水准仪的视线高程YG?K?(2)输入被测点的桩号K?DW?(3)输入被测点的点位号DW?1为左偏11.5m,2为左偏6m,3为左偏0.75m,4为右偏0.75m,5为右偏6m,6为右偏11.5mQS?(4)输入前视读数QS?DH=(5)输出设计高程与实测高程的较差DH(高于设计为“-”,反之为“+”)此行操作完成后返回第(2)步,要求重新输入计算线路高程计算程序XLGCK?(1)输入待求点的桩号K?L?(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?H=(3)输出待求点的设计高程(已扣除结构层厚度)H此行操作完成后返回第(1)步,要求重新输入计算线路坐标计算程序XLZB1.ZX2.BX?(1)选择:1.中线坐标计算2.边线坐标计算？K?(2)输入待求点的桩号K?L?(3)输入待求点的偏离中线的平距L(左为“-”,右为“+”)?当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才会出现此步AJ?(4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ?当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才会出现此步X=(5)输出待求点的X坐标Y=(6)输出待求点的Y坐标此行操作完成后返回第(2)步,要求重新输入计算边桩放样计算程序1.CJ2.QZ3.QS?(1)仪器选择：1.测距仪2.全站仪3.缺省情况（即同上一次）？当此步选择2时，下一步从第（12）步开始运行当此步选择3时，下一步从第（6）步开始运行DZ?(2)输入置镜点点号DZ？只有当第（1）步选择1时，才会出现此步DH?(3)输入后视点点号DH？只有当第（1）步选择1时，才会出现此步HZ?(4)输入置镜点的高程（包括仪器高）HZ？只有当第（1）步选择1时，才会出现此步AH?(5)输入后视角度AH？只有当第（1）步选择1时，才会出现此步AQ?(6)输入前视角度AQ？只有当第（1）步选择1或3时，才会出现此步S?(7)输入前视平距S？只有当第（1）步选择1或3时，才会出现此步HD?(8)输入前视高差HD？（高于测站为“+”，低于测站为“-”）只有当第（1）步选择1或3时，才会出现此步HY?(9)输入前视仪高HY？只有当第（1）步选择1或3时，才会出现此步X=(10)输出测点的X坐标只有当第（1）步选择1或3时，才会出现此步Y=(11)输出测点的Y坐标只有当第（1）步选择1或3时，才会出现此步X?(12)输入测点的X坐标？只有当第（1）步选择2时，才会出现此步Y?(13)输入测点的Y坐标？只有当第（1）步选择2时，才会出现此步Z?(14)输入测点的高程Z？只有当第（1）步选择2时，才会出现此步KD=(15)输出测点的桩号KDWB=(16)输出测点相对于线路的偏离平距WB（左偏为“-”，右偏为“+”）H=(17)输出测点的高程HM?(18)输入边坡设计坡度(从离路肩最近处输起)M?程序根据放样点的高程自动计算出所需的台阶数目，重复此第(18)步依此输入完各台阶边坡的设计坡度后，再自动要求加输一个台阶，以备台阶数目不够高程之所用C=(19)输出测点距下面一个平台内侧的高差C当测点为挖时，才会出现此步P=(20)输出测点距最近一个平台内测的平距P？当测点为挖且测点离平台的高差不大于1m时，才会出现此步DB=(21)输出测点应横向移动的平距DB(“-”为左移,“+”为右移)此步操作完成后，返回第（6）步（当第（11）步选择1或3时）或第（12）步（当第（1）步选择2时），要求重新输入计算三、程序设计测量放样计算主程序CLFY(568步)V=15:Fixm:Rad{O}:O”FY:1.ZX2.BX”Z[13]=O{OE}:O”ZJ:1.DX2.XL”E”DZ”O=1Z[8]=Z[E+26+5a+3b+2c+d:Z[9]=Z[E+26+5a+3b+2c+d+e]◣O1{D}:D”LZ”:Z=E:Prog”ZB”:Z[8]=X+Rec(D,U+π÷2:Z[9]=Y+J◣{OF}:O”HS:1.DX2.XL”F”DH”O=1Z[10]=Z[F+26+5a+3b+2c+d:Z[11]=Z[F+26+5a+3b+2c+d+e]◣O1B=Z[5:{B}:B”LH”:Z[5]=B:Z=F:Prog”ZB”:Z[10]=X+Rec(Z[5],U+π÷2:Z[11]=Y+J◣S=Z[6]:{S}:S”AH”:Z[6]=S:Q=0Lbl1Z=Z[12{Z}:Z”KF”:Z[12]=ZZ[13]1{QG}:Q”L”:G”AJ”◣Prog”ZB”:X=X+Rec(Q,U+πG÷180:Y=Y+JPol(Z[10]-Z[8],Z[11]-Z[9:Z[4]=JPol(X-Z[8],Y-Z[9:I”S=”◢I=J+Z[6]π÷180-Z[4I>2πI=I-2π◣I<0I=I+2π◣Z[3]=U+π-JZ[3]>2πZ[3]=Z[3]-2π◣I=180I÷π:Z[3]=180Z[3]÷πI”A=”◢Z[3]”AT=”◢Goto12．线路坐标计算主程序XLZB(144步)V=15:Fixm:Rad{O}:O”1.ZX2.BX”Q=0Lbl1{Z}:Z”K”O1{QG}:Q”L”:G”AJ”◣Prog”ZB”:X=X+Rec(Q,U+πG÷180:Y=Y+JX”X=”◢Y”Y=”◢O=1U=180U÷π:U”AT=”◢◣Goto13．高程较差计算主程序GCJC(112步)V=5a+21:Fixm{E}:E”YG”Lbl0{ZDU}:Z”K”:D”DW”:U”QS”Q=Z[D+5a+3b+2c+d+2e+26Prog”GC”C=C-E+UC=Intg(1000C+.5)÷1000C”DH=”◢Goto04．线路高程计算主程序XLGC(56步)V=5a+21:FixmLbl0{ZQ}:Z”K”:Q”L”Prog”GC”C”H=”◢Goto0边桩放样计算主程序BZFY(330步)Fixm:Rad{Z}:Z”1.CJ2.QE3.QS”Z=2Z[11]=0:Goto1◣Z=3Goto1◣{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”Z[8]=Z[M+26+5a+3b+2c+d:Z[9]=Z[M+26+5a+3b+2c+d+eC=Z[N+26+5a+3b+2c+d:A=Z[N+26+5a+3b+2c+d+ePol(C-Z[8],A-Z[9:Z[10]=J-πU÷180:Z[11]=GLbl1Z=2Goto2◣{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”Rec(E,Z[10]+πB÷180:X=Z[8]+I◢Y=Z[9]+J◢Goto3Lbl2{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=BLbl3Prog“FQ”G=D+Z[11]-F:G”H”◢Prog“FY”Goto1线路坐标计算子程序ZB(477或452步)W=17K=Z断链数值断链桩号Z>23540K=K-0.03313◣(注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)断链数值断链桩号Lbl1K>Z[W+4a+4]W=W+1:Goto1◣W=17W=18◣V=W-1Goto2◣V=W-1Prog”YS”Z[14]=Z[V]-Rec(T,AZ[15]=Z[V+a+2]-JLbl2S=K-Z[V+4a+4B=AS≤0X=Z[14]+ScosB:Y=Z[15]+SsinB:U=B:Goto6◣X=Z[14:Y=Z[15S≤LH=1:Goto3◣S≤Z[7]-LGoto4◣B=A-NC+πS≤Z[7]S=Z[7]-S:X=Z[V]-Rec(T,B:Y=Z[V+a+2]-J:H=-1:Goto3◣X=Z[V]-Rec(T+S-Z[7],B:Y=Z[V+a+2]-JU=B-π:Goto6Lbl3I=NHSSS÷6÷R÷LJ=S-S^5÷(40(RL)2U=B-NHSS÷(2RL)+π(H-1)÷2:Goto5Lbl4U=(2S-L)÷R÷2I=NM+NR(1-cosU:J=RsinU+PU=B-N(S-L÷2)÷RLbl5Pol(I,J:J=J+B-π÷2X=X+Rec(I,JY=Y+JLbl6U<0U=U+2π◣7．曲线要素计算子程序YS(187步)R=Z[V+2a+3L=Z[V+3a+3Pol(Z[V+1]-Z[V],Z[V+a+3]-Z[V+a+2S=JPol(Z[V]-Z[V-1],Z[V+a+2]-Z[V+a+1C=J-S:A=JC=tan(C÷2:C=tan-1CN=AbsC÷C:C=2AbsCP=L÷2-LLL÷240÷R÷RM=LL÷24÷RZ[7]=(M+R)tan(C÷2T=P+Z[7Z[7]=RC+L8．线路高程计算子程序GC(501或476步)W=5a+23K=ZZ>23540K=K-0.03313◣(注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Lbl1P=Z[W+2b+3K>Z[W]-PW=W+1:Goto1◣W=5a+23W=5a+24◣V=W-1Goto2◣V=W-1J=Z[V+b+2R=(J-Z[V+b+1])÷(Z[V]-Z[V-1S=(Z[V+b+3]-J)÷(Z[V+1]-Z[VT=Z[V+2b+3Lbl2L=K-Z[VL≤-TH=J+RL:Goto3◣L≥TH=J+SL:Goto3◣A=2T÷(S-RX=L+A(R+S)÷2H=J+XX÷2÷A-ARS÷2Lbl3H=H-Z[1A=AbsQ中央带宽A≤1C=0:Goto6◣中央带宽I=-1Q>0I=1◣Lbl4Y=5a+3b+27Lbl5K≥Z[Y]Y=Y+1:Goto5◣O=Z[Y+c-1:X=Z[Y+c:O=IO:X=IXZ[Y+c-1]=0O=2◣Z[Y+c]=0X=2◣N=(Z[Y]-K)÷(Z[Y]-Z[Y-1中央带宽/2M=O+(X-O)(1-3NN+2NNN（当超高过渡段按直线性计算时，此行换为M=(O-X)N+X中央带宽/2中央带宽/2土路肩设计最小坡A≤Z[2]C=.01M(1-A中央带宽/2土路肩设计最小坡C=.03(Z[2]-A)-.01M(Z[2]-1中央带宽/2土路肩设计最小坡度×100M>3C=.01M(1中央带宽/2土路肩设计最小坡度×100Lbl6C=H+C9．反求线路桩号子程序FQ(748或723步)V=17Lbl1V>16+aV=16+a:Goto2◣Prog”YS”Z[4]=Z[V]-Rec(T,A:Z[5]=Z[V+2+a]-JZ[6]=Z[V]+Rec(T,S:Z[3]=J+Z[V+2+aZ[6]=XZ[3]=YK=Z[V+4+4a]+Z[7:Q=0:Goto6◣◣Pol(Z[6]-X,Z[3]-Y:K=J+π-SQ=Abs(Isin(K-NC÷2cosK<0Q<2000Goto2◣◣V=V+1Goto1Lbl2Q=Z[4:K=Z[5:G=A-π÷2Prog”ZH”Pol(-H,-W:K=J+π÷2cosK<0K=W+Z[V+4+4a:Q=-H:Goto6◣G=NLL÷6÷R:Q=L-LLL÷40÷R÷RPol(G-H,Q-W:K=J+π÷2+NL÷2÷RcosK<0Goto3◣I=2Rsin(C÷2-L÷R÷2I=G+Rec(I,π÷2-N(C÷2+L÷R÷2K=Q+JPol(I-H,K-W:K=J+π÷2+N(C-L÷2÷RcosK<0Goto4◣G=π÷2-NCPol(Rec(T,G)-H,T+J-W:K=J+π-GcosK<0Goto5◣Q=Z[6:K=Z[3:G=π÷2+SProg”ZH”K=Z[V+4+4a]-W+Z[7:Q=HGoto6Lbl3K=N:U=LProg”HQ”K=O+Z[V+4+4aGoto6Lbl4Pol(H-N(R+M),W-PK=Z[V+4+4a]+L÷2+R(π÷2+N(π÷2-JQ=N(I-RGoto6Lbl5Q=Z[6:K=Z[3:G=π÷2+SProg”ZH”K=-N:U=LProg”HQ”K=Z[V+4+4a]-O+Z[7:Q=-QLbl6M=1000Z=KZ>23540Z=Z-(-0.03313)◣(注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Z=Intg(MZ+0.5)÷MQ=Intg(MQ+0.5)÷MZ”KD=”◢Q”WB=”◢10．坐标转换计算子程序ZH(51步)H=X-Q:W=Y-KPol(H,WG=J-GH=IcosG:W=IsinG11．反求缓曲长度子程序HQ(375步)A=K÷46080÷R^6÷U^6P=H÷3840÷R^5÷U^5C=13K÷5760÷R^4÷U^4T=KW÷384÷R^4÷U^4G=H÷48÷R^3÷U^3I=K÷(15RRUUJ=KW÷(8RRUUL=H÷(2RUN=KWS=WLbl7M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+NQ=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-KO=S-M÷QAbs(O-S)<1E-5Goto8◣S=OGoto7Lbl8T=KOOO÷6÷U÷RP=O-O^5÷(40RRUUT=HP=WQ=0:Goto9◣◣Pol(H-T,W-PQ=sin(J+KOO÷2÷R÷U-π÷2S=-1Q>0S=1◣Q=SILbl912．边桩放样计算子程序FY(412步)V=5a+21土路肩宽U=Q土