/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 11.04.0 ] */

/* [wxMaxima: input   start ] */
ss(x):=(sort(x)-mean(x))/std1(x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
phi(x):=cdf_normal(x,0,1)-1/2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A2(podatki):=-length(podatki)-(1/length(podatki))*sum((2*i-1)*log(1/2+phi(part(ss(podatki),i)))+(2*length(podatki)-2*i+1)*log(1/2-phi(part(ss(podatki),i))),i,1,length(podatki));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
AA2(podatki):=A2(podatki)*(1+0.75/length(podatki)+2.25/(length(podatki)^2));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
teze:[77, 81, 85, 88, 81, 78, 89, 70, 66, 69, 78, 83, 88, 93, 95, 69, 73, 

82, 91, 82, 76, 80, 77, 96, 66, 85, 81, 81, 101, 92, 81, 72, 93, 67, 
79, 82, 89, 68, 97, 95, 100, 88, 94, 67, 79, 83, 88, 71, 85, 85, 92,

70, 76, 67, 89, 72, 81, 74, 84, 72, 89, 85, 88, 60, 66, 91, 68, 75, 

89, 81, 93, 68, 96, 89, 71, 71, 70, 82, 79, 89, 103, 92, 73, 82, 80, 
57, 72, 86, 90, 73, 97, 71, 74, 77, 99, 63, 82, 89, 74, 75, 84, 82, 

93, 83, 69, 79, 86, 60, 80, 71, 78, 98, 84, 66, 81, 75, 102, 88, 80, 

94, 71, 85, 72, 80, 68, 73, 87, 84, 75, 64, 85, 59, 76, 72, 67, 92, 

61, 72, 69, 89, 58, 96, 80, 88, 89, 80, 70, 75, 90, 78, 96, 93, 82, 

60, 91, 78, 93, 86, 79, 83, 72, 90, 86, 78, 91, 80, 70, 73, 71, 78, 

82, 73, 92, 80, 73, 71, 86, 79, 73, 72, 77, 79, 95, 79, 75, 74, 83, 

96, 76, 85, 58, 78, 58, 81, 76, 86, 93, 85, 65, 79];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
AA2(teze),numer;
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$