REM POLICY MACHINE : DECLARE SUB READATA () DECLARE SUB PUTMATRIX () DECLARE SUB DETERMINANT (D!) DECLARE SUB CRAMERS () DECLARE SUB IDENTITYMINUS () DECLARE SUB COEFFICIENTS () DECLARE SUB TABLEHELP () DECLARE SUB MAKEMATRIX () GOTO 0 Z: CLS : CLEAR TABLEHELP DIM SHARED O CLS INPUT "MATRIX SIZE (eg.3)"; O DIM SHARED D(O - 1), X(O - 1) DIM SHARED A(O - 1, O - 1), B(O - 1, O - 1) PRINT INPUT "(C)OMPUTE, (R)EAD OR (E)NTER COEFFICIENTS"; Y$ IF Y$ = "R" OR Y$ = "r" THEN READATA: GOTO 15 IF Y$ = "E" OR Y$ = "e" THEN PUTMATRIX: GOTO 15 MAKEMATRIX COEFFICIENTS 15 : IDENTITYMINUS CRAMERS : 0 : REM FRONTEND CLEAR CLS FOR I = 1 TO 77 PRINT CHR$(220); FOR J = 1 TO 10 NEXT J NEXT I PRINT FOR I = 1 TO 210 PRINT " "; CHR$(179); " "; NEXT I PRINT FOR I = 1 TO 77 PRINT CHR$(219); NEXT I PRINT LOCATE 23, 1 COLOR 0, 7 PRINT "Press any key to continue" LOCATE 4, 36 PRINT "MACHINE" COLOR 7, 0 LOCATE 1, 1 DO LOOP WHILE INKEY$ = "" : A: CLS : CLEAR PRINT TAB(30); "MACHINE MENU" PRINT TAB(30); STRING$(12, CHR$(254)) PRINT : PRINT PRINT "1) MATHEMATICS" PRINT "2) STATISTICS" PRINT "3) ECONOMICS" PRINT "4) EXIT" PRINT : PRINT INPUT "SELECT"; N IF N > 4 THEN GOTO A ON N GOTO B, G, M, S GOTO A : REM MATHEMATICS MODULE B: CLS : CLEAR PRINT TAB(30); "MATHEMATICS MENU" PRINT TAB(30); "================" PRINT : PRINT PRINT "1) PRESENT VALUE" PRINT "2) TOTAL DERIVATIVE" PRINT "3) SUM OF INTEGRAL" PRINT "4) LAGRANGEAN MULTIPLIER" PRINT "5) I-O COEFFICIENTS" PRINT : PRINT INPUT "SELECT"; N IF N = 0 THEN GOTO A IF N > 5 THEN GOTO B ON N GOTO C, D, E, F, Z : C: CLS : CLEAR PRINT : PRINT TAB(25); "PRESENT VALUE OF PENSION PLAN" PRINT : PRINT : PRINT LINE INPUT "PLS ENTER NUMBER OF YEARS==> "; N$ N = VAL(N$) DIM Y(N), W(N) LINE INPUT "TYPE BEGINNING SALARY==> "; B$ B = VAL(B$) LINE INPUT "ENDING SALARY==> "; E$ E = VAL(E$) LINE INPUT "PERCENT PAID INTO PENSION PLAN==> "; P$ P = VAL(P$) / 100 LINE INPUT "AVERAGE INTEREST PERCENTAGE EARNED==> "; R$ R = VAL(R$) / 100 LINE INPUT "RATE (%) OF INFLATION==> "; Q$ Q = VAL(Q$) / 100 PRINT : PRINT PRINT "SALARY PAYMENT FUND" D = INT((E - B) / N) G = 1 + (R - Q) Y(0) = B FOR I = 1 TO N Y(I) = Y(I - 1) + D W(I) = INT(Y(I) * P) T = T * G T = INT(T + W(I)) PRINT Y(I), W(I), T NEXT I V = INT(T / G ^ N) PRINT : PRINT PRINT "PENSION FUND WILL BE $"; T; "IN CURRENT DOLLARS" PRINT "FOR WHICH PRESENT VALUE WOULD BE $"; V LINE INPUT Z$ GOTO A : D: CLS : CLEAR PRINT : PRINT TAB(30); "TOTAL DERIVATIVE" PRINT : PRINT PRINT "Totally differentiate to solve two equations" PRINT "such as: I(r,a) - S(Y,b) = 0" PRINT " m(r)/P - L(r,Y) = 0" PRINT "for partials such as dY/da." PRINT : PRINT "First, take total derivatives such as" PRINT "@I/@r dr + @I/@a da - @S/@Y dY - @S/@b db = 0." PRINT : PRINT "Then, lay out matrix with dr and dY" PRINT "and use Cramer's Rule to solve for them." PRINT : PRINT "Finally, take dY with respect to da only." LINE INPUT Z$ GOTO A : E: CLS : CLEAR PRINT : PRINT TAB(30); "INTEGRATION" PRINT : PRINT PRINT "FUNCTION TO BE INTEGRATED" PRINT "OF FORM Y = aX^2 + bX + c" PRINT LINE INPUT "a ==> "; A$ A = VAL(A$) LINE INPUT "b ==> "; B$ B = VAL(B$) LINE INPUT "c ==> "; C$ C = VAL(C$) PRINT LINE INPUT "PLS ENTER NUMBER OF PARTITIONS==> "; N$ N = VAL(N$) PRINT LINE INPUT "ENTER LOWER LIMIT==> "; L$ L = VAL(L$) LINE INPUT "ENTER UPPER LIMIT==> "; U$ U = VAL(U$) PRINT D = (U - L) / N X = L FOR I = 0 TO N M = 2 IF I = 0 OR I = N THEN M = 1 Y = A * X ^ 2 + B * X + C T = T + Y * M X = X + D NEXT I T = T / 2 * D PRINT "SUM ="; T PRINT LINE INPUT Z$ GOTO A : F: CLS : CLEAR PRINT : PRINT TAB(25); "LAGRANGEAN MULTIPLIER" PRINT : PRINT : PRINT PRINT "Maximize y = f(x1, x2)" PRINT "but g(x1, x2) = 0." PRINT PRINT "L = f(x1, x2) + lamda g(x1, x2)" PRINT PRINT "@L/@x1 = f1 + lamda g1 = 0" PRINT "@L/@x2 = f2 + lamda g2 = 0" PRINT "@L/@lamda = g(x1, x2) = 0" PRINT PRINT "Solve for x1, x2 and lamda." PRINT : PRINT "Lamda is common benefit-cost ratio for all X's." PRINT : PRINT : PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT : PRINT "Maximize y = -x^2 + 2x - z^2 + 4z + 5" PRINT "but x + z = 1" PRINT "(1 - x - z = 0)." PRINT PRINT "L = -x^2 + 2s - z^2 + 4z + 5 + lamda(1 - x - z)" PRINT PRINT "@L/@x = -2x + 2 - lamda = 0" PRINT "@L/@z = -2z + 4 - lamda = 0" PRINT "@L/@lamda = 1 - x - z = 0" PRINT PRINT "-2 x + 0 z - 1 lamda = -2" PRINT " 0 x - 2 z - 1 lamda = -4" PRINT "-1 x - 1 z + 0 lamda = -1" PRINT PRINT "By Cramer's Rule: x = 1, z = 0, lamda = 2." LINE INPUT Z$ GOTO A : REM STATISTICS MODULE G: CLS : CLEAR PRINT TAB(30); "STATISTICS MENU" PRINT TAB(30); "===============" PRINT : PRINT PRINT "1) CHISQR INDEPENDENCE TEST" PRINT "2) 2-VARIABLE CORRELATION" PRINT "3) MULTIPLE REGRESSION" PRINT "4) STUDENT'S T-TEST" PRINT "5) OLS ANALYSIS PROBLEMS" PRINT INPUT "SELECT"; N IF N = 0 THEN GOTO A IF N > 5 THEN GOTO G ON N GOTO H, I, J, K, L : H: CLS : CLEAR PRINT : PRINT TAB(30); "CHI-SQUARE TEST" DIM I(30), M(30, 30), E(30, 30) PRINT : PRINT FOR J = 1 TO 30 READ I(J) NEXT J LINE INPUT "ENTER NUMBER OF CATEGORIES ON DIMENSION X==> "; H$ H = VAL(H$) LINE INPUT "ENTER NUMBER OF CATEGORIES ON DIMENSION Y==> "; V$ V = VAL(V$) PRINT : PRINT PRINT "FOR THE FOLLOWING, PLS ENTER SAMPLE SUB-TOTALS:" FOR Y = 1 TO V FOR X = 1 TO H PRINT "X ="; X; "; Y ="; Y; "==> "; LINE INPUT M$ M(X, Y) = VAL(M$) M(H + 1, Y) = M(H + 1, Y) + M(X, Y) M(X, V + 1) = M(X, V + 1) + M(X, Y) NEXT X T = T + M(H + 1, Y) NEXT Y PRINT : PRINT FOR Y = 1 TO V FOR X = 1 TO H E(X, Y) = M(H + 1, Y) * M(X, V + 1) / T E = E + E(X, Y) W = (M(X, Y) - E(X, Y)) ^ 2 / E(X, Y) Q = Q + W NEXT X NEXT Y D = (H - 1) * (V - 1) IF Q <= I(D) THEN PRINT "INDEPENDENT" ELSE PRINT "NOT INDEPENDENT" DATA 3.84146,5.99147,7.81473,9.48773,11.0705 DATA 12.5916,14.9671,15.5073,16.9190,18.3070 DATA 19.6751,21.0261,22.3621,23.6848,24.9958 DATA 26.2962,27.5871,28.8693,30.1435,31.4104 DATA 32.6705,33.9244,35.1725,36.4151,37.6525 DATA 38.8852,40.1133,41.3372,42.5569,43.7729 LINE INPUT Z$ GOTO A : I: CLS : CLEAR PRINT : PRINT TAB(30); "LINEAR REGRESSION" PRINT : PRINT DEFDBL A-Z DEFSNG I DIM M(60), X(50), Y(50), U(50) INPUT "NUMBER OF KNOWN POINTS (MUST BE 3 OR MORE)"; N PRINT FOR I = 1 TO N PRINT "X,Y OF POINT"; I; INPUT X, Y X(I) = X Y(I) = Y J = J + X K = K + Y L = L + X ^ 2 M = M + Y ^ 2 R2 = R2 + X * Y NEXT I PRINT FOR I = 1 TO 60 READ M(I) NEXT I B = (N * R2 - K * J) / (N * L - J ^ 2) A = (K - B * J) / N PRINT "Y ="; CSNG(A); "+ ("; CSNG(B); "* X )" J = B * (R2 - J * K / N) M = M - K ^ 2 / N K = M - J PRINT R2 = J / M PRINT "COEFFICIENT OF DETERMINATION (R^2) ="; CSNG(R2) PRINT SE = M - J ME = SE / (N - 2) F = J / ME N = N + 30 IF F <= M(N - 2) THEN PRINT "NOT SIGNIFICANT AT .05" ELSE PRINT "SIGNIFICANT AT .05" END IF PRINT PRINT "INTERPOLATION: (ENTER 0 TO END PROGRAM)" 1 : INPUT "X = "; X IF X = 0 THEN GOTO A PRINT "Y ="; CSNG(A + B * X) PRINT : PRINT GOTO 1 DATA 161.4,18.51,10.13,7.71,6.61,5.99 DATA 5.59,5.32,5.12,4.96,4.84,4.75 DATA 4.67,4.6,4.54,4.49,4.45,4.41 DATA 4.38,4.35,4.32,4.3,4.28,4.26 DATA 4.24,4.23,4.21,4.2,4.18,4.17 : J: CLS : CLEAR PRINT : PRINT TAB(25); "MULTIPLE LINEAR REGRESSION" DEFDBL A-Z: DEFSNG I: DEFINT J-L PRINT : PRINT DIM S(30), T(91), A(30, 30) INPUT "NUMBER OF KNOWN POINTS"; N INPUT "NUMBER OF INDEPENDENT VARIABLES"; V PRINT X(1) = 1 FOR I = 1 TO N PRINT "POINT"; I FOR J = 1 TO V PRINT "VARIABLE"; J; INPUT X(J + 1) NEXT J INPUT " DEPENDENT VARIABLE"; X(V + 2) FOR K = 1 TO V + 1 FOR L = 1 TO V + 2 A(K, L) = A(K, L) + X(K) * X(L) S(K) = A(K, V + 2) NEXT L NEXT K S(V + 2) = S(V + 2) + X(V + 2) ^ 2 NEXT I FOR I = 2 TO V + 1 T(I) = A(1, I) NEXT I FOR I = 1 TO V + 1 J = I 2 : IF A(J, I) <> 0 THEN GOTO 3 J = J + 1 IF J <= V + 1 THEN GOTO 2 PRINT "NO UNIQUE SOLUTION" LINE INPUT Z$ GOTO A 3 : FOR K = 1 TO V + 2 B = A(I, K) A(I, K) = A(J, K) A(J, K) = B NEXT K Z = 1 / A(I, I) FOR K = 1 TO V + 2 A(I, K) = Z * A(I, K) NEXT K FOR J = 1 TO V + 1 IF J = I THEN GOTO 4 Z = -A(J, I) FOR K = 1 TO V + 2 A(J, K) = A(J, K) + Z * A(I, K) NEXT K 4 : NEXT J NEXT I PRINT PRINT "EQUATION COEFFICIENTS:" PRINT " CONSTANT:"; CSNG(A(1, V + 2)) FOR I = 2 TO V + 1 PRINT " VARIABLE("; I - 1; "):"; CSNG(A(I, V + 2)) NEXT I 5 : PRINT PRINT "INTERPOLATION: (ENTER 0 TO END PROGRAM)" P = A(1, V + 2) FOR J = 1 TO V PRINT "VARIABLE"; CSNG(J); INPUT X IF X = 0 THEN GOTO A P = P + A(J + 1, V + 2) * X NEXT J PRINT "DEPENDENT VARIABLE ="; CSNG(P) GOTO 5 : K: CLS : CLEAR PRINT : PRINT TAB(30); "STUDENT'S T-TEST" PRINT : PRINT PRINT "T-STAT(calculated) = COEFFICIENT / STD. ERROR" PRINT : PRINT "i) B = Sum(Xt - Xave)(Yt - Yave) / Sum(Xt - Xave)^2" PRINT "ii) Yt - Yest = Ut" PRINT "iii) S^2 = Sum(Ut^2) / (n - k)" PRINT "iv) Sb = Sqrt(S^2 / Sum(Xt - Xave)^2)." PRINT FOR I = 1 TO 91 READ T(I) NEXT I INPUT "Sample size"; N INPUT "Number independent variables"; K I = N - K I = I + 60 IF I > 91 THEN I = 91 PRINT "T-STAT(critical) = "; T(I) PRINT PRINT "If T-STAT(calculated) > T-STAT(critical)" PRINT "then variable B is significant at .05." PRINT : PRINT PRINT "Confidence interval is B +- (Tcrit * Sb)." DATA 12.706,4.303,3.182,2.776,2.571 DATA 2.447,2.365,2.306,2.262,2.228 DATA 2.201,2.179,2.16,2.145,2.131 DATA 2.12,2.11,2.101,2.093,2.086 DATA 2.08,2.074,2.069,2.064,2.06 DATA 2.056,2.052,2.048,2.045,2.042,1.96 LINE INPUT Z$ GOTO A : L: CLS : CLEAR PRINT : PRINT TAB(30); "ANALYSIS PROBLEMS" PRINT : PRINT : PRINT PRINT " MULTICOLLINEARITY" PRINT " AUTOCORRELATION" PRINT " HETEROSCEDASTICITY" PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT TAB(30); "Multicollinearity" PRINT : PRINT PRINT "DEFINITION - a linear relationship exists between" PRINT " two or more independent variables" PRINT : PRINT "DETECTION" PRINT ".high correlation between any two independent variables" PRINT " or high R^2 regressing on an independent variable" PRINT ".high R^2 and F-statistic together with a low t-statistic" PRINT : PRINT PRINT "TREATMENT" PRINT ".ignore multicollinearity if t-values are significant" PRINT ".convert data into difference form, percentage form," PRINT " per capita form, log form, dummy variables" PRINT : PRINT : PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT TAB(28); "Autocorrelation" PRINT : PRINT PRINT "DEFINITION - an interdependence exists among successive" PRINT " values of the disturbance term" PRINT PRINT "DETECTION" PRINT ".Durbin-Watson statistic should be > d(u) and < (4 - d(u))" PRINT " with k' = k - 1, i.e. approximately 2.0" PRINT ".Durbin-h statistic should be approximately 2.0 in models" PRINT " with lagged dependent variable as an independent variable" PRINT : PRINT PRINT "TREATMENT" PRINT ".convert the data into a different form" PRINT ".respecify the model" PRINT : PRINT : PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT TAB(25); "Heteroscedasticity" PRINT : PRINT PRINT "DEFINITION - the disturbance terms have nonconstant variance" PRINT : PRINT PRINT "DETECTION" PRINT ".look for cone-like dispersion in residual plot" PRINT ".calculate F-statistic = SSR(top 40%) / SSR(bottom 40%)" PRINT " and compare with F(critical)" PRINT : PRINT PRINT "TREATMENT" PRINT ".convert the data into a different form" PRINT ".divide every term in the model by the scale factor." LINE INPUT Z$ GOTO A : REM ECONOMICS MODULE M: CLS : CLEAR PRINT TAB(30); "ECONOMICS MENU" PRINT TAB(30); "==============" PRINT : PRINT PRINT "1) GRID" PRINT "2) ELASTICITY" PRINT "3) IS-LM MODEL" PRINT "4) INTERNATIONAL MACRO" PRINT "5) I-O DATA" PRINT : PRINT INPUT "SELECT"; N IF N = 0 THEN GOTO A IF N > 5 THEN GOTO M ON N GOTO N, O, P, Q, R : N: CLS : CLEAR SCREEN 11 VIEW (100, 15)-(575, 300) WINDOW (0, 0)-(100, 100) FOR I = 1 TO 22 LOCATE I, 12 PRINT CHR$(219); NEXT I PRINT STRING$(55, 220) LINE (10, 10)-(90, 90) LINE (10, 90)-(90, 10) LOCATE 1, 5 PRINT "Price"; LOCATE 24, 60 PRINT "Quantity"; LINE (10, 85)-(43, 52) LINE (43, 52)-(10, 52) LINE (10, 52)-(10, 85) PAINT (11, 83) DO LOOP WHILE INKEY$ = "" SCREEN 0 GOTO A : O: CLS : CLEAR PRINT : PRINT TAB(30); "ELASTICITY" PRINT : PRINT : PRINT PRINT "DEMAND FUNCTION TO BE EVALUATED" PRINT "OF FORM Q = y - xP" PRINT LINE INPUT "y ==> "; Y$ Y = VAL(Y$) LINE INPUT "x ==> "; X$ X = VAL(X$) PRINT LINE INPUT "PLS ENTER PRICE==> "; Z$ PRINT : PRINT Z = VAL(Z$) P = Z - .01 6 : Q = Y - X * P IF F = 1 THEN GOTO 7 X1 = Q Y1 = P F = 1 P = Z + .01 GOTO 6 7 : X2 = Q Y2 = P E = ((X2 - X1) / (Y2 - Y1)) * ((Y1 + Y2) / (X1 + X2)) PRINT "PRICE ELASTICITY OF DEMAND = "; PRINT USING "##.##"; E PRINT LINE INPUT Z$ GOTO A : P: CLS : CLEAR PRINT : PRINT TAB(30); "OPEN MODEL" PRINT : PRINT : PRINT PRINT "Y = C(r,Y,T) + I(r,Y,T) + G + x(e,Y*) - M(e,Y)" PRINT : PRINT : PRINT : PRINT "IS = IS(r,Y,G,T,P,P*,e,Y*)" PRINT : PRINT "LM = LM(r,Y,M,P)" PRINT LINE INPUT Z$ GOTO A : Q: CLS : CLEAR PRINT TAB(25); "TRADE AND FINANCE" PRINT : PRINT : PRINT PRINT " COMPARATIVE ADVANTAGE" PRINT : PRINT " TRANSMISSION EFFECTS" PRINT : PRINT " POLICY INDICATIONS" PRINT : PRINT : PRINT : PRINT : PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT TAB(25); "Comparative Advantage" PRINT : PRINT PRINT ".Kansas can produce either 6 units of wheat" PRINT " or 2 units of cloth." PRINT : PRINT ".Nebraska can only produce either 1 unit of wheat" PRINT " or 1 unit of cloth." PRINT : PRINT ".In Kansas the opportunity cost of wheat" PRINT " is 3 units of cloth," PRINT " and of cloth is 1/3 units of wheat." PRINT : PRINT ".In Nebraska the opportunity cost of wheat" PRINT " is 1 unit of cloth," PRINT " and of cloth is 1 unit of wheat." PRINT : PRINT ".Therefore, Kansas should produce only cloth," PRINT " and Nebraska should produce only wheat." PRINT : PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT TAB(25); "Transmission Effects" PRINT : PRINT : PRINT PRINT "IS-LM/ Fiscal ==> IS same, LM same" PRINT : PRINT "IS-LM/ Monetary ==> IS opposite, LM same" PRINT : PRINT PRINT "AS-AD/ Fiscal ==> AS opposite, AD same" PRINT : PRINT "AS-AD/ Monetary ==> AS opposite, AD opposite" PRINT : PRINT : PRINT TAB(50); "(Continued)" LINE INPUT Z$ CLS PRINT : PRINT TAB(25); "Policy Indications" PRINT : PRINT : PRINT PRINT "For country to be in trade balance..." PRINT PRINT : PRINT "DEFICIT + INFLATION ==> REDUCE ABSORPTION" PRINT : PRINT "DEFICIT + UNEMPLOYMENT ==> DEVALUE CURRENCY" PRINT : PRINT "SURPLUS + INFLATION ==> APPRECIATE CURRENCY" PRINT : PRINT "SURPLUS + UNEMPLOYMENT ==> INCREASE ABSORPTION." LINE INPUT Z$ GOTO A : R: REM INPOUT CLEAR CLS OPEN "82-2DALL.FIL" FOR INPUT AS #1 DIM S$(97) FOR K = 1 TO 91 READ Z$ NEXT K FOR J = 1 TO 22 READ W$ PRINT W$ NEXT J LINE INPUT Z$ CLS PRINT LINE INPUT "Enter Year's f/1982 (1992 = 1.924)==> "; F$ F = VAL(F$) PRINT FOR I = 1 TO 97 IF I = 21 OR I = 41 OR I = 61 OR I = 81 THEN LINE INPUT Z$ CLS PRINT : PRINT END IF READ S$(I) FOR J = 1 TO LEN(S$(I)) IF MID$(S$(I), J, 1) = ";" THEN S$(I) = LEFT$(S$(I), J - 1) + "," + MID$(S$(I), J + 1) END IF NEXT J FOR J = 1 TO 100 FOR K = 1 TO 1000 NEXT K NEXT J PRINT S$(I) NEXT I PRINT 11 : IF N = 1 THEN N = 0: CLS : PRINT : PRINT PRINT "Pls Enter 'Input' Target Key==> "; 12 : LINE INPUT T$ IF T$ = "" THEN GOTO 11 T$ = UCASE$(T$) PRINT FOR I = 1 TO 97 A$ = S$(I) FOR J = 4 TO LEN(A$) - LEN(T$) + 1 Y$ = UCASE$(MID$(A$, J, LEN(T$))) IF Y$ = T$ THEN FOR K = 1 TO LEN(A$) IF MID$(A$, K, 1) = ";" THEN A$ = LEFT$(A$, K - 1) + "," + MID$(A$, K + 1) END IF NEXT K IF B$ <> A$ THEN PRINT A$ B$ = A$ END IF NEXT J NEXT I IF N = 1 THEN GOTO 13 N = 1 B$ = "" PRINT PRINT "Enter 'Output' Target Key==> "; GOTO 12 13 : PRINT LINE INPUT "Select I-O Query of form '01 02'==> "; Q$ IF Q$ = "" THEN GOTO A PRINT "*Working*" DO LINE INPUT #1, A$ IF LEFT$(A$, 5) = Q$ THEN B$ = MID$(A$, 6, 15) G = VAL(B$) G = F * G G = INT(G) B$ = RIGHT$(STRING$(15, " ") + STR$(G), 17) A$ = LEFT$(A$, 5) + B$ + MID$(A$, 21) PRINT PRINT A$ N = 0 EXIT DO END IF LOOP UNTIL EOF(1) IF N = 0 THEN N = 1: GOTO 14 PRINT PRINT "Coefficient is Zero" 14 : CLOSE OPEN "82-2DALL.FIL" FOR INPUT AS #1 GOTO 13 : DATA " Welcome to Inpout!" DATA DATA "When you run INPOUT, you will first see the following prompt:" DATA "Enter Year's f/1982 (1992 = 1.924)==>" DATA "'F' is a factor encompassing growth and inflation. The base year" DATA "1982 was used as a benchmark by the U.S. Bureau of Labor Statistics." DATA "Then INPOUT will type..." DATA "97 Nondefense" DATA "98 Education" DATA "99 Other" DATA "Pls Enter 'Input' Target Key==>" DATA "At this and at, Enter 'Output' Target Key==> the user may enter any" DATA "string or part of string, e.g. 'edu' and get back '98 Education.'" DATA "Last, INPOUT will display," DATA "Select I-O Query of form '01 02'==>" DATA "If you type anything up to some '99 99,' you would see:" DATA "*Working*" DATA "01 02 3030343000 .0165034" DATA "The first statistic, $3.030343 billion, is the amount of input" DATA "from Industry 1 to Commodity 2 (or Industry 2) in 1982 or 1992." DATA "The second statistic, .0165034, is the fraction of output" DATA "of Commodity 2 (or Industry 2) attributable to Industry 1." : REM AGRICULTURE; FORESTRY; AND FISHERIES DATA 1 Livestock and livestock products DATA 2 Other agricultural products DATA 3 Forestry and fishery products DATA 4 Agricultural; forestry; and fishery services REM MINING DATA 5 Iron and ferroalloy ores mining DATA 6 Nonferrous metal ores mining DATA 7 Coal mining DATA 8 Crude petroleum and natural gas DATA 9 Stone and clay mining and quarrying DATA 10 Chemical and fertilizer mineral mining REM CONSTRUCTION DATA 11 New construction DATA 12 Maintenance and repair construction REM MANUFACTURING DATA 13 Ordnance and accessories DATA 14 Food and kindred products DATA 15 Tobacco manufactures DATA 16 Broad and narrow fabrics; yarn and thread mills DATA 17 Miscellaneous textile goods and floor coverings DATA 18 Apparel DATA 19 Miscellaneous fabricated textile products DATA 20 Lumber and wood products; except containers DATA 21 Wood containers DATA 22 Household furniture DATA 23 Other furniture and fixtures DATA 24 Paper and allied products; except containers DATA 25 Paperboard containers and boxes DATA 26 Printing and publishing DATA 27 Chemicals and selected chemical products DATA 28 Plastics and synthetic materials DATA 29 Drugs; cleaning and toilet preparations DATA 30 Paints and allied products DATA 31 Petroleum refining and related products DATA 32 Rubber and miscellaneous plastics products DATA 33 Leather tanning and finishing DATA 34 Footwear and other leather products DATA 35 Glass and glass products DATA 36 Stone and clay products DATA 37 Primary iron and steel manufacturing DATA 38 Primary nonferrous metals manufacturing DATA 39 Metal containers DATA 40 Heating; plumbing; and fabricated structural metal products DATA 41 Screw machine products and stampings DATA 42 Other fabricated metal products DATA 43 Engines and turbines DATA 44 Farm and garden machinery DATA 45 Construction and mining machinery DATA 46 Materials handling machinery and equipment DATA 47 Metalworking machinery and equipment DATA 48 Special industry machinery and equipment DATA 49 General industrial machinery and equipment DATA 50 Miscellaneous machinery; except electrical DATA 51 Office; computing; and accounting machines DATA 52 Service industry machines DATA 53 Electric industrial equipment and apparatus DATA 54 Household appliances DATA 55 Electric lighting and wiring equipment DATA 56 Radio; TV; and communication equipment DATA 57 Electronic components and accessories DATA 58 Miscellaneous electrical machinery and supplies DATA 59 Motor vehicles and equipment DATA 60 Aircraft and parts DATA 61 Other transportation equipment DATA 62 Scientific and controlling instruments DATA 63 Optical; ophthalmic; and photographic equipment DATA 64 Miscellaneous manufacturing REM TRANSPORTATION; COMMUNICATIONS; AND UTILITIES DATA 65 Transportation and warehousing DATA 66 Communications; except radio and TV DATA 67 Radio and TV broadcasting DATA 68 Electric; gas; water; and sanitary service REM WHOLESALE AND RETAIL TRADE DATA 69 Wholesale and retail trade REM FINANCE; INSURANCE; AND REAL ESTATE DATA 70 Finance and insurance DATA 71 Real estate and rental REM SERVICES DATA 72 Hotels; personal and repair services (except autos) DATA 73 Business and professional services; except medical DATA 74 Eating and drinking places DATA 75 Automobile repair and services DATA 76 Amusements DATA 77 Health; educational; and social services and nonprofit organizations REM GOVERNMENT ENTERPRISES DATA 78 Federal Government enterprises DATA 79 State and local government enterprises REM SPECIAL INDUSTRIES DATA 80 Noncomparable imports DATA 81 Scrap; used and secondhand goods DATA 82 Government industry DATA 83 Rest of the world industry DATA 84 Household industry DATA 85 Inventory valuation adjustment REM TOTAL INTERMEDIATE USE DATA 88 Compensation of employees DATA 89 Indirect business taxes DATA 90 Other value added (Property-type income) DATA 91 Personal consumption expenditures DATA 92 Gross private fixed investment DATA 93 Change in business inventories DATA 94 Exports DATA 95 Imports REM FEDERAL GOVERNMENT PURCHASES DATA 96 National defense DATA 97 Nondefense REM STATE AND LOCAL GOVERNMENT PURCHASES DATA 98 Education DATA 99 Other REM GNP REM TOTAL COMMODITY OUTPUT : S: CLS END DEFSNG A-H, J-Z SUB COEFFICIENTS OPEN "TEMP.DAT" FOR OUTPUT AS #1 FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 X(I) = X(I) + A(I, J) NEXT J X(I) = X(I) + D(I) NEXT I PRINT FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 A(I, J) = A(I, J) / X(I) PRINT USING "####.##"; A(I, J); PRINT #1, A(I, J) NEXT J PRINT NEXT I PRINT CLOSE END SUB SUB CRAMERS DIM Y(O - 1) DETERMINANT C GOSUB 25 FOR M = 0 TO O - 1 FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 IF J = M THEN A(I, J) = D(I) NEXT J NEXT I DETERMINANT Y(M) GOSUB 25 NEXT M FOR T = 0 TO O - 1 X(T) = Y(T) / C IF X(T) < 0 THEN PRINT PRINT "IMPOSSIBILITY" PRINT LINE INPUT Z$ END END IF PRINT "INPUT"; T + 1; " = "; PRINT USING "####.##"; X(T) NEXT T PRINT LINE INPUT Z$ EXIT SUB 25 : FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 A(I, J) = B(I, J) NEXT J NEXT I RETURN END SUB SUB DETERMINANT (D) FOR K = 0 TO O - 2 Z = K Y = ABS(A(K, K)) FOR I = K + 1 TO O - 1 IF ABS(A(I, K)) <= Y THEN GOTO 21 Z = I Y = ABS(A(I, K)) 21 : NEXT I IF Y > 10 ^ -7 THEN GOTO 22 D = 0 GOTO 24 22 : IF Z = K THEN GOTO 23 FOR J = K TO O - 1 T = A(K, J) A(K, J) = A(Z, J) A(Z, J) = -T NEXT J 23 : FOR I = K + 1 TO O - 1 FOR J = K + 1 TO O - 1 A(I, J) = A(I, J) - A(K, J) * A(I, K) / A(K, K) NEXT J NEXT I NEXT K D = 1 FOR I = 0 TO O - 1 D = D * A(I, I) NEXT I 24 : FOR J = 0 TO O - 1 FOR K = 0 TO O - 1 A(J, K) = B(J, K) NEXT K NEXT J END SUB SUB IDENTITYMINUS FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 IF I = J THEN B(I, J) = 1 ELSE B(I, J) = 0 END IF A(I, J) = B(I, J) - A(I, J) B(I, J) = A(I, J) NEXT J NEXT I END SUB SUB MAKEMATRIX PRINT FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 PRINT "HOW MUCH X"; I + 1; " PRODUCTION TO X"; J + 1; " PRODUCERS"; INPUT A(I, J) NEXT J PRINT "HOW MUCH FINAL DEMAND FOR X"; I + 1; INPUT D(I) PRINT NEXT I END SUB SUB PUTMATRIX OPEN "TEMP.DAT" FOR OUTPUT AS #1 PRINT FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 PRINT "ROW"; I + 1; "COLUMN"; J + 1; INPUT A(I, J) PRINT #1, A(I, J) NEXT J PRINT NEXT I FOR I = 0 TO O - 1 PRINT "FINAL DEMAND FOR X"; I + 1; INPUT D(I) NEXT I PRINT CLOSE END SUB SUB READATA OPEN "TEMP.DAT" FOR INPUT AS #1 PRINT FOR I = 0 TO O - 1 FOR J = 0 TO O - 1 INPUT #1, A(I, J) X(I) = X(I) + A(I, J) NEXT J PRINT "HOW MUCH FINAL DEMAND FOR X"; I + 1; INPUT D(I) X(I) = X(I) + D(I) NEXT I PRINT CLOSE END SUB SUB TABLEHELP CLS PRINT : PRINT TAB(30); "INPUT-OUTPUT" PRINT : PRINT PRINT "Fundamental equation of I-O: (I - A)x = d" PRINT PRINT " 1 0 0" PRINT "Identity Matrix = 0 1 0" PRINT " 0 0 1" PRINT : PRINT " a11 a12 a13" PRINT "Input coefficients = a21 a22 a23" PRINT " a31 a32 a33" PRINT PRINT "x1, x2, x3 = inputs of each intermediate good (j)" PRINT : PRINT "d1, d2, d3 = final demand or production targets" PRINT : PRINT "If d changes, then what will happen to x?" PRINT : PRINT : PRINT TAB(37); "(Continued)" LINE INPUT Z$ CLS PRINT PRINT "ROW 1 OUTPUTS" PRINT PRINT PRINT "X11 + X12 + X13 + C1 + I1 + G1 + E1 = X1" PRINT PRINT PRINT "Purchasing Sectors: X11 + X12 + X13" PRINT PRINT "Local Final Demand: C1 + I1 + G1" PRINT "Households: C1" PRINT "Private Investment: I1" PRINT "Government: G1" PRINT PRINT "Exports: E1" PRINT PRINT "Total Gross Output: X1" PRINT PRINT PRINT PRINT PRINT TAB(37); "(Continued)" LINE INPUT Z$ CLS PRINT "COLUMN 1 INPUTS" PRINT PRINT PRINT "X11 +" PRINT "X21 +" PRINT "X31 +" PRINT "L1 +" PRINT "V1 +" PRINT "M1 =" PRINT "X1" PRINT PRINT PRINT "Producing Sectors: X11 + X21 + X31" PRINT PRINT "Labor: L1" PRINT "Other Value Added: V1" PRINT PRINT "Imports: M1" PRINT PRINT "Total Gross Outlays: X1" PRINT PRINT PRINT "Xn1 + Xn2 + Xn3 + C + I + G + E = X1n + X2n + X3n + L + V + M = X." LINE INPUT Z$ END SUB |