赤の研究ノート

Mathematicaでグラフに縦線

参考Webページのままです。 Plot[Sin[x], {x, 0, 2Pi}, Epilog->Line[{{4,-100}, {4,100}}]] Plot[Sin[x], {x, 0, 2 Pi}, GridLines ->{{0, Pi/2, Pi, 3 Pi/...

2012/10/20 15:38

膜反応を境界条件として取扱う方法

一般系 微分方程式（1次元線座標）：\(\displaystyle \frac{\partial u}{\partial t}=D\frac{\partial^{2}u}{\partial x^{2}}+f(u)\) 微分方程式（1次元球座標）：\(\displaysty...

2012/10/09 09:40

Mathematicaで数値微分

NDね。こんな感じ。 Needs["NumericalCalculus`"]; s = NDSolve[{y'[t] == 2 t, y[0] == 0}, {y}, {t, -2, 2}]; f = y /. s[[1]]; Plot[{f[t], ND[f[t1], {t...

2012/10/09 08:43