CASIO程序线路计算70版匝道版

《CASIO程序线路计算70版匝道版》由会员分享，可在线阅读，更多相关《CASIO程序线路计算70版匝道版（13页珍藏版）》请在装配图网上搜索。

1、CASIO fx-4800P线路计算7.0版匝道版程序设计 作者：徐光辉 2001年7月1日 一、扩展变量设置说明1 统计各种要素点的数目各要素点数目表匝道序号第1匝道第2匝道第3匝道第4匝道第5匝道扩展变量数目无匝道时取值切点数目(含起终点)a1a2a3a4a52a+3-3/2变坡点数目(含起终点)b1b2b3b4b53b-22/3超高点数目(含起终点)c1c2c3c4c52c0设置扩展变量总数目为：2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74个2 设置各扩展变量数据 固定变量及自由变量Z1Z39固定变量及自由变量设置表位置

2、设置内容或数值备 注1匝道序号(根据计算的需要分别存为1、2、3、4或5)运行前必须设置2路面结构层的厚度运行前必须设置3半个中央分隔带的设计宽度运行前必须设置4半幅路基硬路面宽度(包含中央分隔带)运行前必须设置5土路肩宽度运行前必须设置6土路肩最小横坡设计值运行前必须设置7程序中使用的自由变量不用设置8程序中使用的自由变量不用设置9程序中使用的自由变量不用设置1073运行前必须设置1176+2a1运行前必须设置1279+2a1+2a2运行前必须设置1382+2a1+2a2+2a3运行前必须设置1485+2a1+2a2+2a3+2a4运行前必须设置15a1运行前必须设置16a2运行前必须设置1

3、7a3运行前必须设置18a4运行前必须设置19a5运行前必须设置2085+2a1+2a2+2a3+2a4+2a5运行前必须设置2183+2a1+2a2+2a3+2a4+2a5+3b1运行前必须设置2281+2a1+2a2+2a3+2a4+2a5+3b1+3b2运行前必须设置2379+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3运行前必须设置2477+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3+3b4运行前必须设置固定变量及自由变量设置表 续上表位置设置内容或数值备 注25b1运行前必须设置26b2运行前必须设置27b3运行前必须设置28b4运行前必须设置2

4、9b5运行前必须设置3075+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3+3b4+3b5运行前必须设置3175+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3+3b4+3b5+2c1运行前必须设置3275+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3+3b4+3b5+2c1+2c2运行前必须设置3375+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3+3b4+3b5+2c1+2c2+2c3运行前必须设置3475+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3+3b4+3b5+2c1+2c2+2c3+2c4运行

5、前必须设置35c1运行前必须设置36c2运行前必须设置37c3 运行前必须设置38c4运行前必须设置39c5运行前必须设置 导线点扩展变量Z40Z69各导线点坐标值于扩展变量中的位置表名称第1个导线点第2个导线点第i个导线点第14个导线点第15个导线点X坐标404139+i5354Y坐标555654+i6869 平曲线要素扩展变量Z70Z84+2a1+2a2+2a3+2a4+2a5各匝道平曲线要素于扩展变量中的位置表匝道序号第1点方位角第1点坐标要素项目第1点第i点第a点第1匝道70X71曲率7372+i72+a1Y72桩号73+a172+a1+i72+2a1第2匝道73+2a1X74+2a1

6、曲率76+2a175+2a1+i75+2a1+a2Y75+2a1桩号76+2a1+a275+2a1+a2+i75+2a1+2a2第3匝道76+2a1+2a2X77+2a1+2a2曲率79+2a1+2a278+2a1+2a2+i78+2a1+2a2+a3Y78+2a1+2a2桩号79+2a1+2a2+a378+2a1+2a2+a3+i78+2a1+2a2+2a3第4匝道79+2a1+2a2+2a3X80+2a1+2a2+2a3曲率82+2a1+2a2+2a381+2a1+2a2+2a3+i81+2a1+2a2+2a3+a4Y81+2a1+2a2+2a3桩号82+2a1+2a2+2a3+a481+

7、2a1+2a2+2a3+a4+i81+2a1+2a2+2a3+2a4第5匝道82+2a1+2a2+2a3+2a4X83+2a1+2a2+2a3+2a4曲率85+2a1+2a2+2a3+2a484+2a1+2a2+2a3+2a4+i84+2a1+2a2+2a3+2a4+a5Y84+2a1+2a2+2a3+2a4桩号85+2a1+2a2+2a3+2a4+a584+2a1+2a2+2a3+2a4+a5+i84+2a1+2a2+2a3+2a4+2a5 竖曲线要素扩展变量Z85+2(a1+a2+a3+a4+a5)Z74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)各匝道竖曲线要

8、素于扩展变量中的位置表匝道序号要素名称第1点(起点)第2个变坡点第i个变坡点第b-1个变坡点第b点(终点)第1匝道变坡点桩号85+2a1+2a2+2a3+2a4+2a586+2a1+2a2+2a3+2a4+2a584+2a1+2a2+2a3+2a4+2a5+i83+2a1+2a2+2a3+2a4+2a5+b184+2a1+2a2+2a3+2a4+2a5+b1变坡点高程85+2a1+2a2+2a3+2a4+2a5+b186+2a1+2a2+2a3+2a4+2a5+b184+2a1+2a2+2a3+2a4+2a5+b1+i83+2a1+2a2+2a3+2a4+2a5+2b184+2a1+2a2+2

9、a3+2a4+2a5+2b1竖曲线切线长-85+2a1+2a2+2a3+2a4+2a5+2b183+2a1+2a2+2a3+2a4+2a5+2b1+i82+2a1+2a2+2a3+2a4+2a5+3b1-第2匝道变坡点桩号83+2a1+2a2+2a3+2a4+2a5+3b184+2a1+2a2+2a3+2a4+2a5+3b182+2a1+2a2+2a3+2a4+2a5+3b1+i81+2a1+2a2+2a3+2a4+2a5+3b1+b282+2a1+2a2+2a3+2a4+2a5+3b1+b2变坡点高程83+2a1+2a2+2a3+2a4+2a5+3b1+b284+2a1+2a2+2a3+2a

10、4+2a5+3b1+b282+2a1+2a2+2a3+2a4+2a5+3b1+b2+i81+2a1+2a2+2a3+2a4+2a5+3b1+2b282+2a1+2a2+2a3+2a4+2a5+3b1+2b2竖曲线切线长-83+2a1+2a2+2a3+2a4+2a5+3b1+2b281+2a1+2a2+2a3+2a4+2a5+3b1+2b2+i80+2a1+2a2+2a3+2a4+2a5+3b1+3b2-第3匝道变坡点桩号81+2a1+2a2+2a3+2a4+2a5+3b1+3b282+2a1+2a2+2a3+2a4+2a5+3b1+3b280+2a1+2a2+2a3+2a4+2a5+3b1+3

11、b2+i79+2a1+2a2+2a3+2a4+2a5+3b1+3b2+b380+2a1+2a2+2a3+2a4+2a5+3b1+3b2+b3变坡点高程81+2a1+2a2+2a3+2a4+2a5+3b1+3b2+b382+2a1+2a2+2a3+2a4+2a5+3b1+3b2+b380+2a1+2a2+2a3+2a4+2a5+3b1+3b2+b3+i79+2a1+2a2+2a3+2a4+2a5+3b1+3b2+2b380+2a1+2a2+2a3+2a4+2a5+3b1+3b2+2b3竖曲线切线长-81+2a1+2a2+2a3+2a4+2a5+3b1+3b2+2b379+2a1+2a2+2a3+

12、2a4+2a5+3b1+3b2+2b3+i78+2a1+2a2+2a3+2a4+2a5+3b1+3b2+3b3-第4匝道变坡点桩号79+2(a1+a2+a3+a4+a5)+3b1+3b2+3b380+2(a1+a2+a3+a4+a5)+3b1+3b2+3b378+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+i77+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+b478+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+b4变坡点高程79+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+b480+2(a1+a2+a3+a4+a5)+3b1+3b

13、2+3b3+b478+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+b4+i77+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+2b478+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+2b4竖曲线切线长-79+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+2b477+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+2b4+i76+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+3b4-第5匝道变坡点桩号77+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)78+2(a1+a2+a3+a4+a5)+

14、3(b1+b2+b3+b4)76+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+i75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+b576+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+b5变坡点高程77+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+3b4+b578+2(a1+a2+a3+a4+a5)+3b1+3b2+3b3+3b4+b576+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+b5+i75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+2b576+2(a1+a2+

15、a3+a4+a5)+3(b1+b2+b3+b4)+2b5竖曲线切线长-77+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+2b575+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4)+2b5+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)- 超高设计扩展变量Z75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)Z2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74各段超高设计数值于扩展变量中的位置表匝道序号要素名称第1个起超点第i个起超点第c个

16、起超点第1匝道桩号75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+c1横坡75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+c174+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+c1+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1第2匝道桩号75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)

17、+2c174+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+c2横坡75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+c274+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+c2+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2第3匝道桩号75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c274+2(a1+a2+a3+a

18、4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+c3横坡75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+c374+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+c3+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3第4匝道桩号75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c374+2(a1+a2

19、+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+c4横坡75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+c474+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+c4+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+2c4第5匝道桩号75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+

20、b5)+2c1+2c2+2c3+2c474+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+2c4+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+2c4+c5横坡75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2c1+2c2+2c3+2c4+c574+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4)+c5+i74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c

21、4+c5)说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可（从路中间向两侧，上坡为“”，下坡为“”），当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定重新设置扩展变量中的数据。存入平曲线的曲率时，左转为“”，右转为“”，曲率为半径的倒数，即1/R；当圆曲线和直线之间无缓和曲线时，则ZY点（或YZ点）要看作为桩号相同的两个切点，即假想在圆曲线和直线之间存在着一条长度为零的缓和曲线，其中一端的曲率为1

22、/R，另一端的曲率为零。存入首点的切线方位角时角度为弧度。当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。二、程序操作说明1 匝道放样计算程序ZDFYFY：1.ZX 2.BX?(1)放样选择:1.中线放样 2.边线放样?DZ?(2) 输入置镜点的导线点点号DZ?DH?(3) 输入后视点的导线点点号DH?AH?(4)输入后视角度AH?KF?(5)输入放样点的桩号KF?L?(6)输入放样点偏离中线的平距(左为“-”,右为“+”)?当第(1)步选择1时,无此第(6)步,只有当第(1)选择2时,才会出现此步AJ?(7)输入放样点跟线路中桩连线与线路方

23、向的夹角(顺时针)AJ?当第(1)步选择1时,无此第(7)步,只有当第(1)选择2时,才会出现此步S=(8)输出放样距离SA=(9)输出放样角度A此行操作完成后返回第(5)步,要求重新输入计算2 匝道坐标计算程序ZDZB1.ZX 2.BX?(1)选择:1.中线坐标计算 2.边线坐标计算？K?(2)输入待求点的桩号K?L?(3)输入待求点的偏离中线的平距L(左为“-”,右为“+”)? 当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才 会出现此步AJ?(4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ? 当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才

24、会出现此步X=(5)输出待求点的X坐标Y=(6)输出待求点的Y坐标AT=(7)输出待求点的切线方位角AT 只有当第(1)步选择1时，才会出现此第(7)步此行操作完成后返回第(2)步,要求重新输入计算3 匝道高程计算程序ZDGCK?(1)输入待求点的桩号K?L?(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?H=(3)输出待求点的设计高程(已扣除结构层厚度)H此行操作完成后返回第(1)步,要求重新输入计算三、程序设计1 匝道放样计算主程序ZDFY (288步)Fixm:RadH=ZZ1+9N=ZZ1+14V=HO:O”FY:1.ZX 2.BX”EFT:E”DZ”:F”DH”:T”AH

25、”B=ZE+39:D=ZE+54I=ZF+39:J=ZF+54Pol(I-B,J-D):Z7=JLbl 1K:K”KF”O1QG:Q”L”:G”AJ”Prog ”BZ”:X=X+Rec(Q,U+G180):Y=Y+JPol(X-B,Y-D):I”S=”I=J-Z7+T180I2I=I-2IZW+NW=W+1:Goto 0V=WGoto 1V=WProg “CS”Lbl 1Z=KProg “ZD”5匝道参数计算子程序CS (142步)U=ZH-3X=ZH-2Y=ZH-1W=V-HLbl 0Z8=XZ9=YA=UM=ZV-W+N+1R=ZV-WP=ZV-W+1L=ZV-W+NDsz WGoto 1

26、Goto 2Lbl 1Z=MProg “ZD”Goto 0Lbl 26匝道分段计算子程序ZD (373步)S=Z-LR=PR=0Goto 1R=PR0Goto 2Z=1PRZ=-1J=M-LC=Abs(J(P-R)J=0C=1J=ZJR(P-R)I=J+SZU=A+S(J+I)2CS=A-ZJJ2CY=I-J-(I5-J5)40CC+(I9-J9)3456C4I=(III-JJJ)6C-(I7-J7)336C3+(I11-J11)42240C5X=Z8+ZYCos S-Isin SY=Z9+ZYSin S+Icos SGoto 3Lbl 1X=Z8+Scos AY=Z9+Ssin AU=AGo

27、to 3Lbl 2U=SP+AX=Z8+(Sin U-Sin A)PY=Z9-(Cos U-Cos A)PLbl 3U2U=U-27匝道高程计算子程序CG (536步)W=G+1Lbl 0WG+U-2Goto 1P=ZW+2U-1KZW-PW=W+1:Goto 0W=G+1W=G+2V=W-1Goto 2Lbl 1V=W-1J=ZV+UR=(J-ZV+U-1)(ZV-ZV-1)S=(ZV+U+1-J)(ZV+1-ZV)T=ZV+2U-1Lbl 2L=K-ZVL-TH=J+RL:Goto 3LTH=J+SL:Goto 3A=2T(S-R)X=L+A(R+S)2H=J+XX2A-ARS2Lbl 3

28、H=H-Z2A=Abs QAZ3C=0:Goto 6I=-1Q0I=1Lbl 4Y=ELbl 5KZYY=Y+1:Goto 5O=ZY+F-1:X=ZY+F:O=IO:X=IXZY+F-1=0O=2ZY+F=0X=2N=(ZY-K)(ZY-ZY-1)M=(X-O)(1-3NN+2NNN)+O （当超高过渡段按直线性计算时，此行换为 M=(O-X)N+X）AZ4C=(Z3-A)M100:Goto 6C=Z6(Z4-A)100-M(Z4-Z3)100MZ6C=(Z3-A)M100Lbl 6C=H+C四、附加根据横断面点数d增加扩展变量数目d个，假设原扩展变量总数为n个，即:n=2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74，则新增地扩展变量为Zn+1Zn+d匝道高程较差主程序GCJC (164步)FixmG=ZZ1+19U=ZZ1+24E=ZZ1+29F=ZZ1+34V=G-1Z:Z”YG”Lbl 0KDB:K”K”:D”DW”:B”QS”Q=Zn+DProg ”CG”C=C-Z+BC=Intg(1000C+.5)1000C”DH=”Goto 013