对于计算超高来说,矩阵式数据库对其有绝对的优势,对于传统的数据库模式只能分开左右一段一段的数据库编辑,对于矩阵来说可以直接把较为繁琐的传统程序语言化为数字,而且不分左右,数据库一次就可搞定,使用相当方便和简捷。
下面介绍矩阵式超高计算程序
I主程序
Lbl 1:Fix 3:“KM”?Z: 1→W: -1→D:Prog“I-SUB”: Prog“I-JS”: Fix 4: “IL=”: I◢: 1→D: Prog“I-SUB”:Prog“I-JS”:“IR=”: I◢Goto 1
I-JS(计算程序)
If W=1:Then (N-M) ×(Z-C) ÷S+M→I:
Return:Else (3((Z-C) ÷S)2-2((Z-C) ÷S)3)×(N-M) +M→I: Return :IfEnd
I-SUB(数据库程序)
If Z≤2658.308:Then[[0,2658.308,.02,.02,-.02,-.02]]→MatD:Prog“M1”:Return:IfEnd: IfZ≤2711.642:
Then[[2658.308,2711.642,.02,.02,-.02,.02,]]→MatD:
Prog“M1”:Return:IfEnd: IfZ≤2738.308: Then [[2711.642,2738.308,.02,.04,.02,.04]]→MatD:Prog“M1”:Return:IfEnd: IfZ≤2884.645:Then[[0,0,.04,
.04,.04,.04]]→MatD:Prog“M1”:Return:IfEnd: IfZ≤2911.31:Then[[2884.645,2911.31,.04,.02,.04,.02,]]
→MatD:Prog“M1”:Return:IfEnd: IfZ≤2964.645:Then[[
2911.31,2964.645,.02,.02,.02,-.02,]]→MatD:Prog“M1”:Return:IfEnd
M1
MatD[1,1]→C:MatD[1,2]-C→S:If D→M: MatD[1,4]→N:Else MatD[1,5]→M:MatD[1,6]→N:IfEnd
数据库说明:
1.If Z≤计算终点桩号:Then[[横坡变化起点桩号,横坡变化终点桩号,左边起点横坡,左边终点横坡,右边起点横坡,右边终点横坡,]]→MatD:Prog“M1”:Return:IfEnd,
2.横坡定义:在正常直线段,规定线路左边2%,右边-2%,对左边来说,如果左边比中间低,横坡为+,否则为-,对右边来说,右边比中间高横坡为+,否则为-。
3.相关示意图请见程序相册超高示意图
4.计算实例如下:
KM? 2951
EXE IL=0.0200
IR=-0.0098
KM? 2755
EXE IL=0.0400
IR=0.0400
KM? 2715
EXE IL=0.0225
IR=0.0225