このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/86
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  刻み幅0.001秒で微分方程式dx/dt+x=1(x(0)=0) 
#  をオイラー法によって解くプログラムの作成。 
#  

'刻み幅0.001秒で微分方程式dx/dt+x=1(x(0)=0)をオイラー法によって解く'(L) :-
        '刻み幅0.001秒で微分方程式dx/dt+x=1(x(0)=0)をオイラー法によって解く'(0,0,L).

'刻み幅0.001秒で微分方程式dx/dt+x=1(x(0)=0)をオイラー法によって解く'(_i,_,[]) :-
        _i > 10000,!.
'刻み幅0.001秒で微分方程式dx/dt+x=1(x(0)=0)をオイラー法によって解く'(_i_1,_x_1,[[_t,_x_1]|R]) :-
        _t is _i_1 * 0.001,
        _i_2 is _i_1 + 1,
        _x_2 is _x_1 + 0.001 * (1 - _x_1),
        '刻み幅0.001秒で微分方程式dx/dt+x=1(x(0)=0)をオイラー法によって解く'(_i_2,_x_2,R).