C A S I O程序线路计算70版匝道版一、扩展变量设置说明1．统计各种要素点的数目各要素点数目表设置扩展变量总数目为：2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74个2．设置各扩展变量数据①固定变量及自由变量Z[1]～Z[39]固定变量及自由变量设置表②导线点扩展变量Z[40]～Z[69]各导线点坐标值于扩展变量中的位置表③平曲线要素扩展变量Z[70]～Z[84+2a1+2a2+2a3+2a4+2a5]各匝道平曲线要素于扩展变量中的位置表④竖曲线要素扩展变量Z[85+2(a1+a2+a3+a4+a5)]～Z[74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)]各匝道竖曲线要素于扩展变量中的位置表⑤超高设计扩展变量Z[75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)]～Z[2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74]各段超高设计数值于扩展变量中的位置表说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可（从路中间向两侧，上坡为“＋”，下坡为“－”），当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。
3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定重新设置扩展变量中的数据。
存入平曲线的曲率时，左转为“－”，右转为“＋”，曲率为半径的倒数，即1/R；当圆曲线和直线之间无缓和曲线时，则ZY点（或YZ点）要看作为桩号相同的两个切点，即假想在圆曲线和直线之间存在着一条长度为零的缓和曲线，其中一端的曲率为1/R，另一端的曲率为零。
存入首点的切线方位角时角度为弧度。
当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。
二、程序操作说明1．匝道放样计算程序ZDFY(1)放样选择:1.中线放样 2.边线放样?(2) 输入置镜点的导线点点号DZ?(3) 输入后视点的导线点点号DH?(4)输入后视角度AH?(5)输入放样点的桩号KF?(6)输入放样点偏离中线的平距(左为“-”,右为“+”)? 当第(1)步选择1时,无此第(6)步,只有当第(1)选择2时,才会出现此步(7)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?当第(1)步选择1时,无此第(7)步,只有当第(1)选择2时,才会出现此步(8)输出放样距离S(9)输出放样角度A此行操作完成后返回第(5)步,要求重新输入计算 2．匝道坐标计算程序ZDZB(1)选择:1.中线坐标计算 2.边线坐标计算？(2)输入待求点的桩号K?(3)输入待求点的偏离中线的平距L(左为“-”,右为“+”)? 当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才会出现此步 (4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ? 当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才会出现此步 (5)输出待求点的X 坐标(6)输出待求点的Y 坐标(7)输出待求点的切线方位角AT只有当第(1)步选择1时，才会出现此第(7)步此行操作完成后返回第(2)步,要求重新输入计算 3． 匝道高程计算程序ZDGC(1)输入待求点的桩号K?(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?(3)输出待求点的设计高程(已扣除结构层厚度)H此行操作完成后返回第(1)步,要求重新输入计算三、程序设计1．匝道放样计算主程序ZDFY (288步) Fixm:Rad↵H=Z[Z[1]+9]↵N=Z[Z[1]+14]↵V=H↵{O．}:O．”FY:1.ZX 2.BX”↵{EFT}:E”DZ”:F”DH”:T”AH”↵B=Z[E+39]:D=Z[E+54]↵I=Z[F+39]:J=Z[F+54]↵Pol(I-B,J-D):Z[7]=J↵Lbl 1↵{K}:K”KF”↵O．≠1⇒{QG}:Q”L”:G”AJ”↵Prog ”B Z”:X=X+Rec(Q,U+πG÷180):Y=Y+J↵Pol(X-B,Y-D):I”S=”◢I=J-Z[7]+Tπ÷180↵I>2π⇒I=I-2π↵I<0⇒I=I+2π↵I=180I÷π↵I”A=”◢Goto 12．匝道坐标计算主程序ZDZB (169步) Fixm:Rad↵H=Z[Z[1]+9]↵N=Z[Z[1]+14]↵V=H↵{O．}:O．”1.ZX 2.BX”↵Q=0↵Lbl 1↵{K}:K”K”↵O．≠1⇒{QG}:Q”L”:G”AJ”↵Prog ”B Z”:X=X+Rec(Q,U+πG÷180):Y=Y+J ↵X”X=”◢Y”Y=”◢O．=1⇒U=180U÷π:U”AT=”◢↵Goto 13．匝道高程计算主程序ZDGC (109步) Fixm↵G=Z[Z[1]+19]↵U=Z[Z[1]+24]↵E=Z[Z[1]+29]↵F=Z[Z[1]+34]↵V=G-1↵Lbl 0↵{KQ}:K”K”:Q”L”↵Prog ”C G”↵C”H=”◢Goto 04．匝道坐标计算子程序BZ (75步)W=H+1↵Lbl 0↵K>Z[W+N]⇒W=W+1:Goto 0↵V=W⇒Goto 1↵V=W↵Prog “CS”↵Lbl 1↵Z=K↵Prog “ZD”5．匝道参数计算子程序CS (142步) U=Z[H-3]↵X=Z[H-2]↵W=V-H↵Lbl 0↵Z[8]=X↵Z[9]=Y↵A=U↵M=Z[V-W+N+1]↵R=Z[V-W]↵P=Z[V-W+1]↵L=Z[V-W+N]↵Dsz W↵Goto 1↵Goto 2↵Lbl 1↵Z=M↵Prog “ZD”↵Goto 0↵Lbl 26．匝道分段计算子程序ZD (373步) S=Z-L↵R=P⇒R=0⇒Goto 1↵R=P⇒R≠0⇒Goto 2↵Z=1↵P<R⇒Z=-1↵J=M-L↵C=Abs(J÷(P-R))↵J=0⇒C=1↵J=ZJR÷(P-R)↵U=A+S(J+I)÷2÷C↵S=A-ZJJ÷2÷C↵Y=I-J-(I^5-J^5)÷40÷C÷C+(I^9-J^9)÷3456÷C^4↵I=(III-JJJ)÷6÷C-(I^7-J^7)÷336÷C^3+(I^11-J^11)÷42240÷C^5↵X=Z[8]+ZYCos S-Isin S↵Y=Z[9]+ZYSin S+Icos S↵Goto 3↵Lbl 1↵X=Z[8]+Scos A↵Y=Z[9]+Ssin A↵U=A↵Goto 3↵Lbl 2↵U=SP+A↵X=Z[8]+(Sin U-Sin A)÷P↵Y=Z[9]-(Cos U-Cos A)÷P↵Lbl 3↵U<0⇒U=U+2π↵U>2π⇒U=U-2π7．匝道高程计算子程序CG (536步)W=G+1↵Lbl 0↵W>G+U-2⇒Goto 1↵P=Z[W+2U-1]↵K>Z[W]-P⇒W=W+1:Goto 0↵W=G+1⇒W=G+2↵V=W-1⇒Goto 2↵Lbl 1↵V=W-1↵J=Z[V+U]↵R=(J-Z[V+U-1])÷(Z[V]-Z[V-1])↵S=(Z[V+U+1]-J)÷(Z[V+1]-Z[V])↵T=Z[V+2U-1]↵Lbl 2↵L=K-Z[V]↵L≤-T⇒H=J+RL:Goto 3↵L≥T⇒H=J+SL:Goto 3↵A=2T÷(S-R)↵X=L+A(R+S)÷2↵H=J+XX÷2÷A-ARS÷2↵Lbl 3↵H=H-Z[2]↵A=Abs Q↵A≤Z[3]⇒C=0:Goto 6↵I=-1↵Q>0⇒I=1↵Lbl 4↵Y=E↵Lbl 5↵K≥Z[Y]⇒Y=Y+1:Goto 5↵O．=Z[Y+F-1]:X=Z[Y+F]:O．=IO．:X=IX↵Z[Y+F-1]=0⇒O．=2↵Z[Y+F]=0⇒X=2↵N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])↵M=(X-O．)(1-3NN+2NNN)+O．↵（当超高过渡段按直线性计算时，此行换为 M=(O-X)N+X↵）A≤Z[4]⇒C=(Z[3]-A)M÷100:Goto 6↵C=Z[6](Z[4]-A)÷100-M(Z[4]-Z[3])÷100↵M>Z[6]⇒C=(Z[3]-A)M÷100↵Lbl 6↵C=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，则新增地扩展变量为Z[n+1]～Z[n+d]匝道高程较差主程序GCJC (164步)Fixm↵G=Z[Z[1]+19]↵U=Z[Z[1]+24]↵E=Z[Z[1]+29]↵F=Z[Z[1]+34]↵V=G-1↵{Z}:Z”YG”↵Lbl 0↵{KDB}:K”K”:D”DW”:B”QS”↵↵Prog ”C G”↵C=C-Z+B↵C=Intg(1000C+.5)÷1000↵C”D H=”◢Goto 0。