This tool is intended to be a framework to simulate statistical experiments. The field "Experiment" describes the whole experiment. The Field "Event" a single event. The expriment will be run as many times as defined in the field "Nr of Experiments". 

<br>
<br>
<br>

<script type="text/javascript" src="http://javascript.gibney.org/html_elements.js"></script>

<script>

function doEvent()
{
 eval (Event.getValue());
}

function doExperiment()
{
 Output.setValue("Experiment Nr: "+(ExperimentNr+1)+". Results so far:\n");
 eval (Experiment.getValue()); 
 Output.addToValue("As Observed / Not as Observed ratio: "+ResultAsObserved+" / "+ResultNotAsObserved+" = ");
 Output.addToValue(Math.round(ResultAsObserved/(ResultAsObserved+ResultNotAsObserved)*100*100)/100+" %");
 
 ExperimentNr++;
 if (ExperimentNr<NrOfExperiments) if (KeepRunning) setTimeout("doExperiment()",10);
}

function doAllExperiments()
{
 ResultAsObserved   =0;
 ResultNotAsObserved=0;
 ExperimentNr=0;
 doExperiment();
}

function start()
{
 KeepRunning=true;
 Event=new ge_Element("event");
 Experiment=new ge_Element("experiment");
 NrOfExperiments=ge_getValueById("NrOfExperiments");
 
 Output=new ge_Element("output");
 Output.addToValue("starting\n");
 doAllExperiments();
 Output.addToValue("All Done\n");
}

function stop()
{
 KeepRunning=false;
}

KeepRunning=false;

</script>
<table style="width: 100%">
 <tr>

<td style="width: 33%">Experiment:<br>
<textarea id=experiment style="width: 100%; height: 20em;">
Score1=0;
Score2=0;
EventNr=0;
while (EventNr<(56+79))
{
 doEvent();
 EventNr++;
}
if ((Score1>78) || (Score2>78)) ResultAsObserved++;
else ResultNotAsObserved++;
</textarea>
</td>

<td style="width: 33%">Event:<br>
<textarea id=event style="width: 100%; height: 20em;">
if (Math.random()>0.5) Score1++;
else Score2++;
</textarea>
</td>

</tr>
 <tr>
  <td style="width: 33%">Output:<br><textarea id=output style="width: 100%; height: 10em;"></textarea>
  <td style="width: 33%; padding: 2em; vertical-align: top;">
   Nr of Experiments: <input id=NrOfExperiments value=10000><br>
   <a href=# onclick="start();">start</a> | <a href=# onclick="stop();">stop</a><br><br><br>
  </td>
 </tr>
</table>

<!--
<br><br><br><br>
4-Felder-Test:<br>
experiment:
<textarea id=experiment_01>
SampleSize1=1180;
SampleSize2=8600;

ObservedHits1=18;
ObservedHits2=144;

ObservedRatio=ObservedHits2/SampleSize2;

Hits1=0;
Hits2=0;

EventNr=0;

while (EventNr<(ObservedHits1+ObservedHits2))
{
 doEvent();
 EventNr++;
}

Ratio1=Hits1/SampleSize1;
Ratio2=Hits2/SampleSize2;

if ((Ratio1>=ObservedRatio) || (Ratio2>=ObservedRatio)) ResultAsObserved++;
else ResultNotAsObserved++;

</textarea>

event:
<textarea id=experiment_01>
if ((Math.random()*(SampleSize1+SampleSize2))>SampleSize1) Hits2++;
else Hits1++;
</textarea>

-->