After computing the 8 values for s and solving the least squares problem as in a), we get
and the result of the SVD is
The additional code used to compute this was:
with(linalg):
t := vector([1920,1930,1940,1950,1960,1970,1980,1990]):
y := vector([ 105, 123, 131, 150, 179, 203, 228, 249]):
m := vectdim(t):
A := matrix([seq([1,t[i],t[i]^2],i=1..m)]):
c := leastsqrs(A, y):
evalf(evalm(c));
y_2000 := evalf(c[1]+c[2]*2000+c[3]*2000^2);
Sigma := evalf(Svd(A));
kappa := Sigma[1]/Sigma[vectdim(Sigma)];
Choose one of the following statements:
The models in a) and b) do not determine the same function t ->y(t), and the predicted population in the year 2000 is better than the previous result.
The models in a) and b) determine the same function t->y(t), so the predicted population in the year 2000 is equal to the previous result.
The models in a) and b) do not determine the same function t->y(t), but the predicted population in the year 2000 is equal to the previous result.
|