Polinomio come differenza di funzioni monotone

Il programma considera come [math]f(x)[/math] il polinomio [math]f(x) = Polinomio[A,B,C,D,E,F][/math] Indicando con [math] p(x) = Se[f'(x)>0, f'(x), 0], q(x) = Se[f'(x)<0, f'(x), 0].[/math] la parte positiva e la parte negativa di [math]f'(x)[/math] le due funzioni monotone [math]c(x)[/math] e [math]d(x) [/math]sono determinate da [math]RisolviEDO[p,x(A),f(x(A)),x(F),0.1], RisolviEDO[q,x(A),f(x(A)),x(F),0.1].[/math]. [math]c(x)[/math] e disegnata in [color=#c51414]rosso[/color], [math]d(x)[/math] in [color=#1551b5]blu[/color].