Koeffizienten addieren/multiplizieren

[Androxin]

Moin, moin.

Ich habe hier zwei Polynome die aus einer Textdatei mit leerzeichengetrennten Koeffizienten ausgelesen werden.
Nun möchte ich die beiden Koeffizientenlisten addieren bzw. multiplizieren, damit ich eine neue Liste bekomme.

Das Berechnen der Polynome klappt super. Auch wenn ich einfach die Ergebnisse der einzelnen Berechnungen verwurste.
Aber ich kriege es nicht hin zwei Koeffizienten-Listen zu einer zusammen zu fassen.

Kann mir da jemand unter die Arme greifen?

Bsp:

Code:

(x^3+6x^2+x-5) * (2x^2+x+4) = 2x^5 + 13x^4 + 12x^3 + 15x^2 - x - 20

-5 1 6 1 (Polynom 1)
 4 1 2 (Polynom 2)
=
-20 -1 15 12 13 2 (Beide Polynome multipliziert)

[jfheins]

Einfach ausmultiplizieren?
Wenn du die Polynome in 2 Arrays hast:
Polynom1:
a[0]=1
a[1]=6
a[2]=1
a[3]=-5

und zwei:
b[0]=2
b[1]=1
b[2]=4

Und Ergebnis c[]
==>

Delphi-Quellcode:

for i := 0 to 3 do
  for j := 0 to 2 do
    c[i+j] := c[i+j] + a[i] * b[j];

Die Grenzen festzulegen überlasse ich jetzt mal dir ;)

[Androxin]

So einfach hätte ich mir das jetzt nicht vorgestellt ;-)

Und wie ist es mitm Addieren? Hast du da auch so eine geile Patenlösung?

[jfheins]

Addieren ist ja mal noch einfacher - du musst die Koeffizienten an den jeweiligen Stellen addieren.
Also c[i] = a[i] + b[i];
Natürlich vorher die Grenzen ermitteln ;)

[Androxin]

Zitat:

Zitat von jfheins (Beitrag 1107649)

Addieren ist ja mal noch einfacher

Hm. Stimmt. Das ist ZU einfach. ;-)

Jetzt muss ich das ganze mit meiner dynamischen Liste hinbekommen...