CASIO程序(线路计算93匝道版)

1、« CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日、扩展变量设置说明1 .统计各种要素点的数目扩展变量数目设置方法:SHIFT 印 ExE I各要素点数目表名称（第i条匝道）数目（个）所需扩展变量数目（个）要素点数目 为0时取值备 注平曲线切点ai2a+3-3/2含起终点竖曲线变坡点bi3bi+5-5/3不含起终点超高起始点Ci2ci0含起终点路向宽度变化点di6di+i-i/6含起终点左幅挖边坡变化点eii6ei0含起终点右幅挖边坡变化点f ii6fi0含起终点合计N2ai +3bi +2ci +6di +i6e +i6f i +90设

2、置扩展变量总数目为：M=285封 N =357+E (2a i +3bi +2g +6di + 16e +16f i)个2扩展变量中预存的数值设置方法例如:Z1=3 EXE ,就是在Z1中存入数值 3。卜面的设置说明中如果出现N,则Nb=Q特别说明：本程序同时最多只能进行8条匝道的计算2 .设置各扩展变量数据（1）固定变量及自由变量 Z1Z285Z1：匝道序号，程序运行前必须手动设置为18的整数。Z2Z9:固定变量，各匝道的结构层厚度，运行前必须设置。Z10Z62:程序中使用的自由变量，不需设置。Z63Z70:为各路面点离中线的平距，需设置。Z71Z77:程序中使用的自由变量，不需设置。Z78

3、Z85:固定变量，为各匝道的平曲线切点数目，运行前必须分别设置为aia8。Z86Z93:固定变量，为各匝道的竖曲线变坡点数目，运行前必须分别设置为bib8。Z94Z101:固定变量，为各匝道的超高起始点数目，运行前必须分别设置为ciC8。Z102Z109:固定变量，为各匝道的路面宽度变化点数目，运行前必须分别设置为did8。Z110Z117:固定变量，为各匝道的左幅挖边坡变化点数目，运行前必须分别设置为eie8。Z118Zi25:固定变量，为各匝道的右幅挖边坡变化点数目，运行前必须分别设置为fif8。Zi26Zi33:固定变量，为各匝道的平曲线数据库起始位置序号，运行前必须分别设置为289、&

4、#171; CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日Z134Z142Z150Z158Z166289+N、289+N+N、289+N+N2+N3、289+N+N+N3+N4、289+N+Nb+N3+M+N5、289+N+Nk+N3+Nk+N5+N6、289+N+Nb+Nb+N+N5+N6+N7。Z141:固定变量，为各匝道的竖曲线数据库起始位置序号，运行前必须分别设置为289+2a1、289+N+2a2、289+N+Nz+2a3、289+N+N2+N3+2a4、289+N+N2+N3+N4+2a5、 289+N+N2+NB+N4+N5+2a6&

5、gt; 289+IN+Nb+N+N+N5+N6+2a7、289+NI+Nb+N3+N+N5+N6+N7+2a7oZ149:固定变量，为各匝道的超高数据库起始位置序号，运行前必须分别设置为294+2a1+3b、294+N+2az+3b2、 294+N+Nz+2a3+3b3、294+N+Nz+N3+2a4+3b4、 294+N+N2+NB+N4+2a5+3b5、294+N+N+N+N+N5+2a6+3b6、294+N+Nb+N3+N+N5+N6+2a7+3b7、 294+N+N2+N3+N4+N5+N6+N7+2a8+3b8oZ 1 57:固定变量，为各匝道的路面设计数据库起始位置序号，运行前必须

6、分别设置为295+2ai+3bi+2c1> 295+N+2a2+3b2+2c2、295+N+N+2a3+3b3+2c3、 295+N+N2+N+2a4+3b4+2c4、295+N+N+N+N+2a5+3bs+2c5、 295+N+N2+N3+N4+Nt+2a6+3b6+2c6、295+N+Nb+N3+N+N5+N6+2a7+3b7+2c7> 295+N+N2+N+N4+N+N6+N+2a8+3b8+2c8。Z165:固定变量，为各匝道的左幅挖边坡数据库起始位置序号，运行前必须分别设置为295+2a1+3b+2c1+6d1、295+N+2a2+3b2+2c2+6cb、295+IN+N

7、z+2a3+3b3+2c3+6d3、 295+N+N2+Nb+2a4+3b4+2c4+6d4、295+N+N2+N3+M+2a5+3b5+2c5+6d5、295+N+N2+N3+N4+Nt+2a6+3b6+2c6+6d6、295+N+Nb+N3+N+N+N5+2a7+3b7+2c7+6d7、 295+N+N2+NB+N4+N5+N3+N+2a8+3b8+2c8+6d8。Z173:固定变量，为各匝道的右幅挖边坡数据库起始位置序号，运行前必须分别设置为295+2a1+3bi+2ci+6d1+16e1、295+N+2a2+3b2+2c2+6d2+16e2、295+N+Nb+2a3+3b3+2c3+6

8、d3+16e3、295+Ni+Nz+N3+2a4+3b4+2c4+6d4+16a、295+N+N2+N+N4+2a5+3b5+2c5+6d5+16e5、295+N+N+N+N+N+2a6+3b6+2c6+6d6+16e6、Z174Z182Z190Z198Z181:固定变量，为第1条匝道的填边坡数据，运行前必须分别设置为平台宽、平台坡、第1阶坡高、第1阶坡度、第2阶坡高、第2阶坡度、第3阶坡高、第3阶坡度Z189:固定变量，为第2条匝道的填边坡数据，运行前必须分别设置（设置内容同上）Z197:固定变量，为第3条匝道的填边坡数据，运行前必须分别设置（设置内容同上）Z205:固定变量，为第4条匝道的

9、填边坡数据，运行前必须分别设置（设置内容同上）295+N1+N2+N3+N4+N5+Nb+2a7+3b7+2c7+6d7+16e7> 295+N+N2+NB+N4+N5+N3+N+2a8+3b8+2c8+6d8+16e8。6Z206Z213:固定变量，为第5条匝道的填边坡数据,运行前必须分别设置（设置内容同上Z214Z221:固定变量，为第6条匝道的填边坡数据,运行前必须分别设置（设置内容同上Z222Z229:固定变量，为第7条匝道的填边坡数据,运行前必须分别设置（设置内容同上Z230Z237:固定变量，为第8条匝道的填边坡数据,运行前必须分别设置（设置内容同上Z238Z243:固定变量

10、，为第1条匝道的路堑设计数据,运行前必须分别设置为护坡道相对于边沟顶的高差、沟内侧离土路肩边的平距、边沟开口宽、护坡道坡度、平台宽、平台坡Z244Z249:固定变量，为第2条匝道的路堑设计数据,运行前必须分别设置（设置内容同上Z250Z255:固定变量，为第3条匝道的路堑设计数据,运行前必须分别设置（设置内容同上Z256Z261:固定变量，为第4条匝道的路堑设计数据,运行前必须分别设置（设置内容同上Z262Z267:固定变量，为第5条匝道的路堑设计数据,运行前必须分别设置（设置内容同上Z268Z273:固定变量，为第6条匝道的路堑设计数据,运行前必须分别设置（设置内容同上Z274Z279:固定

11、变量，为第7条匝道的路堑设计数据,运行前必须分别设置（设置内容同上Z280Z285:固定变量，为第8条匝道的路堑设计数据,运行前必须分别设置（设置内容同上(2)(4)第i条匝道平曲线要素Z286+N0+N-1Z288+N0+N1 +2aZ286+N。+N-1 Z288+N。+N-1 :起点的X坐标、起点的 Y坐标、起点的切线方位角（弧度）。Z289+N。+N-1 Z288+N。+N-1 +a:各切点的桩号。Z289+N。+N-1+aiZ288+N。+N-1+2a:各切点处的曲率（线路左车专为“-”，右转为“ +”）。第 i 条匝道竖曲线要素 Z289+N。+N-1+2aiZ293+N。+N-1

12、 +2a+3biZ289+N。+N-1+2aZ290+N。+N1 +2a+bi:起点、各变坡点、终点的桩号。Z291+N。+N-1+2a+biZ292+N。+N-1 +2a+2bi:起点、各变坡点、终点的高程。Z293+N0 - +N-1 +2a+2biZ292+N0 - +N-1 +2ai+3bi:各竖曲线切线长。Z293+N。+N-1+2a+3bi:设置为空值（即为 0）,以便其在程序中使用。说明：起终点一定要位于直线段上，若不是则要延长切线，使其位于直线段。第 i 条匝道超高设计 Z294+N0 - +N-1 +2ai+3biZ293+N0 - +N-1 +2a+3bi+2ciZ294+

13、N 0 - +N-1 +2a+3biZ293+N0 - +N-1 +2ai+3bi+Ci:各起超点桩号。Z294+N 0 - +N-1 +2a+3bi+oZ293+N0+N-1 +2ai+3bi+2ci:各起超点处的左幅设计横坡 （）。说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡（从中间向两侧上坡为“-”，下坡为“ +”）存入扩展变量即可，当左右幅的设计横坡为相同且不为0时，则在对应扩展变量中存入横坡为该横坡值乘以100的数（例如左右幅均为2%W存为200）。第 i 条匝道路面设计 Z294+N。+N-1 +2ai+3bi+2cZ294+N0 -+N-1 +2a+

14、3bi +2c+6di « CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日Z294+N 0 - +N-1 +2a+3bi+2c: 土路肩最小横坡(为 “ +”)。Z295+N 0 - +N-1 +2a +3b +2cZ294+No+N-1 +2ai+3bi+2ci+d:各路面变化处桩号。Z295+No+N-1 +2a+3bi+2c+diZ294+N。+N-1 +2ai+3bi+2c+2di:左幅土路肩宽。Z295+No - +N-i +2a+3bi +2c+2diZ294+No -+N-1 +2ai+3bi+2c+3di:左幅硬路面宽。Z

15、295+No+N-1 +2a+3bi +2G+3diZ294+No+N-1 +2ai+3bi+2c+4di:中央分隔带宽。Z295+No - +N-i +2a+3bi+2o+4di Z294+N0 +N-1 +2ai+3bi+2c+5di: 右幅硬路面宽。Z295+N0 - +N-1 +2a+3bi +2G+5di Z294+N0 +N-1 +2ai+3bi+2c+6di: 右幅土路肩宽。(6) 第 i 条匝道左幅挖边坡 Z295+N0 - +N-1+2ai+3bi+2ci+6diZ294+N。-+N1 +2a +3b+2。+6di+16eZ295+N0 - +N-1 +2a+3bi+2ci+

16、6diZ294+N0 -+N1 +2a+3bi+2c+6di+ei:左幅挖边坡变化桩号。Z295+N。+N +2a+3bi+2c+6di+eiZ294+N。+N-1+2ai+3bi+2c+6di+2ei:左幅挖边坡护坡道宽度。Z295+N0 - +N-1 +2a+3bi+2ci+6di+2eZ294+N。-+N-1 +2a+3bi+2c+6di+3ei:左幅挖边坡第 1 阶坡高。Z295+N0+N +2a+3bi+2ci+6di+3eZ294+N。+N-1 +2a+3bi+2ci+6di+4ei:左幅挖边坡第 1 阶坡度。Z295+N0 - +N-1 +2a+3bi+2c+6di+4eZ294

17、+N0 +N-1 +2a+3bi+2c+6di+5ei:左幅挖边坡第 2 阶坡高。Z295+N0+N +2a+3bi+2ci+6di+5eZ294+N。+N-1 +2a+3bi+2ci+6di+6ei:左幅挖边坡第 2 阶坡度。Z295+N0 - +N-1 +2a+3bi+2ci+6di+6eZ294+N。-+N-1 +2a+3bi+2c+6di+7ei:左幅挖边坡第 3 阶坡高。Z295+N0 - +N-1 +2a+3bi+2c+6di+7eZ294+N0 +N-1 +2a+3bi+2c+6di+8ei:左幅挖边坡第 3 阶坡度。Z295+N0 - +N-1 +2a+3bi+2ci+6di+

18、8eZ294+N。-+N-1 +2a+3bi+2c+6di+9ei:左幅挖边坡第 4 阶坡高。Z295+N0 - +N-1 +2a+3bi+2c+6di+9eZ294+N0 +N-1 +2a+3bi+2c+6di+10ei:左幅挖边坡第 4 阶坡度。Z295+N0 -+N-1+2a+3bi+2c+6di+10eiZ294+N0+N-1+2ai+3bi+2c+6di+11ei:左幅挖边坡第5阶坡高。Z295+N0 -+N-1+2a+3bi+2ci+6di+11eiZ294+N0+N-1+2ai+3bi+2c+6di+12ei:左幅挖边坡第5阶坡度。Z295+N0 - +N-1 +2a+3bi+2

19、c+6di+12eiZ294+N0 +N-1 +2ai+3bi+2c+6di+13ei:左幅挖边坡第 6 阶坡高。Z295+N0 - +N-1 +2a+3bi+2c+6di+13eiZ294+N0 +N-1 +2ai+3bi+2c+6di+14ei:左幅挖边坡第 6 阶坡度。Z295+N0+N +2a+3bi+2ci+6di+14eiZ294+N。+N-1 +2ai+3bi+2c+6di+15ei:左幅挖边坡第 7 阶坡高。Z295+N0 - +N-1 +2a+3bi+2ci+6di+15eiZ294+N0 +N-1 +2ai+3bi+2c+6di+16ei:左幅挖边坡第 7 阶坡度。说明：输

20、入边坡坡度时只要输入数字，例如“ 1:0.75 ”输为“0.75”。(7) 第 i 条匝道右幅挖边坡 Z295+N。+N-1+2ai+3bi+2ci+6di+16eZ294+N0 +N-1 +2ai+3bi+2c+6di+16ei+16fiZ295+N。+N1 +2a+3bi+2ci+6di+16eiZ294+N。+N-1 +2ai+3bi+2c+6di+16ei+f i:Z295+N0 - +N-1 +2a+3bi+2ci+6di+16ei+fiZ294+N。+N-1 +2ai+3bi+2c+6di+16ei+2f i :右幅挖边坡变化桩号。7« CASIO fx-4850P线路计

21、算9.3版匝道版程序设计作者：徐光辉 2007年8月22日右幅挖边坡护坡道宽度。Z295+No+Ni +2a+3bi+2ci+6di+16ei+2fiZ294+N。+N-1 +2ai+3bi+2c+6di+16ei+3f i :右幅挖边坡第1阶坡高。Z295+No+刈 +2a+3bi+2ci+6di+16e+3fiZ294+N。+N-1 +2ai+3bi +2c+6di+16ei+4f i :右幅挖边坡第1阶坡度。Z295+No+N +2a+3bi+2ci+6di+16e+4fiZ294+N。+N-1 +2ai+3bi+2o+6di+16ei+5f i :右幅挖边坡第2阶坡高。Z295+No+

22、N +2a+3bi+2ci+6di+16e+5fiZ294+N。+N-1 +2ai+3bi +2c+6di+16ei+6f i :右幅挖边坡第2阶坡度。Z295+No+N +2a+3bi+2ci+6di+16ei+6fiZ294+N。+N-1 +2ai+3bi+2c+6di+16ei+7f i :右幅挖边坡第3阶坡高。Z295+No+N +2a+3bi+2ci+6di+16e+7fiZ294+N。+N-1 +2ai+3bi +2c+6di+16ei+8f i :右幅挖边坡第3阶坡度。Z295+No+N +2a+3bi+2ci+6di+16e+8fiZ294+N。+N-1 +2ai+3bi +2

23、c+6di+16ei+9f i :右幅挖边坡第4阶坡高。Z295+No+N +2a+3bi+2ci+6di+16ei+9fiZ294+N。+N-1 +2ai+3bi+2c+6di+16ei+10fi:右幅挖边坡第4阶坡度。Z295+No+N +2a+3bi+2ci+6di+16ei+10fiZ294+N。+N1 +2a+3bi+2c+6di+16e+11f i:右幅挖边坡第5阶坡高。Z295+No+N +2a+3bi+2ci+6di+16e+11fiZ294+N。+N1 +2a+3bi+2c+6di+16e+12f i:右幅挖边坡第5阶坡度。Z295+No+N +2a+3bi+2ci+6di+

24、16e+12fiZ294+N。+N1 +2a+3bi+2c+6di+16e+13f i:右幅挖边坡第6阶坡高。Z295+No+N +2a+3bi+2ci+6di+16e+13fiZ294+N。+N1 +2a +3bi +2ci +6di+16e +14f i:右幅挖边坡第6阶坡度。Z295+No+N +2a+3bi+2ci+6di+16e+14fiZ294+N。+N1 +2a+3bi+2c+6di+16e+15f i:右幅挖边坡第7阶坡高。Z295+No+N +2a+3bi+2ci+6di+16e+15fiZ294+N。+N1 +2a +3bi +2ci +6di+16e +16f i:说明：

25、输入边坡坡度时只要输入数字，例如“ 1:0.75 ”输为“0.75”。3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生 变化），再按上述各扩展变量位置表中的约定存入对应变量中的数据。存入平曲线的曲率时，左转为“一”，右转为“ + ” ，曲率为半径的倒数，即 1/R;当两种曲率不同的曲线段直接相切（相接）而中间无缓曲时，则在输入数据时应假象成中间存在有 一条长度为零的缓曲，即此切点数据要输入两次，两次桩号相同，曲率分别输为这两种不同的曲率。存 入首点的切线方位角时角度为弧度。特别提示：可以利用断面绘制软件（3.8版）把输好的数据自动转化为

26、本程序需要的扩展变量9« CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日、程序操作说明特别说明：各程序均要求在RAD莫式下运行(程序运行时会自动设置)1.匝道放样计算程序 ZDFYJS: 1.L 2.X 3.D?(1)计算选择：1.线路上计算2.弦线上计算3.已知坐标的单点？FY: 1.ZX 2.BX?(2)放样选择：1.中线放样2.边线放样？WZ :1.XD 2.JD?(3)结构物放样点位置：1.结构物控制线线端 当第(2)步选择2时才会出现此步2.结构物的角点XZ?(4)输入置镜点的X坐标XZ?YZ?(5)输入置镜点的 Y坐标YZ?K

27、Q?(9)输入弦线起点桩号 KQ?只有当第(1)步选择2时，才会出现此步KZ?(10)输入弦线起点桩号 KZ?只有当第(1)步选择2时，才会出现此步KF?(11)输入放样点的桩号 KF?只有当第(1)步选择1时，才会出现此步L(D-Q)?(12)输入放样点相对于弦线处离弦线起点的距离L(D-Q)?起点向前为“ + ” ，起点向后为“”只有当第(1)步选择2时，才会出现此步L?(13)输入放样点偏离中线(或弦线)的平距(左为“-"，右为“ +”)L? 当第(2)步选择1或2时才会出现此步AJ?(14)输入放样点跟线路中桩(或相对弦线处)连线与线路方向(或弦线) 的夹角(前右角)AJ?当

28、第(2)步选择2时才会出现此步XD?(15)单点放样时输入已知 X坐标XD?当第(1)步选择3时才会出现此步YD?(16)单点放样时输入已知Y坐标YD?当第(1)步选择3时才会出现此步WL?(17)输入角点离结构物控制线的平距? 前进方向为“ +”，后退方向为“-”当第(3)步选择2时才会出现此步S=(22)输出放样距离S(刖右角)？Sc?(23)输入实测距离Sc?当Sc的值不大于0时，此行操作完成后返回第(11)步(当(1)选才i 2时返回第(12)步)，要求重新输入计算DS=(24)输出测量差距 DS“+”为需延长，“-”为需缩短此步完成后返回第(23)步要求重新输入实测距离12«

29、; CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日测量放样计算输入注意具体如左图：1）当对A点进行计算时，第（2）步"FY: 1.ZX2.BX"选择"1.ZX"2）当对R C、D、E、F、G点进行计算时，第（2） 步"FY: 1.ZX 2.BX" 选择"2.BX"3）当对 C F点进行计算时，第（3）步"WZ 1.XD2.JD"选择"1.XD"4）当对 R D> E、G点进行计算时，第（3）步"WZ:1.XD 2.

30、JD" 选择"2.JD"5）当对R C、D点进行计算时，输入 L为"-"值6）当对E、F、G点进行计算时，输入 L为"+"值7）当对口 G点进行计算时，输入 WL为"-"值8）当对R E点进行计算时，输入 WL为"+"值9） AP和AJ均为相对于线路前进方向的右上角那 个夹角2.匝道坐标计算程序 ZDZB1.ZX2.BX?（1）选择:1.中线坐标计算（2）输入待求点的桩号 DK?DK?2.边线坐标计算?L?（3）输入待求点的偏离线的平距L（左为“-"，右为“ +”）L?只有当

31、第（1）步选择2时，才会出现此步AJ?（4）输入待求点跟线路中桩边线与线路方向夹角（顺时针）AJ?只有当第（1）步选择2时，才会出现此步X坐标丫坐标此行操作完成后返回第(2)步，要求重新输入计算QS(mm)?(4)输入前视读数QS?输入的读数以毫米为单位DH(cm)=(5)输出设计高程与实测高程的较差 输出的高差以厘米为单位DH胸于设计为“-"，反之为“ +”)此行操作完成后返回第(2)步，要求重新输入计算”）？5.边线放样计算程序 ZDBXJCJS : 1.BP 2.GC?（1）检查计算选择：1.边坡检查（边坡放样）2.高程检查?YQ: 1.CJY 2.QZY?（2）仪器选择：1.

32、测距仪2.全站仪？当此步选择2时，下一步从第（12）步开始运行XZ?（3）输入置镜点的X坐标XZ?只有当第（2）步选择1时才出现此步YZ?（4）输入置镜点的 Y坐标YZ?只有当第（2）步选择1时才出现此步15« CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日XH?（5）输入后视点的X坐标XH?只有当第（2）步选择1时才出现此步（6）输入后视点的 Y坐标YH?只有当第（2）步选择1时才出现此步YH?（7）输入置镜点的高程（包括仪器高）HZ?只有当第（2）步选择1时，才会出现此步HZ?（8）输入后视角度AH?只有当第（2）步选择1时，才会出现

33、此步AH?（9）输入前视角度AQ只有当第（2）步选择1时，才会出现此步AQ?（10）输入前视平距S?只有当第（2）步选择1时，才会出现此步S?HD?（11）输入前视高差HD （高于测站为“ +”，低于测站为“-"） 只有当第（2）步选择1时，才会出现此步X?（12）输入测点的X坐标？只有当第（2）步选择2时，才会出现此步Y?（13）输入测点的Y坐标？只有当第（2）步选择2时，才会出现此步17Z?(14)输入测点的高程 Z?只有当第(2)步选择2时，才会出现此步HY?(15)输入前视仪高HY?只有当第(2)步选择1时，才会出现此步BP: 1.W 2.T?(16)边坡填挖情况选择：1.边

34、坡挖2.边坡填? 只有当第(1)步选择1时，才会出现此步X=(17)输出测点的X坐标只有当第(2)步选择1时，才会出现此步Y=(18)输出测点的丫坐标只有当第(2)步选择1时，才会出现此步KD=(19)输出测点的桩号 KDWB=(20)输出测点离线路中线平距WBH=(21)输出测点的高程HTP=(22)输出测点距坡脚(填方为坡顶)的平距TP 只有当第(1)步选择1时，才会出现此步“-”为还需左移到坡脚，“+”为还需右移到坡脚« CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日23TC=DB=（23）输出测点距坡脚（填方为坡顶）的高差TC 只

35、有当第（1）步选择1时，才会出现此步 对于边坡填，“-"为低于坡顶，“+”为高于坡顶 对于边坡挖，“+”为低于坡脚，“-”为高于坡脚（24）输出测点距边坡的平距 DB只有当第（1）步选择1时，才会出现此步“-”为还需左移到边线，“+”为还需右移到边线DH=（25）输出测点距路面的高差 DH（已扣除Z构层）“+”为低于设计，“-”为高于设计只有当第（1）步选择2时，才会出现此步当此（24）步（或（25）步）操作完成后，返回第（9）步（当第（2）步选择1时）或第（12）步（当第（2）步选 择2时），要求重新输入计算。（左偏为“-”，右偏为“ +”）7.综合三维坐标计算DK?(1)输入待求

36、点的桩号DK?WL?(2)输入待求点偏离中线的平距WL(左为“-”,右为“ +”)?AJ?(3)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ?KD=(4)输出计算点垂直于线路的桩号KD当第(3)输入的数据不等于90时才会出现此步WB=(5)输出计算点垂直于线路的平距WB在，右" + ” )当第 输入的数据不等于 90时才会出现此步(6)输出计算点的X坐标X=Y=(7)输出计算点的 丫坐标H=(8)输出计算点的路面设计高程(已扣除结构层厚度)H此行操作完成后返回第(1)步，要求重新输入计算8 .单个坡线路高程计算程序 ZDJC2操作同3.，但本程序计算时不论测点位于何处，均以行

37、车道的横坡来推算9 .单个坡高程检查计算程序 ZDGC2操作同4.，但本程序计算时不论测点位于何处，均以行车道的横坡来推算« CASIO fx-4850P线路计算9.3版匝道版程序设计作者：徐光辉 2007年8月22日WLMY=(8)输出右幅路面设计总宽度 WLMY含土路肩、硬路面和半个中央分隔带的宽度此步操作完成返回第(1)步要求重新输入计算特别说明:当进行匝道桩号反求或边线放样计算时，有可能计算点相对于线路有多个桩号，此时会出现如下屏会话:SEL QXD ?20411段的序号出现的多个曲线段的序号以数字出现，从个位数开始每两位为一个曲线412、第4此时应进行曲线段选择，输入该点位

38、于第几曲线段，象上述的对话框中就表明计算点相对于第和第11段曲线均有桩号，此时应输入数字为2、4、11中的一个。当计算点相对于线路无桩号时则显示如下屏:NO三、程序设计特别说明：各程序中为英文大写字母 O (使用代替O以区分阿拉伯数字0)1 .匝道放样计算主程序ZDFY (1085步)Z1>8Z1=8Z1<1Z1=1N=Z77+Z1:H=Z125+Z1:V=HFixm:Rad=Z14:" JS:1.L 2.X 3.D” :Z14=3 =Z15:" FY:1.ZX 2.BX" ：Z15= Z14 3 1 =Z16:” WZ:1.XD 2.JD "

39、; ：Z16=E=Z10:D=Z11:ED:E"XZ':D"YZ':Z10=E:Z11=DF=Z12:B=Z13:FB:F"XK:B"YK:Z12=F:Z13=BS=Z17:S:S " A月:Z 17=S:Q=0Z14=2K=Z18:=Z19:K:K " XQ' :' XZ' :Z18=K:Z19= Z14=2 Prog” BZ” ：Z20=X:Z21=Y:K=Z19:Prog" BZ” ：Z22=X:Z23=Y'Z14=2Z18 Z19Pol(Z20-Z22,Z21-Z23)

40、:U=J+ 兀Pol(Z12-Z10,Z13-Z11):Z32=JLbl 1Z14=3X=Z25:Y=Z26:XY:X" XD' :Y" YD' :Z25=X:Z26=Y:Goto 2 工Z14=1K=Z27:K:K " KF':Z27=K:Z=Z28:Z:Z”L(D-Q) ” ：Z28=Z &Z15 1Q=Z29: QG:Q"L“：G"AJ” :Z29=Q匕Z15 1 Z16 1 Z=Z30:=Z31:Z:Z" VL" ： AP' :Z30=Z:Z31= AhZ15=1Z30=0:Z

41、31=90IZ16=1Z30=0:Z31=90LZ14=1 Prog” BZ" ：X=Z20+Rec(Z28,U):Y=Z21+J 工X=X+Rec(Q,U+Tt 8 180):Y=Y+JX=X+Rec(Z30,U+ 兀(G-Z31) +180): “ X="：X/“Y="：丫=Y+J/Lbl 2Pol(X-Z10,Y-Z11)J=J-Z32+Z17 兀 + 180J>2tt J=J-2 tt J<0 J=J+2tt" A= :J=180J +兀一 DM9" S= :I=Intg (1000I+.5)+ 1000/Lbl 3J:J

42、” Sc”J< 0 Goto 1 匕"DS= :I-J /Goto 32 .匝道坐标计算主程序 ZDZB (209步)Z1>8Z1=8Z1<1Z1=1N=Z77+Z1:H=Z125+Z1:V=HFixm:Rad:” 1.ZX 2.BX”=1 Q=0Lbl 1K:K " DK”1 QG:Q" L“ ：G“ AJ” 工Prog " BZ' :X=X+Rec(Q,U+jt 8 180):Y=Y+J" X= :X /" Y= :Y /=1 U=180l> ti："AT=' :U f DMSi:

43、.Goto 13 .高程较差计算主程序 ZDJC (157或151步)Fixm:Z45=Z133+Z1-1:Z30=0E:E ” YGLbl 0KDU:K" K“ ：D" DW :U” QS(mm)”Q=ZD+62 (或改为 Q=D )0 Prog” ZL” 工Prog” CGC=100(C-E)+U + 10" DH(cm)= "：C=Intg (10C+.5)+10，Goto 04,匝道高程计算主程序 ZDGC (93步)Fixm:Z45=Z133+Z1-1Z30=0Lbl 0KQ:K" DK“ ：Q" VL”Q 0 Prog ”

44、 ZL" ：.Prog ” CG " H= :CjGoto 05.边线放样计算主程序 ZDBX (756步)Fixm:RadZ30=0=Z14:” JCJS:1.BP 2.GC " ：Z14=Z15:" YQ:1.CJY 2.QZY" ：Z15=2 Z18=0:Goto 1 l_E=Z10:D=Z11:ED:E"XZ':D"YZ':Z10=E:Z11=DF=Z12:B=Z13:FB:F"XK:B"YK:Z12=F:Z13=B兀 Z17 + 180G=Z19:S=Z17:GS:G"

45、HZ': S"AK:Z 17=S:Z19=G:Q=0Pol(Z12-Z10,Z13-Z11):Z32=J-Z18=Z19Lbl 1Z15=2 Goto 2E=Z20:B=Z21:F=Z22:D=Z23EBFD:B" AQ :E“ S“ ：D" HD :F” HYZ20=E:Z21=B:Z22=F:Z23=D:Z26=F:Z25=DRec(E,Z32 + 兀 B+ 180): “ X=" ：X=Z10+I /“Y="：丫=Z11+J /Goto 3Lbl 2E=Z43:B=Z44:D=Z24EBD:E" N' :B&qu

46、ot; E“ ：D" Z" ：X=E :Y=BZ43=E:Z44=B:Z24=D:Z25=D:Z26=0Lbl 3Z14=1=Z16:" BP:1.W 2.T " ：Z16= %Prog “F Z”" H="：G=Z25+Z18-Z26/Z45=Z133+Z1-1+ 1000/Z14=1 Prog “ZF" ： Prog” ZL" ：Prog ” CG :X=C-G: " DH= :Intg (1000X+.5)XGoto 16 .匝道桩号反求主程序ZDFQ (49步)Fixm:RadLbl 0XY:X

47、" DX' :Y" DYProg” FZ”Goto 07 .综合三维计算主程序 ZHJS （313步）Z1=Int Z1Z1>8Z1=8Z1<1Z1=1Fixm:RadZ30=0Lbl 0N=Z77+Z1:H=Z125+Z1:V=HE=Z10:D=Z11:F=Z12EDF:E " DK' :D" WL :F" AJ”Z10=E:Z11=D:Z12=F:K=E:Q=DProg "BZ' ：X=X+Rec(Q,U+ 兀 F+ 180):Y=Y+JZ20=X:Z21=YZ12 90 Prog ” FZ&q

48、uot; ：.Z45=Z133+Z1-1Q 0 Prog ” ZL” 工Prog “ CG“X=" ：Z20 /“Y=" ：Z21 /“H=" ：C/Goto 08 .高程较差计算主程序 ZDJC2 (151或145步)Fixm:Z45=Z133+Z1-1:Z30=1E:E ” YGLbl 0KDU:K" K“ ：D" DW :U” QS(mm)”Q=ZD+62(或改为 Q=D )Prog” ZL”Prog” C GC=100(C-E)+U + 10" DH（cm）= "：C=Intg （10C+.5）+10，Goto 09

49、 .匝道高程计算主程序ZDGC2 （88步）Fixm:Z45=Z133+Z1-1Z30=1Lbl 0KQ:K" DK“ ：Q" VL”Prog " ZL"Prog " C G'” H=' :C/Goto 010 .路面宽度计算主程序 LMKD （169步）Fixm:Z30=0Lbl 0K:K ” K"Prog " ZL""LJZ=" ：Z46 /"LMZ=' :Z47 /"ZYD=' ：2Z48 /“LMY± :Z49 /“LJY=&

50、quot; ：Z50 /"WLMZ = :A=Z46+Z47+Z48/“WLMY= :B=Z50+Z49+Z48/Goto 011 .匝道坐标计算子程序 BZ （169步）W=Z72W<H+1 W=H+1W>H+N-1 W=H+1Lbl 0W>H+N-1 W=H+N-1:Goto 1 .W<H+1 W=H+1:Goto 1K>ZW W=W+1:Goto 0K< ZW-1 W=W-1:Goto 0Lbl 1V=W Goto 2V=WProg " C三Lbl 2Z72=VZ=KProg "ZD'12 .匝道参数计算子程序 C

51、S （167步）U=ZH-1:X=ZH-3:Y=ZH-2W=V-HLbl 0Z33=XZ34=YZ35=UZ38=ZV-W+N+1Z39=ZV-WZ36=ZV-W+1Z37=ZV-W+NDsz WGoto 1Goto 2Lbl 1Z=Z36Prog "ZD'Goto 0Lbl 213 .匝道分段计算子程序ZD (467步)A=Z35:M=Z36:R=Z37P=Z38:L=Z39S=Z-LR=P R=0 Goto 1 gR=P Rw 0 Goto 2 15Z=1P<R Z=-1J=M-LC=Abs(J + (P-R)J=0 C=1J=ZJR+ (P-R)I=J+SZU=A

52、+S(J+I) +2+CS=A-ZJJ +2 + CY=I-J-(IA5-JA5)-40-C- C+(IA9-JA9) + 3456 + CA4-(IA13-JA13)+ 599040 + CA6I=(III-JJJ) + 6 + C-(IA7-JA7)+ 336 + CA3+(IA11-JA11) + 42240 + CA5-(IA15-JA15)+ 9676800+ CA7X=Z33+ZYCos S-Isin SY=Z34+ZYSin S+Icos SGoto 3Lbl 1X=Z33+Scos AY=Z34+Ssin AU=AGoto 3Lbl 2U=SP+AX=Z33+(Sin U-Sin A)+ PY=Z34-(Cos U-Cos A)+ PLbl 3U<0 U=U+2ttU>