Excel VBA 数学教室ではアフィリエイトプログラムを利用して商品を紹介しています。

ライプニッツの公式

ライプニッツの公式とよばれる定理は二種類あって、ひとつは関数の積 f(x)g(x)n 階微分の一般表式(ライプニッツ則)、もうひとつは円周率の値を求める級(グレゴリー・ライプニッツ級数)です。この記事では両方を説明します。

f(x)g(x)のn階微分を求めるライプニッツの公式

x の関数 f(x)g(x) の積を微分すると、
(fg)=fg+fg
となります。以後、記号を統一するために f(x)n 次導関数を f(n) で表すことにすると、積の微分公式は
(fg)(1)=f(1)g(0)+f(0)g(1)
と表せます。この式をもう1度微分すると
(fg)(2)=f(2)g(0)+f(1)g(1)+f(1)g(1)+f(0)g(2)=f(2)g(0)+2f(1)g(1)+f(0)g(2)
となります。さらにもう1度微分すると
(fg)(3)=f(3)g(0)+f(2)g(1)+2f(2)g(1)+2f(1)g(2)+f(1)g(2)+f(2)g(3)=f(3)g(0)+3f(2)g(1)+3f(1)g(2)+f(0)g(3)
となります。この結果は (a+b)3 の展開式
(a+b)3=a3+3a2b+3ab2+b3
とよく似ています(各項の係数は同じで、冪乗を微分階数に置き換える形になっています)。したがって、fgn 次導関数は二項展開の一般表式
(a+b)n=r=0nnCr anr b r=nC0 an b0+nC1 an1 b1+nC2 an2 b2++nCn1 a1 bn1+nCn a0 bn
の形から、
(fg)(n)=r=0nnCrf(r)g(nr)=nC0f(n)g(0)+nC1f(n1)g(1)+nC2f(n2)g(2)+ +nCn1f(1)g(n1)+nCnf(0)g(n)
となることが予想できます (ライプニッツの公式)。

【ライプニッツの公式の証明】
推測が正しいことを、数学的帰納法を使って証明してみます。n=1 のとき、
(fg)(1)=f(1)g(0)+f(0)g(1)=1C0 f(1)g(0)+1C1 f(0)g(1)
となって、確かに成立しています。n=k のときに
(fg)(k)=r=0knCrf(r)g(kr)=kC0f(k)g(0)+kC1f(k1)g(1)+kC2f(k2)g(2)+ +kCk1f(1)g(k1)+kCkf(0)g(k)
が成り立つことを仮定します。この式を x で微分します。
(fg)(k+1)=kC0{f(k+1)g(0)+f(k)g(1)}+kC1{f(k)g(1)+f(k1)g(2)}+kC2{f(k1)g(2)+f(k2)g(3)}+ +kCk1{f(2)g(k1)+f(1)g(k)}+kCk{f(1)g(k)+f(0)g(k+1)}
ここで、公式 nCr1+nCr=n+1Cr を使うと、
(fg)(k+1)=kC0f(k+1)g(0)+(kC0+kC1)f(k)g(1)+(kC1+kC2)f(k1)g(2)+ +(kCk1+kCk)f(1)g(k)+kCk f(0)g(k+1)
 kC0=k+1C0=kCk=k+1Ck+1=1 なので、kC0k+1C0 に、kCkk+1Ck+1 に置き換えることができて、
(fg)(k+1)=k+1C0f(k+1)g(0)+(kC0+kC1)f(k)g(1)+(kC1+kC2)f(k1)g(2)+ +(kCk1+kCk)f(1)g(k)+k+1Ck+1f(0)g(k+1)
となり、n=k+1 のときも成立していることがわかります (証明終)。

ライプニッツの公式の一般表式における係数は nCr で表されていますが、実際の計算ではパスカルの三角形を使って係数を得る方が効率的です。f(r)g(nr)fg の微分階数が足して n になるようにします。一例として、fg の 三次導関数の求め方を載せておきます。

ライプニッツの公式 (Leibniz formula)

実際の計算でライプニッツの公式を適用する機会はそう多くないかもしれません。ほとんどの場合、順次微分して導関数を得た方が簡単で、四次以上の導関数が必要となるケースも稀だからです。それでも比較的単純な微分計算で、ライプニッツの公式を使うと見通しがよくなる場合もあります。一例として y=xcosx の微分を実行してみましょう。f(x)=x, g(x)=cosx と考えて、fg の三次導関数
(fg)(3)=f(3)g(0)+3f(2)g(1)+3f(1)g(2)+f(0)g(3)
において、f(2)f(3)0 なので、
(fg)(3)=3f(1)g(2)+f(0)g(3)
を計算すればよいことになります。
f(0)=x, f(1)=1, g(2)=cosx, g(3)=sinx
なので、
(fg)(3)=3cosx+xsinx
が得られます。このように f(x) または g(x)x のべき乗であれば、ある nx(n)0 になるので、いくつもの項をごっそり落とすことができ、計算ミスを減らせます。

円周率の近似値を計算するライプニッツの公式

円周率 π1/4 は、以下の無限級数で表されることが知られています(グレゴリー・ライプニッツ級数):
π4=n=0(1)n2n+1
ライプニッツ級数を書き下すと次のようになります。
π4=113+1517+19111
分母が奇数の交代級数だと理解しておくと覚えやすいです。
ただし、この級数は恐ろしく収束が遅いです。円周率の真値は 3.141592654 ですが … Excel を使って調べてみると、299 項とっても、3.138259 という値にしかならない … 。興味のある人は下のワークブックをダウンロードしてみてください。

≫ leibniz_pi.xslx をダウンロードする

このファイルの Calculation シートに計算結果が載っていますが、1000 項 (n=999) まで計算しても真値と 3 桁までしか一致しません。
「この公式、実は全く役に立たないのでは!?」
という暴論さえ頭に浮かびました。Excel で高精度の値が出るまで計算させると、動作が重たくなりそうなので、VBA で関数を作って計算させてみることにしました。

'[VBA]ライプニッツの公式で円周率の近似値を計算する関数

Function Leibniz_pi(n_end As Long)

  Dim n As Long
  Dim s As Double

  '級数の初項
  s = 1

  'ライプニッツの公式で級数を計算
  For n = 1 To n_end
    s = s + (-1) ^ n / (2 * n + 1)
  Next n

  '円周率の近似値
  Leibniz_pi = 4 * s

End Function

たとえば、セルに「=Leibniz_pi(1e6+1)」と入力すると ようやく 3.141591654 という値が得られます … 100 万ループなんてメモリの無駄遣いです。円周率の数値計算にライプニッツの公式はあまりおすすめできません。

エクセルや数学に関するコメントをお寄せください

  1. 松崎義夫 より:

    大変お世話になっております。わかりやすいです。
    差分公式とか方程式について教わりたいです。
    何に役に立つのかもお願いします。

    • Blog Cat より:

      ありがとうございます。このサイトを活用していただけると私も嬉しいです。中心差分公式については、こちらの記事 の後半に簡単な説明があります。このサイトのサブドメインにある Python 数値計算サイト でも少しだけ扱っています。応用上、差分公式はコンピュータで関数を微分して近似値を得るために使われます。このような手法を数値微分とよびますが、不連続な点を含む特殊関数を扱う場合、何も考えずに数値微分を実行するとおかしな結果が出力されることもあるので、今扱っている関数が C 何級なのか (理論上は何回微分できるのか) を知っておくと対処しやすくなります。