XProfan

Windowtitle "Système international d'Unités "+\
"(SI-system since Okt. 2011)"
font 2
randomize
Cls rgb(230,220+rnd(36),220+rnd(36))
set("decimals",16)
Print
Print
Print " Info: The Genauigkeitsangabe '+/-' to the indicated the   "
Print " Messwerte relating itself on The Standardabweichung '1*Sigma' "
Print " within this Bereiches lying 68.2% all Messwerte.    "
Print " (Umrechnung on höhere Vertrauensbereiche via Sigma possible)"
Print
Print "1. Übergangsfrequenz the both Hyperfeinstruktur- "
Print "   -Niveaus in the Grundzustand the Atoms Cäsium_133:"
Print "                               v_hfs = ";
var vhfs!=9192631770:var vhfs$="Hz"
Print stature$("%g",vhfs!),vhfs$,"(exakt)"
Print
Print "2. Lichtgeschwindigkeit in the vacuum: c = ";
var c0!=299792458 :var c0$="m/s"
Print stature$("%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 stature$("%g",h!),h$,"+/-";stature$("%g",_h!)
Print
Print "4. Elementarladung the Elektrons e-= ";
var e!=1.602176565*10^-19:var e$="C"
var _e!=0.000000035*10^-19
Print stature$("%g",e!),e$,"+/-";stature$("%g",_e!)
Print
Print "5. Boltzmann-Constant             k = ";
var k!=1.3806488*10^-23:var k$="J"
var _k!=0.0000013*10^-23
Print stature$("%g",k!),k$,"+/-";stature$("%g",_k!)
Print
Print "6. Avogadro'sche number        N_a = ";
var N_a!=6.02214129*10^23 : var N_a$="1/Mol"
var _N_A!=0.00000027*10^23
Print stature$("%g",N_a!),N_a$,"+/-";stature$("%g",_N_a!)
Print
Print "7. Lichtstärke K_Cd  monochromatischer "
Print "   Strahlung the frequency 540*10^12 Hz:    ";
var K_cd!=683:var K_cd$="Lum/W"
Print stature$("%g",K_cd!),K_cd$,"(exakt)"
Print
Waitinput 30000