contraseña: 9146

load(stats) ; load(lsquares)

datos: matrix([11.00, 0.89],[11.0, 0.90],[10.60, 1.12],[10.50, 1.23],[10.60, 1.24],[10.40, 1.31],[10.20, 1.33],[9.50, 2.10],[8.20 ,2.15],[7.50, 2.43],[6.0, 3.70],[5.0, 4.27])

wxdraw2d(key="puntos", color=red, point_type=circle, points(datos),yrange=[0,5])

lsquares_estimates(datos,[x,y],y=a*x+b,[a,b])

y(x):= (-295043/556670)*x+(37684967/5566700)

wxdraw2d(key="puntos", color=red, point_type=circle, points(datos),key="recta",color=blue,explicit(y(x),x,5,11),yrange=[0,5])

cor(datos)

y(10)