色々弄ってこんな風になりました。
http://no.m78.com/up/data/up029959.zip
これを、もう少し高速に計算させたいのですができますでしょうか？
それと、このプログラムの出来を評価してもらえると嬉しいです。