XProfan

Windowtitle "Système International d'Unités "+\
"(SI-Sistema seit Okt. 2011)"
font 2
randomize
Cls rgb(230,220+rnd(36),220+rnd(36))
set("decimals",16)
Imprimir
Imprimir
Imprimir " Referencia: El Genauigkeitsangabe '+/-' después de el Angabe el   "
Imprimir " Messwerte bezieht se en el Standardabweichung '1*Sigma' "
Imprimir " Innerhalb dieses Bereiches mentira 68.2% aller Messwerte.    "
Imprimir " (Umrechnung en höhere Vertrauensbereiche via Sigma posible)"
Imprimir
Imprimir "1. Übergangsfrequenz el beiden Hyperfeinstruktur- "
Imprimir "   -Niveaus en el Grundzustand des Atoms Cäsium_133:"
Imprimir "                               v_hfs = ";
var vhfs!=9192631770:var vhfs$="Hz"
Imprimir format$("%g",vhfs!),vhfs$,"(exakt)"
Imprimir
Imprimir "2. Lichtgeschwindigkeit en el Vakuum: c = ";
var c0!=299792458 :var c0$="m/s"
Imprimir format$("%g",c0!),c0$,"(exakt)"
Imprimir
Imprimir "3. Planck'sches Wirkungsquantum h = ";
var h!=6.62606957*10^-34:var h$="J s"
var _h!=0.00000029*10^-34
Imprimir format$("%g",h!),h$,"+/-";format$("%g",_h!)
Imprimir
Imprimir "4. Elementarladung des Elektrons e-= ";
var e!=1.602176565*10^-19:var e$="C"
var _e!=0.000000035*10^-19
Imprimir format$("%g",e!),e$,"+/-";format$("%g",_e!)
Imprimir
Imprimir "5. Boltzmann-Konstante             k = ";
var k!=1.3806488*10^-23:var k$="J"
var _k!=0.0000013*10^-23
Imprimir format$("%g",k!),k$,"+/-";format$("%g",_k!)
Imprimir
Imprimir "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
Imprimir format$("%g",N_a!),N_a$,"+/-";format$("%g",_N_a!)
Imprimir
Imprimir "7. Lichtstärke K_Cd  monochromatischer "
Imprimir "   Strahlung el Frequenz 540*10^12 Hz:    ";
var K_cd!=683:var K_cd$="Lum/W"
Imprimir format$("%g",K_cd!),K_cd$,"(exakt)"
Imprimir
Waitinput 30000