GW Basic Program To Calculate Facors from 9 Results of Two Factors at 5 Levels
10 REM *****************************************************************
20 REM
30 REM FACTORIAL 9 RESULTS TWO VARIBALES
40 REM DESIGNED AND PROGRAMMMED BY JAMES C. DOWNER
50 REM OCTOBER 1996
60 REM
70 REM 1 2 3 4 5
80 REM 1 * * 1 * *
90 REM 2 * 2 * 3 *
100 REM 3 4 * 5 * 6
110 REM 4 * 7 * 8 *
120 REM 5 * * 9 * *
130 REM
140 REM *****************************************************************
150 DEF FNA(X) = INT(100* X +.5)/100
160 DIM A(20)
170 FOR I = 1 TO 9 : READ A(I) : PRINT I,A(I) : SUM = SUM + A(I) : NEXT I
180 B9 = SUM / 9
190 A1=(-A(2) +A(3) -2*A(4)+2*A(6)-A(7) +A(8))/12
200 B1=(2*-A(1) -A(2) -A(3) +A(7) +A(8)+2*A(9))/12
210 A2=(-2*A(1)-A(2)-A(3)+5*A(4)-2*A(5)+5*A(6)-A(7)-A(8)-2*A(9))/20
220 B2=(5*A(1)-A(2)-A(3)-2*A(4)-2*A(5)-2*A(6)-A(7)-A(8)+5*A(9))/20
230 AB = (A(2)-A(3) -A(7) +A(8))/4
240 B9 = FNA(B9) :A1 = FNA(A1) :B1 = FNA(B1) :A2 =FNA(A2) :B2 = FNA(B2):AB = FNA(AB)
250 PRINT "B0"B9;"A"A1;"B"B1;"AB"AB;"A2"A2;"B2"B2
260 FOR I = 1 TO 13
270 READ A,B,A0,B0
280 YH = B9 + A1 *A +B1 *B + A*B *AB +A0 *A2 +B2 *B0
290 YH= FNA(YH)
300 PRINT I,A(I),YH
310 NEXT I
315 DATA 1,4,1,1,2,1,3,5,4
415 FOR I = 1 TO 9 : READ A(I): NEXT I
420 DATA 0,-2,-2,2,-1,-1,-1,-1,1,-1,1,-1,-2,0,2,-2,0,0,-2,-2,2,0,2,-2
430 DATA -1,1,-1,-1,1,1,-1,-1,0,2,-2,2
440 DATA -2,-2,2,2,2,-2,2,2,-2,2,2,2,2,2,2,2
500 STOP
510 RESTORE
An Experiment was run to determine the correct levels of Vinegar and Oil in a Salad dressing.
PROCEDURE:
a 1/4 teaspoon measure was used through out.
Two 1/4 measures of water giving 1/2 teaspoon of water as a base.