《CASIO程序线路计算60版无缓篇.doc》由会员分享，可在线阅读，更多相关《CASIO程序线路计算60版无缓篇.doc（18页珍藏版）》请在三一文库上搜索。
1、CASIO fx-4800P线路计算6.0版无缓篇程序设计 作者：孙赛英 2009年7月5日 一、扩展变量设置说明1 统计各种要素点的数目各要素点数目表名 称平曲线交点竖曲线变坡点最多台阶数线路导线点数目（个）abde要素点数目为0时取值-1-5/300备 注不含起终点不含起终点其取值为0或10设置扩展变量总数目为：32+4a+3b+d+2e(使用横坡点)或26+4a+3b+d+2e(未使用横坡点)个2 设置各扩展变量数据 固定变量及自由变量Z1 Z15 Z1:结构层厚度 Z2:半幅路基硬路面宽度(包含分隔带) Z3Z15:程序中使用的自由变量 平曲线要素扩展变量Z16Z21+4a各平曲线要素
2、于扩展变量中的位置表名称起点第1个交点第2个交点第i个交点第a- 1个交点第a个交点终点交点X坐标Z16Z17Z18Z16+iZ15+aZ16+aZ17+a交点Y坐标Z18+aZ19+aZ20+aZ18+a+iZ17+2aZ18+2aZ19+2a圆曲线半径-Z20+2aZ21+2aZ19+2a+iZ18+3aZ19+3a-曲线起点桩号Z20+3a(线路起点)Z21+3aZ22+3aZ20+3a+iZ19+4aZ20+4aZ21+4a(线路终点) 竖曲线要素扩展变量Z22+4aZ26+4a+3b各竖曲线要素于扩展变量中的位置表名称起点第1个变坡点第2个变坡点第i个变坡点第b- 1个变坡点第b个变
3、坡点终点变坡点桩号Z22+4aZ23+4aZ24+4aZ22+4a+iZ21+4a+iZ22+4a+bZ23+4a+b变坡点高程Z24+4a+bZ25+4a+bZ26+4a+bZ24+4a+b+iZ23+4a+2bZ24+4a+2bZ25+4a+2b竖曲线切线长-Z26+4a+2bZ27+4a+2bZ25+4a+2b+iZ24+4a+3bZ25+4a+3bZ26+4a+3b此变量为空注：扩展变量Z26+4a+3b设置为空值（即为0），以便其在程序中使用。 边坡坡度扩展量Z27+4a+3bZ26+4a+3b+d当使用了子程序FY时，d=10，否则d=0，这些扩展变量主要用于储存各阶边坡的坡度。
4、导线点扩展变量Z27+4a+3b+dZ26+4a+3b+d+2e各导线点坐标值于扩展变量中的位置表名称第1个导线点第2个导线点第i个导线点第c- 1个导线点第d个导线点X坐标Z27+4a+3b+dZ28+4a+3b+dZ26+4a+3b+d+iZ25+4a+3b+d+eZ26+4a+3b+d+eY坐标Z27+4a+3b+d+eZ28+4a+3b+d+eZ26+4a+3b+d+e+iZ25+4a+3b+d+2eZ26+4a+3b+d+2e 路基横断面点扩展变量Z27+4a+3b+d+2eZ32+4a+3b+d+2e(根据情况可省)Z27+4a+3b+d+2e=-11.5（路基横坡1#点）Z28+
5、4a+3b+d+2e=-6.0（路基横坡2#点）Z29+4a+3b+d+2e=-0.75（路基横坡3#点）Z30+4a+3b+d+2e=0.75（路基横坡4#点）Z31+4a+3b+d+2e=6.0（路基横坡5#点）Z32+4a+3b+d+2e=11.5（路基横坡6#点）上述横断面点的扩展变量里数据设置可根据需要进行修改。3.扩展变量设置说明 当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定存入对应变量中的数据，同时应根据各程序中方框内的表达式所计算的结果，把方框内的表达式修改为实际数据。当进行测量放样计算时，若遇到
6、临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。存入各要素点的桩号时,均为扣除断链后的实际桩号，而不是设计图上的设计桩号。二、程序操作说明特别说明：各程序均要求在RAD模式下运行1 测量放样计算程序CLFYFY：1.ZX 2.BX?(1)放样选择:1.中线放样 2.边线放样?ZJ：1.DX 2.XL?(2)置镜点选择:1.置镜点为导线点 2.置镜点为线路点(已知桩号和偏距的中桩或边桩)? DZ?(3)置镜点输入DZ?当第(2)步选择1时,此输入置镜点的导线点点号当第(2)步选择2时,此输入置镜点的线路边桩点桩号LZ?(4)置镜点的边桩点距线路中线偏距输入LZ(左为“-”
7、,右为“+”)?当置镜点为线路中桩时,输其为0当第(2)步选择1时,无此第(4)步,只有当第(2)步选择2时,才会出现此步HS：1.DX 2.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)输入放样点的桩号
8、KF?L?(10)输入放样点偏离中线的平距(左为“-”,右为“+”)?当第(1)步选择1时,无此第(10)步,只有当第(1)选择2时,才会出现此步AJ?(11)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?当第(1)步选择1时,无此第(11)步,只有当第(1)选择2时,才会出现此步S=(12)输出放样距离SA=(13)输出放样角度AAT=(14)输出放样桩号的线路方向与放样视线的夹角AT此行操作完成后返回第(9)步,要求重新输入计算2 高程较差计算程序GCJCYG?(1)输入水准仪的视线高程YG?K?(2)输入被测点的桩号K?DW?(3)输入被测点的点位号DW?1为左偏11.5m,2
9、为左偏6m,3为左偏0.75m,4为右偏0.75m,5为右偏6m,6为右偏11.5mQS?(4)输入前视读数QS?DH=(5)输出设计高程与实测高程的较差DH(高于设计为“-”,反之为“+”)此行操作完成后返回第(2)步,要求重新输入计算3 线路高程计算程序XLGCK?(1)输入待求点的桩号K?L?(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?H=(3)输出待求点的设计高程(已扣除结构层厚度)H此行操作完成后返回第(1)步,要求重新输入计算4 线路坐标计算程序XLZB1.ZX 2.BX?(1)选择:1.中线坐标计算 2.边线坐标计算？K?(2)输入待求点的桩号K?L?(3)输入待
10、求点的偏离中线的平距L(左为“-”,右为“+”)? 当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才 会出现此步AJ?(4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ? 当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才 会出现此步X=(5)输出待求点的X坐标Y=(6)输出待求点的Y坐标此行操作完成后返回第(2)步,要求重新输入计算5 边桩放样计算程序1.CJ 2.QZ 3.QS?(1)仪器选择：1.测距仪 2.全站仪 3.缺省情况（即同上一次）？当此步选择2时，下一步从第（12）步开始运行当此步选择3时，下一步从第（6）步开始运行DZ?(2)输入置
11、镜点点号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）步选择
12、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? 程序根据放样点的高程自动计
13、算出所需的台阶数目，重复此第(18)步依此输入完各台阶边坡的设计坡度后，再自动要求加输一个台阶，以备台阶数目不够高程之所用C=(19)输出测点距下面一个平台内侧的高差C当测点为挖时，才会出现此步P=(20)输出测点距最近一个平台内测的平距P？当测点为挖且测点离平台的高差不大于1m时，才会出现此步DB=(21)输出测点应横向移动的平距DB(“-”为左移,“+”为右移)此步操作完成后，返回第（6）步（当第（11）步选择1或3时）或第（12）步（当第（1）步选择2时），要求重新输入计算三、程序设计1 测量放样计算主程序CLFY (568步)V=15:Fixm:RadO:O”FY:1.ZX 2.BX”
14、Z13=OOE:O”ZJ:1.DX 2.XL”E”DZ”O=1Z8=ZE+26+4a+3b+d:Z9=ZE+26+4a+3b+d+eO1D:D”LZ”:Z=E:Prog ”ZB”:Z8=X+Rec(D,U+2:Z9=Y+JOF:O”HS:1.DX 2.XL”F”DH”O=1Z10=ZF+26+4a+3b+d:Z11=ZF+26+4a+3b+d+eO1B=Z5:B:B”LH”:Z5=B:Z=F:Prog ”ZB”:Z10=X+Rec(Z5,U+2:Z11=Y+JS=Z6:S:S”AH”:Z6=S:Q=0Lbl 1Z=Z12Z:Z”KF”:Z12=ZZ131QG:Q”L”:G”AJ” Prog ”
15、ZB”:X=X+Rec(Q,U+G180:Y=Y+JPol(Z10-Z8,Z11-Z9:Z4=JPol(X-Z8,Y-Z9:I”S=”I=J+Z6180-Z4I2I=I-2I2Z3=Z3-2I=180I:Z3=180Z3I”A=”Z3”AT=” Goto 12线路坐标计算主程序XLZB (144步)V=15:Fixm:RadO:O”1.ZX 2.BX”Q=0Lbl 1Z:Z”K”O1QG:Q”L”:G”AJ” Prog ”ZB”:X=X+Rec(Q,U+G180:Y=Y+J X”X=” Y”Y=” O=1U=180U:U”AT=” Goto 13高程较差计算主程序GCJC (112步)V=4a
16、+21:FixmE:E”YG”Lbl 0ZDU:Z”K”:D”DW”:U”QS”Q=ZD+4a+3b+d+2e+26Prog ”GC”C=C-E+UC=Intg (1000C+.5)1000C”DH=” Goto 04线路高程计算主程序XLGC (56步)V=4a+21:FixmLbl 0ZQ:Z”K”:Q”L”Prog ”GC”C”H=”Goto 05 边桩放样计算主程序BZFY (330步)Fixm:RadZ:Z”1.CJ 2.QE 3.QS”Z=2Z11=0:Goto 1Z=3 Goto 1MNGU:M”DZ”:N”DH”:G”HZ”:U”AH”Z8=ZM+26+4a+3b+d:Z9=Z
17、M+26+4a+3b+d+eC=ZN+26+4a+3b+d:A=ZN+26+4a+3b+d+ePol(C-Z8,A-Z9:Z10=J-U180:Z11=GLbl 1Z=2Goto 2EBFD:B”AQ”:E”S”:D”HD”:F”HY”Rec(E,Z10+B180:X=Z8+IY=Z9+JGoto 3Lbl 2EBD:E”N”:B”E”:D”Z”:F=0:X=E:Y=BLbl 3Prog “FQ”G=D+Z11-F:G”H”Prog “FY”Goto 16 线路坐标计算子程序ZB (334或309步)W=17K=Z断链数值断链桩号Z23540K=K-0.03313 (注：当断链更改时，修改方框
18、中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Lbl 1KZW+3a+4W=W+1:Goto 1W=17W=18V=W-1Goto 2V=W-1Prog ”YS”Z14=ZV-Rec(T,AZ15=ZV+a+2-JLbl 2S=K-ZV+3a+4B=AS0X=Z14+Scos B:Y=Z15+Ssin B:U=B:Goto 6X=Z14:Y=Z15SZ7Goto 4B=A-NC+X=ZV-Rec(T+S-Z7,B:Y=ZV+a+2-JU=B-Goto 6Lbl 4U=SRI=NR(1-cos U:J=Rsin UU=B-NSRPol(I,J:J=J+B-2X=X+Rec
19、(I,JY=Y+JLbl 6U23540K=K-0.03313 (注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)Lbl 1P=ZW+2b+3KZW-PW=W+1:Goto 1W=4a+23W=4a+24V=W-1Goto 2V=W-1J=ZV+b+2R=(J-ZV+b+1)(ZV-ZV-1S=(ZV+b+3-J)(ZV+1-ZVT=ZV+2b+3Lbl 2L=K-ZVL-TH=J+RL:Goto 3LTH=J+SL:Goto 3A=2T(S-RX=L+A(R+S)2H=J+XX2A-ARS2Lbl 3H=H-Z1A=Abs Q中央带宽A1C=0
20、:Goto 6I=-1Q0I=1Lbl 4中央带宽/2M=2中央带宽/2土路肩设计最小坡AZ2C=.01M(1-A:Goto 6C=.03(Z2-A)-.01M(Z2-1中央带宽/2土路肩设计最小坡度100M3C=.01M(1-A)Lbl 6C=H+C9反求线路桩号子程序FQ (414或389步)V=17Lbl 1V16+aV=16+a:Goto 2Prog ”YS”Z4=ZV-Rec(T,A:Z5=ZV+2+a-JZ6=ZV+Rec(T,S:Z3=J+ZV+2+aZ6=XZ3=YK=ZV+4+3a+Z7:Q=0:Goto 6Pol(Z6-X,Z3-Y:K=J+-SQ=Abs (Isin (K
21、-NC2cos K0Q2000Goto 2V=V+1Goto 1Lbl 2Q=Z4:K=Z5:G=A-2Prog ”ZH” Pol(-H,-W:K=J+2cos K23540Z=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=Icos G:W=Isin G11边桩放样计算子程序FY (412步)V=4a+21土路肩宽U=QQ=-.75-Z2:Z3
22、=-1土路肩宽U0Q=.75+Z2:Z3=1Prog ”GC”X=G-C平台横坡引起的高差=平台宽平台坡度X0Goto 7N=Int (X-.1)8.9)+1路堑相邻两台阶坡脚间的高差N9N=9I=1Lbl 2O=I+Z26+4a+3bO:O”M”Z26+4a+3b+I=OI=I+1IN+1Goto 4Goto 2Lbl 4=护坡道宽+水沟开口宽度+土路肩宽度I=0护坡道横坡引起的高差=护坡道宽护坡道坡度W=3.55+Z2:H=.04Lbl 5I=I+1平台宽度IN-1Goto 6W=W+2+9ZI+26+4a+3b路堑同一台阶的坡顶到坡脚之间的高差路堑相邻两台阶坡脚间的高差H=H+8.9Goto 5Lbl 6A=X-H:A”C=”W=W-Abs U中央带宽/2A1P=WZ3=路堑同一台阶的坡顶到坡脚之间的高差-1A8P=(9ZI+26+4a+3b+W+2)Z3路堑同一台阶的坡顶到坡脚之间的高差A=W+AZI+26+4a+3bGoto 8Lbl 7X”C=”路堤边坡坡度X=-XA=1.5土路肩宽度路堤同一台阶的坡顶到坡脚之间的高差K8A=14.75+Z2+1.75(X-8.04)-Abs U=路堤边坡坡度路堤台阶高度+土路肩宽度+路堤平台宽度Lbl 8路堤同一台阶的坡顶到坡脚之间的高差A=AZ3A”DB=”18