Perl

最近仕事で（効率化を図るためであって、直接仕事ではないけど）
perlのプログラムを書きました。何か非常に楽しかった。
攻撃魔法（Fortran）に加えて、回復魔法（perl）まで
唱えられるようになった気分（どんなだよ…）。

帰ってこーい

スカイレイ。

希望的次走候補は
5/13 京都 白川特別 2400M
5/27 東京 青嵐賞 2400M

間に合ってくれないかなー。

PGPLOTインストールメモ

以下のサイトを参考にPGPLOTをインストールしてみました。

http://oku.edu.mie-u.ac.jp/~okumura/linux/?PGPLOT

ただし、FortranコンパイラはIntel Fortranコンパイラーなので
makemakeを実行したのちに作成されるmakefileを以下のように修正
（某HPを参考にさせていただきました）。

FCOMPL=ifort
FFLAGD=-fno-backslash -nbs
LIBS=-Vaxlib -L/usr/X11R6/lib -lX11 `$(SRC)/cpg/libgcc_path.sh` -lgcc -lm -lc -lbsd

これでmakeしてみたが、エラーが出てしまいます（コンパイルオプションに
ついても warningが出ましたがシカト…）。
原因は$(SRC)/cpg/libgcc_path.shがうまくいかないみたい。
そこで実際に/usr/local/src/pgplot/cpg/libgcc_path.shを実行してみると…

-L/usr/...（←忘れちゃいました）とライブラリが置いてあるディレクトリのpathが
表示されました。そこで`$(SRC)/cpg/libgcc_path.sh`を
-L/usr/...で置き換えて実行したところ成功。

話は変わり、競馬。メイショウジーゲン惜しい2着。
武さん、お願いだから勝たせてやってよ。

紫野特別

メイショウジーゲンが武豊で1000万下に出走。
マルブツライトも出走ということで、ライアン産駒の
ワンツーを期待。調教は、

メイショウジーゲン　ＣＷ　80.6 64.8 50.9 37.8 11.9 強め

だそうで、いいんじゃない？現在1番人気。すんなり勝ってほしい。

MHDのRoe法コードを2次元に拡張。といってもデカルト座標系の
コードなので、数値流束を計算するサブルーチンをほぼそのまま
流用してしまって、そんなに大変ではないのだけれど。
それよりも2次元になると可視化が大変。とりあえずはpgplotを
使える環境にしないといけない。

連勝とまる

昨日はジュビロのリーグ戦連勝が、
今日はライアン産駒の4週連続勝利が
それぞれ止まりました（涙）。

ジュビロの相手は浦和ということもあり、
仕方ない面もあるが、内容では負けていなかったみたい。
ポスト直撃が2つも…。入れてくれよ。そうすれば
引き分けもあったのに。

ライアン産駒は期待されたウォーターマークが2着。
あとは…。ブライト産駒のマキハタサイボーグも…。
京都を離れるとめっきり駄目です。
来月5日の京都2400M、烏丸ステークスがよいのでは？

あとはスカイレイが早く帰って来れますように。

メイショウジーゲン完勝

めでたいめでたい。
上のクラスにいっても楽しみです。

土曜4Rでマイネルグラシューも
3歳未勝利を勝ち上がり、
ライアン産駒は今週2勝でした。

最近調子いいですね。

ジーゲン

今週のライアン産駒の期待馬は
メイショウジーゲン
長期休養明けの前走は惜しい2着で、
力のあるところを見せてくれました。
今回も引き続き武豊が騎乗します。

調教内容も
ＣＷ　80.7 64.8 51.0 38.3 12.6 末一杯
となかなかよさげ。是非勝ってくれ。
ライアン産駒はジーゲン、
ブライト産駒はスカイレイが
ひっぱっていってくれることを期待。

でもスカイレイ、まだ帰ってこないんだよなー。

捻挫

メジロスカイレイの休養が捻挫と判明。
捻挫なら結構はやく帰ってこれるんじゃ？
と思ったら、前回の休み（1年弱）も捻挫だとのこと。
捻挫を再発したらしい。下手したらまた1年近く
休むということ？神様、本当にお願いしますから
早いとこ良くしてください。

今週の注目馬。
ライアン産駒
　マイネルアナハイム（若葉ステークス）
　スズカライアン（スプリングステークス）
ブライト産駒
　マキハタサイボーグ（但馬ステークス）

ライアン産駒のどちらか（出来れば両方だけど）には
皐月賞の出走権をとってもらって、
マキハタサイボーグはオープン馬になってもらいたい。
ただマキハタサイボーグにとっては少し距離が短い気が…。

Interface文

以前書いたFortran90のInterface文、

Interface
subroutine abc(da,is,ie)
real*8, dimension(:), intent(inout) :: da
integer :: is,ie
end subroutine abc
end Interface

...
call abc(ro,1,i0)
...

受け渡し側は上記のようでいいとして、
（i0はroの配列数であり、commonモジュール
で共有しているものとする）
受け取り側で、

real*8, dimension(1:i0), intent(inout) :: da
integer :: is,ie

配列数を明示していた。三鷹のスパコンだと
これで問題なかったが、IntelのFortranコンパイラー
だとエラーが出て止まってしまった。
正しくは

real*8, dimension(:), intent(inout) :: da
integer :: is,ie

のように配列数を明示しなくてよい。

ジュビロ ライアン CFD

【ジュビロ】
土曜のジュビロvsトリニータ。
HDD録画して、帰ってきてから見ました。
結構良いサッカーをしていたと思いました。
パラナの右SBは機能してましたね。
柏戦はどこがいいのか分からず、要らねーと
思いましたが、謝らなければ。

成岡もよかったんじゃないかな。ただ
フリーのヘディングは決めてくれないと。
あと菊地も気合を感じた。
前田が戦線離脱、前節のボロ負けで、
今月末の市原戦の楽しみがかなり減退して
いたけど楽しみが少し復活。

【ライアン】
昨日、長期休養明けでメイショウジーゲン
が復活。武豊を背に惜しい2着。
あれだけ追い詰めたら勝って欲しかった…。
先週のマルブツライトといいなかなか
勝てないですね。でも今週はいまのところ
グットキララ、ウォーターマークの2勝。
来週も続いて欲しい。
でもやっぱりスカイレイ。早く帰ってきてくれ。

【CFD】
スパコン環境が使えなくなりそうなので、
手元のPCにソースを移動。
でもコンパイルが上手くいかない。
当然コンパイラーが違うからなのだけど。
ifortのマニュアル読まないといけないのか…。
憂鬱だ。

最近、PerlやOpenGLも勉強したいと
思ってますが、時間がとれずにまったく
進みません。時間が欲しい。

マキハタサイボーグ

スカイレイと同じブライト産駒の
マキハタサイボーグが
土曜の阪神、1600万下2400Mに出走。
結果は4コーナーで勝ち馬と同じ位置に
居たが、切れ味負け（ちょっとぶつけられた
感じもしたけど）。でも成績が安定してきた
のでいつかオープンに上がれるかな。

一方ライアン産駒もまったく勝てない…。
早く春が来ないかなー。

もはやスカイレイ応援ブログ

完全にメジロスカイレイの応援ブログとなってしまって
いる感があります。他にあまりネタがないんで。

明日は京都開催最終日で1000万下長距離の
琵琶湖特別がある。このレースに間に合って
欲しかったのだが。 以前の500万下で負かした
メンバーが勝ちあがってきて出走。
それも結構人気しそう。ということはもし出られていれば
好勝負出来たのでは、と妄想してしまいます。
まあ、たらればで話をしてもしかたないですが。

ポジティブに考えることにしましょう。
明日は雨っぽいし、切れ味もそがれ足元にも
負担になりそう。 出なくて正解だったのだと。

次回の阪神開催の1000万下長距離レースは
3/3　9R　淡路特別　2400M
4/1　9R　明石特別　2000M（ちょっと短いか…）
4/15　10R　白鷺特別　2200M

さらにその次の京都開催だと
5/13　9R　白川特別　2400M

何とか早めに帰ってきてくれ。

勝てない

ライアン産駒、ブライト産駒ともに勝てません。
映画を見に行っていて生ではみれませんでしたが、
帰ってきてからＧＣで確認したところ、
マキハタサイボーグが準オープン戦で追い込んで2着。
オープンまでは行けそうな感じです。でも残念ながら
セン馬なんですよね。やはりメジロの牡馬がいいっす。

ということで、スカイレイ。
まだ帰ってきていないみたい。
許波多特別にも登録は（当然）なし。
琵琶湖特別に出るなら、もうそろそろ帰ってこないと。

まだ休養中？

メジロスカイレイがなかなか帰ってきてくれません。
また長引くのでしょうか。是非春の天皇賞で
見てみたいんだが。早く帰ってきてくれー。

ライアン産駒はなかなか勝てません。
先ほどの京都8Rでオナーチェイサーが
勝って、ライアン産駒の今年の2勝目。

プログラム作成はほとんど前進なし。
唯一、静的ライブラリーを作れるようになった事ぐらいか。
GUI作成はまったく前進なし。
D論の残りをさっさと投稿論文にまとめないといけないので。

スカイレイの休養が

長引いているので心配。
ポジティブに考えよう。
ということで
1/21　京都1000万下 2400M　睦月賞
2/4　京都1000万下 2200M　許波多特別
2/18　京都1000万下 2400M　琵琶湖特別

まだ帰ってきていないとすると睦月賞は難しいかな。
せめて琵琶湖特別には間に合って欲しい。

計算コード作りはちびちびと進行。
一応CIP-CUP-MOCCTらしきコードが出来たけど
微妙に綺麗に解けていない。
D論の残りを論文にまとめることもしなければならないので、
なかなか一つに集中できない…。

休養

スカイレイがまた放牧に出てしまった。
1月の京都2400M、睦月賞あたりを
目指しての短期放牧だといいんだけど。

GUI作りもそこそこに、最近は
コード書きを少し進めている。
圧力ベース解法（陰解法）。
これを使うと固体、気体、液体が
同時に解ける。これなら
使ってみたいという人も増えるかなー。

ライアン産駒好調

10月、11月と不調が続いていた
ライアン産駒が最近好調。

なかでも土曜の葉牡丹賞を
快勝したマイネルアナハイムには
来年のクラシックに是非出て欲しい。
次走はホープフルステークスが有力らしい。

見事勝利！！

今日の6R、東京2400Mを見事勝ち上がってくれました！！
今日は一日幸せな気分です。その後のレースは純粋に
楽しめました。

それにしても強い勝ち方でした。スタートも何事もなく
出てくれて中段やや後方。直線入り口では一瞬
前が壁になるようなシーンもありましたが、
残り400Mくらいから追い出し。見る見る先団に追いついて
最後は2馬身1/2突き放す完勝。上がりは34.5、
走破時計も2分26秒7となかなかです。

次走は12/23　阪神　1000万下　2400Ｍの江坂特別
少し間があくけど1/28　京都　1000万下　2400Ｍの睦月賞
あたりでしょうか。また東上って可能性もありますが。
それにしてもこれからも注目です。

出走

日曜東京6R500万下2400Mに出走決定。

メジロスカイレイ　栗坂重　53.7　39.7　26.4　13.5　馬なり

調子はよさそう。
騎手は…ルメール。
悪くはない、むしろいい。
でも武豊に戻るとおもっていたから。
ルメールは短期免許だから恐らく次は
乗れないし、武豊とは2戦2勝と相性も
よさそうだったから。まあ出遅れなくゲートを
出てくれて、無事に回ってきてくれて、
ついでに勝ってくれればそれが最高。

GUI作りはだいぶ形になってきた。
もうそろそろプログラムの配布の形式を
考えないと。最近はあまり使われていない
らしいけど静的共有ライブラリにしようかな。
データ出力部分のソースをユーザー側で
編集できるようにして、あわせて実行ファイルに
するようにすればいいかな。
まだ時間はかかりそうだけど。

順調

今週の東京に出走するのでしょうか。
順調に調教をこなしているようです。

メジロスカイレイ　栗坂路　57.3　41.2　27.5　14.0　馬なり

JCウィークなので武豊騎手も東京。
武騎手に戻るのか、岩田騎手のままなのか。
それとも別の騎手？もうあんな出遅れだけは
勘弁してくれ。