XProfan

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