<!--
/* Copyright 2001, 2009 - Antonio Zamora */
//  Used in esptest.html, aussersinnliche-wahrnehmung.html

img = new Array("blks1.gif","sqs1.gif", "cis1.gif","pls1.gif", "sts1.gif","was1.gif")
imgr = new Array("blks1.gif","sqsr1.gif", "cisr1.gif","plsr1.gif", "stsr1.gif","wasr1.gif")

var totguess = 0;
var totcor=0;
var totpct;
var strpct;
var espno;
var esptry=0;
var espcor=0;
var lock = 0;
var i;
compcard = new Array(10);
guesses = new Array(10);

function espfin(espguess, lang) {
  var f = self.document.forms[0];
  var res = "";  // message
  // Set up language variables:  msXXX
  if (lang=="de") {  // German
    ms001 = "Richtig erraten: ";
    ms002 = "Im ganzen richtig erraten: ";
    ms003 = ",  Im ganzen erraten: ";
    ms004 = "\nProzent richtig erraten: ";
    ms005 = "%, Statistische Wahrscheinlichkeit: 20%\n";
    ms006 = "Versuchen Sie den Test mindestens 5-mal um eine statistische Signifikanz zu berechnen.";
    ms007 = "Signifikanzniveau: ";
    ms008 = "\nWahrscheinlichkeit dieser Summen durch Zufall: ";
    ms009 = "Nicht signifikant (p >= 0.05)";
    ms010 = "Signifikant (p < 0.05)";
    ms011 = "Signifikant (p < 0.01)";
    ms012 = "Signifikant (p < 0.005)";
    ms013 = "Sehr signifikant (p < 0.001)";
  }
  else if (lang=="es") {  // Spanish
    ms001 = "Selecciones correctas esta vez: ";
    ms002 = "Total de selecciones correctas: ";
    ms003 = ",  Número de intentos: ";
    ms004 = "\nPorcentaje total de selecciones correctas: ";
    ms005 = "%, Esperadas por azar: 20%\n";
    ms006 = "Repite la prueba al menos 5 veces para calcular la significancia estadística.";
    ms007 = "Nivel de significatividad: ";
    ms008 = "\nProbabilidad de este total por casualidad: ";
    ms009 = "No significativo (p >= 0.05)";
    ms010 = "Significativo (p < 0.05)";
    ms011 = "Significativo (p < 0.01)";
    ms012 = "Significativo (p < 0.005)";
    ms013 = "Muy significativo (p < 0.001)";
  }
  else {  // Default language: English
    ms001 = "Correct guesses this time: ";
    ms002 = "Total correct guesses: ";
    ms003 = ",  Total guesses: ";
    ms004 = "\nPercent of total correct guesses: ";
    ms005 = "%,  Expected by chance: 20%\n";
    ms006 = "Try the test at least 5 times to calculate statistical significance.";
    ms007 = "Significance level: ";
    ms008 = "\nOdds of these totals by chance: ";
    ms009 = "Not significant (p >= 0.05)";
    ms010 = "Significant (p < 0.05)";
    ms011 = "Significant (p < 0.01)";
    ms012 = "Significant (p < 0.005)";
    ms013 = "Highly significant (p < 0.001)";
  }

	if (lock == 0) {
		esptry++;
		if (esptry == 1) {	document.ch01.src = img[espguess];}
		if (esptry == 2) {	document.ch02.src = img[espguess];}
		if (esptry == 3) {	document.ch03.src = img[espguess];}
		if (esptry == 4) {	document.ch04.src = img[espguess];}
		if (esptry == 5) {	document.ch05.src = img[espguess];}
		if (esptry == 6) {	document.ch06.src = img[espguess];}
		if (esptry == 7) {	document.ch07.src = img[espguess];}
		if (esptry == 8) {	document.ch08.src = img[espguess];}
		if (esptry == 9) {	document.ch09.src = img[espguess];}
		if (esptry == 10) {	 document.ch10.src = img[espguess];}
		
		guesses[esptry] = espguess;
		if(espguess == compcard[esptry]) {
			espcor++;
		}
		
		if(esptry == 10) {
			lock = 1;
         totguess = totguess + 10;
         totcor = totcor + espcor;
         totpct = (100*totcor)/totguess;
         strpct = "" + totpct;
         if (strpct.length > 5) {
           strpct = strpct.substring(0,5);
         }
         if (totguess >= 20) {
/* 
alert("Correct selections: "+totcor+"\nTotal selections:  "+totguess+
"\n Percent correct: "+strpct+"%");
*/
         }

			if (guesses[1] == compcard[1]) {
			document.co01.src = imgr[compcard[1]];}
			else {
				document.co01.src = img[compcard[1]];
			}
			if (guesses[2] == compcard[2]) {
			document.co02.src = imgr[compcard[2]];}
			else {
				document.co02.src = img[compcard[2]];
			}
			
			if (guesses[3] == compcard[3]) {
			document.co03.src = imgr[compcard[3]];}
			else {
				document.co03.src = img[compcard[3]];
			}
			
			if (guesses[4] == compcard[4]) {
			document.co04.src = imgr[compcard[4]];}
			else {
				document.co04.src = img[compcard[4]];
			}
			
			if (guesses[5] == compcard[5]) {
			document.co05.src = imgr[compcard[5]];}
			else {
				document.co05.src = img[compcard[5]];
			}
			
			if (guesses[6] == compcard[6]) {
			document.co06.src = imgr[compcard[6]];}
			else {
				document.co06.src = img[compcard[6]];
			}
			
			if (guesses[7] == compcard[7]) {
			document.co07.src = imgr[compcard[7]];}
			else {
				document.co07.src = img[compcard[7]];
			}
			
			if (guesses[8] == compcard[8]) {
			document.co08.src = imgr[compcard[8]];}
			else {
				document.co08.src = img[compcard[8]];
			}
			
			if (guesses[9] == compcard[9]) {
			document.co09.src = imgr[compcard[9]];}
			else {
				document.co09.src = img[compcard[9]];
			}
			
			if (guesses[10] == compcard[10]) {
			document.co10.src = imgr[compcard[10]];}
			else {
				document.co10.src = img[compcard[10]];
			}
					
			res = ms001+espcor + "\n";  // "Correct guesses this time: "
			res = res + ms002+totcor+ms003+totguess+
            ms004+strpct +
            ms005;
            
      if (totguess < 50) {
        res = res + ms006
      }            
      else {  // Calculate statistical significance
var z = 0;
var x1 = 0.31938153;
var x2 = -0.356563782;
var x3 = 1.781477937;
var x4 = -1.821255978;
var x5 = 1.330274429;
var a = 0;
var b = 0;
var c = 0;
var p = 0;
var o = 0;
var t = 0;
var h = 0;
var i = 0;
var p1 = 0;
var q1 = 0;
var v = 0;
var m = 0;
var r4 = "";
var r5 = "";

t = totguess;
h = totcor;
i = 5; // chance is 1 in 5
  p1= 1/i;
  q1 = 1-p1;
  m = t/i;
  with (Math) {
    v = sqrt(t*p1*q1);
    if (h >= m) {
      z = (h-m-0.5)/v;
    } else {
      z = ((h-m+0.5)/v);
    }
  }
 
  a=Math.abs(z)
  b=1/(1+a*0.2316419)
  c=(1/Math.sqrt((2*Math.PI)))*Math.exp(-Math.pow(a,2)/2)
  p= 1 - c*(parseFloat(x1*b+x2*Math.pow(b,2))+
            parseFloat(x3*Math.pow(b,3))+
            parseFloat(x4*Math.pow(b,4))+
            parseFloat(x5*Math.pow(b,5)));
  p=2*(1-p);
  o=Math.floor(1/p); 

  if (p>=0.05) {
    r4 = ms009;
  }
  if (p<0.05) {
    r4 = ms010;
  }
  if (p<0.01) {
    r4 = ms011;
  }
  if (p<0.005) {
    r4 = ms012;
  }
  if (p<0.001) {
    r4 = ms013;
  }
  
  r5 = " 1 : "  + String(o);
  // res = res + "Significance level: "+r4+ "\nOdds of these totals by chance: "+r5;
  res = res + ms007+r4+ ms008+r5;
      
      }  // Calculate statistical significance
			document.espform.out.value = res;

			espcor=0;
			esptry=0;
		}
	}  /* lock == 0 */
}

function espreset() {
	lock = 0;
	esptry = 0;
	espcor = 0;
	espmakeno();
	
	document.espform.out.value = "";
	document.ch01.src = img[0];
	document.ch02.src = img[0];
	document.ch03.src = img[0];
	document.ch04.src = img[0];
	document.ch05.src = img[0];
	document.ch06.src = img[0];
	document.ch07.src = img[0];
	document.ch08.src = img[0];
	document.ch09.src = img[0];
	document.ch10.src = img[0];
	
	document.co01.src = img[0];
	document.co02.src = img[0];
	document.co03.src = img[0];
	document.co04.src = img[0];
	document.co05.src = img[0];
	document.co06.src = img[0];
	document.co07.src = img[0];
	document.co08.src = img[0];
	document.co09.src = img[0];
	document.co10.src = img[0];
}

function espmakeno() {
	for (i=1; i<=10; i++){
		compcard[i]= Math.floor((Math.random() * 5)+1);
	}
}

//-->