25

第2章

微分積分

この章では KNOPPIX/Math の入門として, 微分積分の計算問題を KNOPPIX/Math を援用してどのように解くか, という問題を考える. Maxima を主に利用するが, 適宜他のシステムへの入力も紹介する.
序文で, 繰り返しなどのプログラミングの基礎をマスターしていることがこの本を読む予備知識と述べたが復習もかねて, プログラミングの基礎も復習する.

2.1

電卓としての利用, 微分積分編

数学関連事項はテキスト以外に板書でも説明. ビデオ: lecture-2007/knx-05-10

2.1.1

微分の計算

例 2.1 [4, p.58] sin x の n 階の微分を計算しなさい.
一般の n での計算は公式集等が組み込まれたシステムでないとできない. n に具体的な数字をいれた場合の計算は簡単なので, いろいろな n で計算してみて結果を予想する.
システム名
入力

sin(x) の 3 階の微分の計算.

maximadiff(sin(x),x,3);

asir

diff(sin(x),[x,x,x]);axiom

D(sin(x),[x],[3])maplediff(sin(x),x$3);

Mathematica

D[Sin[x],{x,3}]

例 2.2 tan−1 (x) の n 階の微分の x = 0 での値 cn を求めなさい.
システム名

tan−1 (x) の 3 階の微分の x = 0 での値.

入力

maximasubst(0,x,diff(atan(x),x,3);

asir

subst(diff(atan(x),[x,x,x]),x,0);

axiom

subst(D(atan(x),x,3),[x=3])

maple

subs(x=0, diff(arctan(x),x$3));

Mathematica
D[ArcTan[x],{x,3}] /. {x->0}
一般の n での計算はむつかしい. n に具体的な数字をいれた場合の計算は簡単なので, いろいろなn で計算してみて結果を予想する. 階乗に関係する数が出現すると思う.
この問題の解は
cn = (−1)(n−1)/2 (n − 1)! (n が奇数), cn = 0 (n が偶数)

第 2 章 微分積分26である. この結果は tan−1 (x) のテイラー展開を求めるのに必要である. 証明は少々工夫を必要とす
る. 微分積分の教科書や演習書をみてみよう.
ちなみにいろんなシステムでの書き方を比較してある rosetta.pdf は便利. http://wiki.axiom-developer.org
よりリンクあり.

2.1.2

Taylor 展開の問題

例 2.3 tan−1 (x) の原点での Taylor 展開を計算しなさい.

Maxima2 行目は Taylor 展開を x10 の項まで計算する.
³
2 行めはその結果を用いて 4 ∗ tan−1 (1) の近似計算をしてしている. 4 ∗ tan−1 (1) = π なの´であるが, あまり近似はよくない. Taylor 展開

Ec/ta-mx-taylor.txt¶
ts:taylor(atan(x),x,0,10);
float(4*subst(1,x,ts));µの次数をもっとふやして, たとえ 100 にしても3.14 には程遠い. Taylor 展開の収束は原点近傍では早いが (どういう意味?), 外ではおそい.
一方マチンの公式は原点近くの tan−1 の展開を用いる (wikipedia).
システム開発者向けコメント.
上で ts の Lisp での内部構造を見るには :lisp $ts; と入力する. マニュアルの Taylor 展開の章
を参照.

2.1.3

合成関数の計算問題

合成関数は上で紹介した置換の関数や, 関数のすなおな合成をやればよい. ここでは応用として次の問題を考えよう.

D = {x | 0 ≤ x ≤ 1} = [0, 1] に対して, 写像 f を
f (x)

=

2x (0 ≤ x ≤ 1/2 の時)=

2 − 2x (1/2 ≤ x ≤ 1 の時)で定義する. f をテント写像とよぶ.
高木関数 T (x) はT (x) =∞∑
fn (x)
n=12nで定義される. ここで fn (x) は f (テント写像) を n 階合成した関数である.
例 2.4 テント写像の合成関数の値, および, そのグラフを書きなさい.

2.1. 電卓としての利用, 微分積分編

27

Maximaテント関数を maxima で定義するには

f(x):= if x < 0.5 then 2*x else 2-2*x;とすればよい.

f (x) の合成関数は f (f (x)), f (f (f (x))) などと計算していけばよい. 値を求めるには, たとえば
f(f(f(0.1)));
Maxima には plot2d というグラフを描く関数がある. たとえば
plot2d(sin(x),[x,0,10])とすると sin のグラフが書ける. plot2d 関数は残念ながらこのような f (x) は受け付けてくれないようである. もっと長いプログラムを書いてみないといけないようだ. うまい方法があるかどうかは講義中の課題.
ヒント:?
plot と入力して英語のヘルプを読んでみよう. discrete というオプションがあるのでこれが使えるかも. (ためしてない.)問題 2.1 高木関数のグラフを書きなさい.
報告課題: 高木関数は連続だが微分可能な点は存在しないことが知られている. 証明しなさい.

関数とは何か 1
計算機言語における関数 (手続き) については

2.4 で詳しく説明することにして, ここでは maxima

で書いた関数の例, asir で書いた関数の例を紹介し関数の考え方の入門としよう.
引数, 局所変数, ブロック化, 困難は分割, の考え方が本質的である. Todo: プログラムの説明.

Maxima 編
Ec/maxima-tent.txt¶³

f(x):=block([v],if x < 0.5 then (v:2*x,
print("x is smaller than 0.5")) else (v:2-2*x),
return(v));µ
maxima ではこれをテキストエディタ (emacs) などで入力し,batch("maxima-text.txt"); と読み込んでから利用.
Asir 編Ec/a-tent.txt´

第 2 章 微分積分

28
¶

³

def tent(X) {if (X < 1/2) {V = 2*X;
print("X is smaller than 1/2.");}else{
V = 2-2*X;}
return(V);}µ´batch("maxima-text.txt"); と読み込んでから利用. asir ではこれをテキストエディタ (emacs)などで入力し,load("maxima-text.txt"); と読み込んでから利用.

Mathematica
Mathematica は見事につぎのようなグラフを書く. Ec/math-takagi.txt¶³

f[x_]=If[x<0.5,2*x,2-2*x];
Plot[f[f[x]],{x,0,1}]
Plot[f[f[f[x]]],{x,0,1}]

µ

´

asir
(このプログラムは少々上級. あとまわし.) Ec/ta-c-atent.txt¶³

def tent(X) {if (X < 1/2) return 2*X;else return 2-2*X;}
def t2() {gnuplot.plotDots(0,0);A=[];
for (X=0.0; X<=1.0; X += 0.02) {A=cons([X,tent(tent(X))],A);}A = reverse(A);print(A);gnuplot.plotDots(A,"lines");}
def tn(N) {gnuplot.plotDots(0,0);A=[];
for (X=0.0; X<=1.0; X += 0.01) {Y = tent(X);for (I=0; I<N-1; I++) {Y = tent(Y);}A=cons([X,Y],A);}A = reverse(A);print(A);gnuplot.plotDots(A,"lines");
}
end$

µ

´

2.1. 電卓としての利用, 微分積分編

29tn(5) あたりはうそのグラフになってる. このような方法の限界である. 論理的に関数を合成しな
いといけない.

2.1.4

不定積分, 微分方程式の記号解の計算

不定積分の計算はいわゆる Risch のアルゴリズムが基礎となっている. Maxima は 1970 年代にRisch アルゴリズムの研究が全盛であった時代に開発されたため不定積分の能力は充実している [7,94–96]. 最新の研究については M.Bronstein による [6] を読むことをお薦めする. Bronstein の最新の研究成果は axiom およびその仲間の aldor, Σit などに実装されている.

WikiPedia の Risch algorithm http://en.wikipedia.org/wiki/Risch algorithm の項からBronstein による symbolic integration tutorial がリンクされている.
コラム: 不定積分は現代数学にとって興味深い課題か? やっぱり微分ガロア理論とのつながりで興味がうまれるのか?

不定積分
とりあえず maxima でいろんな不定積分をためしてみよう.

Ec/ta-c-xn.txt¶³

assume(not equal(n,-1));
integrate(x^n,x);µEc/ta-c-f1.txt¶
integrate(1/sqrt(1-x^2),x);
integrate(1/(1+x^3),x);
integrate(1/sqrt((1-x)*(1+x*z)),x);/* restart. z+1 nonzero; z positive;´³

z-1 nonzero; */µ´nonzero とか質問されたら, nonzero; などと入力する. セミコロンと ENTER キーをおすのをお忘れなく.
専門家向け: sin−1 (x) は超幾何積分の簡単な場合とも思える...
教科書の問題をかたっぱしからやってみるのも楽しいかも. ただしやりかたを説明してくれないのが残念. [4] の p.101 演習問題 4, 6 を試す.
¶

Ec/ta-c-int.txt³

integrate((x+1)/(x*(x-8)^(1/3)),x);
integrate((1/x)*sqrt((x+4)/(1-x)),x);
integrate(1/(x*sqrt(x^2+x+1)),x);
integrate(1/(x*sqrt(2+x-x^2)),x);
integrate(sin(x)^4*cos(x)^3,x);
integrate(1/cos(x),x);
integrate(cos(x)/(sin(x)+cos(x)),x);
integrate(6/(4*cos(x)^2+sin(x)^2),x);µ´

第 2 章 微分積分

30

Axiom への入力方法は maxima とほぼ同様である. 終了は )quit と入力してから y を入力
する. ファイルの読み込みは )read ファイル名 である. ; を入力すると結果は表示されない.
Ec/axiom-int.txt¶³
integrate(1/sqrt((1-x)*(1+x*z)),x)
integrate((x+1)/(x*(x-8)^(1/3)),x)
integrate((1/x)*sqrt((x+4)/(1-x)),x)
integrate(1/(x*sqrt(x^2+x+1)),x)
integrate(1/(x*sqrt(2+x-x^2)),x)
integrate(sin(x)^4*cos(x)^3,x)
integrate(1/cos(x),x)
integrate(cos(x)/(sin(x)+cos(x)),x)
integrate(6/(4*cos(x)^2+sin(x)^2),x)

µ

´

微分方程式
微分方程式についてはまた次の節で詳説するが, とりあえず maxima による記号解法をためしてみよう. 利用しているアルゴリズムについては ode 部分の開発にも参加した渡辺の本 [8] が貴重な文献である. これは 1970 年代の最新の成果である. 特殊関数でとければグラフもかける.
なお, あとの章でふれる級数解については Maple のパッケージ DEtools[formal sol] (Mark Von
Hoeij が開発した) が充実している. ([9] も参照. この本に書かれているプログラム群は配布可能なパッケージとして完成していないのが残念である.)
なお 微分ガロア群の計算, 有理解の計算, 代数解の計算, Liouvillian 解 (雑にいえば初等関数と∫と exp(x) で書ける解) の計算アルゴリズムの研究は macsyma が開発されていた, 1970 以来研究がおおいに進展しており, 成果は axiom(むしろ Σit , Maple 等のパッケージに反映されている (ようだ).
強制振動の解 Ec/ta-c-osci.txt¶³

atvalue(x(t),t=0,1);
atvalue(diff(x(t),t),t=0,0);dsol:desolve(diff(x(t),t,2)+x(t) = sin(t),x(t));/* We need to get the righthand side of =or use "part" function (p.118) */sol2a:substpart("+",dsol,0);sol2b:subst(0,x(t),sol2a);plot2d(sol2b,[t,0,30]);
sol:ode2(’diff(x,t,2)+x = sin(t),x,t);sol2:subst(3,%k2,subst(2,%k1,sol));µ´Duﬃng 方程式の解. (強制振動の解. 外力ありだとカオスでもでてくる.) Ec/ta-c-duffing.txt¶³
eq:’diff(x,t,2)+x+e*x^3=0;
ode2(eq,x,t);µ
Logistic equation Ec/ta-c-logistic.txt´

2.1. 電卓としての利用, 微分積分編

31

¶

³

ode2(’diff(x,t)-x*(1-x),x,t)=0;%% It answers in an implicit form.

µ´

本来の Logistic 方程式には二つのパラメータ k と A ある.

x0 = kx(A − x),x(t) =

x(0) = x0

A
1 + (A/x0 − 1) exp(−kAt)が一般解である [11, p.26].
問題 [11] の 第３話にでている成長曲線にあらわれるようなデータを R の関数で解析しなさい.
連立の微分方程式. Ec/ta-c-mx-2.txt¶³

atvalue(x(t),t=0,1);
atvalue(y(t),t=0,0);
sol:desolve([diff(x(t),t)= -(1/2)*x(t)+(1/100)*y(t),diff(y(t),t)= (1/200)*x(t)-(1/3)*y(t)], [x(t),y(t)]);plot2d([parametric,part(sol[1],2),part(sol[2],2)],[t,0,10]);µ´
簡単な reaction-diﬀusion 方程式の定常解だが, 出力される解は陰形式でかつ, 超幾何不定積分.
(todo: これで OK?) Ec/ta-c-rd.txt¶³

eq:(1/200)*’diff(x,t,2)+x*(1-x)=0;
ode2(eq,x,t);µ
Maple Ec/maple-de.txt¶´³# p.312 (Waterloo Maple Inc)# in Computer algebra handbook, Springer.
# read ‘maple-de.txt‘;
with(DEtools):
eqn:=diff(y(x),x)=-y(x)-x^2;
dsolve(eqn,y(x));
dsolve({eqn,y(0)=0},y(x));
phaseportrait(eqn,y(x), x=-1..2.5,[[y(0)=0],[y(0)=1],[y(0)=-1]],
title=‘Asymptotic solution‘, colour=magenta,
linecolor=[red,blue,green]);µ´

微分方程式と付随する特殊関数

Bessel 関数や Airy 関数などの特殊関数も maxima には組み込まれている. Airy 関数のグラフ.
Ec/ta-c-airy.txt¶³
plot2d(airy(x),[x,-10,10]);µ´
Ai(0) = 31/6 Γ(1/3)/(2π)

第 2 章 微分積分

32
をたしかめて見る. 値があうとうれしい...

Airy の微分方程式, Airy 関数の積分表示については http://functions.wolfram.com も参照してみよう.
数学関連事項はテキスト以外に板書でも説明. ビデオ: lecture/knx-05-11
問題: Airy 関数のグラフを複素数引数でかけるか?
問題: Bessel 関数を用いた円の Laplacian の固有関数の表示.
問題: 特殊関数を用いた Schrödinger 方程式の特殊解.
研究問題: 虹と Airy 関数.
研究問題: Airy 関数の一般化としての [1, 2, 3, . . . , n] 超幾何関数と方程式.

2.2

グラフ作成

例 2.5 [4, p.74] r = a sin(2θ) の描く図形を描画しなさい. ここで a は定数.

Todo: これを 1 コマンドで書くシステム知らず...
数学関連事項はテキスト以外に板書でも説明. ビデオ: knx-05-18

Maxima超幾何関数のグラフを描いてみよう.

Not found : @@code Ec/maxi-atan.txt Maxima では

F (1/2, 1/2, 1, x) の描画はできないようだ.

Mathematica
Mathematica は超幾何関数の数値計算に強い. (Maple もそうらしい) Ec/math-atan.txt¶³

Plot[x*HypergeometricPFQ[{1/2,1},{3/2},-x^2],{x,-2,2}]
Plot[-x*HypergeometricPFQ[{1,1},{2},x],{x,-10,0.9}]
Plot[HypergeometricPFQ[{1/2,1/2},{1},x],{x,-10,0.9}](* Use N[] to get numerical values *)(* cf. hypergeom([a,b],[c],x) in Maple *)µ´

F (1/2, 1/2, 1, x) の描画もきちんとできる.

Maximaどんな形が想像できる?

plot3d( sin(sqrt(x^2+y^2))/sqrt(x^2+y^2),[x,-15,15],[y,-15,15]);
いくつか定番の数学的図形.

Mobius の輪. Ec/ta-c-mobius.txt¶³

plot3d([cos(x)*(3+y*cos(x/2)),
sin(x)*(3+y*cos(x/2)),
y*sin(x/2)],[x,-%pi,%pi],[y,-1,1]);µ´

2.2. グラフ作成

33

Torus を描く. Ec/ta-c-torus.txt¶³

plot3d([cos(y)*(10.0+6*cos(x)),
sin(y)*(10.0+6*cos(x)),-6*sin(x)],[x,0,2*%pi], [ y,0,2*%pi]);µ´
Todo: だれでもわかる cycloid. それから, 中川 p.49 (クロソイド), p.113 (ヘンネベルグの極小曲面) を描いてみる.

dynagraph
http://www.math.umbc.edu/˜rouben/dynagraphplot3d(x^2-y^2,x=-2..2,y=-2..2);
File, save image ﬁle メニューから画像の保存もできます.
Torus を描く. Ec/dyna-torus.txt¶³

plot3d([cos(y)*(10.0+6*cos(x)),
sin(y)*(10.0+6*cos(x)),-6*sin(x)],x=0..6.28, y=0..6.28);µファイルの読み込みは Maple と同じで read ‘dyna-torus.txt‘;´

Torus は数学では基本図形. (楕円曲線. 平面を格子で割る. Homology 群. ...). 綺麗にかけると,頭にこれらの理論がうかんできて, やっぱりうれしいのは数学科だから?
問題: 複素楕円曲線が退化して genus 0 の曲線になるアニメを作成せよ.

Mogan のリーマン幾何学 (beginner’s guide)[10] の最初の節に煙突に鉄板を巻き付ける問題が提示されている. 巻き付ける曲線の式は(a cos(t), a sin(t), ht/2π)であり, a, h に応じてどのように巻き付ける鉄板を切るのかは曲率の問題である. それはさておいて,巻き付ける曲線を描いてみよう.

tubeplot([cos(t),sin(t),t],t=0..10);
spacecurve([cos(t),sin(t),t],t=0..10);
tube の太さは tuberadius パラメータで変更できる.
Knoppix/math には極小曲面 (せっけん膜曲面) を描く強力なソフトウエアが含まれているが (CMCLab), これについては CD の文書フォルダ (バージョンにより異なるが desktop の knoppix-mathja/PDF フォルダのファイル cmclab.pdf にある) 小林君の解説が詳しい. 極小曲面の研究には 3 回の流行があり, 現在は第 3 期目らしい. 第 3 期は計算機による数値計算で曲面を描きその結果から定理をいろいろと考えるという研究方法が主流となったらしい. ちなみに, 極小曲面の偏微分方程式は数値的に解くのも大変に難しいので, いろいろと特別な手法 (Poincare-Birkoﬀ-Witt 法) などが開発されている.

Todo: 昨年の wiki も参考に. (CompOne06 および TryGraphics06)

第 2 章 微分積分

34
gnuplot
Maxima は実は gnuplot をよびだしてグラフの描画をしている. asir も同じで,gnutplot.gnuplot("plot sin(x)");などと gnuplot の命令を直接実行できたりもする. くわしくは asir-contrib のマニュアルを参照(http://www.math.kobe-u.ac.jp/OpenXM/Current/doc/index-doc-ja.html)
Windows 版 gnuplot についてのノート.
Q. 起動時のフォントはあまりに小さくて読みにくい.
A. gnuplot の window で右クリックするとフォントの選択メニュ- “Choose Font” メニューがでる
ので, これでフォントを大きくする. 次回の起動でも有効にするには “Update .... wgnuplot.init” もお忘れなく.
例 2.6 z = x2 − y 2 の (x, y) = (1, 1), (x, y) = (1, −1), (x, y) = (−1, 1) での接平面を求め, それを図示しなさい.

Maxima が自動生成する gnuplot 用の入力 maxout.gnuplot も活用できる.

JavaView(Todo: asir-contrib/taka jv.rr について sample に解説を加筆.)
簡単な多面体を書かせてみよう. データは obj 形式で与える.
基本となるデータは 2 次元多面体である. 多面体の集まりとして曲面を描画する.

1. v で頂点の座標を指定.
2. f で頂点の番号を指定.
3.

f 1/2 2/1 3/3 とか f 1/2/1 2/1/2 3/3/2 などと書いてあってもこれは分数ではない.
/ のあとの数字は texture vertex number と vertex normal number である.

obj 形式でのデータの与え方についてくわしくは, http://www.javaview.de/guide/formats/Format Obj.html
を参照.
次の例 (jv-simp.obj) は 0, e1 , e2 , e3 を頂点とする単体を描く. Ec/jv-simp.obj¶³

v 0 0 0v 1 0 0v 0 1 0v 0 0 1f 1 2 4f 2 3 4f 1 3 4µ
(実行の仕方は講義メモ 2007-05-18 の方を参照)
2 変数ベッセル関数のグラフの例は takayama のホームページより.
Java と JavaView のライセンス.

OpenGL
math-polyglot を参照.

´

2.2. グラフ作成

2.2.1

35

スライドの作成

スライドには画像をいれたいもの. さまざまな画像の取り込みのヒント.
スクリーンコピーの取り方.

1. Knoppix/math: KDE にたしかスクリーンコピーのコマンドがあったような.
2. Windows: alt + print screen すると画面が clipboard に入るので, 適当な画像エディタに張り付ける. たとえば mspaint (アクセサリ, ペイント) 等.

3. Mac: shift + コマンドマーク (四角いやつ) + 4 を押した後, マウスで範囲を指定すると自動的に png ファイルがデスクトップにセーブされる.
4. unix 一般. xwd
ImageMagic の convert コマンドで画像形式を変換可能.
¶
convertpic1.png³

pic1.jpgµ
jpeg2ps で ps にすればあとは TEX で取り込める.
スライド作成のその他については, ... を参照.

´

第 2 章 微分積分

36

プログラミング入門

2.3

さて次の節で常微分方程式を差分法で解く前のトレーニングとして, 数列を求める basic のプログラムを書いてみよう.

Knoppix/math には多数の数学ソフトウエアが収録されているが, 一行の命令でいろいろなことをやらせることが可能ではあるが, さらにはプログラミングをすることによりよりより複雑な数学実験が可能となる. 序文ではプログラミングの初歩は理解してると仮定していると述べたが, この章では復習もかねて, 数列の漸化式を計算するプログラミングから始める.
高校の数学では数列の一般項を求める訓練を延々をうける. 計算機言語は数列の一般項を求める魔法の言語ではない. 計算機言語でできることはたとえば漸化式で定義された数列の 100 項目を求めるといった計算である. この節では, 数学はよく知ってるが計算機言語をはじめて使うという読者も対象にプログラムを書くイロハからはじめてみる. プログラムの入門者にとり, 10 進 basic (Knoppix/Edu)や maxima, Risa/Asir はとてもとっつきやすいプログラム言語であろう.

10 進 basic が含まれていない knoppix/math の場合は 10 進 basic をインストールする. 10 進 basicの配布サイトは http://hp.vector.co.jp/authors/VA008683/

Knoppix/math の場合は Linux 版 をダウンロード.
参考: 高校数学の教科書. 10 進 basic 付属の PDF の入門書.
数学関連事項はテキスト以外に板書でも説明. ビデオ: knx-05-25:

言語の歴史, 構造化の考え, etc

流れ図 — ﬂow chart

2.3.1

アルゴリズムを図示して説明する方法がいろいろあるが, その最も古いものが “流れ図” (ﬂow chart)である.
1
次の図は 1 + 12 + 13 + · · · + 100の (近似) 値を求める手順を流れ図で書いたのものである.

s ←− 0, k ←− 1↓(1) s ←− s + 1/k↓k ←− k + 1↓
k > 100 か?

yes−→

s を出力して終了↓ no(1) へ処理を進めるプログラムにおいて変数とは計算結果を格納しておく箱のようなものである. 格納できる数字の桁数はきまっている. 計算機にはメモリという名前の, コンデンサーとトランジスタを大量に用いた記憶領域があるが, この変数 (箱のようなもの) はメモリを用いて実現されている.
さて,s ← s + 1/k の矢印は右辺の計算結果を変数 s に代入せよ, という意味である. はじめて

(1) が実行される前は変数 s には 0 がはいっており, k には 1 がはいっている. (1) の右辺の計算が実行されて, その結果の 0 + 1 = 1 が変数 s に代入されて (1) の実行が終る. 次の k ←− k + 1 が実行される前は変数 k には 1 が入っており, 右辺の計算が実行されて, その結果の 0 + 1 = 1 が変数
k に代入されてこの処理が終る. k は 101 より小さいので (1) に実行が移る.
次に (1) が実行される前は変数 s には 1 がはいっており, k には 2 がはいっている. (1) の右辺の計算が実行されて, その結果の 1 + 1/2 = 1.5 が変数 s に代入されて (1) の実行が終る. 次の2.3. プログラミング入門

37k ←− k + 1 が実行される前は変数 k には 2 が入っており, 右辺の計算が実行されて, その結果の2 + 1 = 3 が変数 k に代入されてこの処理が終る. k は 101 より小さいので (1) に実行が移る.
次に (1) が実行される前は変数 s には 1.5 がはいっており, k には 3 がはいっている. (1) の右辺の計算が実行されて, 1.5 + 1/3 の近似値 1.8333 · · · 3 が変数 s に代入されて (1) の実行が終る. 近似
値として小数点以下何桁までとるかは処理系によって決まっている. (このあたりは電卓による計算と同じである.) 次の k ←− k + 1

が実行される前は変数 k には 3 が入っており, 右辺の計算が実行されて, その結果の 3 + 1 = 4 が変数 k に代入されてこの処理が終る. k は 101 より小さいので(1) に実行が移る.
以下この計算が k が 100 になるまで繰り返される.

2.3.2

s = s + 1/k の意味は?

さて前の節の処理を Basic のプログラムとして書くと次のようになる. Ed/basic-zenka.txt¶³

10 s=020 k=130 s = s+1/k
40 k=k+1
50 if k < 101 then goto 30
60 print s
70 endµ´
Basic では数学と異なり = 記号を右辺計算して左辺に代入するという意味で用いており, 上のプログラムで s = s+1/k は s ← s + 1/k なる意味である.
また, k=k+1 は k ← k + 1なる意味である.

左辺には変数名しか書けない ことに注意しておこう. したがって, たとえば, k^2+2*k+1 = (k+1)^2 のような式を basic のプログラムとして書くと, エラーにある.

2.3.3

for ループ

20, 40, 50 の処理は定石的な繰り返し処理である. 定石的な繰り返し処理には専用の命令が用意されている. 今の場合 for ループを用いて次のように書くのが一般的である.

Ed/basic-for.txt¶
10 s=0
20 for k=1 to 100
30s = s+1/k
40 next k
50 print s
60 end

µ

2.3.4

練習

1. 12 + 22 + · · · + 102 を計算するアルゴリズムを流れ図で書き, Basic でプログラムしなさい.
2. 漸化式 fk+1 = fk + 1/fk , f1 = 1 で決まる数列で f100 を求めるアルゴリズムを流れ図で書き,
Basic でプログラムしなさい.
3. 乗法を繰り返して 216 を計算するアルゴリズムを流れ図で書き, Basic でプログラムしなさい.

³´

第 2 章 微分積分38

4. 1/10! の (近似) 値を計算するアルゴリズムを流れ図で書き, Basic でプログラムしなさい.
5.

∑10

k=0 1/k! (0! = 1 ときめる) の (近似) 値を計算するアルゴリズムを流れ図で書き, Basic でプ

ログラムしなさい.

6. ユークリッドの互除法を用いて整数 a と b の最大公約数 gcd(a, b) を計算するアルゴリズムを
流れ図で書き, Basic でプログラムしなさい.

2.3.5

Debug の仕方

print 文をはさむ
自分が計算機となったつもりになって下のメモリに格納されたデータを書き変えていく
漸化式

fk+2 = fk+1 + fk ,f1 = f2 = 1

できまる数列 (フィボナッチ数列) の 100 項まで計算して表示するプログラム.

Ed/basic-fibo.txt¶³

10 a=120 b=1
30 for k=1 to 100
40
print a50c = a+b
60
a = b
70
b = c
80 next k

µ
アドレス

´

変数の名前

内容

内容

k

1

2

a

1

1

b

1

2

c

2

3

内容

内容

内容

1. “内容” は 50 行目の実行が終了した時の各変数の値.
問題: 上の図の空白をうめよ.
問題: 他のプログラムについても同様な図を作成してプログラムの実行を追いなさい.
参考:1. アドレス (メモリの番地) は Basic のプログラムを読むときは必要ないが, C のプログラムを読むときは必須. 特にポインターを利用するとき.
2. C のプログラムを読むときは, 変数のサイズ, つまり 2 進数何桁の数を格納できるかにも注意.

2.3.6

他の言語での for と if とグループ化

いろいろな言語をみるとプログラム言語共通の普遍的構造 (本質的アイデア) が見えてくるだろう.
例 2.7 (Newton 法による√2 の計算) 漸化式 fn+1 = fn /2+1/fn , f0 = 1 で定義される数列 f1 , ..., f9を計算しなさい. fi の i が奇数の時および f9 を (できたら小数で) 表示せよ.

2.3. プログラミング入門

39

C
Ec/c-for.c¶#include <stdio.h>main() {int i;
double f;
f=1;
for (i=1; i<10; i++) {f = f/2.0 + 1/f;
if (i % 2 == 0) {printf("%f\n",f);}}printf("%f\n",f);}µgcc c-for.c ; ./a.out

³

´

asir
Ec/asir-for.txt¶³

def main() {F=1;
for (I=1; I<10; I++) {F = F/2 + 1/F;
if (I % 2 == 0) {print(F);}}print(F);print(eval(F*exp(0)));}main()$end$µload("./asir-for.txt");´

MaximaEc/maxima-for.txt
¶

³

f:1;
for i:1 step 1 thru 9 do (f : f/2 + 1/f,
if remainder(i,2) = 0 then print(f));
print(f);print(float(f));µ
batch("maxima-for.txt");
Q. then のあとに複文をどう書くか?
A. ( 命令 1 , 命令 2 , .... ) と書く.

´

第 2 章 微分積分

40
Mathematica
Ec/math-for.txt
¶

³

f=1;
For[i=1, i<10, i++,f = f/2 + 1/f;
If[TrueQ[Mod[i,2] == 0],
Print[f]]];Print[N[f,30]];(* This is a comment *)µ<<math-for.txt;
Q. Print[f] のあとに複数の命令を書きたいときは?
A. Print[f]; g=1/f;´

みたいに , で区切って書く.

R
Ec/r-for.txt
¶

³

f<-1;
for (i in 1:9) {f<-f/2 + 1/f;
if (i %% 2 == 0) {print(f);}}print(f);µ´source("r-for.txt");

Macaulay2
Ec/m2-for.txt¶(f=1;
for i from 1 to 9 do (f = f/2+1/f;
if i % 2 == 0 then (print(f);));
print(f);)-- load "m2-for.txt"-- How to translate into float?

µSingularEc/sing-for.txt³´

2.3. プログラミング入門

41

¶

³

ring R =0,(x),dp;
number f=1;
number i;for (i=1; i<10; i = i+1) {f =f/2 + 1/f;
if (i % 2 == 0) {print(f);}}print(f);/* <"./sing-for.txt" to load *//* How to translate into float?*/µ´

if 文では { } の省略はできない.

Maple
Ec/ml-for.txt
¶

³

f:=1;
for i from 1 by 1 to 9 do
f := f/2+1/f;
if remainder(i,2) = 0 thenprint(f);fiod;print(convert(f,float));## read ‘ml-for.txt‘;µ´

kan/sm1
Ec/sm1-for.txt¶³/f (1).. def
1 1 9 {/i seti 2 idiv /j set
i, 2 j mul, sub, /r seti (universalNumber) dc /i set/ff (2).. div , (1).. f div , add
def[(cancel) f] mpzext /f set
r 0 eq {f message} { } ifelse} forf (double) dc message%% (sm1-for.txt) run ;to loadµTodo: 答えが変. (double) dc の bug.

OctaveEc/oct-for.m´

第 2 章 微分積分

42¶
% source "./oct-for.m";
f=1;
for i=1:9
f = f/2+1/f;
if (rem(i,2)==0)
printf("%f\n",f);endif
endforprintf("%f\n",f);³
to execute it

µ

´

Java
Ec/jfor.java¶³

import java.io.*;class jfor {public static void main(String args[]) {double f;
int i;
f=1.0;for (i=0; i<9; i++) {f = f/2.0+1.0/f;
if (i % 2 == 0) {System.out.println(f);}}System.out.println(f);}}/* javac jfor.java
java jfor*/µ

ソースコード名はかならず jfor.java とする.

kan/k0
Ec/k0-for.txt´

2.4. 数列の計算, maxima, asir 編

43

¶

³

def main() {local f,i;
f = 1;for (i=0; i<10; i++) {f = f/2+1/f;
f = Cancel(f);if ( (i == 0) || (i == 4) || (i == 8)) {Println(f);}}sm1(" f (double) dc /f set ");sm1(" f message ");Println(f);}main();/*
openxm k0
load["k0-for.txt"];;There are bugs in the system.
*/

µ

´

pari/gp
Todo:

2.4

数列の計算, maxima, asir 編

例 2.8 [4, p.6] に関連した問題.
漸化式 a1 = 2, an+1 = 12 (an + 1), n ≥ 0 で定義される数列を考える. a1 , . . . , a100 を計算せよ.

limn→0 an の値を予想せよ.

MaximaEc/ta-c-maxima-6.txt
¶

³

A:2;
for I:1 step 1 thru 100 do (print(A),
A:(A+1)/2);

ftest():=block([A,I],
A:2,
for I:1 step 1 thru 100 do (print(float(A)),
A:(A+1)/2),
return(float(A))
);

µ

´

第 2 章 微分積分

44“関数” 定義, 局所変数等は是非覚えておかないといけない基礎的な考え方. 超入門参照. Todo:
加筆.

Asir
プログラム例 (漸化式) Ec/ta-c-asir-6.txt¶³

A = 2;for (I=1; I<=100; I++) {print(A);A = (A+1)/2;
}
end$

µ

´

このプログラムを実行してみると a100 = 633825300114114700748351602689/633825300114114700748351602688と出力されて結果の予想がつきにくい. このような時は an の値をグラフにしてみるとか, 次のプロ
グラムのように近似値を表示させるのも一つの方法である.
注意:

A=(A+1)/2 の意味がはっきりわからないときは, “超入門 cfep/asir” [1] をかならず参照.
プログラム例 (漸化式 2) Ec/ta-c-asir-6c.txt¶³

A = 2;for (I=1; I<=100; I++) {print(deval(A));
A = (A+1)/2;
}
end$

µ

´

この問題を K 君は次のように解いた.
an+1 = 12 (an + 1) を変形して, an+1 − an = 12 (an − an−1 ). bn = an − an−1 とおくと, b2 =3/2 − 2 = 1/2, bn = −(1/2)n−1 となる.
いまan

= (an − an−1 ) + (an−1 − an−2 ) + · · · + (a2 − a1 ) + a1n∑bk + a1=k=2= −1 − (1/2)n−1 1+2
1 − 1/2 2となるので, 次のプログラムが解答である.
¶

Ec/ta-c-asir-6b.txt³

for (I=1; I<=3; I++) {A = 2-(1/2)*((1-(1/2)^(I-1))/(1-1/2));
print(A);
}
end$

µ

´

2.4. 数列の計算, maxima, asir 編

45

このプログラム例について次のような意見がある.
意見 1: この方法はこの形の漸化式にしか使えない特別な方法であり, プログラム例 (漸化式 1) のような一般性がない. つまり, プログラム例 (漸化式 1) のようなプログラムなら, たとえば与えられた漸化式が an+1 = 3an + n5 のようにかわっても, A = (A+1)/2 の部分をA = 3*A+I^5と書き換えるだけで使える. よってこのようなプログラムはよくない.
意見 2: 数学的な考察をしてからプログラムを書くのはすばらしい. プログラムも簡潔だ.
意見 3:(1/2)^I を何度も計算するのは無駄.

どの意見もごもっともである. よくできたパッケージや組み込み関数では, 特別な場合に通用する方法, 一般的な方法がくみあわせてあって, 最適なものを選ぶようになっている.
疑問: an の一般項を求めるパッケージはないの?
商用システムの maple には rsolve という関数がある. たとえばこの問題は次のように解ける.

> rsolve(f(n+1)=(f(n)+1)/2, f(k));kf(0) (1/2)

k- (1/2)+ 1

専門家向き 1. (Sloane’s encyclopedia of integer sequence)

http://www.research.att.com/ njas/sequences/ にたとえば 1 1 2 3 5 8 と入力してみよう. Fibonacci 数列という答えがもどり,((1+sqrt(5))^n-(1-sqrt(5))^n)/(2^n*sqrt(5))
なる一般項も返事してくれる. この問題のような分数の列には対応してない.
専門家向き 2. http://algo.inria.fr から配布している, gfun は数列を調べるための maple パッケージ.
例 2.9 [4, p.9 例題 7] に関連した問題.
√
漸化式 a1 = 1, an+1 = an + 1, n ≥ 1 で定義される数列を考える. a1 , . . . , a100 の近似値を計算せよ. limn→0 an の値を予想せよ.
極限を求める数学での答え:

an は 有界で単調増加である ([4, p.9] 参照). “有界で単調増加な数列には極限が存在する” のであ√るから, limn→∞ an = a が存在する. 極限の存在が保証されたのであるから, an+1 = an + 1 の両辺√√の極限をとり, a = a + 1 がわかる. よって, a2 = a + 1. これを解いて, a = 1±2 5 . いま 1 = a1 < a√なので, a = 1±2 5 ' 1.61803.

Asir
プログラム例 (漸化式) Ec/ta-c-asir-9.txt

第 2 章 微分積分

46
¶

³

A = 1;for (I=1; I<=100; I++) {print(A);A = (A+1)^(1/2);
A = deval(A);
}
end$

µ
専門家向け話題.
Q.

´
n ( )
∑
n
k=0

k

= 2n

を証明したり, 計算するアルゴリズム, システムはないの?

A. “A=B” という本が基本的参考書.
例 2.10 4 ∗ tan−1 (1) およびマチンの公式を用いて π の近似計算を試みよ. 計算速度と精度を比較せよ.
例 2.11 超幾何関数は sin−1 (x) の親玉みたいなもんだから (積分表示をみよ), π が超幾何関数の組合せでかけてもおかしくない. ただしマチンの公式みたいに簡単でない.
∞
∑
1
= 12
f (n)
π
n=0

Ec/asir-pi.txt¶³

def f(N) {return(-1)^N*(( 545140134*N + 13591409)/(640320^(3*N+3/2)))*fac(6*N)/( fac(3*N)*fac(N)^3);}µ´
この公式は Chudonovsky が導出した超幾何級数を用いた 1/π の公式である. これを用いて 1/πの近似計算 (桁数が多いやつ) を試みよ.

R のプログラミング
最後になるが, 講義のフィードバックでは, 統計システム R の人気が高い. プログラムの例として,1 次元の乱歩のプログラム (kadota 作) を掲載しておこう.

2.5. 2 変数関数の最大値最小値問題
E/kadota-randw.r¶47(門田作. 2007-05-10). 乱数による一次元の運³動のシミュレーション. ベクトル m の大きさ
は 50000 m[j] は j 回目の試行による動き. +1

sample<-50000;
for(i in 1:4){
m <- floor(runif(sample)*100);か −1 の値が入っている.
if(m[1]%%2 == 0) { m[1] <- 1; }else { m[1] <- -1; }結果のグラフより, 一旦上にうごいていくと上for(j in 2:sample){if(m[j]%%2 == 0) { m[j] <- m[j-1]+1; } に動く傾向が続くこと, 一旦下へ動くと下へ動else { m[j] <- m[j-1]-1; }く傾向が続くことが見えてくる. (逆正弦法則).
}
plot(m, xlim=c(0,sample), ylim=c(-500, 500), type="l");par(new=T);}
abline(0, 0, col="red");µ´

統計システム R は c 関数で生成する通常のベクトルや array 関数で生成する通常の配列以外に,

factor (因子), data frame(データフレーム) といった統計用の特別のデータ型が用意されている. また普通のプログラム言語でいう map 関数相当の機能も充実している. R-intro-jp.170.pdf が基本
文献だが, この文献のわかりにくい点を解説しながら, これらの普通の言語との違いを重点的に例を挙げて説明したい (todo).

関数 (手続き) の定義
困難は分割せよ

Todo: 関数とはなにかの復習は, asir book 8 章を参照.
http://www.math.kobe-u.ac.jp/HOME/taka/2007/asir-book-2007.pdf
また/usr/local/icms2006/projects/mathpolyglot/src/lang-func には様々なシステムでの関数の定義方法が書いてある. ここは, desktop の icms2006 フォルダの全体のインデックスからも
到達可能.

2.5

2 変数関数の最大値最小値問題

2 次元グラフの作成はまず 1 次元の切口を沢山書くこと.
@s/2007/03/knx* ?
Six-hump camel back function.
x21 (4 − 2.1x21 + x41 /3) + x1 x2 + x22 (−4 + 4x22 )Bruce force method. fx = 0, fy = 0, f = 0 を解いて全部の点を調べる.
Todo: くわしく. Lagrange の未定定数法も.

49

関連図書
[1] 高山信毅, 超入門 cfep/asir,
http://www.math.kobe-u.ac.jp/HOME/taka/2005/cfep/pdf/next2.pdf[2] 中川義行, Maxima 入門ノート 1.2.1, 2006.
KNOPPIX/Math, 2006,
Desktop/knoppix-math-ja/PDF/maxima-note.pdf[3] Maxima マニュアル改訂版, 2006.
KNOPPIX/Math, 2006,
Desktop/knoppix-math-ja/PDF/MaximaManualBeta.pdf[4] 林平馬, 岩下孝, 浦上賀久子, 今田恒久, 佐藤良二, 微分積分学序論, 学術図書出版社.
[5] 三宅敏恒, 微分積分
[6] M.Bronstein, Symbolic Integration I, Algorithms and Computation in Mathematics, Springer,
1997.
[7] J.Grabmeier, E.Kaltofen, V.Weispfenning, editors. Computer Algebra Handbook, Springer,
2001.
[8] 渡辺隼郎, 常微分方程式の数式処理, 教育出版, 1974
[9] 河野実彦, 常微分方程式と数式処理, 森北出版, 1998
[10] Frank Mogan, リーマン幾何学 (beginner’s guide).
[11] 佐藤ふさお, 自然の数理と社会の数理, 1984, 日本評論社.

51

第3章

微分方程式の近似解法

微分方程式の近似解法により多くの代数方程式系の例題を得る事ができる. 代数方程式系の議論にはいる前に微分方程式の近似解法の議論をおこなおう.
この章では 10 進 basic (Knoppix/Edu), Risa/Asir, yorick 等を用いて, 常微分方程式の数値解析を試みてみよう.
差分法は数列の漸化式の計算にほかならない. 定常状態の解を求めることは, 連立代数方程式系の解を求めることにほかならない. 常微分方程式の数値解析はプログラミングの入門としても適切な題材であろう.

3.1

差分法

微分方程式の近似解を求める漸化式の導出方法（差分法) について説明しよう.

3.1.1

単独方程式の差分化

今 f (t) を未知関数とする微分方程式

f 0 (t) = a(t)f (t) + b(t),f (0) = cを解く問題を例として考える. ここで a(t), b(t) は時刻 t の関数であり, c は定数である. たとえば

a(t) = −1, b(t) = | cos(t)|, c = 2 とすれば上の微分方程式は f 0 (t) = −f (t) + | cos(t)|, f (0) = 2 となる.

f (t) は時刻 t おけるある量, たとえば温度とか細菌の数とか物体の位置や電流の大きさを表すとす
れば, 初期条件 f (0) = c での微分方程式を満たす関数 f (t) を求めることは, 時刻 0 でのこれらの値から時刻 t での値を予想することにほかならない.
さて h = ∆t を微小な時間, たとえば h = 0.00001 とする. このとき微分の定義より f 0 (t) は(f (t + h) − f (t))/h にほぼ等しい. よって
f (t + h) ≈ f (t) + hf 0 (t) = f (t) + (∆t)f 0 (t)である. 微分方程式の右辺を用いて f 0 (t) を書き換えると,

f (t + h) ≈ f (t) + h(a(t)f (t) + b(t))(3.1)となる. つまり f (t) の h = ∆t 秒後の値 f (t + h) は f (t) + h(a(t)f (t) + b(t)) に大体等しいということになる. つまり (3.1) は 微小時間 h 秒未来 の f の値を現在の f の値で表す式とみなせる.

(3.1) より t = 0 とすれば,
f (h) ≈ f (0) + h(a(0)f (0) + b(0)) = c + h(a(0)c + b(0))

第3章

52

微分方程式の近似解法である. これで時刻 t = h での f (t) の近似値が求まった. 次に (3.1) で t = h とすれば,f (h + h) ≈ f (h) + h(a(h)f (h) + b(h)),
t = 2h とすれば
f (2h + h) ≈ f (2h) + h(a(2h)f (2h) + b(2h))となり, 時刻 t = 2h, t = 3h の f (t) の近似値が次々とさだまっていくこととなる. まとめると漸化式

fk+1 = fk + h(a(hk)fk + b(hk)),

f0 = cで数列 fk を決めていけばそれが時刻 t = hk での f (t) の近似値となるのである.

(3.2)

3.1. 差分法

3.1.2

53

連立方程式の差分化問題 3.1 上の考え方を用いて y1 (t), y2 (t) を未知関数とする次の連立の微分方程式の近似解を求めるプログラムを書きなさい. ((fk , gk ) の値をプロットしていくプログラムを書きなさい. )y10 = (2 − y2 )y1 , y20 = (2y1 − 3)y2 , y1 (0) = 4, y2 (0) = 1.
参考: 種族 2 は種族 1 を食べる. y1 (t) は時刻 t における種族 1 の数. y2 (t) は時刻 t における種族

2 の数. と解釈する場合もある.
答え. h を微小な数とする. y1 (t) = f (t), y2 (t) = g(t) とおこう. このとき微分方程式より
f (t + h) − f (t) ≈ h(2 − g(t))f (t)g(t + h) − g(t) ≈ h(2f (t) − 3)g(t)である. よって,f (t + h) ≈ f (t) + h(2 − g(t))f (t)g(t + h) ≈ g(t) + h(2f (t) − 3)g(t)
この式の右辺は時刻 t での f, g の値できまる量であり, 左辺は時刻 t + h での f, g の値である. したがって漸化式

fk+1= fk + h(2 − gk )fk

gk+1= gk + h(2fk − 3)gk

f0

= 4,

g0

= 1

で数列 fk , gk をきめていけば fk , gk は 時刻 hk での f (t), g(t) の近似値となる. Ed/basic-prey.txt¶³
100 SET WINDOW -1,10,-1,10
110 DRAW axes
120 LET f=4
130 LET g=1
140 LET h=0.0001
150 FOR k=0 TO 200000
160
LET f2 = f+h*(2-g)*f
170
LET g2 = g+h*(2*f-3)*g
180
SET COLOR 0
190
PLOT POINTS: f,g
200
SET COLOR 4
210
PLOT POINTS: f2,g2
220
LET f = f2
230
LET g = g2
240 NEXT k
250 ENDµ´

http://www.math.kobe-u.ac.jp/ ˜ taka/2005/prayp.bas よりダウンロードできる.
問題 3.2 初期条件 f0 = 4, g0 = 1 を変更して種族 1, 2 が絶滅したり絶滅寸前になる初期条件を実験的に決めよ.

第3章

54

3.1.3

微分方程式の近似解法

カオス的力学系

解の関数が非常に複雑な形を描くような微分方程式があるということは 19 世紀から 20 世紀前半の数学者により理論的にある程度解明されていたが, その理論は難解で科学者一般の認識となることはなかった.
グラフィックを容易に表示できる計算機と差分法による微分方程式の解法がこの状況を一変させることとなる. 1970 年代以降のことである. 解の関数が初期値に敏感に依存し, 非常に複雑な形を描く
ような微分方程式は カオス的な微分方程式 と呼ばれている. 現在はカオス的な方程式を含むいわゆる 複雑系 の考え方が提唱され多くの科学者の研究対象となっている.
ここではカオス的な微分方程式の代表の一つである ローレンツ方程式 の解のグラフを描くプログ
ラムを実行してその複雑な解を見てみよう.
課題 1(1) 次のプログラムを入力して実行し, 解のグラフを観察せよ.
(2) 180, 190, 200 行で初期条件を設定している. これらの値を変えて解のグラフがどのように変わるか調べよ. 解のグラフは 8 の字を描く. 8 の下の部分を何度か回ってから 8 の上の部分へ移り上の部分を何度かまわる. これを繰り返す. 回る回数を数えよ. 動きが早すぎるときは 235 行目の wait

delay 命令での待ち時間をたとえば
wait delay 0.1とするとよい. 0.1 は 0.1 秒停止することを意味する. Ed/basic-lorentz.txt¶
100 ! lorentz.bas. Solving p1’ = -a p1 + a p2,
110 ! p2’ = -p1 p3 + b p1 - p2
120 ! p3’ = p1 p2 + c p3
130 SET WINDOW -25,25,-25,25
140 DRAW axes
150 LET a=10
160 LET b=20
170 LET c=2.66
180 LET p1=0
190 LET p2 = 3
200 LET p3 = 0
210 LET dt = 0.004
220 LET t = 0
230 FOR t=0 TO 50 STEP dt
235
wait delay 0.01
240
LET q1 = p1+dt*(-a*p1+a*p2)
250
LET q2 = p2+dt*(-p1*p3+b*p1-p2)
260
LET q3 = p3+dt*(p1*p2-c*p3)
262
SET COLOR 0
264
PLOT POINTS: p1,p2
266
SET COLOR 4
270
PLOT POINTS: q1,q2
280
LET p1 = q1
290
LET p2 = q2
300
LET p3 = q3
310 NEXT t
320 END³µ´
ローレンツ方程式は 3 つの未知関数 p1 (t), p2 (t), p3 (t) についての次の連立微分方程式である. a, b, cには適当な数字をいれる.
p01= −ap1 + ap2 ,p02= −p1 p3 + bp1 − p2 ,p03

= p1 p2 + cp3

3.1. 差分法

55

上のプログラムでは (p1 (t), p2 (t)) をプロットしている.

http://www.math.kobe-u.ac.jp/ ˜ taka/2004/lorentz2.txt よりダウンロードできる.
差分化の解説 240 行目を変形すると

q1 − p1= −a ∗ p1 + a ∗ p2
dtである. dt を微小な数 (上のプログラムでは 0.004) としたとき, 変数 q1 に p1 (t + dt), 変数 p1 に
p1 (t), 変数 q2 に p2 (t + dt), 変数 p2 に p2 (t), 変数 q3 に p3 (t + dt), 変数 p3 に p3 (t), が対応する.
したがって 240 行目は−ap1 (t) + ap2 (t) =p1 (t + dt) − p1 (t)' p01 (t)dt

(一つ目の微分方程式) にほかならない. 同様に 250, 260 行目はそれぞれ 2 つ目, 3 つ目の微分方程式にほかならない.
さて, Lorentz 方程式に定常状態はあるか? という問題を考えてみよう. 定常解とは, 時間変化のな
い微分方程式の解である. つまり y 0 = f (y) が与えられた方程式として,

f (y) = 0(3.3)

の解である. Lorentz 方程式の場合, 未知変数 p1 , p2 , p3 に対する連立代数方程式0=−ap1 + ap2 ,0=−p1 p3 + bp1 − p2 ,0=

p1 p2 + cp3(3.4)の解が 定常状態 である. その中でさらに安定な定常状態も興味深い.
解があるか, あるとして有限か, 無限か? パラメータにどう依存するのか, これらの疑問に答えるにはこのサイズの問題であればグレブナ基底の方法が一番であろう. これについては, 4.6.1 のプログラムで議論する.

3.1.4

2 階の微分方程式の差分化

たとえば, 単振動の方程式

d2y+y =0dt2
を数値的に解くことを考えてみよう.

第3章

56

微分方程式の近似解法¶³

解く前に, この方程式の物理的意味を復習しておこう. 高校物理の最初の基本公式は
質量 × 加速度 = 力なる関係式である. この関係式を Newton の運動方程式という. 物体の時刻 t における位置を

q(t) とおくと, 速度は q 0 (t), 加速度は q 00 (t) である.
1 次元的に単振動をするバネについた 質量 1 の物体 W を考えよう. 時刻 t における, W の位
置を y(t) とすることにする. ただし, バネが自然な長さにあるとき y = 0 とする. フックの法則によると, 自然な長さから y だけのびた (負のときはちじんだとみなす) とき物体 W にかかる力は −ky である. ここで k はバネできまる定数. ここで k = 1 と仮定して Newton の運動方程式を適用すると, 単振動の方程式

y 00 + y = 0
を得る.
µ
´
0
y(0) = 1, y (0) = 0 を初期条件として y(t) = cos(t) がこの方程式の解であるが, この方程式を数値解法で解こう. 数値解法の利点は, cos や sin で解を書けないときでも, 微分方程式の近似解がわかることである. 式 (??) より, h が十分小さいとき,

y(t + h) − 2y(t) + y(t − h)+ y(t)h2
は大体 0 に等しい. したがって,y(t + h) = 2y(t) − y(t − h) − h2 y(t)が近似的になりたつとしてよいであろう. この式は時刻 t − h と t の y の値で, すこし先の時刻 t + hの y の値を表す式である. また y 0 (0) はy(h)−y(0)にほぼ等しい.
hy 0 (0) = 0 なので, y(h) = y(0) が近似的に成り立つとしてよいであろう. したがって, 漸化式

yk+2 = 2yk+1 − yk − h2 hk+1 , y0 = 1, y1 = 1(3.5)

を満たす数列を決めることにより, 解の近似をもとめることが可能であると予想できる. つまり yk
は hk 秒での y の値を近似していると予想される. このように解の近似を求める方法を 差分法 とよぶ. 漸化式 (3.5) を元の微分方程式の 差分化, または差分スキームとよぶ.

Ed/basic-osci.txt¶³! 振動の方程式 y’’+y = 0
LET x1=1
LET x2=1
LET dt=0.01 ! これは十分小さい数なら何でもよい.
! y(k+2), y(k+1), y(k) が x3, x2, x1 に対応.
! h が dt に対応.
FOR t=0 TO 3 STEP dt
LET x3 = 2*x2-x1-dt*dt*x2
PRINT t,x1
PLOT LINES: t,x1;
LET x1=x2
LET x2=x3
NEXT tENDµ´

3.1. 差分法

57

上のプログラムで ! で始まる行は注釈行 (コメント行) であり, プログラムの実行には関係ない. !
から始まる注釈は行の途中から書きはじめてもよい. この場合は ! から行末までが注釈となる. 適宜
注釈行を書くことにより, 人間がプログラムを読む助けとなる.
さて, これで微分方程式を近似的に解く問題が, 漸化式をみたす数列を求める問題になったのであるが, このような近似解が本当の解に収束するかとか, 全くことなる解しかとらえられない不安定現象が起こる場合があるとかの議論をやらないといけない. これはより上級の話題である.
注意: 漸化式は常に微小な数 h を含む. この h は十分小さければどんな数でも構わない. たとえば 0.01 とか 0.001 など. 近似解が本当の解に収束するという議論では, h を小さくしていけば差分法で求めた近似解が本当の解に収束して行く (どんどん近くなる) ということを証明する.
問題 3.3h が十分小さいとき次の近似公式が成り立つ.
dyy(T + h) − y(T )(T ) 'dth
d2 yy(T + h) − 2y(T ) + y(T − h)(T ) '
dt2
h2
この近似公式を用いて次の微分方程式を差分化しなさい. (微分方程式の解を近似する数列の漸化式を求めよ.) 数列の漸化式を用いて数列の値を決めて行くプログラムを書きなさい.
y 00 + 3y = 0,y(0) = 1, y 0 (0) = 0.

さてこのあたりで読者には徹底的に復習をすることをすすめる. (1) 微分方程式 y 00 +y = 0, y(0) = 1,y 0 (0) = 0 の差分化を独力で導けるだろうか? (2) 上のプログラムを自力で書けるだろうか? (1), (2)ができたら次へ進むとよいであろう. 孔子が論語の中でいっているように, “学びて時にこれを習う.
またよろこばしからずや” である.

3. 第 3 回の講義では, 物体の落下を表す微分方程式 y 00 = −9.8 について学んだ. (a) 次のプログラムを入力, 実行せよ. どのようなグラフとなるか? (b) 物体が速度に比例する抵抗を受ける場合, 方程式は
y 00 = −9.8 − ay 0 となる (a は適当な定数). これを解くプログラムに変更せよ. Ed/basic-grav.txt¶³
100 ! 方程式 y’’=-9.8, y(0)=100, y’(0)=0
110 SET WINDOW -1,5,-10,110
120 DRAW axes
130 LET y1 = 100
140 LET y2 = 100
150 LET dt=0.001
160 ! y(k+1), y(k), y(k-1) が y3, y2, y1 に対応. h が dt に対応.
170 FOR t=0 TO 5 STEP dt
180
LET y3 = 2*y2 - y1 -9.8*dt*dt
190
PLOT LINES: t,y1
200
LET y1 = y2
210
LET y2 = y3
220 NEXT t
230 ENDµ´

この問題も, 上と同じ方針で解ける. つまり,

y 00 (t) = −9.8 − ay 0 (t)を とりあえず差分化してみればよい. 差分化の計算を記す.

y 00 (t) 'y(t + h) − 2y(t) + y(t − h) 0y(t + h) − y(t) 00, y (t) = −9.8 − ay 0 (t), y (t) '
h2
h

第3章

58
より

微分方程式の近似解法

y(t + h) − 2y(t) + y(t − h)y(t + h) − y(t)' −9.8 − a2hh

両辺に h2 を掛けて,

y(t + h) − 2y(t) + y(t − h) ' −9.8h2 − ah [y(t + h) − y(t)]移項すると(1 + ah)y(t + h) ' (2 + ah)y(t) − y(t − h) − 9.8h2
y(t + h) を y3, y(t) をy2, y(t − h) を y1 と置き換え, ' を = とおけば,(1 + a ∗ h) ∗ y3 = (2 + a ∗ h) ∗ y2 − y1 − 9.8 ∗ h2
したがって 180 行を次のように書き換えればよい.
¶³

180 LET y3 = ((2+a*dt)*y2- y1 - 9.8*dt*dt)/(1+a*dt)
µ

´

3.1.5

Risa/Asir で書くと?

Lorentz 方程式を差分法で解くプログラムの Risa/Asir 版.
Ed/asir-lorentz.txt¶³

load("glib3");
def lorentz() {glib_window(-25,-25,25,25);
A=10; B=20; C=2.66;
P1=0; P2 = 3; P3 = 0;
Dt = 0.004; T = 0;
while (T <50) {Q1=P1+Dt*(-A*P1+A*P2);
Q2=P2+Dt*(-P1*P3+B*P1-P2);
Q3=P3+Dt*(P1*P2-C*P3);
glib_putpixel(Q1,Q2);
T=T+Dt;P1=Q1; P2=Q2; P3=Q3;
}
}
end$

µ
´
このプログラムを emacs などのテキストエディタで入力し, たとえば asir-lorentz.txt なる名前で保存したら, asir の中から

load("./asir-lorentz.txt");
lorentz();で実行する.

3.1.6

yorik によるシミュレーション

上と同じプログラムを シミュレーションシステム yorick で書くと次のようになる. Yorick の
ユーザ言語は Risa/Asir とよく似ているが, yorick では引数の無い関数には

Ed/yorik-lorentz.txt( )をつけない.

3.1. 差分法

59

¶

³

// yorick// http://www.maumae.net/yorick/doc/refcard/index.php// include,"lorentz.yorick"func lorentz {A=10; B=20; C=2.66;
P1=0; P2 = 3; P3 = 0;
Dt = 0.004; T = 0;
while (T <50) {Q1=P1+Dt*(-A*P1+A*P2);
Q2=P2+Dt*(-P1*P3+B*P1-P2);
Q3=P3+Dt*(P1*P2-C*P3);
pldj,P1,P2,Q1,Q2;
T=T+Dt;P1=Q1; P2=Q2; P3=Q3;}}
lorentz;µ
このファイル名を lorentz.i とするとき,

3.1.7

´
include,"lorentz.i" で実行できる.

定常状態に対応する代数方程式系

式 () は定常状態の満たすべき代数方程式系である. 偏微分方程式を考えると定常状態のみたすべき方程式系もまた微分方程式系となる. それを差分化することにより連立代数方程式系を得る. これを Knoppix/math を利用して解くのはわれわれの興味の一つである.
たとえば次の反応拡散方程式を考えよう.

∂u∂2u= ² 2 + u(1 − u),∂t∂xu(0) = u(1) = 0 境界条件

(3.6)

² はパラメータであり, その大きさにより解 u(t, x) の様子はいろいろと変化する. ちなみにこの問
題はきわめて古典的な問題で, 理論的に詳しく解析されている. 理論的に詳しく解析されている問題
は新しい計算手法の研究を始めるとき (答えがわかってるという意味で）きわめて有益である. Todo:
sos より参考文献をコピー.
Mathemaitca には偏微分方程式の数値解析を自動でやる関数も用意されている. 簡単な問題は OKだが, かならずしも正しい答えを戻すとは限らないので注意.

Ed/NDSolve.m

第3章

60

微分方程式の近似解法

¶

³

(*
http://documents.wolfram.com/v5/Built-inFunctions/NumericalComputation/EquationSolving/NDSolve.ja.html
http://documents.wolfram.com/v5/Built-inFunctions/NumericalComputation/EquationSolving/NDSolve.html

http://documents.wolfram.com/mathematica/Built-inFunctions/NumericalComputation/EquationSolving/FurtherExamples/NDSolve.ht*)(* p.931 *)wave[]:=Module[{ans},
ans=NDSolve[{ D[y[x,t],t,t] == D[y[x,t],x,x],y[x,0] == Exp[-x^2],
Derivative[0,1][y][x,0] == 0,y[-5,t] == y[5,t]},y, {x,-5,5}, {t,0,5}];
Plot3D[Evaluate[y[x,t] /. First[ans]],{x,-5,5}, {t,0,5}, PlotPoints->30]]
nlwave[]:=Module[{ans},
ans=NDSolve[{ D[y[x,t],t,t] == D[y[x,t],x,x] + y[x,t]^2,
y[x,0] == y[x,1],y[0,t] == 0,y[1,t] == 0},y, {x,0,1}, {t,0,1}];
Plot3D[Evaluate[y[x,t] /. First[ans]],{x,0,1}, {t,0,1}, PlotPoints->30]]
nlwave2[]:=Module[{ans},
ans=NDSolve[{ D[y[x,t],t,t] == D[y[x,t],x,x] + y[x,t]^2,
y[x,0] == y[x,1],
Derivative[0,1][y][x,0] == Derivative[0,1][y][x,1],y[0,t] == 0,y[1,t] == 0},y, {x,0,1}, {t,0,1}];
Plot3D[Evaluate[y[x,t] /. First[ans]],{x,0,1}, {t,0,1}, PlotPoints->30]]
nlwave0[]:=Module[{ans},
ans=NDSolve[{ D[y[x,t],t,t] == D[y[x,t],x,x] + y[x,t]^2,
y[x,0] == Exp[-(x-1/2)^2],
Derivative[0,1][y][x,0] == 0,y[0,t] == 0,y[1,t] == 0},y, {x,0,1}, {t,0,1}];
Plot3D[Evaluate[y[x,t] /. First[ans]],{x,0,1}, {t,0,1}, PlotPoints->30]]µ´
さてここでは, この様子を観察する C 言語のプログラムを掲載しておこう. Knoppix/Math は C
言語の学習/開発環境としてもすばらしい. (複雑なプログラムぎらいの Knoppix/Math ユーザは読み飛ばして結果の動画だけを楽しまれたい.)
なお, X11 で描画する版と 山口君の作成した gif を生成するプログラム (cgif, GPL)

http://www.math.kobe-u.ac.jp/HOME/yamaguti/ を図形の描画には利用している.
フォルダ cgif 以下には cgif ライブラリがおいておく. 次の Makeﬁle では make pt で X11 で描画, make pt2 で cgif ライブラリで描画する版を生成する. Ed/Makefile

3.1. 差分法¶

61³

pt : pt.c glib.ogcc -o pt pt.c glib.o -L/usr/X11R6/lib -lX11 -lm
glib.o: glib.c
gcc -I/usr/X11R6/include -c glib.c
pt2: pt.c glib_cgif.o cgif.o
gcc -o pt2 pt.c glib_cgif.o cgif.o -lm
glib_cgif.o: glib_cgif.c
gcc -c glib_cgif.c
cgif.o: cgif/cgif.c
gcc -c cgif/cgif.c
clean:
rm *.o *~ pt pt2µ
Ed/pt.c

´

第3章

62
¶
#include <stdio.h>#include <math.h>#define PI 3.14/* #define Heat_N 40*/ /* Mesh 分割数,
#define Heat_N 3 /* Mesh 分割数, */double DD = 1;/* パラメータ d */double AA = 1;/* パラメータ a */微分方程式の近似解法³*/

main(int argc,char *argv[]) {double K; /* dt */int M; /* steps */float A0; /* a */double H;
double t;
double C;
double A[Heat_N+1];
double B[Heat_N+1];
int P,Q;
int frame_max = 20;
int frame_dt = 0;/* printf("0.00001, dt=?"); scanf("%f",&K); */K = 0.00001;
M = 50000;
if (argc > 1) sscanf(argv[1],"%d",&M);printf("M=%d. a=? (1, 11, 20) ",M); scanf("%f",&A0);
frame_dt = M/frame_max;
glib_init_frame_no(frame_max);
glib_window(0.0,0.0,(double) Heat_N,1.0);
H = 1.0/Heat_N;/* 空間差分 */AA = A0;
printf("時間差分 K="); printf("%f\n",K);
printf("CFL like 条件. must be >0. 1-2*K*d*/(H*H)-a*K: ");printf("%f\n",1-2*K*DD/(H*H)-AA*K);
t = (4*DD/(H*H))*sin(H*PI/2)*sin(H*PI/2);
printf("分岐値 (4d/h^2)*sin^2(h*pi/2) <> a: %f\n",t);printf("a=%f\n",AA);
A[0] = 0; A[Heat_N] = 0;/* 初期条件の設定 */C = 1;for (Q=1; Q<Heat_N; Q++) {if (Q <= Heat_N/2) {A[Q] = H*Q*C;}else{
A[Q] = (1-H*Q)*C;}}
for (P=1; P<=M; P++) {B[0] = 0; B[Heat_N]=0;
for (Q=1; Q<Heat_N; Q++) {B[Q] = A[Q] + DD*(K/(H*H))*(A[Q+1]-2*A[Q]+A[Q-1])+ K*AA*(1-A[Q])*A[Q];}/* print("Time=",0); print(P*K,0); print(": ",0); print(B);*//* code for DISPLAY */glib_clear();if ((P-1) % frame_dt == 0) { glib_set_frame_no((P-1)/frame_dt); }for (Q=0; Q< Heat_N; Q++) {glib_line((double)Q,A[Q],(double)(Q+1),A[Q+1]);}
glib_cgif_pen_up();
if (P % 1000 == 0) {printf("P=%d\n",P);}
glib_flush();for (Q=0; Q<= Heat_N; Q++) A[Q] = B[Q];}printf("Type in enter to finish."); fflush(NULL);
getchar(); getchar();glib_close();}3.1. 差分法

63

ちなみにこのプログラムは変数に大文字が使われている. C 言語のスタイルととしては一般的ではな
い. 実は asir でプロトタイプを作成してから C 言語で書き直したので, 大文字の変数名が多い.

Todo: 結果の動画を web に.
さて 式 (3.7) の定常解のみたすべき方程式は次の代数方程式系である.

0=²

∂2u
+ u(1 − u),∂x2u(0) = u(1) = 0 境界条件

ui−1 − 2ui + ui+1
ui (1 − ui ) = 0,h2
1u0 = 0, un = 0, h =n²

i = 1, 2, 3, . . . , n − 1

(3.7)

(3.8)

なる連立の非線形代数方程式系となる. この方程式系は ?? で解析する.
もう一つ興味深い古典的なシステムとして, 三村が 1970 年代に解析した反応拡散系 [4] を紹介しておこう. Turing’s diﬀusion instability principle を実際にみることができる.

U (t, x) と V (t, x) が未知関数であり,
∂U
∂t
∂U
∂t

= d1 U 00 + (f1 (U )U − kU U )= d2 V 00 + (−f2 (V )V + kU V )2

なる発展方程式を考える. ここで U 00 = ∂∂xU2 である. われわれはこれの定常状態の解 u(x) = U (0, x),v(x) = V (0, x) を調べたい. これは次の常微分方程式系を満たす.
d1 u00 + (f1 (u)u − kuv) = 0,d2 v 00 + (−f2 (v)v + kuv) = 0,

(3.9)

ここで

f1 (z)=(1/9) ∗ (35 + 16 ∗ z − z 2 ),f2 (z)=

1 + (2/5) ∗ z,

0 <= x <= 5,
k = 1, d2 = 4.
d1 は小さい大きさのパラメータである. http://fe.math.kobe-u.ac.jp/nobuki/sos/pps-1.png
は d1 = 1/20 の時の一つの解である. その他にも非負の解がある. 赤がえさ (prey) u で, 黒が捕食者(predator) v である.
Asir による数値解析のプログラムは Egr/pps.rr

第3章

64
¶

微分方程式の近似解法³

def draw_ax() {glib_line(-2,0,5,0 | color=0x00ff00);
glib_line(0,-2,0,10 | color =0x0000ff);}
import("glib3.rr");
import("gr");
Glib_math_coordinate=1;
Cfep_loaded = 0; /* use X11 */glib_window(-2,-2,5,12);glib_clear();draw_ax();/* Masayasu Mimura, Asymptotic behaviors of a parabolic system related to aplanktonic prey and predator model. SIAM J on Applied Mathematics, 1979.
*/
N=20; Dt=0.005; /* N=21 --> N=20 variables.
U=newvect(N+1);
V=newvect(N+1);
Unew=newvect(N+1);
Vnew=newvect(N+1);
K=1; L=5;
Pu=0.05; Pv=4.0;

N=20 --> N=19 variables *//* diffusion constants */for (I=0; I<=N; I++) {U[I] = 0.0;
V[I] = 0.0;}
V[0]=V[1]; V[N]=V[N-1];
NN=idiv(N,10);for (I=NN*3; I<=NN*4; I++)
for (I=NN*4; I<=NN*5; I++)
for (I=NN*5; I<=NN*6; I++)
for (I=NN*6; I<=NN*7; I++)U[I] = deval(2*(L/N)*(I-NN*3));
U[I] = deval(2*(L/N)*(NN*5-I));
V[I] = deval(2*(L/N)*(I-NN*5));
V[I] = deval(2*(L/N)*(NN*7-I));

H = deval(L/N);
for (T = 0.0, J=0; T<100; T += Dt, J++) {for (I=1; I<N; I++) {Unew[I] = U[I]+Dt*Pu*(U[I-1]-2*U[I]+U[I+1])/(H*H) +Dt*( (1/9)*(35+16*U[I]-U[I]*U[I])*U[I] - K*U[I]*V[I] );Vnew[I] = V[I]+Dt*Pv*(V[I-1]-2*V[I]+V[I+1])/(H*H) +Dt*( - (1+(2/5)*V[I])*V[I] + K*U[I]*V[I] ) ;}Unew[0] = Unew[1]; Vnew[0] = Vnew[1];Unew[N] = Unew[N-1]; Vnew[N] = Vnew[N-1];
if (J % 20 == 0) { glib_clear(); draw_ax(); J=0;}
for (I=0; I<N; I++) {glib_line(I*H,U[I],(I+1)*H,U[I+1] | color=0xff0000);
glib_line(I*H,V[I],(I+1)*H,V[I+1] );}glib_flush();for (I=0; I<=N; I++) {U[I] = Unew[I]; V[I] = Vnew[I];}}bsave(U,"tmp-pps-u-n-"+rtostr(N)+".bb");bsave(V,"tmp-pps-v-n-"+rtostr(N)+".bb");µ
Gröbner 基底による解析は 4.6.3 節で試みる.

´

3.2. フラクタルとソリトン: ちょっと寄り道

3.1.8

65

Cavity ﬂow

差分法からでてくる非線型代数方程式をグレブナ基底の手法等でどのくらい解けるか試すのは挑戦問題として興味深い.

Cavity ﬂow とは何か?
Todo: 方程式はまだ書いてない. メモ用紙に書いたノートはあり.
Cavity ﬂow のシミュレータ Prog/cavity.c は未完成なので, “矢川元基, パソコンでみる流れの科学” [3] chap4 の cavity ﬂow のシミュレータで渦が生成される様子をみてみよう. 2007/02/knx-*
へコピー済.
研究課題: sos/Prog/fluid2d.rr でみるように, グレブナ基底の手法は小さいサイズの問題しか解けない. しかし, 解こうとしている連立非線型方程式系の代数的性質を探求したり Raynolds 数 (パラメータ) のこの方程式での代数的役割を調べたり, いろいろと別の角度から問題をみれるのではないか? また, グレブナ基底の手法や SOS をこのような問題に適用する試みはまだあまりない. Cavity

ﬂow の例では, 大量の実数解がある. この中から解析的に意味のある解の取りだしは関数空間の設定に相当するが, 統計の利用も試みるべき.

cc1 に cavity ﬂow のアニメーションがあるので, これを見る.

3.2

フラクタルとソリトン: ちょっと寄り道(補足)
カオス, フラクタルとソリトンは計算機の研究への利用の老舗である. ちょつとこの分野の不思議な図を寄り道してみておこう. この分野にも代数方程式がいろいろと登場する.

3.2.1

フラクタルって何?

3.2.2

Risa/Asir による Mandelbrot 型集合の描画

Newton 法の収束の様子は複雑である. z 3 − a = 0 に Newton 法を適用して, 発散してしまうような a ∈ C を図示するプログラムが次のプログラム. 漸化式は
zn+1 =となる. ただし zn は複素数である.

Ed/asir-mandel.txt

2
a 1
zn +
3
3 zn2

第3章

66
¶

微分方程式の近似解法³/* mandelbrot.rr */load("glib")$#define MAG 50.0
#define abs(x) (x < 0.0? -x : x)
def mandel() {glib_open();for (Ar = 0.0; Ar < 5.0 ; Ar += 1.0/MAG) {for (Ai = 0.0; Ai <5.0; Ai += 1.0/MAG) {X = 0.1 ; Y = 0.1;
for (I=0; I<200; I++) {D = X*X*X*X+2*Y*Y*X*X+Y*Y*Y*Y;
X2 = ((2.0/3.0)*X*X*X*X*X+(4.0/3.0)*Y*Y*X*X*X-(1.0/3.0)*Ar*X*X+((2.0/3.0)*Y*Y*Y*Y-(2.0/3.0)*Ai*Y)*X+(1.0/3.0)*Ar*Y*Y)/D;
Y2 = ((2.0/3.0)*Y*X*X*X*X+((4.0/3.0)*Y*Y*Y-(1.0/3.0)*Ai)*X*X+(2.0/3.0)*Ar*Y*X+(2.0/3.0)*Y*Y*Y*Y*Y+(1.0/3.0)*Ai*Y*Y)/D;if (abs(X2) > 30.0 || abs(Y2) > 30.0) {break;}
if (I == 199) {glib_putpixel(Ar*MAG,Ai*MAG);}X = X2; Y = Y2;}}}}
print("Type in mandel()")$
end$

µ

3.2.3

´

Yorick による Mandelbrot 型集合の描画

Ed/yorik-mandel.txt¶³/* include,"mandel.i" */func mandel {MAG=50.0;
for (Ar = 0.0; Ar < 5.0 ; Ar += 1.0/MAG) {for (Ai = 0.0; Ai <5.0; Ai += 1.0/MAG) {X = 0.1 ; Y = 0.1;
for (I=0; I<200; I++) {D = X*X*X*X+2*Y*Y*X*X+Y*Y*Y*Y;
X2 = ((2.0/3.0)*X*X*X*X*X+(4.0/3.0)*Y*Y*X*X*X-(1.0/3.0)*Ar*X*X+((2.0/3.0)*Y*Y*Y*Y-(2.0/3.0)*Ai*Y)*X+(1.0/3.0)*Ar*Y*Y)/D;
Y2 = ((2.0/3.0)*Y*X*X*X*X+((4.0/3.0)*Y*Y*Y-(1.0/3.0)*Ai)*X*X+(2.0/3.0)*Ar*Y*X+(2.0/3.0)*Y*Y*Y*Y*Y+(1.0/3.0)*Ai*Y*Y)/D;if (abs(X2) > 30.0 || abs(Y2) > 30.0) {break;}
if (I == 199) {plm,[[Ar*MAG,Ar*MAG],[Ar*MAG+1,Ar*MAG+1]],[[Ai*MAG,Ai*MAG+1],[Ai*MAG,Ai*MAG+1]],color="red";}
X = X2; Y = Y2;}}}}
mandel;µ´

3.2. フラクタルとソリトン: ちょっと寄り道

3.2.4

67

C と X11 による Mandelbrot 集合の描画

Newton 法でなく, つぎの漸化式を収束させる複素数パラメータ a の値がよくみる ひょうたん型の元祖 Mandelbrot 集合である.
z0 = 0, zn+1 = zn2 + a
n を 1000 まで動かして 発散しなければ黒. |zn |2 > 2 となったらそのときの n の値に応じて色を変更する. ここでは C と X11 で書いてみる. 問題に応じて適切な言語を選択するのは大事であろう.
Ed/c-m2.c¶³/*
gcc -o c-m2 c-m2.c glib.c -L/usr/X11R6/lib -lX11 -lm*/#include <stdio.h>#define MAG
100.0
main() {double Ar, Ai, X, Y, X2, Y2;
int I;
glib_window(-2.0, -1.0, 1.0, 1.0);
for (Ar=-2.0; Ar < 1.0; Ar += 1.0/MAG) {glib_putpixel(Ar,0.0);}
for (Ai=-1.0; Ai < 1.0; Ai += 1.0/MAG) {glib_putpixel(0.0,Ai);}for (Ar = -2.0; Ar < 1.0 ; Ar += 1.0/MAG) {for (Ai = -1.0; Ai <1.0; Ai += 1.0/MAG) {X = 0.0 ; Y = 0.0;
for (I=0; I<100; I++) {X2 = X*X-Y*Y+Ar;
Y2 = 2*X*Y + Ai;
if (X2*X2+Y2*Y2 > 2) {if (I < 3) {glib_color(0xff0000);
glib_putpixel(Ar,Ai);}else {
glib_color(0x0000ff);
glib_putpixel(Ar,Ai);}/* printf("%f %f\n",Ar,Ai); */break;}
X = X2; Y = Y2;}}
gFlush();}printf("Finished\n");getchar();gclose();}µ´
なおこのプログラムをコンパイル実行するには, glib.c (X11 用簡易 graphic library) を 講義用のサイト 2007/knx からダウンロードする必要がある.
一般的に, ソフトウエアを開発するときは適切な言語を選んでプログラムを書こう. やはり C は高速な数値計算に便利. たとえば Java は GUI を書くのに便利. Mac の CoCoA なども. 例. cca, cfep

第3章

68

3.2.5

微分方程式の近似解法

Xaos でみる Mandelbrot 集合

Knoppix/Math の Xaos を用いると前の節で描画した Mandelbrot 集合を自由自在に拡大してみることができる.

3.2.6

箱と玉の系とソリトン

Ed/basic-hakodama.txt¶
DIM b(20,40)
FOR i=1 TO 40
LET b(1,i) = 0
NEXT iLET b(1,2) =1
LET b(1,3) = 1
LET b(1,4) = 1
LET b(1,10) =1
LET b(1,15)=1
SET WINDOW 1,20,1,40
DRAW grid
FOR n=1 TO 20-1
LET my = 0
FOR j=1 TO 40
IF b(n,j)=1 THEN SET AREA COLOR 1
IF b(n,j)=0 THEN SET AREA COLOR 0
PLOT AREA : n,j;n+1,j; n+1,j+1;n,j+1
IF b(n,j)=1 THEN
LET my = my+1
LET b(n+1,j) = 0
ELSEIF b(n,j)=0 AND my > 0 THEN
LET my = my-1
LET b(n+1,j) = 1
END IF
NEXT jNEXT nENDµ³´