道路の設計・施工では機械を原点に据えてクロソイド上の点を測るような使い方をするので接線角τをパラメータとします。しかし、滑り台の設計には向きません。
道路では曲線長Lは後から決まりますが、滑り台の場合はスパン数の整数倍に決めたいのです。LとAが決まればRもτも決まります。これから使う式をもう一度掲載します。
(18)において（）を多用して見難いと思われるかも知れません。しかし、こうしたのはDOSの時代にTurboPascalでプログラムを作っていたからです。
以下が、曲線長ｌ、パラメータa、クロソイドの方向dを与えてｘｙ座標を返す手続き(procedure)です。またべき乗を使わない工夫もしてあります。
昔はCPUも遅くメモリも限られていました。このプログラムはNECのPC9801VX21(i286)で最初に動きました。
procedure clxy(l,a:extended;d:integer;var x,y:extended);
var la2,la4:extended;
begin
la2 := sqr(l/a);la4 := sqr(la2);
x := l*(1-la4*(1/40-la4*(1/3456-la4/599040)));
y := l*la2/6*(1-la4*(1/56-la4*(1/7040-la4/1612800)))*d;
end;
余談ですが、(l/a)^4を変数la4に割り当てました。ソースを書いている時、1974年に結成されたバンドを連想させたからです。LA.4（ロサンジェルス・フォア）です。メンバーはローリンド・アルメイダ（1917年ブラジル、サンパウロ生まれ（ｇ））、バド・シャンク（1926年、米国オハイオ生まれ（fl.as)）、レイ・ブラウン（1926年、米国ペンシルヴァニア州生まれ（ｂ））、シュリー・マン（1920年米国ニューヨーク生まれ（ｄｓ））です。
彼らのPavane Pour Une infante Defunte（亡き王女のためのパヴァーヌ）を聞きたいのですが、これで我慢しよう。
↓ポチッと応援お願いします！
(07/09/19追記)
昨日帰宅したら「青春アカペラ甲子園 全国ハモネプリーグ2007」という番組をやっていた。L.A.6（ラシックス）というチームが健闘していた。群馬から勝ち上がったブラックローズは後輩だ！
道路では曲線長Lは後から決まりますが、滑り台の場合はスパン数の整数倍に決めたいのです。LとAが決まればRもτも決まります。これから使う式をもう一度掲載します。
(18)において（）を多用して見難いと思われるかも知れません。しかし、こうしたのはDOSの時代にTurboPascalでプログラムを作っていたからです。
以下が、曲線長ｌ、パラメータa、クロソイドの方向dを与えてｘｙ座標を返す手続き(procedure)です。またべき乗を使わない工夫もしてあります。
昔はCPUも遅くメモリも限られていました。このプログラムはNECのPC9801VX21(i286)で最初に動きました。
procedure clxy(l,a:extended;d:integer;var x,y:extended);
var la2,la4:extended;
begin
la2 := sqr(l/a);la4 := sqr(la2);
x := l*(1-la4*(1/40-la4*(1/3456-la4/599040)));
y := l*la2/6*(1-la4*(1/56-la4*(1/7040-la4/1612800)))*d;
end;
余談ですが、(l/a)^4を変数la4に割り当てました。ソースを書いている時、1974年に結成されたバンドを連想させたからです。LA.4（ロサンジェルス・フォア）です。メンバーはローリンド・アルメイダ（1917年ブラジル、サンパウロ生まれ（ｇ））、バド・シャンク（1926年、米国オハイオ生まれ（fl.as)）、レイ・ブラウン（1926年、米国ペンシルヴァニア州生まれ（ｂ））、シュリー・マン（1920年米国ニューヨーク生まれ（ｄｓ））です。
彼らのPavane Pour Une infante Defunte（亡き王女のためのパヴァーヌ）を聞きたいのですが、これで我慢しよう。
↓ポチッと応援お願いします！
(07/09/19追記)
昨日帰宅したら「青春アカペラ甲子園 全国ハモネプリーグ2007」という番組をやっていた。L.A.6（ラシックス）というチームが健闘していた。群馬から勝ち上がったブラックローズは後輩だ！
