[原创]回旋曲线任意点切线角计算公式及其在公路测量中的应用--点燃激情 传递梦想-http...

回旋曲线任意点切线角计算公式

R=A²÷L=L÷(2τ)=A÷√(2τ)

L= A²÷R=2τR=A√(2τ)

τ= L÷(2R)= L²÷(2A²)= A²÷(2R²)=90L÷(πR)=90L²÷(πA²)= 90A²÷(πR²)

A²=LR=L²÷(2τ)= 2τR²

公式中：R表示缓和曲线上某点的曲线半径

        A表示回旋曲线参数

        L表示回旋曲线长

        τ表示缓和曲线上某点的切线角

            ----------------------------------

在公路测量中只知道A（回旋曲线参数）或者L（回旋曲线长）计算任意点切线方位角卡西欧4850程序

 

QXFWJ-A（知道回旋曲线设计参数和圆曲线半径的完整缓和曲线切线方位角的连算）

Lbl A:{ABCG}:A=0 => Goto B△B“R1”:C“R2”:G：B+C=0=>D=0:≠>B=0 => D=Abs(90A²÷πC²)：≠>C=0 => D=Abs(90A²÷πB²)：≠>D=Abs(90A²÷πB²-90A²÷πC²)△△△

F=F+GD:F>360 => F=F-360△“FWJ=”:F→DMS▲

Lbl B:{LRG}:L“LY”=0 =>Goto A△R:G:Y=180L÷πR△F=F+GY:F>360 => F=F-360△“FWJ=”:F→DMS▲

Goto A

 

QXFWJ-L（适合知道回旋曲线长和圆曲线半径的完整缓和曲线切线方位角的连算）

Lbl 0:{LBCG}:L“LH”=0 => Goto 1△B“R1”:C“R2”:G：B+C=0=>D=0:≠>B=0 => D=90L÷πC：≠>C=0=>D= D=90L÷πB：≠>D=90L÷πB+90L÷πC：△△△

F=F+GD:F>360 => F=F-360△“FWJ=”:F→DMS▲

Lbl 1: {LRG}:L“LY”=0 =>Goto 0△R:G:Y=180L÷πR△F=F+GY:F>360 => F=F-360△“FWJ=”:F→DMS▲

Goto 0

 

说明：

输入部分：A=缓和曲线设计参数，B或C=缓和曲线两端的圆曲线半径，G=缓和曲线或者圆曲线偏向（左偏=-1，右偏=1，直线=0），LY=圆曲线长，LH=缓和曲线长，R=圆曲线半径。

显示部分：D值或者Y值=正切线方位角增量，程序初（第1次）运行时需输入F值为起点正切线方位角，FWJ=该段曲线终点或者下段曲线起点正切线方位角。