XProfan

WindowTitle "Relative Atommassen - Aktuelle Rechenwerte 2015"
' Q: https://arxiv.org/pdf/1203.5425.pdf
' OHNE JEDE GEWÄHR (Möglicherweise Errore di battitura)!
CLS
declare _N$,m_N!,u_m_N!,u_rel_m_N!
declare _1H$,m_1H!,u_m_1H!,u_rel_m_1H!
declare _2H$,m_2H!,u_m_2H!,u_rel_m_2H!
declare _3H$,m_3H!,u_m_3H!,u_rel_m_3H!
declare _3He$,m_3He!,u_m_3He!,u_rel_m_3He!
declare _4He$,m_4He!,u_m_4He!,u_rel_m_4He!
declare _12C$,m_12C!,u_m_12C!,u_rel_m_12C!
declare _16O$,m_16O!,u_m_16O!,u_rel_m_16O!
declare _28Si$,m_28Si!,u_m_28Si!,u_rel_m_28Si!
declare _29Si$,m_29Si!,u_m_29Si!,u_rel_m_29Si!
declare _30Si$,m_30Si!,u_m_30Si!,u_rel_m_30Si!
declare _36Ar$,m_36Ar!,u_m_36Ar!,u_rel_m_36Ar!
declare _38Ar$,m_38Ar!,u_m_38Ar!,u_rel_m_38Ar!
declare _40Ar$,m_40Ar!,u_m_40Ar!,u_rel_m_40Ar!
declare _87Rb$,m_87Rb!,u_m_87Rb!,u_rel_m_87Rb!
declare _107Ag$,m_107Ag!,u_m_107Ag!,u_rel_m_107Ag!
declare _109Ag$,m_109Ag!,u_m_109Ag!,u_rel_m_109Ag!
declare _133Cs$,m_133Cs!,u_m_133Cs!,u_rel_m_133Cs!
declare _c0$,c0!,SI_c0$
declare _mu0$,mu0!,SI_mu0$
declare _epsilon0$,epsilon0!,SI_epsilon0$
declare _12C_$,m_12C_!,SI_12C$
declare _Mu$,Mu!,SI_Mu$
declare _12C__$,m_12C__!,SI_m12C$
declare _K_J90$,K_J90!,SI_K_J90$
declare _R_K90$,R_K90!,SI_R_K90$
print "...als erste Idee per eine Chemie-Includedatei\n"
' ---------------------------------------------------------------------
' Relative Atommassen (Stand 2003 + Verbesserungen bis 2014 eingearbeitet)
' Bez.  Variable   Wert   Relative_Unsicherheit u_rel
' ---------------------------------------------------------------------
_N$="Rel. Neutronenmasse":m_N!=1.00866491574:u_m_N!=0.00000000056:u_rel_m_N!=5.6*10^-10
_1H$="Wasserstoff":m_1H!=1.00782503207:u_m_1H!=0.00000000010:u_rel_m_1H!=10^-10
_2H$="Deuterium":m_2H!=2.014101778040:u_m_2H!=0.000000000080:u_rel_m_2H!=4*10^-11
_3H$="Tritium":m_3H!=3.0160492777:u_m_3H!=0.0000000025:u_rel_m_3H!=8.2*10^-10
_3He$="Helium":m_3He!=3.0160293191:u_m_3He!=0.0000000026:u_rel_m_3He!=8.6*10^-10
_4He$="Helium4":m_4He!=4.002603254131:u_m_4He!=0.000000000062:u_rel_m_4He!=1.5*10^-11
_12C$="Kohlenstoff12":m_12C!=12:u_m_12C!=0.0:u_rel_m_12C!=0.0
_16O$="Sauerstoff":m_16O!=15.99491461957:u_m_16O!=0.00000000018:u_rel_m_16O!=1.1*10^-11
_28Si$="Silizium":m_28Si!=27.97692653496:u_m_28Si!=0.00000000062:u_rel_m_28Si!=2.2*10^-11
_29Si$="Silizium29":m_29Si!=28.9764946625:u_m_29Si!=0.0000000020:u_rel_m_29Si!=6.9*10^-11
_30Si$="Silizium30":m_30Si!=29.973770171:u_m_30Si!=0.000000032:u_rel_m_30Si!=1.1*10^-9
_36Ar$="Argon36":m_36Ar!=35.967545105:u_m_36Ar!=0.000000028:u_rel_m_36Ar!=7.8*10^-10
_38Ar$="Argon38":m_38Ar!=37.96273239:u_m_38Ar!=0.00000036:u_rel_m_38Ar!=9.5*10^-9
_40Ar$="Argon40":m_40Ar!=39.9623831225:u_m_40Ar!=0.0000000029:u_rel_m_40Ar!=7.2*10^-11
_87Rb$="Rubidium87":m_87Rb!=86.909180535:u_m_87Rb!=0.000000010:u_rel_m_87Rb!=1.2*10^-10
_107Ag$="Silber":m_107Ag!=106.9050968:u_m_107Ag!=0.0000046:u_rel_m_107Ag!=4.3*10^-8
_109Ag$="Silber109":m_109Ag!=108.9047523:u_m_109Ag!=0.0000031:u_rel_m_109Ag!=2.9*10^-8
_133Cs$="Caesium":m_133Cs!=132.905451963:u_m_133Cs!=0.000000013:u_rel_m_133Cs!=9.8*10^-11
declare _Ag$,m_Ag!
declare _Al$,m_Al!
declare _As$,m_As!
declare _Au$,m_Au!
declare _B$,m_B!
declare _Ba$,m_Ba!
declare _Bi$,m_Bi!
declare _Br$,m_Br!
declare _C$,m_C!
declare _Ca$,m_Ca!
declare _Cd$,m_Cd!
declare _Cl$,m_Cl!
declare _Co$,m_Co!
declare _Cr$,m_Cr!
declare _Cu$,m_Cu!
declare _F$,m_F!
declare _Fe$,m_Fe!
declare _H$,m_H!
declare _Hg$,m_Hg!
declare _J$,m_J!
declare _K$,m_K!
declare _Mg$,m_Mg!
declare _Mn$,m_Mn!
declare _N_$,m_N_!'******
declare _Na$,m_Na!
declare _Ni$,m_Ni!
declare _O$,m_O!
declare _P$,m_P!
declare _Pb$,m_Pb!
declare _Pt$,m_Pt!
declare _S$,m_S!
declare _Sb$,m_Sb!
declare _Se$,m_Se!
declare _Si$,m_Si!
declare _Sn$,m_Sn!
declare _Sr$,m_Sr!
declare _Te$,m_Te!
declare _Ti$,m_Ti!
declare _U$,m_U!
declare _Zn$,m_Zn!
_Ag$="Silber":m_Ag!=107.87
_Al$="Aluminium":m_Al!=26.98
_As$="Arsen":m_As!=74.92
_Au$="Gold":m_Au!=196.97
_B$="Bor":m_B!=10.81
_Ba$="Barium":m_Ba!=137.34
_Bi$="Wismut":m_Bi!=208.98
_Br$="Brom":m_Br!=79.90
_C$="Kohlenstoff":m_C!=12.01
_Ca$="Kalzium":m_Ca!=40.08
_Cd$="Cadmium":m_Cd!=112.40
_Cl$="Chlor":m_Cl!=35.45
_Co$="Kobalt":m_Co!=58.93
_Cr$="Chrom":m_Cr!=52.00
_Cu$="Kupfer":m_Cu!=63.55
_F$="Fluor":m_F!=19.00
_Fe$="Eisen":m_Fe!=55.85
_H$="Wasserstoff":m_H!=1.01
_Hg$="Quecksilber":m_Hg!=200.59
_J$="Jod":m_J!=126.90
_K$="Kalium":m_K!=39.10
_Mg$="Magnesium":m_Mg!=24.31
_Mn$="Mangan":m_Mn!=54.94
_N_$="Stickstoff":m_N_!=14.01
_Na$="Natrium":m_Na!=22.99
_Ni$="Nickel":m_Ni!=58.70
_O$="Sauerstoff":m_O!=16.00
_P$="Phosphor":m_P!=30.97
_Pb$="Blei":m_Pb!=207.2
_Pt$="Platin":m_Pt!=195.09
_S$="Schwefel":m_S!=32.06
_Sb$="Antimon":m_Sb!=121.75
_Se$="Selen":m_Se!=78.96
_Si$="Silizium":m_Si!=28.09
_Sn$="Zinn":m_Sn!=118.69
_Sr$="Strontium":m_Sr!=87.62
_Te$="Tellur":m_Te!=127.60
_Ti$="Titan":m_Ti!=47.90
_U$="Uran":m_U!=238.03
_Zn$="Zink":m_Zn!=65.38
'----------------------------------------------
' Other important quantities (CODATA 2010)
'----------------------------------------------
_c0$="speed_of_light_in_vacuum":c0!=299792458:SI_c0$="[m/s]"
'_mu0$="magnetic_constant":mu0!=4*pi()*10^-7 :SI_mu0$="[N/A^2]"
_mu0$="Magnetische_Feldkonstante":mu0!=12.566370614*10^-7:SI_mu0$="[N/A^2]"
_epsilon0$="electric_constant":epsilon0!=8.854187817*10^-12:SI_epsilon0$="[F/m]"'=1/(µ0*c0^2)
_12C$="molar_mass_of_12C":m_12C!=12*10^-3:SI_12C$="[kg/mol]"
_Mu$="molar_mass_constant":Mu!=10^-3 :SI_Mu$="[kg/mol]"
_12C_$="relative_atomic_mass_of_12C":m_12C_!=12:SI_m12C$="[u]"
_K_J90$="conventional_value_of_Josephson_constant":K_J90!=483597.9:SI_K_J90$="[GHz/V]"
_R_K90$="conventional_value_of_von_Klitzing_constant":R_K90!=25812.807:SI_R_K90$="[Ohm]"
'-----------------------------------------------------------------------------------------
Print " Hurra! Werte wurden ohne Laufzeitfehler eingelesen."
waitinput
End