XProfan

Windowtitle "Système International d'Unités "+\
"(SI-System seit Okt. 2011)"
font 2
randomize
Cls rgb(230,220+rnd(36),220+rnd(36))
set("decimals",16)
Print
Print
Print " Hinweis: Die Genauigkeitsangabe '+/-' nach der Angabe der   "
Print " Messwerte bezieht sich auf die Standardabweichung '1*Sigma' "
Print " Innerhalb dieses Bereiches liegen 68.2% aller Messwerte.    "
Print " (Umrechnung auf höhere Vertrauensbereiche via Sigma möglich)"
Print
Print "1. Übergangsfrequenz der beiden Hyperfeinstruktur- "
Print "   -Niveaus im Grundzustand des Atoms Cäsium_133:"
Print "                               v_hfs = ";
var vhfs!=9192631770:var vhfs$="Hz"
Print format$("%g",vhfs!),vhfs$,"(exakt)"
Print
Print "2. Lichtgeschwindigkeit im Vakuum: c = ";
var c0!=299792458 :var c0$="m/s"
Print format$("%g",c0!),c0$,"(exakt)"
Print
Print "3. Planck'sches Wirkungsquantum h = ";
var h!=6.62606957*10^-34:var h$="J s"
var _h!=0.00000029*10^-34
Print format$("%g",h!),h$,"+/-";format$("%g",_h!)
Print
Print "4. Elementarladung des Elektrons e-= ";
var e!=1.602176565*10^-19:var e$="C"
var _e!=0.000000035*10^-19
Print format$("%g",e!),e$,"+/-";format$("%g",_e!)
Print
Print "5. Boltzmann-Konstante             k = ";
var k!=1.3806488*10^-23:var k$="J"
var _k!=0.0000013*10^-23
Print format$("%g",k!),k$,"+/-";format$("%g",_k!)
Print
Print "6. Avogadro'sche Zahl        N_a = ";
var N_a!=6.02214129*10^23 : var N_a$="1/Mol"
var _N_A!=0.00000027*10^23
Print format$("%g",N_a!),N_a$,"+/-";format$("%g",_N_a!)
Print
Print "7. Lichtstärke K_Cd  monochromatischer "
Print "   Strahlung der Frequenz 540*10^12 Hz:    ";
var K_cd!=683:var K_cd$="Lum/W"
Print format$("%g",K_cd!),K_cd$,"(exakt)"
Print
Waitinput 30000