Polynom berechnen und zeichnen

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von FredM.

    Hallo,

    ich hab dein Code jetzt mal so umgewandelt:


    VB.NET-Quellcode

    1. Public Function NewtonPoly(ByVal WerteX() As Double, ByVal WerteY() As Double, ByVal Grad As Integer) As String
    2. Dim n, nmax, j, i As Double
    3. Dim r_var As Integer = 4
    4. nmax = 10
    5. Dim a(nmax) As Double
    6. Dim s(nmax) As Double
    9. Dim ergebniss As Double
    11. n = Grad
    13. If n > nmax Then
    14. n = nmax
    15. Grad = n
    16. End If
    19. For z = WerteX(0) To WerteX(n)
    21. For i = 0 To n
    22. s(i) = WerteY(i)
    23. Next
    25. For i = 1 To n
    26. For j = n To i Step -1
    27. s(j) = (s(j) - s(j - 1)) / (WerteX(j) - WerteX(j - i))
    28. Next
    29. Next
    31. For i = 0 To n
    32. a(i) = s(i)
    33. Next
    35. For i = 0 To n - 1
    36. For j = n - 1 To i Step -1
    37. a(j) = a(j) - WerteX(j - i) * a(j + 1)
    38. Next
    39. Next
    41. ergebniss = Math.Round(a(0), r_var)
    45. For i = 1 To n
    46. If a(i) >= 0 Then
    47. ergebniss = ergebniss
    48. End If
    50. 'ergebniss = ergebniss & CStr(Math.Round(a(i), r_var) & "x^" & CStr(Math.Round(i, r_var)))
    51. ergebniss = ergebniss + (Math.Round(a(i), r_var) * z ^ (Math.Round(i, r_var)))
    52. Next
    53. ListBox1.Items.Add(Math.Round(ergebniss, r_var))
    54. ListBox2.Items.Add(z)
    55. Chart1.Series(0).Points.AddXY(z, Math.Round(ergebniss, r_var))
    56. Next
    57. Return ergebniss
    58. End Function
    64. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    65. Dim x(4), y(4) As Double
    66. x(0) = 0
    67. x(1) = 2
    68. x(2) = 9
    69. x(3) = 15
    70. x(4) = 17
    72. y(0) = 2
    73. y(1) = 2
    74. y(2) = 19
    75. y(3) = 5
    76. y(4) = 10
    77. NewtonPoly(x, y, 3)
    78. 'Poly(x, y, 4)
    79. End Sub



    Damit kann ich die Kurve zeichnen, bzw wenn es Strings sind wirft er mir das gleiche Ergebnis aus wie Excel. ABER! Nur wenn der Grad n = Anzahl Werte - 1 ist!
    Reduziere ich den Grad bei gleichbleibender Anzahl von Werte unterscheidet sich das Ergebnis von dem von Excel. Ich weiß auch warum, weil die Funktion sich auf den Grad n bezieht und die zusätlichen Werte garnicht beachtet. Excel tut dies allerding schon. Also muss ich irgendwie sagen das er alle Werte durchlaufen soll aber trotzdem nur ein Polynom 2 oder dritten Grades erstellen soll. Weil wenn man 20 Werte hat kann man ja nicht ein Polynom 20-igsten Grades aufstellen oder? Ich hab das mal ausprobiert da kam nur murks raus, die Y Werte sind irgendwann explodiert.


    Wie erstellt Excel ein Polynom 3-Grades bei zb. 10 Werten, bildet es dann 4. Mittelwerte? Oder geht der Algorithmus wirklich alle 10 werte durch?
    Bilder

    • Excel1PNG.PNG

      19,06 kB, 750×326, 152 mal angesehen

    • Form.PNG

      43,73 kB, 911×538, 162 mal angesehen

    • Excel2PNG.PNG

      18,65 kB, 747×328, 148 mal angesehen

    • Form2.PNG

      42,8 kB, 911×538, 155 mal angesehen
    "Es ist absolut möglich, dass jenseits der Wahrnehmung unserer Sinne ungeahnte Welten verborgen sind." — Albert Einstein
    "Wenn die Macht der Liebe die Liebe zur Macht übersteigt, erst dann wird die Welt endlich wissen, was Frieden heißt." — Jimi Hendrix

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FredM“ ()