*SQX
LBO 0:{S}:S:proe“DATA”:GOTO 1:LBI 1:I=E-T:K=E+T:H-G>0=〉J=1△H-G<0=〉J=2ΔS≤I=〉Q=F+H(S-E):≠>S≤E=〉Q=F+H(S-E)+((-1)ΛJ(S-I) Λ2/(2R)):≠>S≤K=〉Q=F+G(S-E)+((-1) ΛJ(S-K) Λ2/(2R))ΔΔΔ
Q=Q◢
GOTO 0
*DATA
LBI1:S≤?=〉F=?:E=?:T=?:R=?:H=?:G=?⊿
S——所求点桩号
F——交点高程
E——交点桩号
R——竖曲线半径
H——前段坡度
G——后段坡度
T——切线长
- 本文固定链接: https://www.chtfs.com/1714/
- 转载请注明: dawang 于 测绘途夫 发表