Polynomial derivative: Difference between revisions

Assuming we ignore the existence of the <code>∂</code> operator, here is a typical RPL program that handles polynoms as arrayslists of scalars, asto requiredbe completed by another program to display the tasklist on a fancier way.

≪ → scalarscoeffs

≪ scalarsIF coeffs SIZE 1 - { }

IFTHEN SWAP

THEN { } 1 LAST FOR j

LAST 2 SWAP FORcoeffs j 1 + GET j 1 MAX * +

ELSE { 0 +}

END

[{5]} DPDX

[{4 -3]} DPDX

[{-1 6 5]} DPDX

[{-4 3 -2 1]} DPDX

[{1 1 0 -1 -1]} DPDX

5: [{ 0 ]}

4: [{ -3 ]}

3: [{ 6 10 ]}

2: [{ 3 -4 3 ]}

1: [{ 1 0 -3 -4 ]}