Re: Ungenauigkeit Double

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hallo Karsten,

For x As Double = 0 To Math.PI / 2 Step dx
U += Math.Sqrt(a ^ 2 * Math.Cos(x) ^ 2 + b ^ 2 * Math.Sin(x) ^ 2) * dx
Next
Console.WriteLine(U)
U = 0
For x As Double = Math.PI / 2 To 0 Step -dx
U += Math.Sqrt(a ^ 2 * Math.Cos(x) ^ 2 + b ^ 2 * Math.Sin(x) ^ 2) * dx
Next
Console.WriteLine(U)

Deine Schleifenvariablen durchlaufen doch ganz unterschiedliche Werte. Da
ist auch ein anderes Ergebnis zu erwarten.

Gruß
Joachim
--

Dr. Joachim Fuchs - Autor - Dozent - Softwarearchitekt
MCT - MCAD
http://www.fuechse-online.de/beruflich/index.html -
http://vbnet.codebooks.de


.

Relevant Pages