<?xml version="1.0" encoding="UTF-8" ?>
<rdf:RDF
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns="http://purl.org/rss/1.0/"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xmlns:content="http://purl.org/rss/1.0/modules/content/">

  <channel rdf:about="https://fabs.gjgd.net/RSS/100/">
    <title>とある理系男児のブログ</title>
    <link>https://fabs.gjgd.net/</link>
    <atom10:link xmlns:atom10="http://www.w3.org/2005/Atom" rel="self" type="application/rss+xml" href="https://fabs.gjgd.net/RSS/" />
    <atom10:link xmlns:atom10="http://www.w3.org/2005/Atom" rel="hub" href="http://pubsubhubbub.appspot.com/" />
    <description>理系の若者が思ったことを書くブログです。
</description>
    <dc:language>ja</dc:language>
    <dc:date>2012-09-15T23:03:30+09:00</dc:date>
    <items>
    <rdf:Seq>
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E8%8B%B1%E8%AA%9E%E5%AD%A6%E7%BF%92/men%20in%20black-%E6%98%A0%E7%94%BB-%E3%81%A7%E5%AD%A6%E3%82%93%E3%81%A0%E8%8B%B1%E8%AA%9E" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E6%B8%A9%E6%9A%96%E5%8C%96%E3%81%A8%E3%82%B5%E3%82%A4%E3%82%A8%E3%83%B3%E3%82%B9" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%E3%81%A7%E7%B4%A0%E6%95%B0%E3%82%92%E6%8E%A2%E7%B4%A2%E3%81%97%E3%81%A6%E3%81%BF%E3%82%8B%E3%80%82" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E6%94%BE%E5%B0%84%E6%80%A7%E7%89%A9%E8%B3%AA%E3%81%AE%E7%89%A9%E7%90%86%E5%8C%96%E5%AD%A6/excel%20vba%E3%81%A7%E5%9C%9F%E5%A3%8C%E3%81%8B%E3%82%89%E3%81%AE%E6%94%BE%E5%B0%84%E7%B7%9A%E3%83%AA%E3%82%B9%E3%82%AF%E3%82%92%E8%A8%88%E7%AE%97%E3%81%99%E3%82%8B%E3%80%82" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/%E5%8F%B0%E5%BD%A2%E5%85%AC%E5%BC%8F%E3%81%A8%E5%9C%9F%E5%A3%8C%E3%81%8B%E3%82%89%E3%81%AE%E6%94%BE%E5%B0%84%E7%B7%9A%E3%83%AA%E3%82%B9%E3%82%AF-part1-" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%E3%81%A7%E5%AD%A6%E3%81%B6runge-kutta%E6%B3%95-part2-%E3%83%AD%E3%83%88%E3%82%AB%E3%83%BB%E3%83%9C%E3%83%AB%E3%83%86%E3%83%A9%E6%96%B9%E7%A8%8B%E5%BC%8F%E3%82%92%E8%A7%A3%E3%81%8F%E3%80%82" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%20%E3%81%A7%E5%AD%A6%E3%81%B6runge-kutta%E6%B3%95-part1-" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E5%9B%BA%E6%9C%89%E7%B2%98%E5%BA%A6%E3%81%A8huggins%20plot" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E3%82%AA%E3%82%B9%E3%83%88%E3%83%AF%E3%83%AB%E3%83%89%E3%81%AE%E7%B2%98%E5%BA%A6%E8%A8%88%E3%81%A8%E3%81%9D%E3%81%AE%E5%8E%9F%E7%90%86%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6" />
      <rdf:li rdf:resource="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/%E5%A5%87%E6%95%B0%E3%82%92%E4%B8%A6%E3%81%B9%E3%82%8B%E3%81%A8-part2-3%E4%B9%97%E3%81%AE%E5%92%8C%E3%81%AE%E5%85%AC%E5%BC%8F%E3%82%92%E4%BD%9C%E3%81%A3%E3%81%A6%E3%81%BF%E3%82%8B%E3%80%82-" />
    </rdf:Seq>
    </items>
  </channel>

  <item rdf:about="https://fabs.gjgd.net/%E8%8B%B1%E8%AA%9E%E5%AD%A6%E7%BF%92/men%20in%20black-%E6%98%A0%E7%94%BB-%E3%81%A7%E5%AD%A6%E3%82%93%E3%81%A0%E8%8B%B1%E8%AA%9E">
    <link>https://fabs.gjgd.net/%E8%8B%B1%E8%AA%9E%E5%AD%A6%E7%BF%92/men%20in%20black-%E6%98%A0%E7%94%BB-%E3%81%A7%E5%AD%A6%E3%82%93%E3%81%A0%E8%8B%B1%E8%AA%9E</link>
    <title>MEN IN BLACK(映画)で学んだ英語</title>
    <description>
①山ほど書類仕事がある。
②私は首席で卒業しました。
③それで？
④引き受けるよ。
⑤(レストランで6番テーブルが上がった時に)6番上がりだ。
⑥ベルトを締めろ。
⑦あなたって本当に鈍い男ね

①I&#039;ve got tons of paperwork.
②I graduated ...</description>
    <content:encoded><![CDATA[<br />
①山ほど書類仕事がある。<br />
②私は首席で卒業しました。<br />
③それで？<br />
④引き受けるよ。<br />
⑤(レストランで6番テーブルが上がった時に)6番上がりだ。<br />
⑥ベルトを締めろ。<br />
⑦あなたって本当に鈍い男ね<br />
<br />
<span style="color:#FF0000">①I've got tons of paperwork.<br />
②I graduated with honors.<br />
③Go on.<br />
④I am in（例：He is in computer⇒彼はコンピュータの仕事をしている)<br />
⑤Six is up.(例：Tea 's up)<br />
⑥Fasten your seatbelt</span><br />
<span style="color:#FF0000">⑦You're really not getting this.</span><br />
<br />
http://www.eonet.ne.jp/~syumi-eigo/meninblack.html]]></content:encoded>
    <dc:subject>英語学習</dc:subject>
    <dc:date>2012-09-15T23:03:30+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E6%B8%A9%E6%9A%96%E5%8C%96%E3%81%A8%E3%82%B5%E3%82%A4%E3%82%A8%E3%83%B3%E3%82%B9">
    <link>https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E6%B8%A9%E6%9A%96%E5%8C%96%E3%81%A8%E3%82%B5%E3%82%A4%E3%82%A8%E3%83%B3%E3%82%B9</link>
    <title>温暖化とサイエンス</title>
    <description>温暖化については、色々な言説がある。
嘘だという言説も面白いのかもしれない。
厳しい意見を述べるけれども、
うそと決めつけるロジックが稚拙だと思う。

例えば、東京大学のサステイナビリティ学に関するHPでは、
温暖化の懐疑論に関する意見がまとめられている。

http://www.i...</description>
    <content:encoded><![CDATA[温暖化については、色々な言説がある。<br />
嘘だという言説も面白いのかもしれない。<br />
厳しい意見を述べるけれども、<br />
うそと決めつけるロジックが稚拙だと思う。<br />
<br />
例えば、東京大学のサステイナビリティ学に関するHPでは、<br />
温暖化の懐疑論に関する意見がまとめられている。<br />
<br />
http://www.ir3s.u-tokyo.ac.jp/sosho<br />
<br />
こちらのHPを読む限りでは、温暖化が嘘だという<br />
言説もいまいちだなと思う。<br />
<br />
もちろん、温暖化が嘘という言論をすべて否定するつもりもないが、<br />
最低限、科学的な方法にのっとった主張をすべきであり、<br />
明らかにミスリーディングな考察が多すぎるのではないか？]]></content:encoded>
    <dc:subject>科学</dc:subject>
    <dc:date>2012-09-08T03:10:16+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%E3%81%A7%E7%B4%A0%E6%95%B0%E3%82%92%E6%8E%A2%E7%B4%A2%E3%81%97%E3%81%A6%E3%81%BF%E3%82%8B%E3%80%82">
    <link>https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%E3%81%A7%E7%B4%A0%E6%95%B0%E3%82%92%E6%8E%A2%E7%B4%A2%E3%81%97%E3%81%A6%E3%81%BF%E3%82%8B%E3%80%82</link>
    <title>Excel VBAで素数を探索してみる。</title>
    <description>素数とは、1 と自分自身以外に正の約数を持たない、1 でない自然数のことです。
1～100までの素数は容易に探索できるかもしれません。
でも1～1000までの素数となるとちょっと骨が折れるでしょうね。
そこで、プログラミングの出番です。

実を言うと素数を探索するアルゴリズムは複数あります...</description>
    <content:encoded><![CDATA[素数とは、1 と自分自身以外に正の約数を持たない、1 でない自然数のことです。<br />
1～100までの素数は容易に探索できるかもしれません。<br />
でも1～1000までの素数となるとちょっと骨が折れるでしょうね。<br />
そこで、プログラミングの出番です。<br />
<br />
実を言うと素数を探索するアルゴリズムは複数あります。<br />
したがって、素数はコンピュータ計算でも探索できます。<br />
<br />
ここでは、次の方法で素数を探索してみようと思います。<br />
<br />
<span style="color:#0000FF">①　a_k = k (k = 1,2,3…1000)となる数列akを定義する。<br />
②　k = 1であれば、素数ではないと判断する。<br />
③　k = 2であれば、素数と判断する。<br />
③　k ＞2であるa_kを2~kまでのすべての数で割っていく。<br />
④　③のときに、割った数pに対してひとつでもa_k ≡ 0 (mod p) を満たせば<br />
　　 素数でないと判断する。<br />
※modの意味がわからない方はこちらへ⇒http://sur.ac/faq/mod.html<br />
⑤　kの値を繰り上げて③～④を繰り返す。</span><br />
<br />
<br />
上の計算方法をVBAプログラムにすると次のようになります。<br />
<br />
<span style="color:#FF0000">Sub primenumber()<br />
<br />
Dim k, j As Long<br />
Dim hantei As Long<br />
Dim counter As Long<br />
<br />
counter = 0<br />
<br />
For k = 1 To 1000<br />
<br />
  If k = 1 Then<br />
  <br />
  hantei = 0<br />
  <br />
  '1は素数じゃない。<br />
  <br />
  End If<br />
  <br />
  If k = 2 Then<br />
  <br />
  hantei = 1<br />
  counter = counter + 1<br />
  <br />
  Cells(counter, 1).Value = counter<br />
  Cells(counter, 2).Value = k<br />
  <br />
  '2は素数である。<br />
  <br />
  End If<br />
  <br />
  If k = 3 Then<br />
  <br />
  hantei = 1<br />
  counter = counter + 1<br />
  Cells(counter, 1).Value = counter<br />
  Cells(counter, 2).Value = k<br />
  <br />
  '3は素数である。<br />
  <br />
  End If<br />
  <br />
  If k > 3 Then<br />
  <br />
  hantei = 1<br />
  <br />
     For j = 2 To k - 1<br />
     <br />
        Data = k Mod j<br />
        <br />
          If Data = 0 Then<br />
          <br />
          hantei = 0<br />
          <br />
          End If<br />
        <br />
     Next j<br />
<br />
     If hantei = 1 Then<br />
     counter = counter + 1<br />
     Cells(counter, 1).Value = counter<br />
     Cells(counter, 2).Value = k<br />
  <br />
     End If<br />
  '3以上の数の素数判定実施。<br />
  End If<br />
  <br />
Next k<br />
<br />
<br />
End Sub</span><br />
<br />
解析結果：<br />
<a href="//fabs.gjgd.net/File/sosuu.jpg" target="_blank"><img src="//fabs.gjgd.net/Img/1346583076/" border="0" alt="" /></a><br />
<br />
このように、プログラミングを勉強すれば素数も簡単に探せるようになるのです。]]></content:encoded>
    <dc:subject>数学</dc:subject>
    <dc:date>2012-09-02T19:53:14+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E6%94%BE%E5%B0%84%E6%80%A7%E7%89%A9%E8%B3%AA%E3%81%AE%E7%89%A9%E7%90%86%E5%8C%96%E5%AD%A6/excel%20vba%E3%81%A7%E5%9C%9F%E5%A3%8C%E3%81%8B%E3%82%89%E3%81%AE%E6%94%BE%E5%B0%84%E7%B7%9A%E3%83%AA%E3%82%B9%E3%82%AF%E3%82%92%E8%A8%88%E7%AE%97%E3%81%99%E3%82%8B%E3%80%82">
    <link>https://fabs.gjgd.net/%E6%94%BE%E5%B0%84%E6%80%A7%E7%89%A9%E8%B3%AA%E3%81%AE%E7%89%A9%E7%90%86%E5%8C%96%E5%AD%A6/excel%20vba%E3%81%A7%E5%9C%9F%E5%A3%8C%E3%81%8B%E3%82%89%E3%81%AE%E6%94%BE%E5%B0%84%E7%B7%9A%E3%83%AA%E3%82%B9%E3%82%AF%E3%82%92%E8%A8%88%E7%AE%97%E3%81%99%E3%82%8B%E3%80%82</link>
    <title>Excel VBAで土壌からの放射線リスクを計算する。</title>
    <description>京都市立芸術大学 の藤原隆男のHPを参考にすると
土壌中放射線物質によって人間に暴露される放射線の強さを計算できます。

詳細：http://kcua.ac.jp/~fujiwara/nuclear/air_dose.html

前回の日記で紹介した台形公式のロジックをもとに、数値積分法を...</description>
    <content:encoded><![CDATA[京都市立芸術大学 の藤原隆男のHPを参考にすると<br />
土壌中放射線物質によって人間に暴露される放射線の強さを計算できます。<br />
<br />
詳細：http://kcua.ac.jp/~fujiwara/nuclear/air_dose.html<br />
<br />
前回の日記で紹介した台形公式のロジックをもとに、数値積分法を応用して<br />
土壌からの放射線の強さを計算するプログラミングを作ってみようと思う。<br />
<br />
まず、上記のHPより放射線の強さの式は：<br />
<br />
I =∫(0～∞) p*exp(-u*√(r^2 + h^2))*(2π*r*dr)/{4π(r^2 + h^2)｝<br />
I =p*∫(0～∞) exp(-u*√(r^2 + h^2))*(r*dr)/{2*(r^2 + h^2)｝<br />
<br />
となります。これを計算してSvに換算できれば土壌による放射線のリスクを<br />
正確に評価できます。本稿では、Iの計算方法まで論じます。<br />
<br />
さて、25℃の大気では、u = １/110.16 m^2であり、<br />
p=1のときのIを計算すると次のプログラムを実行すればいいでしょう。<br />
<br />
<br />
<span style="color:#FF0000">Sub intensity_calc()<br />
<br />
Dim R As Double<br />
Dim dR As Double<br />
Dim U As Double<br />
Dim A, B As Double<br />
Dim P, Q As Double<br />
<br />
H = 0.001<br />
S = 0<br />
U = 1 / 110<br />
dR = 0.01<br />
<br />
Cells(2, 2).Value = "h"<br />
Cells(2, 3).Value = "I"<br />
<br />
For i = 1 To 200<br />
<br />
S = 0<br />
R = 0<br />
<br />
'台形公式計算<br />
<br />
  A = Exp(-U * (R ^ 2 + H ^ 2) ^ 0.5)<br />
  B = 2 * (R ^ 2 + H ^ 2)<br />
  S = S + (A / B) * R * dR * 0.5<br />
  R = R + dR<br />
  <br />
  For j = 1 To 10000<br />
  A = Exp(-U * (R ^ 2 + H ^ 2) ^ 0.5)<br />
  B = 2 * (R ^ 2 + H ^ 2)<br />
  S = S + (A / B) * R * dR<br />
  R = R + dR<br />
  Next j<br />
<br />
S = S - (A / B) * R * dR * 0.5<br />
  <br />
Cells(2 + i, 2).Value = H<br />
Cells(2 + i, 3).Value = S<br />
<br />
H = H + 0.1<br />
<br />
Next i<br />
<br />
End Sub<br />
</span><br />
<br />
解析結果：<br />
<a href="//fabs.gjgd.net/File/914a7e51.jpeg" target="_blank"><img src="//fabs.gjgd.net/Img/1345975155/" border="0" alt="" /></a><br />
<br />
この図は紹介したHPにも載っていますが、数学的な導出がありません。<br />
理論的には、こういった計算を行えば解析できるということを<br />
このブログで示しました。この解析結果をそのまま読みとめれば、<br />
土壌のBq/m2から、高さあたりの被ばく量を概算できるのです。<br />
次回は、土壌中のBq/m2とSvの関係を評価します。]]></content:encoded>
    <dc:subject>放射性物質の物理化学</dc:subject>
    <dc:date>2012-08-26T19:02:12+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/%E5%8F%B0%E5%BD%A2%E5%85%AC%E5%BC%8F%E3%81%A8%E5%9C%9F%E5%A3%8C%E3%81%8B%E3%82%89%E3%81%AE%E6%94%BE%E5%B0%84%E7%B7%9A%E3%83%AA%E3%82%B9%E3%82%AF-part1-">
    <link>https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/%E5%8F%B0%E5%BD%A2%E5%85%AC%E5%BC%8F%E3%81%A8%E5%9C%9F%E5%A3%8C%E3%81%8B%E3%82%89%E3%81%AE%E6%94%BE%E5%B0%84%E7%B7%9A%E3%83%AA%E3%82%B9%E3%82%AF-part1-</link>
    <title>台形公式と土壌からの放射線リスク(PART1)</title>
    <description>PART1はあくまで台形公式についてのみ書きます。

今、y = x^2を0から1の範囲で積分せよという問題を考える。
この積分は簡単だと思う。何故なら、∫x^2dx =x^3/3+Cより、
1/3だとすぐ確認できるからである。

では、y=√(x＾4-ｘ+sinx)に変更するとどうだろ...</description>
    <content:encoded><![CDATA[PART1はあくまで台形公式についてのみ書きます。<br />
<br />
今、y = x^2を0から1の範囲で積分せよという問題を考える。<br />
この積分は簡単だと思う。何故なら、∫x^2dx =x^3/3+Cより、<br />
1/3だとすぐ確認できるからである。<br />
<br />
では、y=√(x＾4-ｘ+sinx)に変更するとどうだろうか？<br />
こういう式になった途端にどうすればいいかわからなくなるだろう。<br />
このように、数学的にちゃんと積分する方法がわからない式だってたくさんある。<br />
しかし、y=f(x)がどんな式であれ、近似的に精度よく積分できる方法も存在する。<br />
<br />
台形公式は、そういった手法の一つである。台形公式は、<br />
積分範囲を何点かに分割して台形をつくり、その台形の面積を求めることで<br />
数値積分する方法である。<br />
<br />
具体例：今、y=f(x)をa～b( a<b)の範囲で積分する場合を考えよう。<br />
x = aからx = bの区間をN+1個の点x0~xNで分割し、図のようにN個の台形を作る。<br />
<br />
<a href="//fabs.gjgd.net/File/308b91d8.jpeg" target="_blank"><img src="//fabs.gjgd.net/Img/1345907186/" border="0" alt="" /></a><br />
<br />
この図から台形の面積の総和Stを調べると、数学的に下記の式であらわせる。<br />
<br />
St = {(f(x0)+f(x1))*(x1-x0)/2}+…+{(f(xN)+f(xN-1))*(xN-xN-1)/2}…(1)<br />
<br />
今分割をx1-x0 = x2 - x1 = …xk+1-xk　=　ｘN - x0 = hとなるように行うのであれば、<br />
<br />
St = {f(x0) + f(xN)}/2*h + Σf(xk)*h/2  (k=1 ~ k = N-1)…(2)<br />
<br />
がなりたつ。分割数を増やしていけば、この台形の面積の総和は積分結果に近づく。<br />
<br />
この(2)式を実行するプログラミングとf(x)を定義すれば、<br />
<br />
どんな式でも簡単に積分できるようになるでしょう。<br />
]]></content:encoded>
    <dc:subject>数学</dc:subject>
    <dc:date>2012-08-26T00:05:31+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%E3%81%A7%E5%AD%A6%E3%81%B6runge-kutta%E6%B3%95-part2-%E3%83%AD%E3%83%88%E3%82%AB%E3%83%BB%E3%83%9C%E3%83%AB%E3%83%86%E3%83%A9%E6%96%B9%E7%A8%8B%E5%BC%8F%E3%82%92%E8%A7%A3%E3%81%8F%E3%80%82">
    <link>https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%E3%81%A7%E5%AD%A6%E3%81%B6runge-kutta%E6%B3%95-part2-%E3%83%AD%E3%83%88%E3%82%AB%E3%83%BB%E3%83%9C%E3%83%AB%E3%83%86%E3%83%A9%E6%96%B9%E7%A8%8B%E5%BC%8F%E3%82%92%E8%A7%A3%E3%81%8F%E3%80%82</link>
    <title>Excel VBAで学ぶRunge-Kutta法(PART2)ロトカ・ボルテラ方程式を解く。</title>
    <description>ロトカ・ボルテラ方程式とは、捕食生物および被捕食生物の個体数変動を
数式化した方程式であり、1階の二元連立微分方程式の代表的な問題です。
この方程式を解く際もRunge－Kutta法が大活躍します。具体的な方法論については
ゴッドフット企画さまのHPを引用させていただきます。

＝＝＝＝＝...</description>
    <content:encoded><![CDATA[ロトカ・ボルテラ方程式とは、捕食生物および被捕食生物の個体数変動を<br />
数式化した方程式であり、1階の二元連立微分方程式の代表的な問題です。<br />
この方程式を解く際もRunge－Kutta法が大活躍します。具体的な方法論については<br />
ゴッドフット企画さまのHPを引用させていただきます。<br />
<br />
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝<br />
引用元：http://homepage1.nifty.com/gfk/rungekutta.htm<br />
次の１階２元連立微分方程式で説明する。<br />
<br />
　dφ/dt = F( t , φ, ω)<br />
　dω/dt = G( t , φ, ω)<br />
<br />
　F,Gは時間tと変数φ、ωの関数<br />
<br />
初期値　t=t0　の時、φ=φ0, ω=ω0とすると、Δt後の変数値は下式となる。<br />
<br />
　　k1 = Δt・F( t0, φ0, ω0)<br />
　　m1 = Δt・G( t0, φ0, ω0)<br />
<br />
　 k2 = Δt・F( t0+Δt/2, φ0+k1/2, ω0+m1/2)<br />
　　m2 = Δt・G( t0+Δt/2, φ0+k1/2, ω0+m1/2)<br />
<br />
　　k3 = Δt・F( t0+Δt/2, φ0+k2/2, ω0+m2/2)<br />
　　m3 = Δt・G( t0+Δt/2, φ0+k2/2, ω0+m2/2)<br />
<br />
　　k4 = Δt・F( t0+Δt, φ0+k3, ω0+m3)<br />
　　m4 = Δt・G( t0+Δt, φ0+k3, ω0+m3)<br />
<br />
　　k = (k1+2・K2+2・k3+k4)/6<br />
　　m = (m1+2・m2+2・m3+m4)/6<br />
<br />
Δt後の変数値φ1,ω1は<br />
<br />
　　φ1 = φ0 + k<br />
　　ω1 = ω0 + m<br />
<br />
となる。<br />
<br />
この手続きを繰り返せば、離散的だが、すべての時間での変数値が求まります。<br />
ちなみに、Δtは0.0001秒のような微小値を設定する必要があります。<br />
Δtが大きすぎると解が発散する場合があります。<br />
<br />
計算量が多いので、手計算は困難です。EXCELなどを使って計算しましょう。<br />
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝<br />
<br />
このゴットフット企画さまのHPの理論を応用すれば、ロトカ・ボルテラ方程式の<br />
解析コードが作成できます。そこで、方程式例として<br />
dx/dt = (8 - 3 * y) * x         <br />
dy/dt = (-18 + 4 * x) * y　<br />
初期条件t = 0, x = 10 , y = 7<br />
を考えましょう。この微分方程式の数値計算用プログラミングのソースコードを<br />
下記に記します。<br />
<br />
<span style="color:#FF0000">Sub RungeKutta()<br />
<br />
Dim t, dt As Single<br />
Dim x, y As Single<br />
Dim K1, K2, K3, K4 As Single<br />
Dim L1, L2, L3, L4 As Single<br />
Dim i As Long<br />
<br />
'初期値の入力<br />
<br />
t = 0<br />
x = 10#<br />
y = 7#<br />
dt = 0.01<br />
<br />
Cells(1, 1).Value = "t"<br />
Cells(1, 2).Value = "x"<br />
Cells(1, 3).Value = "y"<br />
<br />
Cells(2, 1).Value = t<br />
Cells(2, 2).Value = x<br />
Cells(2, 3).Value = y<br />
<br />
For i = 0 To 5000<br />
<br />
K1 = F(t, x, y) * dt<br />
L1 = G(t, x, y) * dt<br />
<br />
K2 = F(t + dt / 2, x + K1 / 2, y + L1 / 2) * dt<br />
L2 = G(t + dt / 2, x + K1 / 2, y + L1 / 2) * dt<br />
<br />
K3 = F(t + dt / 2, x + K2 / 2, y + L2 / 2) * dt<br />
L3 = G(t + dt / 2, x + K2 / 2, y + L2 / 2) * dt<br />
<br />
K4 = F(t + dt, x + K3, y + L3) * dt<br />
L4 = G(t + dt, x + K3, y + L3) * dt<br />
<br />
t = t + dt<br />
x = x + (K1 + 2 * K2 + 2 * K3 + K4) / 6<br />
y = y + (L1 + 2 * L2 + 2 * L3 + L4) / 6<br />
<br />
Cells(3 + i, 1).Value = t<br />
Cells(3 + i, 2).Value = x<br />
Cells(3 + i, 3).Value = y<br />
<br />
Next i<br />
<br />
End Sub<br />
<br />
Function F(t, x, y)<br />
<br />
F = (8 - 3 * y) * x<br />
<br />
End Function<br />
<br />
Function G(t, x, y)<br />
<br />
G = (-18 + 4 * x) * y<br />
<br />
End Function</span><br />
<br />
解析結果：<br />
<br />
<a href="http://file.tafel.gjgd.net/655bd58f.jpeg" target="_blank"><img src="http://file.tafel.gjgd.net/Img/1345894434/" border="0" alt="" /></a><br />
<br />
※特定のxに対してyは周期的に変化していることが確認できる。<br />
<br />
<a href="http://file.tafel.gjgd.net/5622b494.jpeg" target="_blank"><img src="http://file.tafel.gjgd.net/Img/1345894440/" border="0" alt="" /></a><br />
<br />
※ｘ、yの経時変化をみると図のようになっている。<br />
<br />
このようにして、Runge-Kutta法を応用すると連立微分方程式のような<br />
複雑な方程式も解析できます。]]></content:encoded>
    <dc:subject>数学</dc:subject>
    <dc:date>2012-08-25T20:37:29+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%20%E3%81%A7%E5%AD%A6%E3%81%B6runge-kutta%E6%B3%95-part1-">
    <link>https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/excel%20vba%20%E3%81%A7%E5%AD%A6%E3%81%B6runge-kutta%E6%B3%95-part1-</link>
    <title>Excel VBA で学ぶRunge-Kutta法(PART1)</title>
    <description>Runge-Kutta法とは、微分方程式の解法の一つです。
(原理の詳細：http://hooktail.org/computer/index.php?Runge-Kutta%CB%A1)
例えば、任意の微分方程式に対して、

dy/dx = f(x,y)に対して

k1 =  f(x,...</description>
    <content:encoded><![CDATA[Runge-Kutta法とは、微分方程式の解法の一つです。<br />
(原理の詳細：http://hooktail.org/computer/index.php?Runge-Kutta%CB%A1)<br />
例えば、任意の微分方程式に対して、<br />
<br />
dy/dx = f(x,y)に対して<br />
<br />
k1 =  f(x,y)<br />
k2 =  f(x+Δx/2,y+k1*Δx/2)<br />
k3 =  f(x+Δx/2,y+k2*Δx/2)<br />
k4 =  f(x+Δx,y+k3*Δx)<br />
Δy = (Δx/6)*(k1+2k2+2k3+k4)<br />
<br />
とすることでΔxに対するΔyを予想し、y=f(x)を正確に近似する方法です。<br />
<br />
具体的にExcelのマクロを作って計算してみましょう。<br />
<br />
<span style="color:#FF0000">問い:微分方程式dy/dx = xyをRunge-Kutta法で解け。ただし、x = 0ならy=10とする。</span><br />
<br />
解法：上記計算のルールを用いてマクロをつくると下のようになる。<br />
<br />
<span style="color:#FF0000">Sub RungeKutta()<br />
<br />
Dim K1, K2, K3, K4 As Single<br />
Dim x, y As Single<br />
Dim dx, dy As Single<br />
Dim i As Long<br />
<br />
Cells(2, 2).Value = "x"<br />
Cells(2, 3).Value = "y"<br />
<br />
x = 0<br />
y = 10<br />
Cells(3, 2).Value = x<br />
Cells(3, 3).Value = y<br />
dx = 0.01<br />
<br />
For i = 1 To 300<br />
<br />
K1 = F(x, y)<br />
K2 = F(x + dx / 2, y + dx / 2 * K1)<br />
K3 = F(x + dx / 2, y + dx / 2 * K2)<br />
K4 = F(x + dx, y + dx * K3)<br />
dy = (K1 + 2 * K2 + 2 * K3 + K4) * (dx / 6)<br />
x = x + dx<br />
y = y + dy<br />
Cells(3 + i, 2).Value = x<br />
Cells(3 + i, 3).Value = y<br />
<br />
Next i<br />
<br />
End Sub<br />
<br />
Function F(x, y)<br />
<br />
F = -2 * x * y<br />
<br />
End Function</span><br />
<br />
計算結果<br />
<a href="//fabs.gjgd.net/File/36e9d697.jpeg" target="_blank"><img src="//fabs.gjgd.net/Img/1345756195/" border="0" alt="" /></a><br />
<br />
このような簡素なプログラミングでも微分方程式は精度よく計算できます。<br />
とくに、Runge-Kutta法は常微分方程式であれば、<br />
複雑な式でも解析が容易です。以後、Runge-Kutta法の解析例を<br />
紹介していきたいと思います。]]></content:encoded>
    <dc:subject>数学</dc:subject>
    <dc:date>2012-08-24T06:17:21+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E5%9B%BA%E6%9C%89%E7%B2%98%E5%BA%A6%E3%81%A8huggins%20plot">
    <link>https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E5%9B%BA%E6%9C%89%E7%B2%98%E5%BA%A6%E3%81%A8huggins%20plot</link>
    <title>固有粘度とHuggins Plot</title>
    <description>前回、溶媒の粘度をη0、溶液の粘度をηとして、
オストワルドの粘度計の原理を示した。

今日は固有粘度について語ろうと思う。

溶液の溶質の濃度をCとすると、実はηとη0の間には、一般的に

η = η0(1+[η]C+[η2]C^2+…)…(1)

が成り立ち、状態方程式をビリア...</description>
    <content:encoded><![CDATA[前回、溶媒の粘度をη0、溶液の粘度をηとして、<br />
オストワルドの粘度計の原理を示した。<br />
<br />
今日は固有粘度について語ろうと思う。<br />
<br />
溶液の溶質の濃度をCとすると、実はηとη0の間には、一般的に<br />
<br />
η = η0(1+[η]C+[η2]C^2+…)…(1)<br />
<br />
が成り立ち、状態方程式をビリアル展開した式に似た近似式が成り立つ。<br />
<br />
よって、高分子溶液のようにCが十分に小さい場合、<br />
C^2<<1なので、C^2≒0と近似してよい。この場合、<br />
<br />
η = η0(1+[η]C)⇔[η]= {(η-η0)/η0}/C より[η]は次式のようになる。<br />
<br />
∴　[η]　 =　Lim{C⇒0}　(η/η0 - 1)/C　…(2)<br />
<br />
このような[η]のことを固有粘度と呼ぶ。<br />
固有粘度は、Huggins Plotというデータ解析で解析することができる。<br />
<br />
これは、Cに対して(η/η0-1)/Cをプロットすることで固有粘度を解析する方法である。<br />
<br />
例えば、下表にEXCELでポリスチレン-トルエン溶液を用いて<br />
(η/η0-1)/Cを解析した例を記す。<br />
<br />
<img src="//fabs.gjgd.net/File/abc.jpg" alt="" /><br />
<br />
この表に対して、ポリスチレン濃度と計算②をプロットしたものがHuggins Plotであり、<br />
Excelでグラフ化すると図のようになる。<br />
<br />
<img src="//fabs.gjgd.net/File/def.jpg" alt="" /><br />
<br />
グラフの切片は、Lim{C⇒0}　(η/η0 - 1)/Cと同じであり、<br />
<br />
固有粘度[η]は、[η]=0.0501となっていることが確認できた。<br />
<br />
実験的にはこのようにして固有粘度を求められる。<br />
<br />
]]></content:encoded>
    <dc:subject>科学</dc:subject>
    <dc:date>2012-08-22T23:55:36+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E3%82%AA%E3%82%B9%E3%83%88%E3%83%AF%E3%83%AB%E3%83%89%E3%81%AE%E7%B2%98%E5%BA%A6%E8%A8%88%E3%81%A8%E3%81%9D%E3%81%AE%E5%8E%9F%E7%90%86%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6">
    <link>https://fabs.gjgd.net/%E7%A7%91%E5%AD%A6/%E3%82%AA%E3%82%B9%E3%83%88%E3%83%AF%E3%83%AB%E3%83%89%E3%81%AE%E7%B2%98%E5%BA%A6%E8%A8%88%E3%81%A8%E3%81%9D%E3%81%AE%E5%8E%9F%E7%90%86%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6</link>
    <title>オストワルドの粘度計とその原理について</title>
    <description>趣味の勉強日記です。

オストワルドの粘度計とは、下記動画で紹介されているガラス器具であり、
Ostwald　viscometerともいいます。



この器具は、溶液の粘度測定で幅広く利用されます。
英語で何を言ってるか分からない方のために図を用意しました。
詳細は下記をご覧くだ...</description>
    <content:encoded><![CDATA[趣味の勉強日記です。<br />
<br />
オストワルドの粘度計とは、下記動画で紹介されているガラス器具であり、<br />
Ostwald　viscometerともいいます。<br />
<br />
<script type="text/javascript" src="/ScriptLoader?type=YouTube&amp;id=TPfjX9EtmyA&amp;width=400&amp;height=300"></script><br />
<br />
この器具は、溶液の粘度測定で幅広く利用されます。<br />
英語で何を言ってるか分からない方のために図を用意しました。<br />
詳細は下記をご覧ください。<br />
<br />
<img src="//fabs.gjgd.net/File/xyz.jpg" alt="" /><br />
<br />
はじめに、右側から液体を入れます。注意してほしいのですが、<br />
粘度測定を正確に行うなら恒温槽内で行いましょう。<br />
次にa部にゴム管等をつけて溶液をb部まで吸い上げます。<br />
温度が安定したところで、aを開放し液体を自由落下させます。<br />
その際に液体がbからc部を通過する時間Δtをストップウォッチで測定することで<br />
粘度を導くことが可能になるのです。なぜでしょうか？<br />
<br />
はじめに、b部まで液体を吸い上げる際の圧力ΔPを計算しましょう。<br />
このときの圧力変化ΔPは、ニュートンの運動方程式より導くことが可能であり、<br />
<br />
<span style="color:#FF0000">ΔP = mg/S = ρgV/S = ρg(S・h)/S = ρgh…(1)<br />
m…吸い上げた液体の質量<br />
g…重力定数<br />
S…bからc部までの平均断面積<br />
V…bからc部の体積<br />
h…bからc部までの高さ<br />
ρ…液体の密度</span><br />
となります。この流体の運動をハーゲンポアズイユの式で近似すると、<br />
<br />
<span style="color:#FF0000">V/Δt = (πR^4/8η)*ΔP/h…(2)</span><br />
を得ることができます。ここで、Rはb からcまでの容器断面における平均半径とします。(1)を(2)に代入すると、<br />
<br />
<span style="color:#FF0000">η=(πρgR^4h)Δt/(8h)=ρAΔt　…(3)</span>※A　= (πgR^4h)/(8h)であり定数<br />
<br />
となり、粘度という物理量は非常にシンプルな関数で表現できました。<br />
<br />
ふつう、溶媒の粘度をη0、溶液の粘度をηとして相対的に粘度を求めることが多いです。<br />
なぜかというと、Aを決定しなくて済むからです。<br />
上の式を考えればわかるけれども、溶媒の密度をρ0、落下時間をΔt0、<br />
溶液の密度をρ、落下時間をΔtとすると<br />
<br />
<span style="color:#FF0000">η0　=　A*ρ0*Δt0　…(4)<br />
η　　=　A*ρ*Δt　…(5)</span><br />
が導けます。(4)および(5)式からAを消去すると、<br />
<br />
<span style="color:#FF0000">η/η0 = (ρ/ρ0)*(Δt/Δt0)…(6)</span><br />
<br />
のような式を得ることができます。このη/η0 を相対粘度といいます。<br />
オストワルドの粘度計は、このような相対粘度の解析に大変すぐれた<br />
装置です。<br />
<br />
]]></content:encoded>
    <dc:subject>科学</dc:subject>
    <dc:date>2012-08-22T22:17:51+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
  <item rdf:about="https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/%E5%A5%87%E6%95%B0%E3%82%92%E4%B8%A6%E3%81%B9%E3%82%8B%E3%81%A8-part2-3%E4%B9%97%E3%81%AE%E5%92%8C%E3%81%AE%E5%85%AC%E5%BC%8F%E3%82%92%E4%BD%9C%E3%81%A3%E3%81%A6%E3%81%BF%E3%82%8B%E3%80%82-">
    <link>https://fabs.gjgd.net/%E6%95%B0%E5%AD%A6/%E5%A5%87%E6%95%B0%E3%82%92%E4%B8%A6%E3%81%B9%E3%82%8B%E3%81%A8-part2-3%E4%B9%97%E3%81%AE%E5%92%8C%E3%81%AE%E5%85%AC%E5%BC%8F%E3%82%92%E4%BD%9C%E3%81%A3%E3%81%A6%E3%81%BF%E3%82%8B%E3%80%82-</link>
    <title>奇数を並べると-part2(3乗の和の公式を作ってみる。)</title>
    <description>奇数を今度は次のように並べてみよう

1番目:1
2番目:3,5
3番目:7,9,11
4番目:13,15,17,19

規則性は理解できただろうか？
奇数列1,3,5,7,9,11,13,15,17,19…に対して
1番目の列は、奇数列の左から数字を1個取り出して1のみ
2番目...</description>
    <content:encoded><![CDATA[奇数を今度は次のように並べてみよう<br />
<br />
1番目:1<br />
2番目:3,5<br />
3番目:7,9,11<br />
4番目:13,15,17,19<br />
<br />
規則性は理解できただろうか？<br />
奇数列1,3,5,7,9,11,13,15,17,19…に対して<br />
1番目の列は、奇数列の左から数字を1個取り出して1のみ<br />
2番目の列は、先ほど取り出した1個を除き、奇数列の左から数字を2個取り出して3，5<br />
…<br />
といった具合で奇数を取り出しています。<br />
<br />
前回と同じように、この和を見てみよう。<br />
<br />
1番目:1 = 1 = 1×1×1<br />
2番目:3+5 = 8 = 2×2×2<br />
3番目:7+9+11 =27 = 3×3×3<br />
4番目:13+15+17+19 = 64　=4×4×4<br />
:<br />
:<br />
なんと、今度は3乗の数になっていました。<br />
私は、このルールを発見した時、感動するとともに奇数は奇なる数と思いましたね。<br />
<br />
この数列を利用して1^3+2^3+3^3+…+n^3を求めることが可能です。<br />
n^3までの和は、1～n番目までの列に存在するすべての奇数の和と同じです。<br />
また数列のルールにもどると、1からスタートして奇数列から<br />
1+2+3+4+…+n個の奇数を取り出しています。<br />
よってpart1より、奇数列の和は足した個数の二乗になるので<br />
1^3+2^3+3^3+…+n^3　=(1+2+3+4+…+n)^2となることが容易に確認できるでしょう。<br />
<br />
詳細：<a href="http://fabs.gjgd.net/Entry/21/" target="_blank">奇数を並べると-part1</a><br />
<br />
こういう方法を用いても高校数学の数列の公式をつくることができるのです。<br />
<br />
<br />
<br />
<br />
<br />
]]></content:encoded>
    <dc:subject>数学</dc:subject>
    <dc:date>2012-08-22T00:25:17+09:00</dc:date>
    <dc:creator>No Name Ninja</dc:creator>
    <dc:publisher>NINJA BLOG</dc:publisher>
    <dc:rights>No Name Ninja</dc:rights>
  </item>
</rdf:RDF>
