# Linear Algebra/Input-Output Analysis M File

 ← Topic: Input-Output Analysis Input-Output Analysis M File Topic: Accuracy of Computations →

# Octave commands for _Linear Algebra_ by Jim Hefferon,
# Topic: leontif.tex
a=[(25448-5395)/25448  -2664/30346;
-48/25448          (30346-9030)/30346];
b=[17589;
21243];
ans=a \ b;
printf("The answer to the first system is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
b=[17489;
21243];
ans=a \ b;
printf("The answer to the second system is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
# question 1
b=[17789;
21243];
ans=a \ b;
printf("The answer to question (1a) is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
b=[17689;
21443];
ans=a \ b;
printf("The answer to question (1b) is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
b=[17789;
21443];
ans=a \ b;
printf("The answer to question (1c) is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
# question 2
printf("Current ratio for use of steel by auto is %0.4f\n",2664/30346);
a=[(25448-5395)/25448  -0.0500;
-48/25448          (30346-9030)/30346];
b=[17589;
21243];
ans=a \ b;
printf("The answer to 2(a) is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
b=[17589;
21500];
ans=a \ b;
printf("The answer to 2(b) is s=%0.0f and a=%0.0f\n",ans(1),ans(2));
# question 3
printf("The value of steel used by others is %0.2f\n",18.69-(6.90+1.28));
printf("The value of autos used by others is %0.2f\n",14.27-(0+4.40));
a=[(18.69-6.90)/18.69  -1.28/14.27;
-0/18.69          (14.27-4.40)/14.27];
b=[1.10*(18.69-(6.90+1.28));
1.15*(14.27-(0+4.40))];
ans=a \ b;
printf("The answer to 3(a) is s=%0.2f and a=%0.2f\n",ans(1),ans(2));
printf("The 1947 ratio of steel used by steel is %0.2f\n",(18.69-6.90)/18.69);
printf("The 1947 ratio of steel used by autos is %0.2f\n",1.28/14.27);
printf("The 1947 ratio of autos used by steel is %0.2f\n",0/18.69);
printf("The 1947 ratio of autos used by autos is %0.2f\n",(14.27-4.40)/14.27);
printf("The 1958 ratio of steel used by steel is %0.2f\n",(25448-5395)/25448);
printf("The 1958 ratio of steel used by autos is %0.2f\n",2664/30346);
printf("The 1958 ratio of autos used by steel is %0.2f\n",48/25448);
printf("The 1958 ratio of autos used by autos is %0.2f\n",(30346-9030)/30346);
b=[17.598/1.30;
21.243/1.30];
ans=a \ b;
newans=1.30 * ans;
printf("The answer to 3(c) is (in billions of 1947 dollars) s=%0.2f and a=%0.2f\n  and in billions of 1958 dollars it is s=%0.2f and     a=%0.2f\n",ans(1),ans(2),newans(1),newans(2));

 ← Topic: Input-Output Analysis Input-Output Analysis M File Topic: Accuracy of Computations →