タツゥのブログ一覧

今日はＬＳＤのオーバーホールをしようと思っていましたが、雨で気が乗らないので一日パソコンながめてます。

そんな今日はコース図のエクセルでの描画方法です。





次は何しようかなｌ？

⊿１：１４０６０８
Ｘ座標の算出方法で、地球赤道半径に０．８をかける意味がわからなかったのですが、緯度分の半径減少量であるというコメントをいただいたので、ｃｏｓ（Ｌｔ１／６０）を地球赤道半径にかける式に修正しました。
関東地方は北緯３６度なので、cos３６°≒０．８０９となり、従来と約１％の差が発生します。　

土曜日に駅前のヨドバシカメラへパソコンのキーボードを見に行きました。
今、うちではテレビの画面をパソコンモニターとして使っているため、なるべく画面から離れてたいのですが、キーボードが有線なのであまり離れることができません。
そこで、ワイヤレス化することにしました。

今使っているキーボードは、パソコンを初めて買ったときに付属していたもので、すでに１２年使っています。不満、不具合はないのでず～っと使ってきたのですが、コードが短いのだけが問題でした。
それとあまりにホコリが溜まって汚くなったので買い換えようと思いました。

次に買うキーボードに求めることとしては
１、ワイヤレス
２、操作感が今と同じ（キーを押す感触、音とキー配列）
３、値段そこそこ
４、外見普通

１が最も重要です。２も結構大事。３以下はおまけです。

という観点で見てみると、まず操作感が気になりました。
どれもストロークが短すぎてフィーリングが悪い。まさに女子供向けです。
今使っているのが、カチカチ音がするタイプなので同じようなのが欲しいです。
すると、説明のところにキータイプにはメカニカルキー、メンブレン、パンタグラフの３つがあると書いてあります。
カチカチするのは、メカニカルキーのようで、今のと同じような感覚でした。
でも、メカニカルキーにはワイヤレスがない。
別のお店にいけばあると思い、とれあえず別のものを見に行こうとしたとこで、偶然、ふなＦＲ君と会いました。
ふな君にキーボードを買いにきた。と言うと、”やっぱりメカニカルキーですよね？”と聞いてきます。
なぜわかったのだろう？と思いつつ説明を聞いてみると、やはりキーボードを選ぶときに、操作感を重視したらメカニカルキーになったということでした。
さらに、話を聞いてみると、メカニカルキーにはワイヤレスの設定はない！ということも教えてもらいました。
ふな君はUSB延長コードでコードの短いのを解決し、メカニカルキーを使っているとのこと。
なるほど。僕もそうすることにして、メカニカルキーの製品を買おうとしました。
値段はメンブレンなどの３倍くらいしますが、操作感は重要なので外せません。
が、しかし良く考えたら買い換える理由がないことに気がつきました。
そもそも今のキーボードの不満は延長コードで解決です。
まずはUSB延長コードを買って帰りました。
でも僕のキーボードはPS2接続でした。変換アダプタを持ってるはずと思って探したら、PS2⇒USB変換でした。

てなわけで、今日はPS2延長コードとキートップ外しを買ってきて、コードを延長するとともに、キーボードのホコリ掃除をしました。
キートップを外すと出るわ出るわ、びっくりするほどホコリが溜まってました。
とってもキレイになったので、これであと１０年は使えそうです。

ちなみに、キートップを外したら、僕のキーボードはメンブレンであることが判明しました。
お店にあった物ではメカニカルキーの茶軸が一番操作感近かったのですが、実は違いました。
なので、もし今のキーボードが壊れたら、メカニカルかフィーリングのいいメンブレンのワイヤレスにしたいと思います。

先週の土曜日は伊勢原で飲み会でした。
人生いろいろです。
みんな頑張っているということがよくわかりました。
僕も頑張りたいと思います。

今日はシミュレーションの作成をお休みし（昨日も一昨日も休んだけど）、実際に使ってみることにしました。
お題のとおりコーナの最小半径とラップタイムの関係です。
以前もコーナの最小半径は大きすぎず小さすぎない大きさにすべしと書いたのですが、シミュレーションで確認してみることにします。
シミュレーションの条件は
コース：ＴＣ１０００
車：Ｓ２０００
最大横Ｇ：１．１５Ｇ
最大加速Ｇ：０．４５Ｇ
最大減速Ｇ：０．８５Ｇ
出力補正：０．８５
横Ｇ走行抵抗係数：０．０５
※初期のバージョンに対して計算精度向上を行ったところ、合わせ込み条件が変化しました。

結果はこちら
青線がコーナ半径を最大にした場合の速度
赤線がコーナ半径を推奨値にした場合の速度
緑線が実測の速度

ラップタイムは
実測：４２．０秒
半径最大：４２．３１秒
推奨半径：４１．１２秒

シミュレーションに使った走行ライン
○は半径最大
赤線は実測≒推奨半径


シミュレーション同士の比較では１．２秒も半径最大の方が遅くなりました。
さらに、実測と比較しても半径最大のシミュレーションはブレーキング～旋回中のタイヤ使用率が常に１００％であるにもかかわらず、実測よりも０．３秒遅い結果でした。
実際はタイヤ使用率は１以下にしかならないので、０．３～０．５秒くらい遅いタイムしか出ないと考えられます。

今日のまとめ
ライン取り影響は結構大きい

今日はこれから伊勢原で飲み会にでかけます。
なので、出かける前にがんばって第五回を書きました。
がしかし、１枚目を書くの忘れてました。そのうち追加します。

では５回目
今回は加速側です。
加速側は、横Ｇ限界速度、タイヤ使用率、車輌加速性能で速度が決まるため、減速側よりちょっと複雑です。
さらに別のシートで各速度における車輌性能で決まる加速度を事前に計算しておく必要があります。

２枚目からどうぞ








マル写しはこちら
Sub AcceleCal()
axmax = Cells(2, 2) * 9.806
ayamax = Cells(4, 2) * 9.806
kxg = Cells(6, 2)
P = Cells(9, 2)
Q = 15
Range(Cells(Q + 1, 8), Cells(Q + P, 8)).ClearContents
Range(Cells(Q, 9), Cells(Q + P, 14)).ClearContents
For k = 1 To P
dX = Cells(Q + 1, 22)
V0 = Cells(Q, 8)
V1 = Cells(Q + 1, 1)
dV = V1 - V0
R = Cells(Q + 1, 21)
If dV <= 0 Then
Cells(Q + 1, 8) = V1
Else
Cells(Q, 9) = dV
VM = (V0 + V1) / 2
dT = dX / VM
ay = dV / dT
ayemax = Application.WorksheetFunction.Lookup(V0, Worksheets("Power").Range("I36:I2136"), Worksheets("Power").Range("H36:H2136"))
Cells(Q, 13) = ayemax
If ay > ayemax Then
ax = V0 ^ 2 / R
ay = ayemax - Abs(ax) * kxg
dT = (-V0 + (V0 ^ 2 + 2 * ay * dX) ^ 0.5) / ay
End If
dVmax = ay * dT
V1 = V0 + dVmax
Cells(Q + 1, 8) = V1
UT = 2
Do Until UT <= 1
dV = V1 - V0
VM = (V0 + V1) / 2
dT = dX / VM
ay = dV / dT
ax = V1 ^ 2 / R
UT = ((ax / axmax) ^ 2 + (ay / ayamax) ^ 2) ^ 0.5
Cells(Q, 14) = UT
If dV <= 0 Then
UT = 1
End If
V1 = V1 - dVmax / 100
Cells(Q + 1, 8) = V1
Loop
Cells(Q, 9) = dV
Cells(Q, 10) = dT
Cells(Q, 11) = ax
Cells(Q, 12) = ay
End If
Q = Q + 1
Cells(8, 7) = Q
Next k
End Sub

明日はお休みです。

では４回目
今回は減速側の計算です。






入力が面倒な人は以下をマル写ししてください。
Sub DeceleCal()
axmax = Cells(2, 2) * 9.806
aydmax = Cells(3, 2) * 9.806
P = Cells(9, 2)
Q = P + 15
Range(Cells(Q - P, 2), Cells(Q - 1, 2)).ClearContents
Range(Cells(Q - P, 3), Cells(Q, 7)).ClearContents
For k =1 To P
dX = Cells(Q, 22)
V0 = Cells(Q, 2)
V1 = Cells(Q - 1, 1)
dV = V0 - V1
R = Cells(Q - 1, 21)
If dV >= 0 Then
Cells(Q - 1, 2) = V1
Else
UT = 2
dVmax = (-V0 + (V0 ^ 2 + 2 * aydmax * dX) ^ 0.5)
Do Until UT <= 1
dV = V0 - V1
VM = (V0 + V1) / 2
dT = dX / VM
ay = dV / dT
ax = V1 ^ 2 / R
UT = ((ax / axmax) ^ 2 + (ay / aydmax) ^ 2) ^ 0.5
Cells(Q, 7) = UT
If dV >= 0 Then
UT = 1
End If
If Abs(dV) > dVmax Then
rV = Abs(dV) - dVmax
Else
rV = dVmax / 100
End If
Cells(Q - 1, 2) = V1
V1 = V1 - rV
Loop
Cells(Q, 3) = dV
Cells(Q, 4) = dT
Cells(Q, 6) = ay
Cells(Q, 5) = ax
End If
Q = Q - 1
Cells(9, 7) = Q
Next k
End Sub