Esto nos sirve para introducirnos en la última fase. Recordemos que deseamos obtener los valores críticos así como un gráfico con la función de distribución. Este último puede aproximarse con un histograma, que luego dibujaremos con otra aplicación, ya que como hemos visto las posibilidades de TSP en este campo son pobres. Para obtener los valores críticos basta con ordenar la serie tratio e imprimir los valores que queremos obtener, supongamos que deseamos los niveles de significatividad al 75%, 90%, 95%, 97.5% y 99%. Finalmente, solicitamos que se realicen 10.000 replicaciones en lugar de 2, sustituyendo la línea DO I=1 TO 2; a DO I=1 TO 10000;. A continuación se reproduce la parte del programa que afecta a la generación de los resultados descritos:

? Análisis de resultados
smpl 1,i;
hist(min=-5,max=5,nbins=100,noprint)tratio;
write(file='tratio.xls')@hist;
sort tratio;
smpl 7500,7500;
print tratio;
smpl 9000,9000;
print tratio;
smpl 9500,9500;
print tratio;
smpl 9750,9750;
print tratio;
smpl 9900,9900;
print tratio;

Anterior	Siguiente