(** ANALISI DEGLI ERRORI **)

Clear[a,b,c];
a=1;
b=74.23;
c=1;
sol=Solve[a*x^2+b*x+c==0,x]
x1=N[x/.sol[[1]],16]
x2=N[x/.sol[[2]],16]

disc=b^2-4.*a*c
Sqrt[b^2-4.*a*c]

disc1=0.5506 10^4
Sqrt[disc1]
rt1=0.7420 10^2

x2trunc=(-b+rt1)/(2 a)

Abs[(x2-x2trunc)/x2]