横坡计算模块

横坡计算模块

HP-横坡计算

H“XL0-？”

H=0=>Prog“HPYS0”:Goto A⊿

H=1=>Prog“HPYS1”:Goto A⊿

H=2=>Prog“HPYS2”:Goto A⊿

……

Lbl A

Q=-P:  K≤O=>L=M:R=M:Goto B⊿

K≤O+A=>L=M+(P-M)(K-O)÷A:R=M+( Q-M)(K-O)÷A:Goto B⊿

O=O+A:K≤O+B=>L= P+(U-P)(K-O)÷B:R= -L:Goto B⊿

O=O+B:K≤O+C=>L=U+( X-U)(K-O)÷C:R= -L:Goto B⊿

O=O+C:K≤O+D=>L=X:R= -X:Goto B⊿

O=O+D:K≤O+E=>L=X+(U-X)(K-O)÷E:R= -L:Goto B⊿

O=O+E:K≤O+F=>L=U+(P-U)(K-O)÷F:R= -L:Goto B⊿

O=O+F:K≤O+G=>L=P+(M- P)(K-O)÷G:R=Q+( M-Q)(K-O)÷G:Goto B⊿

L=M:R=M:LbI B:“L”L:Pause 0:“R”:R▲

J<0=>Z=Z-LJ/0.01⊿

J≥0=>Z=Z+RJ/0.01⊿

HPYS0-线路0横坡要素

K≤56018=>O=55113:A=78.75:B=63.166:C=126.332:D=368.87:E=126.088:F=63.044:G=78.75:

M=-2:P=2:U=3:X=5:Goto E⊿

K≤56793=>O=56210:A=78.75:B=71.368:C=0:D=282.885:E=0:F=71.247:G=78.75:

M=-2:P=-2:U=-3:X=-3:Goto E⊿

Lbl E

数据库程序中A、B、C、D、E、F、G为一个曲线各超高段长度，各段长度均可为0

M、P、U、X是各超高临界里程左幅的横坡值，横坡规定向路肩为下坡方向为负。

O为超高起点里程

K≤56793中后面的数字为本条曲线超高终点后下一曲线超高起点前任一点里程。

请对照下图及上程序样例。

本程序可单独使用,XL0-？输入线路号K？输入里程。显示L为左横坡，R为右横坡。

另只要在4850通用线路测量程序的C-测量主程序的"Z":Z▲△△Goto 1前面加上Prog “HP”:就可以在反算时高程显示为路面设计高如不想显示横坡值可将绿色代码去掉。