//
// Logik-Trainer-Matrix
//
// (C) Michael Pousen 2003
// Der Autor uebernimmt keinerlei Gewaehrleistung und keinerlei Haftung.
// Jede Art der Vervielfaeltigung und Verwendung Bedarf der Genemigung des Autors.
//
// 1.0
// 2003-11-29
// Initial Release
//
// 2.0
// 2004-06-10
// Diagramm auch quadratisch
//
function InnerTab( w, ny, nx, kh, kw )
{
w.document.write( "" );
for ( ey = 0; ey < ny; ey++ ) {
w.document.write( "" );
for ( ex = 0; ex < nx; ex++ ) {
w.document.write( "
| " );
}
w.document.write( " " );
}
w.document.write( " | " );
}
function EmptyTab( w )
{
w.document.write( " | " );
}
function Erzeugen(squared)
{
var rubs = document.groesse.rubriken.value;
var elems = document.groesse.elemente.value;
var kantlen = document.groesse.kante.value;
var headers = document.groesse.headers.checked;
var w, mrx, mry, rx, ry, ex, ey;
w = window.open("","Fenster2","width=600,height=600,resizable=yes,menubar=yes");
w.document.write( "" );
if ( squared ) {
mry = rubs;
} else {
mry = rubs - 1;
}
for ( ry = 0; ry < mry; ry++ ) {
if ( squared ) {
mrx = rubs;
} else {
mrx = rubs - ry - 1;
}
if (( ry == 0 ) && headers ) {
w.document.write( "" );
EmptyTab( w );
for ( rx = 0; rx < mrx; rx++ ) {
InnerTab( w, 1, elems, 3 * kantlen, kantlen );
}
w.document.write( "
" );
}
w.document.write( "" );
if ( headers ) {
InnerTab( w, elems, 1, kantlen, 3 * kantlen );
}
for ( rx = 0; rx < mrx; rx++ ) {
if ( squared && rx == ry ) {
EmptyTab( w );
} else {
InnerTab( w, elems, elems, kantlen, kantlen );
}
}
w.document.write( "
" );
}
w.document.write( "
" );
w.document.close();
}