{ "cells": [ { "cell_type": "markdown", "metadata": {}, "source": [ "# 計算機実習 問題12.16 拡散が支配する1次元化学反応系のモンテカルロ・シミュレーション" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## シミュレーションの目的" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "単一の種類Aの粒子からなる系を考える、全ての粒子は拡散し、2個の粒子が衝突する\"反応\"が起こり、1個の粒子が消えるか2個の粒子が結合して、もはや反応には関わらない不活性な種類の粒子になる。\n", "後者の場合の化学反応は\n", "\n", "$$A + A \\rightarrow 0\\ \\ \\ (\\text{不活性})$$\n", "と表すことができる。A粒子の密度の空間的ゆらぎを無視すると、その時間変化は簡単な反応速度方程式\n", "\n", "$$\\frac{dA(t)}{dt} = -kA^{2}(t)$$\n", "で与えることができる。ここで$A$はA粒子の時刻$t$の密度であり、$k$は反応速度定数である。簡単のために、全ての反応物質が$t=0$に加えられ、その後には反応物質は何も加えられないとする(閉じた系)。1階微分方程式(上式)の解は\n", "\n", "$$A(t) = \\frac{1}{kt + 1/A(0)}$$\n", "であり、長時間の極限では\n", " \n", "$$A(t) \\sim t^{-1}$$\n", "となる。\n", "\n", "上に述べた1種類の粒子が消滅する過程における$A$の時間依存性は簡単であるが、空間ゆらぎが無視されている。ここでは、この過程の時間発展のシミュレーションを行い、仮定が正しいか調べることにする。" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## 作成したプログラム" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "本シミュレーションで作成したプログラムを以下に示す。" ] }, { "cell_type": "code", "execution_count": 1, "metadata": { "collapsed": true }, "outputs": [], "source": [ "#! /usr/bin/env python\n", "# -*- coding:utf-8 -*-\n", "#\n", "# written by Shotaro Fujimoto, June 2014.\n", "\n", "import numpy as np\n", "\n", "\n", "def main_rw_d1(L, N, pmax):\n", "\n", " lattice = np.identity(L, dtype=int)\n", " T = [2 ** p for p in range(1, pmax + 1)]\n", " A = []\n", " random = np.random.rand\n", " np_sum = np.sum\n", " np_roll = np.roll\n", "\n", " for t in xrange(1, max(T) + 1):\n", " # 1 step ==============================================================\n", " for n in xrange(N):\n", " if np_sum(lattice[n]):\n", " if random() > 0.5:\n", " lattice[n] = np_roll(lattice[n], 1)\n", " else:\n", " lattice[n] = np_roll(lattice[n], -1)\n", "\n", " count = np_sum(lattice, axis=0)\n", "\n", " for l in xrange(L):\n", " if count[l] == 2:\n", " for n in xrange(N):\n", " lattice[n][l] = 0\n", " # =====================================================================\n", " if t in T:\n", " A.append(L / (1. * np_sum(lattice)) - 1)\n", "\n", " return T, A\n", "\n", "\n", "def plot_graph(x_data, y_data, x_labels, y_labels,\n", " xscale='linear', yscale='linear', aspect='auto'):\n", " \"\"\" Plot the graph about y_data for each x_data.\n", " \"\"\"\n", " import matplotlib.pyplot as plt\n", "\n", " d = len(y_data)\n", " if not len(x_data) == len(y_data) == len(x_labels) == len(y_labels):\n", " raise ValueError(\"Arguments must have the same dimension.\")\n", " if d == 0:\n", " raise ValueError(\"At least one data for plot.\")\n", " if d > 9:\n", " raise ValueError(\"\"\"So much data for plot in one figure.\n", " Please divide two or more data sets.\"\"\")\n", "\n", " fig = plt.figure(figsize=(9, 8))\n", " subplot_positioning = [\n", " '11', '21', '22', '22', '32', '32', '33', '33', '33']\n", " axes = []\n", " for n in range(d):\n", " lmn = int(subplot_positioning[d - 1] + str(n + 1))\n", " axes.append(fig.add_subplot(lmn))\n", "\n", " for i, ax in enumerate(axes):\n", " ymin, ymax = min(y_data[i]), max(y_data[i])\n", " ax.set_aspect(aspect)\n", " ax.set_xscale(xscale)\n", " ax.set_yscale(yscale)\n", " ax.set_xlabel(x_labels[i], fontsize=16)\n", " ax.set_ylabel(y_labels[i], fontsize=16)\n", " ax.set_ymargin(0.05)\n", " ax.plot(x_data[i], y_data[i], 'o-')\n", "\n", " fig.subplots_adjust(wspace=0.2, hspace=0.5)\n", " fig.tight_layout()\n", " plt.show()\n", "\n", "\n", "def fitting(fit_func, parameter0, trial=10):\n", " import scipy.optimize as optimize\n", "\n", " a = np.zeros(trial)\n", " for i in range(trial):\n", " T, A = main_rw_d1(L, N, pmax)\n", " x, y = np.array(T), np.array(A)\n", " result = optimize.leastsq(fit_func, parameter0, args=(x, y))\n", " a[i] = result[0][0]\n", "\n", " print 'a =', np.average(a), 'sigma(a) =', np.std(a)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "このプログラムは3つの関数からなっている。関数main\\_rw\\_d1は、1次元格子上を複数の粒子がランダムウォークし、同じ格子点上に2個の粒子が来たときその粒子を取り除くような挙動を実現する。関数plot\\_graphは、問題12−12でも用いたグラフ描画のための関数である。関数fittingは、$1/A(t)-1$の$t$に関する両対数グラフを直線でフィッティングしたときのその傾きを求めるものである。何回か試行を繰り返し、その平均値と偏差を返すようにしてある。" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "関数main\\_rw\\_d1の動きについての解説を加えると、まずlatticeは行方向が粒子を表し、列方向は座標を表している。単位行列によって$A(t=0)=1$を表現し、時間発展ごとに右向きか左向きに等確率でシフトする。その後、列方向に和を計算し、その値が2であるときはその列の要素をすべて0にしている(2以上の値となることはない)。この操作を繰り返し、時刻$t(=2^{p}(p = 1,2,3,\\cdots, \\mathrm{pmax}))$のときの$1/A(t)-1$の値をAに追加している。ここで$t$は対数プロットしたときのデータが等間隔になるように、指数関数的にとった。" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## 実習課題" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### a." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "$N$個の粒子が、長さ$L$の1次元格子上を周期的境界条件の下でランダムウォークを行う場合を考え、全ての格子点が占有されている状態$A(t=0)=1$からシミュレーションを始めよ。量$1/A(t)-1$を時間$t$に対して両対数でプロットせよ。対数プロットのデータが等間隔になるように、時間の区間を指数関数的にとれ。長時間の極限では、得られた両対数プロットは直線的か、直線ならばその傾きを求めよ。平均場近似は1次元で正しいといえるか。$L=100$程度の小さい格子と、$t=10^{2}$程度の時間で大雑把な結果を得ることができる。10パーセント以内の精度で結果を得るためには、$L=10^{4}$程度の大きさの格子と$t=2^{13}$程度の時間が必要である。" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "上記のプログラムを用いて、$N$個の粒子が1次元周期境界条件のもとでランダムウォークを行い、反応によって不活性化する問題をシミュレーションした。このとき、条件として、格子の大きさ$L=1000$で、時刻$t=512(=2^{9})$までの計算を行った。$A(t)$を時刻$t$での粒子の密度として、量$1/A(t)-1$を時間$t$に対して両対数プロットし、これを図に示した。図から分かるように、この両対数プロットは直線的であり、$A(t)$と$t$の間にベキ乗則が成り立つことが分かる。実際にグラフにおける直線の傾き$a$を算出してみると、10回の試行の平均値として$a = 0.512988987355$が得られた。このときの分散$\\sigma$は$\\sigma = 0.0521364760422$であった。したがって、時刻$t$とその時刻での粒子の存在密度$A(t)$の間には、およそ以下のような関係が成り立つと分かる:\n", "\n", "$$A(t) \\sim t^{-\\frac{1}{2}}$$\n", "この結果は、空間ゆらぎを考慮せず解析的に求めた、長時間後の$A(t)$と$t$の関係と異なっている。したがって、はじめに述べたように平均場近似をすることは妥当でなく、粒子密度の空間的なゆらぎの効果は無視できないことが分かった。" ] }, { "cell_type": "code", "execution_count": 3, "metadata": { "collapsed": false }, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAoAAAAG5CAYAAAAeUIXbAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAALEgAACxIB0t1+/AAAIABJREFUeJzt3X2YnHV97/H35okQEnkQlAeDERWBrSIiiEWOqxabrMcD\nluIpSluRgJYKYml5qFKicqieQvWAVRCEWhWs2GqLJSm2Nq21LdYeaRWLJwEiAeRR20IL1Laf88c9\nIdmwuTOzMzu/mbnfr+uaa7OzM7Mfvs4VP7nnvn8/kCRJkiRJkiRJkiRJkiRJkiRJkiRJkiRJkiRJ\nkiRJkiRJ0qyYWzpAF44BzgLeDPwzcEfZOJIkSeqXXYCrSoeQJElS/1wMvLh0CEmSJM3M1cD9wLe2\nun85cBuwDjindd8Y8EHgNX1LJ0mSpJ47CjiEqQVwLrAeWAbMB24BDgROB74BfAx4W19TSpIkqaeW\nMbUAvhxYs8X357ZukiRJmoF5pQO0YR9g4xbf3w28rM3nrgee2/NEkiRJZd0OPK90iF5axtQjgMcB\nV27x/YnAZW2+VnqUaZCtKh2A2c/Qy9fv5rU6fW4nj2/3se08rpPfO6xWlQ7A8Lzvu3mdmTy3k+e0\n+9jtPa6T3zmsVpUO0LJqSF6/m9eZyXM7eU47j23nMV11nDndPLlP7gGWbvH9UqqjgKqsLR2A2c/Q\ny9fv5rU6fW4nj2/3sZ1mGFVrSwdgeN733bzOTJ7byXPafWwnrzmq1pYO0LJ2SF6/m9eZyXM7eU47\nj51JhqG3jKlHAOdRHeZcBixg80Ug7WjCEUBpa6tKB5D6bFXpAFIBI9VxrgPuBZ6gOu/vpNb9K4Dv\nUp3Td14HrzdSw5HaNFE6gNRnE6UDSAXYcWo4HEmSNIpG/hxASZIk9ZAFUJIkqWGaUABX4fkhkiRp\nNEzghU/b5TmAkiRpFHkOoCRJktpnAZQkSWoYC6AkSVLDWAAlSZIaxgIoSZLUMBZASZKkhrEASpIk\nNYwFUJIkqWGaUABX4U4gkiRpNEzgTiDb5U4gkiRpFLkTiCRJktpnAZQkSWoYC6AkSVLDWAAlSZIa\nxgIoSZLUMBZASZKkhrEASpIkNYwFUJIkqWEsgJIkSQ3ThAK4CreCkyRJo2ECt4LbLreCkyRJo8it\n4CRJktQ+C6AkSVLDWAAlSZIaxgIoSZLUMBZASZKkhrEASpIkNYwFUJIkqWEsgJIkSQ1jAZQkSWoY\nC6AkSVLDWAAlSZIapgkFcBXVxsmSJEnDboKq26hGVxslS5IkDaiuOk4TjgBKkiRpCxZASZKkhrEA\nSpIkNYwFUJIkqWEsgJIkSQ1jAZQkSWoYC6AkSVLDWAAlSZIaxgIoSZLUMBZASZKkhrEASpIkNYwF\nUJIkqWEsgJIkSQ3ThAK4CpgonEGSJKkXJqi6jWqkdABJkqRZ0FXHacIRQEmSJG3BAihJktQwFkBJ\nkqSGsQBKkiQ1jAVQkiSpYSyAkiRJDWMBlCRJahgLoCRJUsNYACVJkhrGAihJktQwFkBJkqSGsQBK\nkiQ1jAVQkiSpYSyAkiRJDWMBlCRJahgLoCRJUsM0oQCuAiYKZ5AkSeqFCapuoxopHUCSJGkWdNVx\nmnAEUJIkSVuwAEqSJDWMBVCSJKlhLICSJEkNYwGUJElqGAugJElSw1gAJUmSGsYCKEmS1DAWQEmS\npIaxAEqSJDWMBVCSJKlhLICSJEkNYwGUJElqmHmlA0iSJPXW+CQsPQOWLIRHHoeNl8KtN5ZOpf5J\n6QCSJKmfxidh5TpINt9WrqvuHyl2nBoOR5KkRlm+Zmr523Rbsbp0sh7rquN4DqAkSRoReSUcfMT0\nP1u8Y3+zDDYLoCRJGnI5CvIV4Gq4b+P0j3n0sb5GUlF+BCxJ0sjKkZA/gdwBOQkyf/pzAE9e7zmA\nzeJwJEkaOflxyE2QOyEnV8VvS+OT1Tl/x6+tvo5c+QM7Ti2HI0nSyMgRkD+GbICcAllQOlFBdpwa\nDkeSpKGXwyGrId+DnNrw4reJHadGgFXARNkYkiSpczkM8keQuyBvh+xQOtEAmKDqNhbAGg5HkqSh\nk0MhN0A2Qk6z+E3LjlPD4UiSNDTyEsgfQu6GvAOysHSiAWbHqeFwJEkaeHkx5IuQeyBnWPzaYsep\n4XAkSRpYORjy+5B7Ie+EuFtH++w4NRyOJEkDJy+E/B7k+5B3QRaVTjSE7Dg1HI4kSQMjPwa5HnIf\n5CyLX1fsODUcjiRJxeUgyO+2it8vQ3YqnWgE2HFqOBxJkorJgZDrIPdDzoYsLp1ohNhxajgcSZL6\nLgdAroU8ADnX4jcr7Dg1HI4kSX2T/SGfbhW/X4UsKZ1ohNlxajgcSZJmXZ4P+R3Ig5B3Q55WOlED\n2HFqOBxJkmZNngf57VbxOx+yc+lEDWLHqeFwJEnquewHuQbyEOQCyC6lEzWQHaeGw5EkqWfyHMgn\nWsXvvRa/ouw4NRyOJEldyzLIla3i9z7IrqUTyY5Tx+FIkjRjeTbkCsjDkAshu5VOpCfZcWo4HEmS\nOpZ9IZe3it9FkKeXTqSnsOPUcDiSJLUtz4J8tFX8fh2ye+lE2qauOs68XqWQJEnDYHwSlp4BSxbC\nI4/Dxkvh238PnAecAFwFHABjD5bNKc2cRwAlSXrS+CSsXAfJ5tu7/gn+9F8gvwF5RumEapsdp4bD\nkSTpScvXTC1/m27HfKV0MnWsq44zp1cpJEnSIMt8eNY+0/9sgX2gYfwfXJKkkZaDqo93uQue9qzp\nH/PoY32NJM0yPwKWJDVQdoacCvkbyL2tK3pfMP05gCevr+7XkLHj1HA4kqSGyBzIqyGfgvwT5HrI\nJGSrFT/GJ2HFajh+bfXV8jek7Dg1HI4kacRlGeQCyJ2QWyBnuH5fI9hxajgcSdIIyo6QN0P+pLU/\n72WQQ0qnUl/ZcWo4HEnSiMgY5PAttmhbDXkjZGHpZCrCjlPD4UiShlyeCTkLcitkPeRXqy3b1HB2\nnBoOR5I0hDIfcgzki5AfQq6BHFUdBZQAO04thyNJGiIZh1wMuQ/yVchbIUtKp9JAsuPUcDiSpAGX\nXSBvh9wMuQdyEWT/0qk08Ow4NQKsAibKxpAkaUuZA3kN5DNbrNm34qlr9klPMUHVbSyANRyOJGmA\nZBlkFWSDa/apS3acGg5HklRYFkFOhPxpa82+S12zTz1gx6nhcCRJBWQMcgTkCsgPWmv2HQ/ZoXQy\njQw7Tg2HI0nqo+wJ+RXIdyDrXLNPs8iOU8PhSJJmWeZDjoX8YeuCjqtds099YMep4XAkSbMkPwa5\nBHJ/a82+kyCLS6dSY9hxajgcSVIPZRfIL0C+DrnbNftUkB2nhsORJHVgfBKWr4Hj11Zfxydba/Yd\nDbm29RHv51pr9s0tnVaNZsep4XAkSW0an4SV6yDZfDvzYfjyA5BvQk6HPL10SqnFjlPD4UiS2rR8\nzdTyt+l2/NdKJ5Om0VXHmdOrFJIkDa+MwdJtLdfyo75GkfrAAihJarj8BHAz7Lzv9D9/9LG+xpHU\nNT8CliRtQ17W2p5tHeRn4IWve+o5gCevr84NlAZOVx1nXq9SSJI0HDIOXAgcBrwPuAbGWh/z/ldg\n8nRYvGN15O+uy+DWG8tllTQTHgGUJLVkGeSTrYWbz4LsWDqR1AU7Tg2HI0mNlz0hl0EehrwX8rTS\niaQesOPUcDiS1FjZpbVTx8OQD0H2KJ1I6iE7Tg2HI0mNk0WQcyEPQj4B2cbVvdJQs+PUcDiS1BhZ\nADkNci/kesgBpRNJs8iOU8PhSNLIy1zIiZA7IGsgh5ZOJPWBHaeGw5GkkZUxyP+AfAvyV5BXlk4k\n9ZEdp4bDkaSRlFdB/hryD5DXV2VQahQ7Tg2HI0kjJS+F3AS5HfJmiFuaqqnsODUcjiSNhBwI+Tzk\nHsjbIfNLJ5IKs+PUcDiSNNSyL+RqyAOQs6slXiQxYB3ntNIBtjJQw5EktSvPgHy4tYjzhdWizpK2\nMFAd5zOlA2xloIYjSdqe7Ax5f6v4XQp5ZulE0oDqquPMa/Nx1wNPB7Z3ldXLugkjSWqq7Ai8A/gV\n4EbgUBjbUDSSNMLaLYDXAGcCX2P6EpjW/fv3KJckqREyH3grcD5wMzABY98pGknSFJe08ZiPz3qK\nzvgRsCQNpMyBnABZB/ky5LDSiaQh07eOc0wbj3ntrKfojAVQkgZKxiCvg9wCuRny6tKJpCFlx6nh\ncCRpYOQoyF9CboUc6+4dUleKdpwFJX95GyyAklRcDoGshtwJ+TnI3NKJpBFQtOP8Tslf3gYLoCQV\nk/0hvwu5F/KLkEE/aCANk6Id57qSv7wNFkBJ6rsshVwJeRByHmSn0omkEdRVx3ETbUlSj2R3yCXA\nLcBDwP4w9usw9q+Fg0naigVQktSlLIFcANwGLAR+DMbOg7EfFg4maRvaXQhaktR445Ow9AxYshAe\neRz++XL4q/2Ac4CbgMNh7I7CISX1gecASlIjjE/CynWQbL6d+yP4wl9DXlg6ndRAXgRSwwIoST2x\nfM3U8rfptmJ16WRSQ3kRiCRpNmUM9tl7+p8t3rG/WST1ggVQklQjPw6shd32m/7njz7WzzSSBsNJ\npQNshx8BS9KM5EWQGyDfg5wEL3n9U88BPHl9dW6gpALsODUcjiR1JM+FfAZyH+SdkB02/2x8sjrn\n7/i11VfLn1SQHaeGw5GktmQvyEchD0F+rVrbT9IAs+PUcDiSVCu7Qj4AeRhycbWbh6Qh0FXHmclC\n0IuAVwMvBvYE5gIPAndQLQR6bzeBJEn9kJ2AdwLvAr4AHAxjd5fNJKlfOrkKeF/gSuD/Am+kKn63\nAd8E/g04mOovka9RFURJ0sDJAsg7gPXAi4AjYexUy5+k6bwR+DRwWBuP3R24ELiCak/IkvwIWJIA\nyFzIz0HuhNwIOaR0IkldmfWO89+Bn53B854LXNzjLJ2yAEpquIxBjoV8G/KXkKNKJ5LUE7PecRZM\nc98Ltvp+h2kes63n9pMFUFKD5VWQv4H8PeR1VRmUNCL61nG23AboQ1v97BXAOcBOfcryHOAq4Prt\nPM4CKKmB8lLITZD1kBMg7vokjZ6+dZzbgAeAzwJfAvbf6uc7AL/UrzAtFkBJelIOhHwecg/kbZD5\npRNJmjVddZxO/lU4TnU+4DeBl1JdDXwvcC1wKnAAsEc3YSRJM5F9IVcDfw58HXg+jF0BYz8qHEzS\niPkQ1fl9rwIuovoL51/p7qKPq4H7gW9tdf9yqqOP66g+Zt6SRwAlNVieAflwaxHnCyG7lE4kqW+K\ndJxjZ+E1jwIOYWoBnEu1VtUyYD5wC3AgsBtwOdOXwi1ZACWNoOwMeV+r+F0KeWbpRJL6btZ3Atkd\neGir+77Y5us/g+q8wXZ8larobelwqgK4ofX9Z4FjgA8Ab2/zdVdt8ee1rZskDaHsCJwGnA2sBg6F\nsQ1FI0nql4nWrW8OA946g+cdAVzQ4XOWMfUI4E9T7T6yyYnAZR28nkcAJY2AzIecCtkI+X3IQaUT\nSSpu1o8A/m3r6+epjsB9AfjPmscfDJwBfA94bzfhsMBJarTModqJ6X3AXcBxMPb1spkkjYJ2CiBU\nJfBEqo3Dvwn8APh/wA+B/6A6J++ZwAtbj72A6vy8bt0DLN3i+6WA+1VKGnEZo7oA7iLgR8BpMPYn\nZTNJUrXkywlUhfBs4C3AK+l+549lTP0IeB5we+v+BWy+CKRdHkGUNGRyJOQvIN+B/JS7d0jahpHp\nONdRrSv4BLAROKl1/wrgu1QXg5zX4WuOzHAkjbocDPkSZAPk5yFzSyeSNNAGquMcXTrAVgZqOJL0\nVHke5FrI9yFnQLa1t7okbWlgOs7OVBeKDJKBGY4kTZW9IZdDHoK8B7K4dCJJQ2XWrwIGeD6wD7AX\nsPc0t72ARd2GkaTRl92Ac4GTgU8AL4Cxh8tmkqTpfQ34r9bt36muzv074EaqizZWAW9r3TdIQpVt\nomwMScpiyLtbR/wuh+xTOpGkoTRB1W36ctBtDvCLwCeBPbb62Ye2+HPdtmwleERSUmHZAXJ66xy/\na6tz/iSpa33tOHsCvwWcusV9H9rGYweBBVBSH4xPwvI1cPza6uv4ZHUVb34ecmfr6t6DS6eUNFKK\ndJzXUu0KcjgWQEmNNj4JK9dBsvn2ju/Dmg2Qr0JeUTqhpJFUrOMspNrq7e+AXVr3tXtRSb9YACXN\nsuVrppa/Tbc3f8NFnCXNoq46zpwunvs41ZZvb6b6WPj1wLXdhJGk4bNk4fT3//ujMOY/QiUNpG4K\n4Ca3UZXApcBxPXg9SRoCmQM5DvY9ZPqfP/pYf/NIUjk3lQ6wFf/1LanHMg9yYmuv3q/Dhe996jmA\nJ6+vzg2UpFkzUB1n0E52HqjhSBpm2QFyKuR2yFrI0ZvP8RufhBWrq6uAV6y2/Enqg1nvOItm+xfM\nIgugpC5lEeRMyN2QGyFHlk4kSfSh41wCfBo4Adhxtn9Zj7kTiKQZys6Q8yD3QX4PcmjpRJJEn3cC\nWQAcC/w28HHgaGAYljfwCKCkDmV3yPtbW7Z9CnJQ6USSNI2+d5xdgFOoFoL+DeDF/Q7QAQugpDZl\nL8jFkB9AroDsVzqRJNUo2nGeDZwHXE+1D/CzSoaZhgVQ0nZkGeSjreL3Ycig/T0mSdMZmI5zKHAx\n1ZHBk4GnlY0DDNBwJA2avADy25CHIRdBnlE6kSR1YOA6zlxgOXAl8NHCWQZuOJJKy4shn4M8ADkf\nsmvpRJI0AwPdcUpfKDLQw5HUTzkCcgPkXshZkMWlE0lSF+w4NRyO1GgZg7wa8qeQDZBfgGxj715J\nGioD1XFOKx1gKwM1HEn9kjHI6yB/Dfku5C2Q+aVTSVIPDVTH+UzpAFsZqOFImm2ZCzke8k3ILZA3\nVvdJ0sjpquPMa/Nx1wNPZ/vn9L2smzCSNDOZD7yJalmqHwLnA38EY/4jUJKm0W4BvAY4E/ga05fA\ntO7fv0e5emkVsLZ1kzRSshB4C9U6pHdSnYbyZxY/SSNsgj5vcXtJG4/5+Kyn6Iz/JyCNpOwE+SXI\nPZAvQV5eOpEk9VnfOs4xbTzmtbOeojMWQGmkZBfIeyD3t9byG+StKCVpNtlxajgcaSRkD8j/gjwE\n+STkgNKJJKkwO04NhyMNtewD+VBrn96PQZ5TOpEkDQg7Tg2HIw2l7Ae5olX8LoHsXTqRJA0YO04N\nhyMNlRwE+VTro94LIbuXTiRJA8qOU8PhSEMhh0A+37q441chO5dOJEkDzo5Tw+FIAy1HQm5sLefy\nrmp5F0lSG/qyE4gkzdD4JCw9A5YshEceh42Xwrf/HXg38Gzgg8AbYOyJsjklSaPCI4BSUeOTsHId\nJJtvZz8Gf3wX5Gch/iNUkmbGjlPD4UhFLV8ztfxtuq1YUzqZJA25rjrOnF6lGGCr6POeeZI22XXJ\n9PcvXtjfHJI0Miaouo1qeARQKiJj1Ue85zyxjSOAq0snlKQh5xFASYMkzwVuAn4JnjgbTlk/9ecr\nb4e7LiuRTJLUDB4BlPom8yHnthZx/uXNF3iMT1ZH/I5fW30dnywaU5JGgx2nhsOR+iJHQP4Bstr9\neiWpL+w4NRyONKvyNMhHIN+HnFCd+ydJ6gM7Tg2HI82avAGyEXIVZLfSaSSpYew4NRyO1HN5FuQL\nkNsg/610GklqKDtODYcj9UzmQt4BeRCyCrJD6USS1GB2nBoOR+qJvAjyN5C/gBxYOo0kyY5Tx+FI\nXckiyAcgD0BOgbh2qCQNBjtODYcjzViOhtwO+Sxkz9JpJElT2HFqOBypY9kD8inInZAVpdNIkqZl\nx6nhcKS2ZQzyFsj9kIshO5VOJEnaJjtODYcjtSX7Q74C+QbkJaXTSJK2y45TI8AqYKJsDGlQZQHk\nPa39e9+1ef9eSdKAmqDqNhbAGg5H2qYcCbkV8iXIs0unkSR1xI5Tw+FIT5FdIB+D3AM53v17JWko\n2XFqOBzpSRmD/HSr+F1eFUFJ0pCy49RwOBIA2RdyA+Q7kFeUTiNJ6podp4bDUcNlLuTM1kUe57t/\nrySNDDtODYejBsshkL+F/Fm1zIskaYTYcWo4HDVQdoL8RmtB55O8yEOSRpIdp4bDUcNkeWsLt09D\nnlE6jSRp1thxajgcNUSeCbkOcgfkJ0unkSTNOjtODYejEZc5kJWQByAfhCwqnUiS1Bd2nBoORyMs\nB0D+HHIz5ODSaSRJfWXHqeFwNIKyA+SC1tIup1dLvUiSGsaOU8PhaMTkKMg/Qv4AsrR0GklSMXac\nGg5HIyK7Qq6E3A35KZd2kaTGs+PUcDgachmD/AzkXshvQXYunUiSNBDsODUcjoZYlkFuhHwL8vLS\naSRJA8WOU8PhaAhlHuSs1kUe50EWlE4kSRo4XXWceb1KIWkmxidh6RmwZCE88ji84EbgLcAPgCNg\nbH3ZfJIkDZ8Aq4CJsjGk6YxPwsp1kGy+nfsf8JsXe5GHJGkbJqi6jZ9y1nA4GmDL10wtf5tuK1aX\nTiZJGnhddZw5vUohqRMZg332nv5ni3fsbxZJUtNYAKW+y48Da2HX50z/80cf62caSZJGjR8Ba4Dk\nRZAbIN+DnAQvef1TzwE8eX11bqAkSbW8ClgabNkPeC9wNPAB4HgYe7z62RP/CZOnVx/7PvoY3HUZ\n3HpjuaySJA0/jwCqoOwJ+UhrPb8LIEtKJ5IkjQw7Tg2HowKyC+QiyMOQ34TsUTqRJGnk2HFqOBz1\nURZBzoY8CPkEZN/SiSRJI8uOU8PhqA8yH/I2yD2Qz0MOLJ1IkjTy7Dg1HI5mUeZAToCsg3wZcljp\nRJKkxrDj1HA4mgUZg6yA3AL5OuQ1pRNJkhrHjlPD4ajHciTkLyDfgbzBPXslSYXYcWo4HPXIlEWc\n3wKZWzqRJKnR7Dg1HI66lP0gn4bcB3knZIfSiSRJwo5Ty+FohrIX5Ldaizj/mos4S5IGjB2nhsNR\nh6Ys4nwJZPfSiSRJmoYdp4bDUZuyCHJOaxHnqyBLSyeSJKmGHaeGw9F2ZD7k7a1FnK+HHFA6kSRJ\nbbDj1HA42oYnF3FeD7kJ8tLSiSRJ6oAdp4bD0VYyBplsLeJ8M+TVpRNJkjQDdpwaDkdbmLKI87Eu\n4ixJGmJ2nBoOR7QWcf4SZIOLOEuSRoQdp0aAVcBE2RgqY8oizme4iLMkaQRMUHUbC2ANh9NIUxZx\nPt9FnCVJI8iOU8PhNEp2hfx6axHni13EWZI0wuw4NRxOI0xZxPlKF3GWJDWAHaeGwxlpUxZx/hzk\nBaUTSZLUJ3acGg5nJGUO5E2tRZz/GHJo6USSJPVZVx1nXq9SSL03PglLz4AlC+GRx2HjpfBtgIuA\nx4FTYOzPymaUJEmDxiOAQ2t8Elaug2Tz7VcegzUbXMRZkiQ7Th2HM7SWr5la/jbdVqwpnUySpAHQ\nVceZ06sUUm8tWTj9/Yu3cb8kSWqXBVADKM+EvQ+a/mePPtbfLJIkjR4LoAZMXg/cAi/5Cpx6+9Sf\nrbwd7rqsSCxJkjQ0PAdwaGQnyOWQDZCjqvvGJ2HFajh+bfV1fLJkQkmSBogdp4bDGQp5KeS7kN+B\n7Fw6jSRJQ8COU8PhDLTMhbwb8gDkf5ZOI0nSELHj1HA4AyvPgfwl5Cvu3StJUsfsODUczsDJGOTn\nIA9Czqq2dZMkSR2y49RwOAMlu0F+F/JtyMGl00iSNMTsODUczsDIayAbIR+G7Fg6jSRJQ86OU8Ph\nFJeFkEsgd0NeWzqNJEkjwo5Tw+EUlRdC/gHye5Cnl04jSdIIsePUcDhFZA7kzNaFHidVF35IkqQe\nsuPUcDh9l30gX4b8FeS5pdNIkjSi7Dg1HE5f5TjI/ZDzIfNKp5EkaYTZcWo4nL7I0yDXQNZBXlY6\njSRJDWDHqeFwZl2OhNwB+Thkcek0kiQ1hB2nhsOZNZkPeT/kPsixpdNIktQwdpwaDmdWZH/I1yGr\nIXuVTiNJUgPZcWo4nJ7KGORUyEOQd7i8iyRJxdhxajicnskekD+AfBNyUOk0kiQ1nB2nhsPpiUxC\n7oV8ELKgdBpJkmTHqeNwupJFkI9AvgeZKJ1GkiQ9yY5Tw+HMWF4C+UfIZyC7lE4jSZKmsOPUcDgd\ny1zIOZAHIG8qnUaSJE3LjlMjwCpgomyMYZFnQ/4csrb6syRJGjATVN3GAljD4bQtb4Y8CDm7Ogoo\nSZIGmB2nhsPZruwKuRbyHcghpdNIkqS22HFqOJxamWhd4XtZdcWvJEkaEnacGg5nWtkB8r8h90BW\nlE4jSZI6Zsep4XCeIge1dvP4YrW7hyRJGkJ2nBoO50kZg5zeutBjpfv4SpI01Ow4NRwOANkLsgZy\nM+T5pdNIkqSu2XFqOBzyBsh9kPdC5pdOI0mSesKOU6PBw8liyFWQ2yEvL51GkiT1VIM7zvY1dDg5\nArIecjVkSek0kiSp5xracdrTsOFkHuQCyP2Q40qnkSRJs6arjjOvVynUb+OTsPQMWLIQHnkc9rwe\nOAX4F+AQGLu3cEBJkqQiRvQI4PgkrFwHyebbuf8BH7scMqd0OkmSNOtGtOP0xogOZ/maqeVv023F\n6tLJJElSX3TVcTxaNJSWLJz+/sU79jeHJEkaRhbAofTI49Pf/+hj/c0hSZI0eEb0I+DpzgE8eX11\nvyRJaoCuOs6o7wcbRva/cXwS9j29+tj30cfgrsvg1htLp5IkSX0xwh2neyN6BFCSJDWcF4FIkiSp\nfRZASZKkhrEASpIkNYwFUJIkqWEsgJIkSQ1jAZQkSWoYC6AkSVLDWAAlSZIaxgIoSZLUMBZASZKk\nhrEASpIkNYwFUJIkqWEsgJIkSQ1jAZQkSWoYC6AkSVLDWAAlSZIaxgIoSZLUMBZASZKkhrEASpIk\nNYwFUJIkqWEsgJIkSQ1jAZQkSWoYC6AkSVLDWAAlSZIaxgIoSZLUMBZASZKkhrEASpIkNYwFUJIk\nqWEsgJIkSQ1jAZQkSWoYC6AkSVLDzCsdYIZ2Aj4KPAGsBa4tmkaSJEmz7meB17X+/Nmax6UPWSRJ\nkvqtq44zrB8B7wNsbP35P0sGkQbQROkAUp9NlA4gDZtBKoBXA/cD39rq/uXAbcA64JzWfXcDS1t/\nHqT/Bmm+dJfYAAADk0lEQVQQTJQOIPXZROkA0rAZpPJ0DVXZ29Jc4COt+w8CTgAOBH4fOI7qPMA/\n7GPGQTRROgCzn6GXr9/Na3X63E4e3+5jO80wqiZKB2B43vfdvM5MntvJc9p9bCevOaomSgdomRiS\n1+/mdWby3E6e085jZ5KhI4NUAL8K/HCr+w4H1gMbgB9Rne93DPBvwFuB04Dr+hdxIE2UDsDw/IXQ\n7Wt1+txOHt/uYzvNMKomSgdgeN733bzOTJ7byXPafWwnrzmqJkoHaJkYktfv5nVm8txOntPOY2eS\noSNjs/0LOrQMuAF4Yev7nwZ+Ejil9f2JwMuA09t8vfXAc3uYT5IkaRDcDjxvpk8e9GVgur2Kd8aD\nkSRJGlWD9BHwdO5h88UetP58d6EskiRJmgXLmHoV8DyqQ5zLgAXALVQXgUiSJGkEXAfcS7W7x0bg\npNb9K4DvUp3Pd16ZaJIkSZIkSZKGwk7AJ4GPA28qnEXqh+cAVwHXlw4i9dExVH/PfxY4unAWqV8O\nAD4GfA44uXCWgdPuHsLSqLEAqol2ofoHkNQkc6hK4HYf1CTuISxJzfEeqt2kpKZ4PfBHtHGQaxQK\noHsIq2k6ec9Lo6KT9/0Y8EFgNdXqEdKw6vTv+xuoLp79+b6kK+wo4BCmDmcu1VXDy4D5bF4+ZhHV\nMD9Kta+wNIw6ec/vBlyOpVDDr5P3/enAN6jOh3pbX1NKvdXJ+/6VwP8BrgDO7GvKgpYxdTgvB9Zs\n8f25rZs0Kpbhe17Nswzf92qeZczC+35UPwbd8lw/qD763adQFqkffM+riXzfq4l68r4f1QLY7R7C\n0rDxPa8m8n2vJurJ+35UC6B7CKtpfM+riXzfq4l8329hGe4hrGZZhu95Nc8yfN+reZbh+35a7iGs\npvE9rybyfa8m8n0vSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIkSZIaYC5wG7B3\n6SCSJEnqj8OBB0qHkKR2zCkdQJJGxKuAr5QOIUntmFs6gCQNuWOBtwGnAA8BhwEbgIcLZpIkSdIs\nWwA8CuxfOogkSZL641XAvaVDSFK7PAdQkrp3NLC2dAhJapcFUJK69xNsLoCvAHYoF0WSts8CKEnd\nGwdupip+RwJPlI0jSfW8CliSurcbcBBVEfwY8KOycSRJkiRJkiRJkiRJkiRJkiRJkiRJkiRJkiRJ\nkiRJkiRJkiRJkiRJ0uz7/7CtqTG+7e41AAAAAElFTkSuQmCC\n", "text/plain": [ "" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "%matplotlib inline\n", "L = 1000\n", "N = L\n", "pmax = 9\n", "\n", "T, A = main_rw_d1(L, N, pmax)\n", "plot_graph([T], [A], [r'$t$'], [r'$1/A(t)-1$'],\n", " xscale='log', yscale='log', aspect='equal')\n", "\n", "def fit_func(parameter0, t, y):\n", " a = parameter0[0]\n", " b = parameter0[1]\n", " residual = y - b * (t ** a)\n", " return residual\n", "parameter0 = [1, 0] # a, b\n", "# fitting(fit_func, parameter0, trial=10)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## まとめ" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "1次元の化学反応系の簡単な例について考え、粒子の存在密度$A(t)$と時刻$t$の間にベキ乗則が成り立ち、その指数の値が平均場近似より求められた値と異なることを示した。" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## 参考文献" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "- ハーベイ・ゴールド,ジャン・トボチニク,石川正勝・宮島佐介訳『計算物理学入門』,ピアソン・エデュケーション, 2000." ] } ], "metadata": { "kernelspec": { "display_name": "Python 2", "language": "python", "name": "python2" }, "language_info": { "codemirror_mode": { "name": "ipython", "version": 2 }, "file_extension": ".py", "mimetype": "text/x-python", "name": "python", "nbconvert_exporter": "python", "pygments_lexer": "ipython2", "version": "2.7.6" } }, "nbformat": 4, "nbformat_minor": 0 }