---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- # |x^2-3*x-3| < |x^2+5*x-8| f1 = function(x) abs(x^2-3*x-3) f2 = function(x) abs(x^2+5*x-8) # Capisco che per x molto grande in valore assoluto le due funzioni si comportano in # modo simile, come x^2. Vediamone comunque i grafici. graficoF( f1, -50,50, "red"); grafico ( f2, -50,50, "seagreen") # zommo intorno all'origine graficoF( f1, -4,5, "red"); grafico ( f2, -4,5, "seagreen") diseq(f1,f2, -4,5, "blue") diseq(f1,f2, -4,5, "blue") x1 = piu( soluz2(f1,f2, -4,-2) ) # [1] -2.89791576165636 x2 = piu( soluz2(f1,f2, 0,1) ) # [1] 0.625 x3 = piu( soluz2(f1,f2, 1,3) ) # [1] 1.89791576165636 PUNTO(x1,f1(x1), "black") PUNTO(x2,f1(x2), "black") PUNTO(x3,f1(x3), "black") # Posso provare a scrivere in forma esatta questi valori approssimati usando WolframAlpha. Se metto -2.89791576165636 e poi metto 1.89791576165636 ottengo 1/2*(-1-sqrt(23)) e 1/2*(sqrt(23)-1) Posso introdurre in WolframAlpha direttamente anche la risoluzione. Con solve abs(x^2-3*x-3) < abs(x^2+5*x-8) for x real ottengo: 1/2*(-1-sqrt(23)) < x < 5/8 o x > 1/2*(sqrt(23)-1) OK