index.html

拡散 (ガウス分布: 総量一定)

2007/07/18 aito

f[x_, t_] = N0 * (4 * Pi * D0 * t)^-0.5 * Exp[-x^2/(4 * D0 * t)] ; & ... , t], t]//Simplify ; (* 拡散 : ガウス分布 *)
h[x_, t_] = g[x, t][[5]] ;

N0 = 1 ; D0 = 1 ; (* パラメ - タ設定*)
Print["N0 = ", N0, " D0 = ", D0] ;

grph4 = Plot[{f[0.1, t], f[0.5, t], f[1, t], f[1.5, t]}, {t, 0.0001, 1}, PlotLabel -> "x ... AxesLabel -> {"t", "n"}, PlotRange -> {0, 1}, DisplayFunction -> Identity] ;

$grph5 = Plot[s[t], {x, 0, 1}, AxesLabel -> {"x", "t_Max"}, DisplayFunction -> Identity] ;$

grphC = Plot[{f[x, 1], f[x, 2], f[x, 3], f[x, 4], f[x, 5], f[x, 6], f[x, 7], f[x, 8], f[x, 9 ... t;, AxesLabel -> {"x", "n"}, PlotRange -> All, DisplayFunction -> Identity] ;

grphc = Plot[{f[1, t], f[2, t], f[3, t], f[4, t], f[5, t], f[6, t], f[7, t], f[8, t], f[9, t ... t;, AxesLabel -> {"t", "n"}, PlotRange -> All, DisplayFunction -> Identity] ;

[Graphics:HTMLFiles/index_22.gif]

[Graphics:HTMLFiles/index_23.gif]

Created by Mathematica (July 18, 2007)