Linear Algebra/Input-Output Analysis M File

From Wikibooks, open books for an open world
< Linear Algebra
Jump to: navigation, search
Linear Algebra
 ← 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));

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