https://github.com/index333/spcal
からソースがＤＬできます。
新バージョンは
https://github.com/index333/spcal2
各寸法の測り方は
https://www.sheldonbrown.com/spoke-length.html
を参考にしてください。
まずサンプルファイルを作っておきます。
426.0
45.0
37.3
45.0
20.7
次のスクリプトを実行します。
$ cat sample | runghc spcal.hs
MySpinBox モジュール Round モジュールも必要です。
Failed to load module “canberra-gtk-module” のようなエラーメッセージがでるかも知れません。
無視してもかまいませんが
libcanberra-gtk-module
をインストールすると解消します。
sudo apt-get install libcanberra-gtk-moduleスポーク長の計算式は
aはErdの２分の１、ｂはｐｃｄの２分の１、ｄはフランジとセンター間の距離。 ｈはホール数、ｋは組数です。
Haskellでは
calLen a b d k h = sqrt ((a^2+b^2+d^2) - (2*a*b*(cos $ alfa h k)))
where alfa h k = rad (360 / h * k)
この計算は同心円上の２点間の距離の問題に還元できます。このような計算は複素数で行うととても楽になります。
ハブ軸を原点に、交差する２本のスポークの交点を複素平面上の実数軸にあわせます。
（３２ホール、６本組）
（見やすいように、ハブは実際より大きく描いています。）
スポークの両端をハブ側をA点,リム側をB点としますと
３６０度➗（リムの穴数➗２） ｘ （組数ー１）➗2
３２ホール、６本組の場合、２２．５度×２．５＝５６．２５度
絶対値（原点までの距離）はハブのPCＤの半分
点Bの位相は組み方に関係なく
３６０度➗リムの穴数×（−１）
３２ホール、６本組の場合、ー１１．２５度
絶対値はリムのERDの半分。
これにハブの厚みとスポークの長さ表示方法を考慮して関数化すると
dist :: RealFloat a => Complex a -> Complex a -> a -> a
dist x y z = sqrt (l * l + z * z) where l = magnitude (x - y)
calLen a b d k h = dist x y d - hosei
where x = mkPolar b (yen / (h / 2) * (k - 1) / 2)
y = mkPolar a (yen / h * (-1))
yen = pi * 2
なおラジアル組みの場合、簡易な計算で求められますが、
たまたま位相が一致する特殊なケースとして一般化できます。
Ｊａｖａなどのオブジェクト指向言語ではデータをオブジェクトのまま保存します。
Ｈａｓｋｅｌｌではdata型をＳｈｏｗして保存し、読み込んでＲｅａｄすると元のdata型に戻してくれます。
このやり方で新しく書き換えました。
$ runghc menu.hs
もう一度ソースの置き場所を・・・
https://github.com/index333/spcal2
なおリムやハブのデータはテストのための仮データです。
同じような画面構成の小さなプログラムを復数書かなければいけないとき、継承が恋しくなる。
一応テストはしてますが他のサイトでも検算して下さい。
http://spoke.gzmapss.com/
が使いやすいです。
後記：
しばらくたってから実際に使ってみると、復数開くウインドウの閉じ方に難があることがわかりました。
（＾＿＾；）
実用上は問題ないのですが・・・
Guiのプログラムを復数立ち上げるというのは独立したスレッドを生むことになるので制御がむつかしいケースが生じます。
気になる場合は、
runghc mkRim.hs
runghc selector.hs
runghc selectRim.hs
runghc selectHub.hs
runghc spcal.hs
のようなスクリプトを作ります。
0 件のコメント:
コメントを投稿