CASIO程序(线路计算5.0版)

《CASIOfx-4800P线路计算5.0版》程序设计作者：徐光辉2000年6月12日PAGE14PAGE8一、扩展变量设置说明统计各种要素点的数目各要素点数目表名称平曲线交点竖曲线变坡点横坡设计起超点线路导线点数目（个）abcd要素点数目为0时其取值-1-5/300备注不含起终点不含起终点含起终点设置扩展变量总数目为：36+6a+3b+2c+2d个设置各扩展变量数据固定变量及自由变量Z[1]～Z[19]Z[1]:结构层厚度Z[2]:半幅路基硬路面宽度(包含分隔带)Z[3]～Z[19]:程序中使用的自由变量平曲线要素扩展变量Z[20]～Z[25+6a]各平曲线要素于扩展变量中的位置表名称起点第1个交点第2个交点…第i个交点…1个交点第a个交点终点交点X坐标Z[20]Z[21]Z[22]…Z[20+i]…Z[19+a]Z[20+a]Z[21+a]交点Y坐标Z[22+a]Z[23+a]Z[24+a]…Z[22+a+i]…Z[21+2a]Z[22+2a]Z[23+2a]圆曲线半径Z[24+2a]Z[25+2a]…Z[23+2a+i]…Z[22+3a]Z[23+3a]第一缓曲长度Z[24+3a]Z[25+3a]…Z[23+3a+i]…Z[22+4a]Z[23+4a]第二缓曲长度Z[24+4a]Z[25+4a]…Z[23+4a+i]…Z[22+5a]Z[23+5a]曲线起点桩号Z[24+5a](线路起点)Z[25+5a]Z[26+5a]…Z[24+5a+i]…Z[23+6a]Z[24+6a]Z[25+6a](线路终点)竖曲线要素扩展变量Z[26+6a]～Z[30+6a+3b]各竖曲线要素于扩展变量中的位置表名称起点第1个变坡点第2个变坡点…第i个变坡点…1个变坡点第b个变坡点终点变坡点桩号Z[26+6a]Z[27+6a]Z[28+6a]…Z[26+6a+i]…Z[25+6a+i]Z[26+6a+b]Z[27+6a+b]变坡点高程Z[28+6a+b]Z[29+6a+b]Z[30+6a+b]…Z[28+6a+b+i]…Z[27+6a+2b]Z[28+6a+2b]Z[29+6a+2b]竖曲线切线长Z[30+6a+2b]Z[31+6a+2b]…Z[29+6a+2b+i]…Z[28+6a+3b]Z[29+6a+3b]Z[30+6a+3b]此变量为空注：扩展变量Z[30+6a+3b]设置为空值（即为0），以便其在程序中使用。超高设计扩展变量Z[31+6a+3b]～Z[30+6a+3b+2c]各段超高设计数值于扩展变量中的位置表名称第1个起超点第2个起超点…第i个起超点…1个起超点第c个起超点起超点桩号Z[31+6a+3b]Z[32+6a+3b]…Z[30+6a+3b+i]…Z[29+6a+3b+c]Z[30+6a+3b+c]设计横坡%Z[31+6a+3b+c]Z[32+6a+3b+c]…Z[30+6a+3b+c+i]…Z[29+6a+3b+2c]Z[30+6a+3b+2c]说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可，当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。导线点扩展变量Z[31+6a+3b+2c]～Z[30+6a+3b+2c+2d]各导线点坐标值于扩展变量中的位置表名称第1个导线点第2个导线点…第i个导线点…1个导线点第d个导线点X坐标Z[31+6a+3b+2c]Z[32+6a+3b+2c]…Z[30+6a+3b+2c+i]…Z[29+6a+3b+2c+d]Z[30+6a+3b+2c+d]Y坐标Z[31+6a+3b+2c+d]Z[32+6a+3b+2c+d]…Z[30+6a+3b+2c+d+i]…Z[29+6a+3b+2c+2d]Z[30+6a+3b+2c+2d]路基横断面点扩展变量Z[31+6a+3b+2c+2d]～Z[36+6a+3b+2c+2d]Z[31+6a+3b+2c+2d]=-11.5（路基横坡1#点）Z[32+6a+3b+2c+2d]=-6.0（路基横坡2#点）Z[33+6a+3b+2c+2d]=-1.0（路基横坡3#点）Z[34+6a+3b+2c+2d]=1.0（路基横坡4#点）Z[35+6a+3b+2c+2d]=6.0（路基横坡5#点）Z[36+6a+3b+2c+2d]=11.5（路基横坡6#点）上述横断面点的扩展变量里数据设置可根据需要进行修改。3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定存入对应变量中的数据，同时应根据各程序中方框内的表达式所计算的结果，把方框内的表达式修改为实际数据。当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。存入各要素点的桩号时,均为扣除断链后的实际桩号，而不是设计图上的设计桩号。二、程序操作说明特别说明：各程序均要求在RAD模式下运行测量放样计算程序CLFYFY：1.ZX2.BX?(1)放样选择:1.中线放样2.边线放样?ZJ：1.DX2.XL?(2)置镜点选择:1.置镜点为导线点2.置镜点为线路点(已知桩号和偏距的中桩或边桩)?DZ?(3)置镜点输入?当第(2)步选择1时,此输入置镜点的导线点点号当第(2)步选择2时,此输入置镜点的线路边桩点桩号LZ?(4)置镜点的边桩点距线路中线偏距输入(左为“-”,右为“+”)?当置镜点为线路中桩时,输其为0当第(2)步选择1时,无此第(4)步,只有当第(2)选择2时,才会出现此步HS：1.DX2.XL?(5)后视点选择:1.后视点为导线点2.后视点为线路点(已知桩号和偏距的中桩或边桩)?DH?(6)后视点输入?当第(5)步选择1时,此输入后视点的导线点点号当第(5)步选择2时,此输入后视点的线路边桩点桩号LH?(7)后视点的边桩点距线路中线偏距输入(左为“-”,右为“+”)?当后视点为线路中桩时,输其为0当第(5)步选择1时,无此第(7)步,只有当第(5)选择2时,才会出现此步AH?(8)输入后视角度KF?(9)输入放样点的桩号?L?(10)输入放样点偏离中线的平距(左为“-”,右为“+”)?当第(1)步选择1时,无此第(10)步,只有当第(1)选择2时,才会出现此步AJ?(11)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)当第(1)步选择1时,无此第(11)步,只有当第(1)选择2时,才会出现此步S=(12)输出放样距离A=(13)输出放样角度AT=(14)输出放样桩号的线路方向与放样视线的夹角此行操作完成后返回第(9)步,要求重新输入计算高程较差计算程序GCJCYG?(1)输入水准仪的视线高程?K?(2)输入被测点的桩号?DW?(3)输入被测点的点位号1为左偏11.5m,2为左偏6m,3为左偏1m,4为右偏1m,5为右偏6m,6为右偏11.5mQS?(4)输入前视读数?DH=(5)输出设计高程与实测高程的较差(高于设计为“-”,反之为“+”)此行操作完成后返回第(2)步,要求重新输入计算线路高程计算程序XLGCK?(1)输入待求点的桩号?L?(2)输入待求点偏离中线的平距(左为“-”,右为“+”)H=(3)输出待求点的设计高程(已扣除结构层厚度)此行操作完成后返回第(1)步,要求重新输入计算线路坐标计算程序XLZB1.ZX2.BX?(1)选择:1.中线坐标计算2.边线坐标计算？K?(2)输入待求点的桩号L?(3)输入待求点的偏离中线的平距(左为“-”,右为“+”)当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才会出现此步AJ?(4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)?当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才会出现此步X=(5)输出待求点的X坐标Y=(6)输出待求点的Y坐标此行操作完成后返回第(2)步,要求重新输入计算反求线路桩号程序XD?(1)输入已知点的X坐标？YD?(2)输入已知点的Y坐标？KD=(3)输出已知点相对于线路的桩号WB=(4)输出已知点相对于线路的偏离平距（左偏为“-”，右偏为“+”）此行操作完成后返回第(1)步，要求重新输入计算边桩放样程序(附加)BZFYK?(1)输入放样点的桩号？B?(2)输入放样点偏离中桩的平距(左为“-”,右为“+”)?H?(3)输入放样点的高程？M?(4)输入边坡设计坡度(从离路肩最近处输起)?程序根据放样点的高程自动计算出所需的台阶数目，重复此第(4)依此输入完各台阶边坡的设计坡度后，再自动要求加输一个台阶，以备台阶数目不够高程之所用DB=(5)输出放样点应横向移动的平距(“-”为左移,“+”为右移)此行操作完成后返回第(2)步，要求重新输入计算三、程序设计1．测量放样计算主程序CLFY(571步)V=19:Fixm{O}:O”FY:1.ZX2.BX”Z[13]=O{OE}:O”ZJ:1.DX2.XL”E”DZ”O=1Z[8]=Z[E+6a+3b+2c+30]:Z[9]=Z[E+6a+3b+2c+d+30]◣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+6a+3b+2c+30]:Z[11]=Z[F+6a+3b+2c+d+30]◣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[4]+Z[6]π÷180I>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(143步)V=19:Fixm{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.线路坐标计算子程序ZB(517或492步)W=21K=ZZ>23540K=K-0.03313◣(注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Lbl1K>Z[W+5a+4]W=W+1:Goto1◣W=21W=22◣V=W-1Goto2◣V=W-1Prog”YS”Z[14]=Z[V]-Rec(T,A)Z[15]=Z[V+a+2]-JLbl2S=K-Z[V+5a+4]B=AS≤0X=Z[14]+ScosB:Y=Z[15]+SsinB:U=B:Goto6◣X=Z[14]:Y=Z[15]S≤LH=1:Goto3◣S≤Z[7]-MGoto4◣B=A-NC+πS≤Z[7]S=Z[7]-S:X=Z[V]-Rec(P,B):Y=Z[V+a+2]-J:H=-1:L=M:Goto3:L=Z[V+3a+3]◣X=Z[V]-Rec(P+S-Z[7],B):Y=Z[V+a+2]-JU=B-π:Goto6Lbl3I=NHSSS÷6÷R÷LJ=S-S^5÷(40(RL)2)U=B-NHSS÷(2RL)+π(H-1)÷2:Goto5Lbl4U=(2S-L)÷R÷2I=NR(1-cosU)+NZ[18]:J=RsinU+Z[19]U=B-N(S-L÷2)÷RLbl5Pol(I,J):J=J+B-π÷2X=Rec(I,J)+XY=Y+JLbl6U<0U=U+2π◣4.曲线要素计算子程序YS(315步)R=Z[V+2a+3]L=Z[V+3a+3]:M=Z[V+4a+3]Pol(Z[V+1]-Z[V],Z[V+a+3]-Z[V+a+2])S=JPol(Z[V]-Z[V-1],Z[V+a+2]-Z[V+a+1])C=J-S:A=JC=tanC:C=tan-1CN=AbsC÷C:C=AbsCZ[19]=L÷2-LLL÷240÷R÷RZ[17]=M÷2-MMM÷240÷R÷RZ[18]=LL÷24÷RZ[16]=MM÷24÷RP=(Z[16]-Z[18])÷2÷tan(C÷2)Z[7]=(Z[18]+Z[16]+2R)tan(C÷2)÷2T=P+Z[7]+Z[19]:P=Z[7]-P+Z[17]Z[7]=RC+(L+M)÷25.高程较差计算主程序GCJC(113步)V=6a+25:Fixm{O}:O”YG”Lbl0{ZGU}:Z”K”:G”DW”:U”QS”Q=Z[G+6a+3b+2c+2d+30]Prog”GC”C=C-O+UC=Intg(1000C+0.5)÷1000C”DH=”◢Goto06.线路高程计算主程序XLGC(56步)V=6a+25:FixmLbl0{ZQ}:Z”K”:Q”L”Prog”GC”C”H=”◢Goto07.线路高程计算子程序GC(521或496步)W=6a+27K=ZZ>23540K=K-0.03313◣(注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Lbl1P=Z[W+2b+3]K>Z[W]-PW=W+1:Goto1◣W=6a+27W=6a+28◣V=W-1Goto2◣V=W-1J=Z[V+b+2]R=(J-Z[V+b+1])÷(Z[V]-Z[V-1])S=(Z[V+b+3]-J)÷(Z[V+1]-Z[V])T=Z[V+2b+3]Lbl2L=K-Z[V]L≤-TH=J+RL:Goto3◣L≥TH=J+SL:Goto3◣B=2T÷(S-R)X=L+B(R+S)÷2H=J+XX÷2÷B-BRS÷2Lbl3H=H-Z[1]D=AbsQD≤1C=0:Goto6◣I=-1Q>0I=1◣Lbl4Y=6a+3b+31Lbl5K≥Z[Y]Y=Y+1:Goto5◣E=Z[Y+c-1]:F=Z[Y+c]:E=IE:F=IFZ[Y+c-1]=0E=2◣Z[Y+c]=0F=2◣N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])M=(F-E)(1-3NN+2NNN)+ED≤Z[2]C=(1-D)M÷100:Goto6◣C=0.03(Z[2]-D)-M(Z[2]-1)÷100M>3C=(1-D)M÷100◣Lbl6C=H+C8.反求线路桩号主程序FQZH(807或782步)FixmLbl0V=21{XY}:X”XD”:Y”YD”Lbl1V>20+aV=20+a:Goto2◣Prog”YS”Z[4]=Z[V]-Rec(T,A):Z[5]=Z[V+ 2+a]-JZ[6]=Z[V]+Rec(P,S):Z[3]=Z[V+ 2+a]+JZ[6]=XZ[3]=YK=Z[V+4+5a]+Z[7]:Q=0:Goto6◣◣Pol(Z[6]-X,Z[3]-Y):D=J+π-SB=Abs(Isin(D-NC÷2))cosD<0B<2000Goto2◣◣V=V+1Goto1Lbl2B=Z[4]:D=Z[5]:G=A-π÷2Prog”ZH”Pol(-H,-W):D=J+π÷2cosD<0K=Z[V+4+5a]+W:Q=-H:Goto6◣F=NLL÷6÷R:Q=L-LLL÷40÷R÷RPol(F-H,Q-W):D=J+π÷2+NL÷2÷RcosD<0Goto3◣I=2Rsin(C÷2-L÷R÷4-M÷R÷4)B=F+Rec(I,π÷2-N(C÷2+L÷R÷4-M÷R÷4))D=Q+JPol(B-H,D-W):D=J+π÷2+N(C-M÷2÷R)cosD<0Goto4◣G=π÷2-NCPol(Rec(P,G)-H,T+J-W):D=J+π-GcosD<0Goto5◣B=Z[6]:D=Z[3]:G=π÷2+SProg”ZH”K=Z[V+4+5a]+Z[7]-W:Q=HGoto6Lbl3Z=N:U=LProg”HQ”K=Z[V+4+5a]+OGoto6Lbl4Pol(H-N(R+Z[18]),W-Z[19])K=Z[V+4+5a]+R(π÷2+N(π÷2-J))+L÷2Q=N(I-R)Goto6Lbl5Z=-N:U=MB=Z[6]:D=Z[3]:G=π÷2+SProg”ZH”Prog”HQ”K=Z[V+4+5a]+Z[7]-O:Q=-QLbl6M=1000Z=KZ>23540Z=Z-(-0.03313)◣(注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Z=Intg(MZ+0.5)÷MQ=Intg(MQ+0.5)÷MZ”KD=”◢Q”WB=”◢Goto09.坐标转换子程序ZH(52步)H=X-B:W=Y-DPol(H,W)G=J-GH=IcosG:W=IsinG10.反求缓曲段子程序HQ(384步)A=Z÷46080÷R^6÷U^6B=H÷3840÷R^5÷U^5C=13Z÷5760÷R^4÷U^4D=ZW÷384÷R^4÷U^4G=H÷48÷R^3÷U^3I=Z÷(15RRUU)J=ZW÷(8RRUU)L=H÷(2RU)M=ZN=ZWE=WLbl7F=AE^13+BE^10-CE^9+DE^8-GE^6+IE^5-JE^4+LEE-ME+NQ=13AE^12+10BE^9-9CE^8+8DE^7-6GE^5+5IE^4-4JE^3+2LE-MO=E-F÷QAbs(O-E)<1e-5Goto8◣E=OGoto7Lbl8T=ZOOO÷6÷U÷RP=O-O^5÷(40RRUU)T=HP=WQ=0:Goto9◣◣Pol(H-T,W-P)Q=sin(J+ZOO÷2÷R÷U-π÷2)E=-1Q>0E=1◣Q=EILbl911.边桩放样程序(附加)BZFY(475步)V=6a+25:FixmO=0:U=Q{Z}:Z”K”Lbl1{GU}:U”B”:G”H”O0Goto3◣Q=-12.25:Z[3]=-1U>0Q=12.25:Z[3]=1◣Prog”GC”D=G-CD≤0Goto7◣N=Int((D-0.1)÷8.9)+1N>10N=10◣I=1Lbl2O=Z[3+I]{O}:O”M”Z[3+I]=O:O=Z[3+I]I=I+1I>N+1Goto4◣Goto2Lbl3D=G-CD≤0Goto7◣N=Int((D-0.1)÷8.9)+1Lbl4I=0:M=2D≤6M=1◣W=13.05+M:H=0.02MLbl5I=I+1I>N-1Goto6◣W=W+2+9Z[I+3]H=H+8.9Goto5Lbl6A=(D-H)Z[I+3]+W-AbsUGoto8Lbl7D=-DD≤8A=1.5D+12.25-AbsU◣D>8D≤12A=24.25+1.75(D-8)-AbsU◣◣D>12A=26.25+1.75(D-8.04)-AbsU◣Lbl8A=AZ[3]U=U+AA”DB=”◢Goto1四、扩展变量设置数值扩展变量设置实际数值表名称上三线四标福宁线A14标福宁线A14-4交点数目a472变坡点数目b12124起超点数目c2055导线点数目d30200变量总数目18816470Z[1]0.650.730.73Z[2]11.511.511.5Z[3]空空空Z[4]空空空Z[5]空空空Z[6]空空空Z[7]空空空Z[8]空空空Z[9]空空空Z[10]空空空Z[11]空空空Z[12]空空空Z[13]空空空Z[14]空空空Z[15]空空空Z[16]空空空Z[17]空空空Z[18]空空空Z[19]空空空Z[20]3311951.3982975739.2142973710.082Z[21]3308082.1072976456.4482973608.911Z[22]3306528.8512974752.8962973081.305Z[23]3304867.3722974382.4922972865.599Z[24]3303837.5752974226.853497354.093Z[25]3300666.7272973734.000495552.513Z[26]483715.3152973608.911493906.918Z[27]482961.2472973081.305493744.453Z[28]484119.3632972865.5992500.000Z[29]484785.224506191.913560.000Z[30]484191.299504387.5530Z[31]484421.828501750.741181.944Z[32]1800.647183500661.8290Z[33]2000.000499179.551183.096Z[34]1320.097497779.99994318.362Z[35]1128.972495552.51395803.35362Z[36]240.000493906.91897577.87494扩展变量设置实际数值表(续表)名称上三线四标福宁线A14标福宁线A14-4Z[37]250.000493744.45398104.795Z[38]200.0001200.00095500Z[39]200.0002800.00095940Z[40]240.0002800.00096640Z[41]250.0004000.00097040Z[42]200.0003000.00097900Z[43]200.0002500.00098104.795Z[44]18766.03067560.00020.685Z[45]21790.803882276.48028.185Z[46]24165.055664063.185Z[47]25596.110581073.185Z[48]26989.8816480108.785Z[49]30594.634230113.290Z[50]22050.0000219.5Z[51]22299.500181.944203.26Z[52]22700.400276.480196.744Z[53]23110.9000193.953Z[54]23360.0000空Z[55]23699.96687089900Z[56]24549.96687097577.875Z[57]25249.96687097759.819Z[58]26249.96687183.09697944.795Z[59]26599.9668784800.00098264.795Z[60]27199.9668785983.528660Z[61]27699.9668789437.690650Z[62]28049.9668790616.27064-5Z[63]28199.9668791947.87136-5Z[64]12.20093470.888875Z[65]9.91095803.35362-11.5Z[66]19.54297577.87494-6Z[67]8.85898104.795-0.75Z[68]11.000892600.75Z[69]8.450899606Z[70]14.9109096011.5Z[71]9.45091670Z[72]14.95092320Z[73]10.05092750Z[74]13.05094000Z[75]11.00094950Z[76]14.50095500Z[77]13.60095940Z[78]149.50096640扩展变量设置实际数值表(续表)名称上三线四标福宁线A14标福宁线A14-4Z[79]251.40097040Z[80]159.10097900Z[81]90.00098104.795Z[82]90.60011.357Z[83]231.00018.147Z[84]106.40011.647Z[85]97.50021.090Z[86]95.00013.810Z[87]100.10017.250Z[88]98.70013.500Z[89]96.00022.335Z[90]空20.685Z[91]028.185Z[92]23290.77263.185Z[93]23425.77273.185Z[94]24280.05687108.785Z[95]24415.05687113.290Z[96]24684.09287113.400Z[97]24819.09287198Z[98]25661.11187196Z[99]25769.11187211.2Z[100]25796.11187132Z[101]26789.88287123Z[102]26816.88287184.5Z[103]26924.88287220.5Z[104]27044.88287219.5Z[105]27141.54987203.26Z[106]27189.88287196.744Z[107]27662.42987193.953Z[108]27710.76287空Z[109]27807.4298789900Z[110]50000.00097577.875Z[111]-297759.819Z[112]-297944.795Z[113]098264.795Z[114]00Z[115]20Z[116]2-5Z[117]0-5Z[118]05Z[119]22973473.817Z[120]32973443.259扩展变量设置实际数值表(续表)名称上三线四标福宁线A14标福宁线A14-4Z[121]32973689.991Z[122]22973503.137Z[123]02974006.842Z[124]02973463.050Z[125]-22973619.538Z[126]-42973592.676Z[127]-42973977.206Z[128]-22973672.883Z[129]02973935.726Z[130]02973692.340Z[131]3308042.7792973348.276Z[132]空暂空Z[133]3307801.470暂空Z[134]空暂空Z[135]空暂空Z[136]空暂空Z[137]3307165.852暂空Z[138]3306649.672暂空Z[13