Wiener Prozeß < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) für Interessierte  | | Datum: | 02:35 Sa 26.03.2005 | | Autor: | NY152 |
Diese Frage habe in keinem anderen Forum gestellt.
Hallo Allerseits,
hab eine Frage bzgl. der Implementierung des Wiener Prozeßes in VBA. Ich möchte gerne erfahren, ob es in VBA möglich ist, mehrere Wiener Prozeße in einer Grafik darzustellen, z.b werden im Beispiel Code 5 Durchgänge simuliert. Diese 5 Abläufe möchte ich gerne in einem Diagramm darstellen.
Danke im voraus.
Viele Grüße
Murat
| 1: | Sub ApproxWiener()
| | 2: | Dim TB1 As Worksheet
| | 3: | Dim i As Integer, j As Integer, n As Integer
| | 4: |
| | 5: | Dim x1 As Double, x2 As Double
| | 6: |
| | 7: | Const delta_t As Integer = 1
| | 8: | Const Pi As Double = 3.141592653
| | 9: |
| | 10: | Set TB1 = Worksheets("MakroWiener")
| | 11: | TB1.Cells(13, 3) = ("Zeit")
| | 12: | TB1.Cells(13, 4) = ("N(0,1)")
| | 13: | TB1.Cells(13, 5) = ("Wiener Prozeß")
| | 14: |
| | 15: | n = 11
| | 16: |
| | 17: | For i = 1 To 5
| | 18: | For j = 1 To n
| | 19: | TB1.Cells(j + 13, 3) = j - 1
| | 20: | x1 = Rnd()
| | 21: | x2 = Rnd()
| | 22: | TB1.Cells(j + 13, 4) = Sqr(-2 * Log(x1)) * Cos(2 * Pi * x2)
| | 23: | Next j
| | 24: |
| | 25: | For j = 1 To n - 1
| | 26: | TB1.Cells(14, 5) = 0
| | 27: | TB1.Cells(j + 14, 5) = TB1.Cells(j + 13, 5) + TB1.Cells(j + 13, 4) * Sqr(delta_t)
| | 28: | Next j
| | 29: |
| | 30: | Next i
| | 31: |
| | 32: | End Sub |
|
|
|
