水谷自転車製２０インチ折りたたみ

ハンドル周り：ハンドルバー、ステム、ブレーキレバー、グリップはユースドパーツを流用しています。

チェーンステイに塗装傷があります。

輪行袋付き。

変速レバーはノンインデックスタイプ。

システムは９速ですが、ヘッドパーツとレバーが干渉するため、リヤのローギヤが使えません。

ハブダイナモ、ライトはユースドパーツです。

価格未定。７万程度を予定しています。

たたんだ状態

輪行袋

前輪ははずす必要があります。

Ｔｒｉｇｏｎ 完成車

Trigon　カーボンフレーム　メインコンポはSora

現在商談中です。
価格は２０万円を予定しています。

shimano ハブダイナモＨｉｌｍｏをセット。

9.14kg

リヤはＤＥＯＲＥの９ｓでローギアード

少し試乗しました。

連絡先

https://4-cross.blogspot.com/2014/07/blog-post.html

Ｅｍａｉｌ

e-mail tradwheelATgmail.com　(AT →　＠）

連絡先

４X（4cross)
フォー・クロス

〒６１９−０２４１　京都府相楽郡精華町祝園五反畑１１−２　（やまのせサイクル）

TEL/FAX　０７７４−９４−２９８５


e-mail tradwheelATgmail.com　(AT →　＠）

gunwell steel track racer

gan well pro フルオーダー トラックレーサー シートチューブ： ５２０mm トップチューブ： ５３０mm リヤエンド幅： １２３mm シート角： ７５°３０ キャスター角： ７４° フォークオフセット： ３３.８mm ハンガー下がり： ６０mm フロントセンター： ５６５mm リヤセンター： ４０５mm パイプセットは、「カイセイ ０１９」 です。 メタリックレッドに塗装。 ￥2５万円 （HPに八田スワンスーパーを使用。 BB、クランク　スギノ７５（１００Kmほど使用） 小ギヤ　ギガス（５０Kmほど使用） ガンウエル　の岐阜工場に直接オーダーしたフレームです。前後ブレーキ取り付け可能 タイヤ、ペダルは付けておりません。 それ以外のパーツはすべて取り付けた状態でお売りします。 mail tradwheel@gmail.com 連絡はこちら

coppi k14

COPPI
K14
C-T 565mm (C-C 535mm) , Top tube長 540mm(C-C)

Poltiカラーの高剛性アルミフレーム。おむすび断面のクロモリフォーク付き。
重量1570g+590g。超軽量ではありませんが、そのぶん剛性が確保されています。ヘッドパーツはアルテグラ。

古いDAのクランクを活かすために、あえて８ｓのパーツを装着しました。

前輪は中古パーツですが、今回組み直しています。
ハブはカンパ。リムはたぶん？マビック。
いずれも高級品ではありませんが、まだまだ十分に使えます。
ちなみにリムは単体で４３０ｇほどでしたので、一般的なクリンチャーレーシングリムといったところ。
ラベルが剥がれてしまっていますので型番等はわかりませんでした。
記憶では　Ma２　だと思います。

完成車　ペダルレスでの価格　３０万円です。
(ご希望により　PD-６６２０　その他手持ちのペダル、サービスでお付けします。）

ハンドルバー、ブレーキレバー、クランク、チェーンリングは中古パーツです。

ペダルレスでの重量は　９．０２ｋｇ　です。

連絡はこちら

20インチホイール

水谷自転車製折りたたみ自転車に装着されていたホイールです。（未使用）

フロントホイール　

８，０００円　（特別提供品）

２０　ｘ　１　１／８　タイヤ用（etrto 451mm)

リヤホイール　＋　カセット。

１２、０００円

フリーは９速用です。

おまけの計算

おまけの計算

CyUtilモジュールのｂcd関数を使えば５アームクランクのｂｃｄ（ボルト＝サークル＝ダイアメーター（クランクのｐｃｄ）が分かります。
例えばあるクランクの隣りあったチェーンリング取り付けボルト穴の距離（ピッチ）を測って
７６ｍｍだった時、
 CyUtil> bcd 76
129.29892

ですのでこのクランクのｐｃｄは１３０となります。
これは、半径ｒの円に内接する正５角形の１辺の長さからｒを求める計算です。

上図の三角形ａｂｃで辺ａｃはピッチの半分、∠ａｃｂは直角、∠ａｂｃは３６０÷（５×２）ですので

三角関数のサインを適用すればいいことが分かります。

Prelude> (76/2) / sin ((3.14*2)/10) *2
129.35564152105735

(簡易計算としてはピッチを１．７倍してもよい

Prelude> 76*1.7
129.2

ｐｃｄはほぼ決まっているのでこれで十分です。
）

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

pcd関数を使えばチェーンリングのｐｃｄが分かります。この場合のｐｃｄはチェーンのピンが形作る仮想円です。

例えば歯数５０Tのチェーンリングのｐｃｄは

Prelude> :l CyUtil.hs

Ok, modules loaded: CyUtil.

Prelude CyUtil> pcd 50

202.25983

ですので、逆にチェーンリングのｐｃｄを測って、２０２ｍｍであればそのチェーンリングの歯数は５０Tだと分かります。

ｐｃｄは測りづらいので歯底距離を測ります。

Prelude CyUtil> grd 50

194.41385

前もって歯底距離の一覧表を作っておけば、チェーンリング、コグの歯数を調べることができます。

---

Prelude CyUtil> map (\x-> (x, round1 (grd x))) [10..60]

[(10,"32.9"),(11,"37.3"),(12,"40.9"),(13,"45.3"),(14,"49.0"),(15,"53.3"),(16,"57.0"),(17,"61.3"),(18,"65.1"),(19,"69.4"),(20,"73.2"),(21,"77.4"),(22,"81.2"),(23,"85.5"),(24,"89.3"),(25,"93.5"),(26,"97.4"),(27,"101.6"),(28,"105.5"),(29,"109.7"),(30,"113.5"),(31,"117.7"),(32,"121.6"),(33,"125.8"),(34,"129.7"),(35,"133.9"),(36,"137.8"),(37,"142.0"),(38,"145.9"),(39,"150.0"),(40,"153.9"),(41,"158.1"),(42,"162.0"),(43,"166.2"),(44,"170.1"),(45,"174.3"),(46,"178.2"),(47,"182.3"),(48,"186.3"),(49,"190.4"),(50,"194.4"),(51,"198.5"),(52,"202.4"),(53,"206.6"),(54,"210.5"),(55,"214.7"),(56,"218.6"),(57,"222.7"),(58,"226.7"),(59,"230.8"),(60,"234.8")]

---

またｐｃｄはシングルバイクのチェーン長を計算する時にも使います。

---

import CyUtil

import System.Environment

class Gear a where

getPhase :: a -> IO Float

getL :: a -> IO Float

data FG = FG Int deriving Show

data RG = RG Int deriving Show

instance Gear FG where

getPhase _ = getG >>= return . (*2) . (+ d90)

getL f@(FG a) = getPhase f >>= calL a

instance Gear RG where

getPhase _ = getG >>= return . (*2) . (+ d90) . negate

getL r@(RG a) = getPhase r >>= calL a

calL a = return . (*(fromIntegral a)) . (/ yen)

getG = do

(FG a,RG b,c) <- mkGS

let l = pcr a - pcr b

return $ asin (l / c)

mkGS = do

[a,b,c] <- getArgs

return $ (FG (read a), RG (read b), (read c))

chLen = do

(_,_,c) <- mkGS

t <- getG

return $ myCos (c, t) / lOfLink * 2

main = do

(a,b,c) <- mkGS

l <- getL a

ll <- getL b

lll <- chLen

print $ l+ll+lll

---

補助線を１本加えますと計算方法がわかりやすくなります。

直角三角形abcの各辺の長さを計算します。

辺aｃはチェーンステイ長。辺ｂｃは前後ギヤのPCDの差から。辺aｂは他辺から三平方の定理で計算できます。

すこし面倒なのが前後ギヤへのチェーンの巻きつき量ですが、

 角ｂｄｅの角度がわかれば計算できます。
上図から角ｂｄｅは角ｂａｃに等しいようです。

角ｂａｃは三角関数の逆関数アークサイン（haskellではasin）で求めます。

ghcでコンパイル。

$ ghc g.hs

Linking g ...

コマンドライン引数で数値を渡します。

他のページ（カスタムジャパンさん）の計算結果を参考にします。

$ ./g 48 16 405

96.594635

**********************************************

Gui版

--chainLen.hs 
import Graphics.UI.Gtk
import CyUtil
import Control.Monad
import MySpin
initData :: [Double]
initData = [48,16,405]
data GearSystem = GS{fg::FG,rg::RG,csl::Double} deriving Show
mkGS :: [Double] -> GearSystem
mkGS [a,b,c] = GS (FG(round a)) (RG(round b)) c 
getG :: GearSystem -> Double
getG (GS (FG a) (RG b) c) = 
let l = pcr a - pcr b
in asin (l / c)
class Gear a where
getPhase :: GearSystem -> a -> Double 
getL :: GearSystem -> a -> Double
data FG = FG Int deriving Show
data RG = RG Int deriving Show
instance Gear FG where
getPhase gs (FG _) = (d90 + getG gs) / d180
getL gs fg@(FG t) = fromIntegral t * getPhase gs fg
instance Gear RG where
getPhase gs (RG _) = (d90 - getG gs) / d180
getL gs rg@(RG t) = fromIntegral t * getPhase gs rg
chLen :: GearSystem -> Double
chLen gs@(GS _ _ c) = 
let t = getG gs
in myCos (c, t) / lOfLink * 2
links :: [Double] -> Double
links ds = let gs@(GS a b c) = mkGS ds in  getL gs a + getL gs b + chLen gs 

main = do
initGUI
window  <- windowNew
hbox <- hBoxNew False 0
vbox <- vBoxNew False 0
boxPackStart vbox hbox PackNatural 0
let [a,b,c] = initData
let spmods = [ ("前ギヤ(T)" ,20, 60 ,1,a),
("後ろギヤ(T)" ,6, 30 ,1,b),
("チェーンステイ長(mm)" ,300, 1000 ,1,c)]
spins <- myAddSpinButtons hbox spmods
label <- labelNew Nothing 
update label spins
mapM (\x->  onValueSpinned x (update label spins)) spins
boxPackStart vbox label PackNatural 0
containerAdd window vbox
widgetShowAll window
onDestroy window mainQuit
mainGUI

update label spins = do
ds <- mapM (\x -> get x spinButtonValue) spins
let l = links ds
labelSetText label ("チェーン長（リンク数）＝" ++ (round1 l))

***********************************************

--CyUtil.hs

module CyUtil where

import Data.Complex

rad d = ((2*pi)/360)*d

dig r = r / (yen/360)

yen = rad 360 

d90 = rad 90

d180 = rad 180

dist1 c1 c2 = magnitude (c1-c2)

dist ((a,b),(c,d)) = 

let

c1 = mkPolar a b

c2 = mkPolar c d

in dist1 c1 c2

pita l1 l2 = dist1 (0 :+ l1) (l2 :+ 0)

myCos (a,b) = realPart $ mkPolar a b

round1 x = a ++ take 2 b

where (a,b) = break (=='.') $ show x

d1 = 7.75 -- チェーン ローラー の半径(mm) 

lOfLink = 25.4 / 2 -- チェーンリンク長(mm) 

rOfPolygon n l = (l / 2) / sin ((yen / n) / 2) 

r5 = rOfPolygon 5

bcd = (* 2) . r5 

pcr x = rOfPolygon (fromIntegral x) lOfLink 

pcd = (*2) . pcr

grd x = if odd x

then pcd x - d1

else dist ((r, rad (-180)),(r, yen / (fromIntegral x) / 2))

        where r = pcd x / 2 - (d1 / 2)

CyUtil も少し書き換えていると思いますので、再録します。

実行例

**********************************************************

ｈttp://tradwheel.web.fc2.com/haskell/haskell.html

にソースファイルがあります。