clsPolynomial

Neue Funktionen für die Klasse clsPolynomial. Der Quellcode zeigt einige Anwendungsbeispiele. Zusätzlich habe ich versucht möglichst nur englische Begriffe für die Variablen- und Funktionsnamen zu verwenden.


Sub TestPolynomial()
    Dim meinPolynom As clsPolynomial
    Set meinPolynom = New clsPolynomial

    meinPolynom.Prefactors = Array(-2, 0, 1)

    'Polyom im Direktberich "drucken"
    meinPolynom.PrintStrPolynomial
    'Polynom an Stelle x=1 auswerten
    Debug.Print meinPolynom.y(x:=1)
    'Nullstelle des Polynoms auf dem Intervall [0,10] bestimmen
    Debug.Print meinPolynom.Root(0, 10)
    'Polynom von 0 bis 2 intergrieren
    Debug.Print meinPolynom.Integration(0, 2)
    'Ableitung des Polynoms an der Stelle 1 auswerten
    Debug.Print meinPolynom.Derivative(1)
    'zwei Polynome addieren und im Direktberich "drucken"
    Call meinPolynom.AddPolynomial(meinPolynom)
    meinPolynom.PrintStrPolynomial
    'Polynom ableiten und im Direktberich "drucken"
    meinPolynom.Derive
    meinPolynom.PrintStrPolynomial
    'Polynom integrieren und im Direktberich "drucken"
    meinPolynom.Integrate
    meinPolynom.PrintStrPolynomial
    'zwei Polynome subtrahieren und im Direktberich "drucken"
    Call meinPolynom.SubstractPolynomial(meinPolynom)
    meinPolynom.PrintStrPolynomial
End Sub

Code eingefügt mit Syntaxhighlighter 4.14

AnhangGröße
clsPolynomial.cls7.16 KB
Your rating: Keine