30 CLS:PRINT "PRUEBA W DE NORMALIDAD SHAP&WILK" 50 GOSUB 300 60 IF INT(N/2)=N/2 THEN K=N/2 ELSE K=(N-1)/2 65 X=1000+N:b=0 68 RESTORE X 70 FOR I=1 TO K 75 READ a 80 b=b+a*(D(N-I+1)-D(I)) 90 NEXT I 95 SUM=0 100 FOR I=1 TO N 110 SUM=SUM+D(I) 120 NEXT I 130 MEDIA=SUM/N 132 PRINT "MEDIA=";MEDIA 135 SUM=0 140 FOR I=1 TO N 150 SUM=SUM+(D(I)-MEDIA)^2 160 NEXT I 170 Wcalc=b^2/SUM 175 PRINT "„(Yi-Ymed)’=";SUM 180 PRINT "b=";b 190 PRINT "Wcalc=";Wcalc 192 PRINT "ˆ? 1)0.01 2)0.02 3)0.05 4)0.1";:D$=INPUT$(1):D=VAL(D$) 195 X=2000+D 198 RESTORE X 200 FOR I=3 TO N 210 READ Wt 220 NEXT I 230 CLS:PRINT "Wt=";Wt 240 IF Wcalc>=Wt THEN PRINT "WcalcàWt LA DIST. ES NORMAL" 250 IF WcalcD(J) THEN TEMP=D(I):D(I)=D(J):D(J)=TEMP 380 NEXT J 390 NEXT I 400 CLS 410 FOR I=1 TO N 420 PRINT "DATO";I;"=";D(I) 430 NEXT I 440 RETURN 1002 DATA 0.7071 1003 DATA 0.7071,0 1004 DATA 0.6872,0.1677 1005 DATA 0.6646,0.2413,0 1006 DATA 0.6431,0.2806,0.0875 1007 DATA 0.6233,0.3031,0.1401,0 1008 DATA 0.6052,0.3164,0.1743,0.0561 1009 DATA 0.5888,0.3244,0.1976,0.0947,0 1010 DATA 0.5739,0.3291,0.2141,0.1224,0.0399 1011 DATA 0.5601,0.3315,0.2260,0.1429,0.0695,0 1012 DATA 0.5475,0.3325,0.2347,0.1586,0.0922,0.0303 1013 DATA 0.5359,0.3325,0.2412,0.1707,0.1099,0.0539,0 1014 DATA 0.5251,0.3318,0.2460,0.1802,0.1240,0.0727,0.0240 1015 DATA 0.5150,0.3306,0.2495,0.1878,0.1353,0.0880,0.0433,0 1016 DATA 0.5056,0.3290,0.2521,0.1939,0.1447,0.1005,0.0593,0.0196 1017 DATA 0.4968,0.3273,0.2540,0.1988,0.1524,0.1109,0.0725,0.0359,0 1018 DATA 0.4886,0.3253,0.2553,0.2027,0.1587,0.1197,0.0837,0.0496,0.0163 1019 DATA 0.4808,0.3232,0.2561,0.2059,0.1641,0.1271,0.0932,0.0612,0.0303,0 1020 DATA 0.4734,0.3211,0.2565,0.2085,0.1686,0.1334,0.1013,0.0711,0.0422,0.0140 2001 DATA 0.753,0.687,0.686,0.713,0.730,0.749,0.764,0.781,0.792,0.805,0.814,0.825,0.835,0.844,0.851,0.858,0.863,0.868 2002 DATA 0.756,0.707,0.715,0.743,0.760,0.778,0.791,0.806,0.817,0.828,0.837,0.846,0.855,0.863,0.869,0.874,0.879,0.884 2003 DATA 0.767,0.748,0.762,0.788,0.803,0.818,0.829,0.842,0.850,0.859,0.866,0.874,0.881,0.887,0.892,0.897,0.901,0.905 2004 DATA 0.789,0.792,0.806,0.826,0.838,0.851,0.859,0.869,0.876,0.883,0.889,0.895,0.901,0.906,0.910,0.914,0.917,0.920