N88-BASICで懸垂線(改訂版)

202 5 / 8 / 25 ( 月 ) N88-BASICで 懸垂線 (改訂版) ( c atenary) 懸垂線 ( カテナリー、紐を垂らしたときの曲線 ) ■ 前提 https://ulprojectmail.blogspot.com/2025/08/catenary-8.html 懸垂線 (改訂版) (8回目) より ▼ 定義 g : 重力加速度 [ m/s 2 ] ρ :紐の線密度 [kg/m] L : 紐の長さ [ m ] (0 < √(x 1 2 + y 1 2 ) < L) x 1 : 紐の両端間の水平距離 [ m ] y 1 : 紐の左端に対する右端の高さ [ m ] が分かっている H :水平張力[N] (紐の頂点での張力) x 0 : 左端から紐の底までの水平距離 [ m ] y : 紐の高さ [m] ( 紐の 左端を原点と する xの関数 ) ▼ H H = ρ g λ ▼ y(x)のグラフ λを ニュートン法 で求める α = log{(1 + y 1 /L) /(1 - y 1 /L) }と置く β = (1 /L)cosh( α / 2 ) と置く f( λ ) = 2 β sin h(x 1 / ( 2 / λ ) ) - 1/ λ = 0 f ' ( λ ) = (1/λ 2 ){1 - β x 1 cos h(x 1 / ( 2 λ ) ) } 初期値 λ 0 = x 1 /[2√{ 6 /( β x 1 ) - 6 }] … 近似式 Δ λ n = f( λ n )/f ' ( λ n ) λ n+1 = λ n - Δ λ n λ = λ n +1 (if |Δ λ n | ...