ZO-3のブログ一覧

アルミ交換しました。
18インチでも19インチでもなく・・・まさかの17インチw
スタッドレス用じゃないですよ～
夏用です。
予算の都合上、中古っすorz
タイヤつきで6万。一応8Jです。
小キズありですが殆どわかりません。
レンチでコツンと当てたようなキズなので新品買ってタイヤ付け替えでも運が悪けりゃ付いてしまいそうなキズです（笑）
タイヤは225/45R17で溝は二分山ってとこですが内側の片減りがあったのでタイヤの価値としてはゼロだと思います。
さてとコレに235か245をつけてサーキット仕様にと目論んでおりますw
見た目もスパルタンな印象でブレーキダストも目立たないです。

さて、取り付けてみたところリヤはハウス内に収まっています。

7mmぐらいは余裕があります。

しかしフロントはギリギリ

235/45入るかな？

ちなみに純正17インチはタイヤつきで1本の重量が20kgでした。
コイツは18.8kgでした。1.2kg×4本の軽量化です。

ホイールハウスとタイヤの隙間がちょっと残念なのでも少し下げないといけませんね～

面白いフリーソフト見つけました。
その名もLapTime
ストップウォッチのフリーソフトはイロイロありますがLapTimeはイチ押しです。
トータルタイムとラップタイムが表示されて記録はCSVファイルで保存できるので、サーキット走行される方にはうってつけですね。
ショートカットキーも任意に設定できるのでマウスでクリックなんてこともしなくて大丈夫です。

そこで考えますたw

外付けUSBテンキーのスイッチを利用して、そこにマグネットスイッチをつければ市販されている計測器と同様のものが出来るのではないか？
ちなみに市販されている計測器は2～3万します。結構高いですね～

テンキーは数百円。マグネットスイッチは工場のジャンク置き場にいけばありそう・・・
ってことでとりあえずUSBテンキーをバラしてみますたw

今回餌食になるテンキー


嫌がるテンキーを羽交い絞めして裏フタを脱がせてビラビラを開いてやりますたw

フムフム・・・なるほどフィルムのパターンを追っていくと基板の部分にいかにもハンダ付けしてくれ～っていう金属がある。
ここにスタートとストップ用のスイッチをハンダ付けしてあとはマグネットスイッチに接続すればイイんだな～と。
ところがですね、調べてみるとタカタサーキットはマグネットセンサー用の設備は無いらしいんですねorz
問い合わせてみると貸出機のチップを利用してくださいと・・・

何か他の方法でラップのスイッチを閉じる機構を考えねば・・・


やっぱ手かな・・・

エクセルでマップの計算をしている人は多いと思いますが不便なのはセルの色ですよね～
エクセルのデフォルトの色ではRomRaiderの色は表示しきれません。
64Bit版は使える色は多いそうですが私の使っているエクセルは10年前の使いまわし・・・

そこで古いエクセルでもRomRaider風のマップ色にする方法を紹介します。（ﾅｶﾞｲﾖ）
トップ画像の上側がエクセルでの表示。
下側がRomRaiderのキャプチャです。
エクセルのほうが彩度高いです（^^）

では早速・・・
まず、エクセルのカラーパレットをマクロで変更します。

コード
---------------
Sub ChangeParette() '青⇒水色⇒緑⇒黄色⇒橙⇒赤のﾊﾟﾚｯﾄ

With ThisWorkbook

.Colors(1) = RGB(0, 0, 255) '
.Colors(2) = RGB(0, 10, 255) '
.Colors(3) = RGB(0, 40, 255) '
.Colors(4) = RGB(0, 60, 255) '
.Colors(5) = RGB(0, 80, 255) '
.Colors(6) = RGB(0, 100, 255) '
.Colors(7) = RGB(0, 125, 255) '
.Colors(8) = RGB(0, 150, 255) '
.Colors(9) = RGB(0, 170, 255) '
.Colors(10) = RGB(0, 190, 255) '

.Colors(11) = RGB(0, 210, 255) '
.Colors(12) = RGB(0, 230, 255) '
.Colors(13) = RGB(0, 255, 255) '
.Colors(14) = RGB(0, 255, 235) '
.Colors(15) = RGB(0, 255, 215) '
.Colors(16) = RGB(0, 255, 195) '
.Colors(17) = RGB(0, 255, 175) '
.Colors(18) = RGB(0, 255, 155) '
.Colors(19) = RGB(0, 255, 135) '
.Colors(20) = RGB(0, 255, 115) '

.Colors(21) = RGB(0, 255, 95) '
.Colors(22) = RGB(0, 255, 75) '
.Colors(23) = RGB(0, 255, 55) '
.Colors(24) = RGB(0, 255, 35) '
.Colors(25) = RGB(0, 255, 0) '
.Colors(26) = RGB(20, 255, 0) '
.Colors(27) = RGB(40, 255, 0) '
.Colors(28) = RGB(60, 255, 0) '
.Colors(29) = RGB(80, 255, 0) '

.Colors(30) = RGB(100, 255, 0) '
.Colors(31) = RGB(120, 255, 0) '
.Colors(32) = RGB(140, 255, 0) '
.Colors(33) = RGB(160, 255, 0) '
.Colors(34) = RGB(180, 255, 0) '
.Colors(35) = RGB(200, 255, 0) '
.Colors(36) = RGB(220, 255, 0) '
.Colors(37) = RGB(240, 255, 0) '
.Colors(38) = RGB(255, 255, 0) '
.Colors(39) = RGB(255, 235, 0) '

.Colors(40) = RGB(255, 215, 0) '
.Colors(41) = RGB(255, 195, 0) '
.Colors(42) = RGB(255, 175, 0) '
.Colors(43) = RGB(255, 150, 0) '
.Colors(44) = RGB(255, 130, 0) '
.Colors(45) = RGB(255, 110, 0) '
.Colors(46) = RGB(255, 75, 0) '
.Colors(47) = RGB(255, 55, 0) '
.Colors(48) = RGB(255, 35, 0) '
.Colors(49) = RGB(255, 15, 0) '
.Colors(50) = RGB(255, 0, 0) '


End With

End Sub
---------------
エクセル2000では50色しかカラー設定できないので（多分）RGBでソースのとおり設定します。
マクロを実行してエクセルファイルを保存すればそのファイルの色の設定は保持します。
EcuFlash風にしたいときは各自RGBを調整して試行錯誤してください（^^）

古いエクセルでは条件付書式設定に限りがあるので50通りの色が選べません。
そこでマクロでセルの色を変更してやります。
まず、マップ上の最小値と最大値をmin,max関数で抽出しセルに50等分した数値を割り当てます。
これが色設定判断のセルになります。
あとは、マクロで随時セルの数値を判断してColor設定を行います。

コード
---------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("C6:R50")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Cells(2, 6) To Cells(2, 7)
myColor = 1
Case Cells(2, 7) To Cells(2, 8)
myColor = 2
Case Cells(2, 8) To Cells(2, 9)
myColor = 3
Case Cells(2, 9) To Cells(2, 10)
myColor = 4
Case Cells(2, 10) To Cells(2, 11)
myColor = 5
Case Cells(2, 11) To Cells(2, 12)
myColor = 6
Case Cells(2, 12) To Cells(2, 13)
myColor = 7
Case Cells(2, 12) To Cells(2, 14)
myColor = 8
Case Cells(2, 13) To Cells(2, 15)
myColor = 9
Case Cells(2, 14) To Cells(2, 16)
myColor = 10
Case Cells(2, 15) To Cells(2, 17)
myColor = 11
Case Cells(2, 16) To Cells(2, 18)
myColor = 12
Case Cells(2, 17) To Cells(2, 19)
myColor = 13
Case Cells(2, 18) To Cells(2, 20)
myColor = 14
Case Cells(2, 19) To Cells(2, 21)
myColor = 15
Case Cells(2, 20) To Cells(2, 22)
myColor = 16
Case Cells(2, 21) To Cells(2, 23)
myColor = 17
Case Cells(2, 22) To Cells(2, 24)
myColor = 18
Case Cells(2, 23) To Cells(2, 25)
myColor = 19
Case Cells(2, 24) To Cells(2, 26)
myColor = 20
Case Cells(2, 25) To Cells(2, 27)
myColor = 21
Case Cells(2, 26) To Cells(2, 28)
myColor = 22
Case Cells(2, 27) To Cells(2, 29)
myColor = 23
Case Cells(2, 28) To Cells(2, 30)
myColor = 24
Case Cells(2, 29) To Cells(2, 31)
myColor = 24
Case Cells(2, 30) To Cells(2, 32)
myColor = 25
Case Cells(2, 31) To Cells(2, 33)
myColor = 26
Case Cells(2, 32) To Cells(2, 34)
myColor = 27
Case Cells(2, 33) To Cells(2, 35)
myColor = 28
Case Cells(2, 34) To Cells(2, 36)
myColor = 29
Case Cells(2, 35) To Cells(2, 37)
myColor = 30
Case Cells(2, 36) To Cells(2, 38)
myColor = 31
Case Cells(2, 37) To Cells(2, 39)
myColor = 32
Case Cells(2, 38) To Cells(2, 40)
myColor = 33
Case Cells(2, 39) To Cells(2, 41)
myColor = 34
Case Cells(2, 40) To Cells(2, 42)
myColor = 35
Case Cells(2, 41) To Cells(2, 43)
myColor = 36
Case Cells(2, 42) To Cells(2, 44)
myColor = 37
Case Cells(2, 43) To Cells(2, 45)
myColor = 38
Case Cells(2, 44) To Cells(2, 46)
myColor = 39
Case Cells(2, 45) To Cells(2, 47)
myColor = 40
Case Cells(2, 46) To Cells(2, 48)
myColor = 41
Case Cells(2, 47) To Cells(2, 49)
myColor = 42
Case Cells(2, 48) To Cells(2, 50)
myColor = 43
Case Cells(2, 49) To Cells(2, 51)
myColor = 44
Case Cells(2, 50) To Cells(2, 52)
myColor = 45
Case Cells(2, 51) To Cells(2, 53)
myColor = 46
Case Cells(2, 52) To Cells(2, 54)
myColor = 47
Case Cells(2, 53) To Cells(2, 55)
myColor = 48
Case Cells(2, 54) To Cells(2, 56)
myColor = 49
Case Cells(2, 55) To Cells(2, 57)
myColor = 50

Case Else
myColor = xlNone

End Select

Target.Interior.ColorIndex = myColor

End Sub
----------------
上記コードは数字を変更してEnterで色が変わりますが数字をコピペだと変更しないので別途マクロを走らせます。

長くなるので各自工夫して下さい。

手間はかかりますが色を合わせておくと入力ミスが防げるので効果はあります。

その他のキャプチャ


エクセルでマップデータを保存しておくと比較しやすいので便利ですね。
あとはエクセルデータをRomRaiderのテーブルにコピペできればラクできるんだけどな～

またまたブローオフバルブ交換ですw
何度目だぁ～～
コトスポ強化から純正に戻しますたw
交換作業工数も格段に削減です。すっかり慣れてしまいました。
ECUもそれに伴いウェィストゲートの設定とスロットル開度も変更です。
実はオーバーシュートが怖くてスロットル制御でブーストコントロールしていたおかげで若干ブーストの立ち上がりが悪かったんですよね～
それでも1.4barのオーバーシュートが発生したんですが（汗）


早速テスト走行し、ログッた結果がコレ↓

スロットル開度100%でウェィストゲートもちゃんと動いてブーストコントロールしております！
ブーストの立ち上がりもメタキャタ本来の性能を取り戻しました。
立ち上がりでFLKC-1がちょっと気になるけど・・・
オーバーシュートも1.15barぐらいで収まってます。
全開で3速→4速は試しておりませんが・・・
それでも心配していた高回転のブーストのタレも思ったより無かったのでこれで暫く様子見ですね。

あと、ブローオフ交換するついでに下回りの点検したところエキパイ下の遮熱版のメッキが剥がれておりましたorz

やっぱ結構排気温度高かったんだな～と。
亜鉛メッキはあまり耐熱性が良くないようですね。

実は先のサーキット走行で車載カメラとマルチメーターを仕込んでいますたw
OpenSSM MultiMeterもやっと公にアップできます（笑）


カメラも録画装置もロクでもないものなので画質は超悪いですが、OpenSSMは正常に機能しているのでちゃんと表示されます。
曇空と同化してしまってrpmやブースト圧は見えませんがご容赦を・・・
また、いつまでウォームアップランしてんだ？というご指摘もあろうかと思われそうですがビデオの中のヒトは必死ですw

こうやって見るとライン取りなんかは改善の余地ありです。
また、オーバーシュート対策でパドルシフトを使わないようにしたせいでエンジン回転が落ちてしまいコーナー出口でもたついている様もわかります。
DBWのセッティングもATだと難しいものがありますね～
1コーナーや裏の中速コーナーはドライだったらもっと楽しいかも！
次回はもうちょっとコーナースピード上げても大丈夫かもですね。

あと、純正シートはサーキット走行に耐えられますw
左足で必死に踏ん張れば何とかなるもんですね～