var Groesse = new Array (
"e",
"me",
"mp",
"c",
"h",
"R",
"g",
"k",
"MS"
);
var Wert = new Array (
1.60218,
0.511,
938.272,
2.99792458,
6.62608,
13.6057,
9.80665,
8.6174,
1.98892
);
var Einh = new Array (
"10-19 C",
"MeV c-2",
"MeV c-2",
"108 m s-1",
"10-34 Js",
"eV",
"m s-2",
"10-5eV K-1",
"1030 kg"
);
var Besch = new Array (
"Ladungseinheit",
"Masse des Elektrons",
"Masse des Protons",
"Lichtgeschwindigkeit",
"Wirkungsquantum",
"Rydbergkonstante",
"Erdbeschleunigung",
"Boltzmannkonstante",
"Sonnenmasse"
);
var faktor = new Array (
1,
0.5,
2,
Math.SQRT1_2,
Math.SQRT2,
Math.PI
);
var faktbez= new Array (
"",
"1/2 ",
"2 ",
"sqrt(1/2) ",
"sqrt(2) ",
"pi "
);
var Num=9;
var numfakt=6;
var ergnn;
function rado(val, groesse, wert, num, maxexp, expinc) {
var i, i1, i2, i3, i4, e1, e2, e3, e4, ifakt, name, ber=0;
var tval, tv1, tv2, tv3, tv4;
var ergeb = new Array, erg=new Array;
var ergnum= 0;
for (i1=0; i1";}}
if (e2 != 0) { ergeb[ergnum] += " " + groesse[i2]; if (e2 != 1) { ergeb[ergnum] += "" + e2 + "";}}
if (e3 != 0) { ergeb[ergnum] += " " + groesse[i3]; if (e3 != 1) { ergeb[ergnum] += "" + e3 + "";}}
if (e4 != 0) { ergeb[ergnum] += " " + groesse[i4]; if (e4 != 1) { ergeb[ergnum] += "" + e4 + "";}}
ergnum++;
}
}
}
}
}
}
}
}
}
}
ergeb.sort();
ergnn=0;
for (i=0; i< ergnum; i++) {
top.status = "i" + i + ergeb[i];
if (ergeb[i] != ergeb[i+1]) {
erg[ergnn]=ergeb[i];
ergnn++;
}
}
return (erg);
}
function irado(val) {
var page, i;
var ergebnis= new Array;
page="Radosophie";
if (val>0) {
page += "Radosophische Betrachtung von " + val +"
";
ergebnis = rado(val, Groesse, Wert, Num, 3, 1);
for (i=0; i < ergebnis.length; i++) {
top.status= "jj" + i + ergebnis[i];
page += val + "=" + ergebnis[i] + "
";
}
} else {
page += "Geben Sie bitte einen positiven Wert an.";
}
return(page);
}
function radokonst() {
var page, i;
page = "Benutzte Konstanten
";
for (i=0; i| = | "
+ Wert[i] + " | " + Einh[i]
+ " | " + Besch[i] + " | ";
}
page += "
";
return(page);
}
function prado(vn1, v1, vn2, v2, vn3, v3, vn4, v4, vn5, v5, head) {
var page, i, j;
var vals = new Array (v1, v2, v3, v4, v5);
var valnames = new Array (vn1, vn2, vn3, vn4, vn5);
page ="";
if (head != 0) {page="Radosophie";}
page += "Eingegebene Werte
";
for (i=0; i<5; i++) {
if (vals[i]<=0) {vals[i]=1;}
page += valnames[i] + "=" + vals[i] + "
";
}
page += "Errechnete Konstanten
";width="100%"
for (i=0; i< Num; i++) {
var ergebnis = new Array;
ergebnis = rado(Wert[i], valnames, vals, 5, 2, .5);
for (j=0; j < ergebnis.length; j++) {
page += Groesse[i] + "=" + ergebnis[j] + "
";
}
}
return(page);
}