Pi auf bis 2400 Nachkommastellen bestimmen Mit nachfolgenden Tipp lässt sich eine der wohl wichtigsten Zahlen in der Mathematik - PI - bis auf 2400 Nachkommastellen bestimmen.
Autor:   Gunnar Schmitz	Bewertung:     [ Jetzt bewerten ]	Views:  16.274
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 24 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Eine der wohl wichtigsten Zahlen in der Mathematik ist PI. Pi steht sowohl für den Flächeninhalt eines Kreises mit dem Radius 1, als auch für den Umfang eines Kreises mit dem Durchmesser 1. Für Pi gibt es mehrere Näherungsverfahren, die sich auch mit einem Programme realisieren lassen. Mit nachfolgendem Code lässt sich die Zahl Pi auf bis zu 2400 Nachkommastellen bestimmen.

Public Function CalcPI() As String
  Dim PI As String
  Dim TmpString As String
  Dim Tmp1 As String
  Dim Tmp2 As String
  Dim a As Long
  Dim b As Long
  Dim c As Long
  Dim d As Long
  Dim e As Long
  Dim f(8401) As Long
  Dim g As Long
  Dim mLen As Integer
 
  a = 10000
  c = 8400
 
  Do While (b <> c)
    f(b) = a \ 5
    b = b + 1
  Loop
 
  Do While (c > 0)
    g = 2 * c
    d = 0
    b = c
    Do While (b > 0)
      d = d + (f(b) * a)
      g = g - 1
      f(b) = d Mod g
      d = d \ g
      g = g - 1
      b = b - 1
      If b <> 0 Then
        d = d * b
      End If
    Loop
    c = c - 14
    TmpString = e + d \ a
    mLen = Len(TmpString)
    If mLen < 4 Then
      TmpString = TmpString & ("0000" & TmpString)
    End If
    Tmp1 = Left(TmpString, 5 - mLen)
    Tmp2 = Right(TmpString, mLen - 1)
    PI = PI & (Tmp1 & Tmp2)
    e = d Mod a
  Loop
 
  PI = Left(PI, 1) & "." & Mid(PI, 2)
 
  CalcPI = PI
End Function

Natürlich ist dieses Näherungsverfahren sehr rechenintensiv, wodurch es auf älteren Systemen auch ein bisschen länger dauern kann.