VC++:Stringの取り扱い

最近OpenCVなどを使うこともあり、VC++を使い始めました。が、文字列の取り扱いには苦労しますね(^^;　Rubyなんかだと簡単にできることがいちいちキャストしたりなんかしないといけなくて、そのたびにググる必要があり、時間がかかります。

例えば、VC++からDOSコマンドを呼び出すために

system("ruby abc.rb arg1 arg2")

などとしたいのですが、そのときにこの引数を

String^ arg1 = "1"

String^ arg2 = "2"

command = "ruby abc.rb "+arg1+" "+arg2
system(command)

などとすると　String^はchar *に変換出来ませんというようなエラーになってしまいます。systemへの引数はchar *だけど、commandはString^だからエラーだそうです。command.to_charのようなメソッドはないんでしょうかねえ。結局ここにあるような方法を利用して　String^をchar *に変換するはめになるのですが、なんとかなりませんかね、これ(^^;

OpenCV:メモリにある画像データの取り扱い

OpenCVの例では主にファイルにある画像を取り扱うように出来ています。すでにメモリに画像が入っている時にはどうしたらいいのか考えました。メモリ上に512*512のバイト列（1画素8ビットのグレイレベルデータ）があるとします。OpenCV2.1では画像をMat（行列）型で扱えるので、下記のようにしました。

Mat *image1 = new Mat(512,512,CV_8UC1); //画像用Matインスタンスの作成　8bit
memcpy(image1->data, imagedata, 512*512); //画像データをimage1->dataに読み込む
           //imagedataは512*512バイトの画像列の先頭アドレス

Mat *image2 = new Mat(512,512,CV_8UC1); //画像用Matインスタンスの作成　8bit
memcpy(image2->data, imagedata2, 512*512); //画像データをimage1->dataに読み込む

Mat *difImg = new Mat(512,512,CV_8UC1);
absdiff((Mat &)*image2, (Mat &)*image1, (Mat &)*difImg); //差画像の作成

//以下、表示
namedWindow("img1", CV_WINDOW_AUTOSIZE);
cvMoveWindow("img1", 50, 50);
imshow("img1", (Mat &)*image1);
namedWindow("img2", CV_WINDOW_AUTOSIZE);
cvMoveWindow("img2", 580, 50);
imshow("img2", (Mat &)*image2);
namedWindow("dif", CV_WINDOW_AUTOSIZE);
cvMoveWindow("dif", 50, 600);
imshow("dif", (Mat &)*difImg);
namedWindow("dif*10", CV_WINDOW_AUTOSIZE);
cvMoveWindow("dif*10", 580, 600);
imshow("dif*10", (Mat &)*difImg2);
waitKey(0);
cvDestroyWindow ("img1");
cvDestroyWindow ("img2");
cvDestroyWindow ("dif");
cvDestroyWindow ("dif*10");

OpenCV:imshow:Windowの位置指定

OpenCVを始めました。imshowで画像をWindow表示することは出来たんですが、適当な位置にWindowが出て困ります。OpenCV2.1はC++のクラス対応ということで探したのですが、位置決めの関数はCのみの対応のようでした。

cvMoveWindowという関数で、

cvMoveWindow（Window名、ｘ、ｙ）

と指定するようです。ｘ、ｙはディスプレイ左上を原点とするピクセル値です。

全部クラスでまとめてくれんかなあ。

ゆうメール

ちょっとした冊子を知り合いに贈る用があったのでゆうメールを利用しました。ゆうメールは昔　書籍小包といっていたもので、信書はだめですが書籍や論文などを送るのにゆうパックよりも安く送ることが出来ます。

重量	～150g	～250g	～500g	～1ｋg	～2ｋg	～3ｋg
運賃	180円	210円	290円	340円	450円	590円

さらに郵便局の人がレターパックというのもあると教えてくださって、場合によってはこちらの方が安くなるようです。僕のは1kg以下でしたのでゆうメールで340円でした。レターパックはレターパック500（500円）とレターパック350（350円）があって、封筒の厚みの差と、手渡し方の差があるようです。1kgを超える場合にはお得になりそうですね。

Scilab:乱数によるΠの計算

Scilabで乱数を使ってΠを求めてみました。

Scilabでは立ち上がったWindowサイズに応じてページサイズの出力が出る度にページコントロールで

[Continue display? n (no) to stop, any other key to continue]

のようなプロンプトを出して来ますが、面倒なのでこれを

lines(0)

で切ります。プログラムは下記のようにしました。（プログラムはScilabのメニューのApplications→Editorでエディターを開いて打ち込み、EditorのメニューのExecute→Load Into Scilabで実行します。）

lines(0)
maxc=100000000
count = 0;
for i = 1:maxc
  x=rand(1);
  y=rand(1);
  if sqrt(x^2+y^2) <= 1.0 then
    count = count + 1;
  end
  if modulo(i,1000000) == 0 then
    i
    pai=4*count/i
  end
end
count
pai=4*count/maxc

この乱数の精度がよくわかりませんが、実行結果です。

回数	Πの近似値
10,000,000	3.1413716
20,000,000	3.142014
30,000,000	3.1417497
40,000,000	3.1418244
50,000,000	3.141764
60,000,000	3.1417499
70,000,000	3.1417391
80,000,000	3.1416907
90,000,000	3.1416595
100,000,000	3.1416488

1億回計算させても小数点以下4桁目からずれています(^^;　Core2Duo　1GHz　メモリ２GBのノートPCで3時間くらいかかりました(^^;

PDF slim：PDFのサイズ縮小ソフト

窓の杜に

マグノリア、手軽にPDFファイルのサイズを圧縮できる「PDF Slim」を無償公開

という記事が出たので早速dlして使ってみました。これでメールに添付するPDFファイルのサイズ調整が簡単に出来そうです。記事に書いてあるようにPDFファイルをドロップダウンするだけでPDFを圧縮することが出来ます。4段階の圧縮が可能で、実行してみると

■画像の多いPPTファイルから作ったPDFファイル（数字は％を表します）

	カラー	モノクロ
最高画質	98	81
高画質	75	73
普通	49	49
低画質	29	35

モノクロ変換は画像は大体（バグなのか少しカラーが残ることもありました）モノクロになるのですが、フォントの色や図形の色はそのままでした(^^;

■文字中心の報告書（グラフや簡単な図も含みます）

	カラー	モノクロ
最高画質	95	94
高画質	95	94
普通	92	91
低画質	90	90

ということで画像が多いファイルはかなり圧縮できるようです。

Ruby:Excel:Excelのヴァージョンの違い その2

昨日うまくいったと思ったのですが、
Excel2000のSR-1だと動かず（表示されない）、SP-3だとちゃんと動く(^^;
ということが分かりました。どう解決すればいいのやら・・・

Ruby:Excel:Excelのヴァージョンの違い

RubyでExcelを扱うプログラムを走らせたら、

GUI.rb:39:in `const_load': failed to LoadTypeLibEx (WIN32OLERuntimeError)
HRESULT error code:0x80029c4a
タイプ ライブラリ/DLL の読み込みエラーです。
from GUI.rb:39

のようなエラーが出ます。悩んでいたらExcelのヴァージョンの違いで下記のバージョン指定を変えないといけないようです。

Excel 2000　では
WIN32OLE.const_load('Microsoft Office 9.0 Object Library', Office)
WIN32OLE.const_load('Microsoft Excel 9.0 Object Library', Excel)

Excel 2003　では
WIN32OLE.const_load('Microsoft Office 11.0 Object Library', Office)
WIN32OLE.const_load('Microsoft Excel 11.0 Object Library', Excel)

これで無事動きました。

Maxima:パラメトリックプロット

Maxima（WindowsVistaで実行）で楕円偏光（黒田先生のこの資料の(1)式より）のｘｙプロットを描きました。

x(t):=A1*cos(w*t);
y(t):=A2*cos(w*t+d);
plot2d([parametric, x(t),y(t),[t,0,1],[nticks,1000],[plot_format, gnuplot],[gnuplot_preamble,"set size square"]]),A1=1,A2=2,w=2*%pi,d=%pi/2;

Maxima for the Sciencesを参照させて頂き、

y座標がx座標の１価関数でないとき、２次元パラメトリックプロットが必要となります。

ということで上のようにパラメトリックプロットを指定しました。

• [gnuplot_preamble, “set size square 1 1”]
gnuplotに縦横比を1にするようコマンドを送ります。

gnuplotのオプションは効かないようです(^^;

Lua：ライブラリのPath

ひょんなことからLuaというスクリプト言語を使うハメになりました(^^;
それで勉強中です。

ライブラリを使うには

require 'library'

という宣言をするのですが、requireで探されるPathは次のようにして指定しておきます（Windowsの場合）。

set LUA_PATH=（ライブラリのLuaファイルがあるディレクトリ）\?.lua

この?.luaを抜かすとだめなようです。

小室山

ちょっと遅くなってしまいましたが、4/30に小室山に行きました。箱根から伊豆スカイラインの終点・天城高原まで行き、少し北上したところにあります。ちょうど今、つつじ祭りというのをやっていて、10万本のつつじがすばらしい所です。5月上旬まで楽しめそうです。

大きな地図で見る

奥が小室山でリフトで登ると360度の眺望がすばらしく、富士山、大島などを望むことが出来ます。

つつじ園の風景。

色々。

小室山から望む川奈ホテルと相模灘。