Hallo zusammen,
Es ist zum Haareraufen und ich bin so langsam ratlos was ich noch machen soll.
Worum gehts?
Ich möchte gerne für die angehängte Formel alle Werte für i Iterationen berechnen.
Dies erfolgte in einer for-Schleife.
Randbedinung:
d0 = 10
alpha0 = 45° (Grad)
i = Iteration
Im Excel konnte ich die Formel bereits passend eingeben, daher kenne ich die richtigen Ergebnisse für 0 <=i <=10. Diese Werte dienen als Referenz.
Im folgenden die Formel im VB:
Diese führt folgenen Ergebnissenn vgl. unten....
Hierbei fällt auf, dass es anfangs große Abweichungen vom Ergebnis gibt, diese aber in Richtung Asymptote sich nach und nach ausbalancieren.
Riecht förmlich nach Genauigkeitsabweichungen. Was könnt ihr mir hier empfehlen? Am Ende der Reise möchte ich gerne die gleichen Ergebnisse wie in der Referenztabell oben erzielen. Genauso wie in Excel.
Vielen Dank euch im Voraus...
Schönen Grüß
Euer Don_Puno
Es ist zum Haareraufen und ich bin so langsam ratlos was ich noch machen soll.
Worum gehts?
Ich möchte gerne für die angehängte Formel alle Werte für i Iterationen berechnen.
Dies erfolgte in einer for-Schleife.
Randbedinung:
d0 = 10
alpha0 = 45° (Grad)
i = Iteration
Im Excel konnte ich die Formel bereits passend eingeben, daher kenne ich die richtigen Ergebnisse für 0 <=i <=10. Diese Werte dienen als Referenz.
i | di |
0 | 10 |
1 | 7,0711 |
2 | 6,5328 |
3 | 6,4073 |
4 | 6,3764 |
5 | 6,3688 |
6 | 6,3668 |
7 | 6,3664 |
8 | 6,3662 |
9 | 6,3662 |
10 | 6,3662 |
Im folgenden die Formel im VB:
VB.NET-Quellcode
- 'Variable Iterationen_n wird über das Formular ausgelesen und kann durch den User festgelegt werden.
- For i = 0 To Iterationen_n
- di = (d0 * Math.Tan(alpha0 * Math.PI / 180) / (Math.Pow(2, i + 1) * Math.Sin(((alpha0 * (Math.PI / 180)) / Math.Pow(2, i)) * Math.Sin((Math.PI / 180) * 90 - (Math.PI / 180) * (alpha0 / Math.Pow(2, i))))))
- Next
Diese führt folgenen Ergebnissenn vgl. unten....
Hierbei fällt auf, dass es anfangs große Abweichungen vom Ergebnis gibt, diese aber in Richtung Asymptote sich nach und nach ausbalancieren.
Riecht förmlich nach Genauigkeitsabweichungen. Was könnt ihr mir hier empfehlen? Am Ende der Reise möchte ich gerne die gleichen Ergebnisse wie in der Referenztabell oben erzielen. Genauso wie in Excel.
- 9,48317561046438
- 7,04424631713176
- 6,53121333284478
- 6,40718967263216
- 6,37642960702858
- 6,36875469210015
- 6,36683690319434
- 6,36635751464471
- 6,36623767117363
- 6,36620771053499
Vielen Dank euch im Voraus...
Schönen Grüß
Euer Don_Puno