(* :Context: brfKonst` *)

BeginPackage["brfKonst`"]

Unprotect[Evaluate[Context[]<>"*"]];

brfKonstOverview::usage="brfKonst enth\[ADoubleDot]lt Werte von Naturkonstanten, Teilcheneigenschaften, astronomischen Daten und Funktionen, die Definitionen der Plankschen Strahlungskurve ausgedr\[UDoubleDot]ckt in Wellenl\[ADoubleDot]ngen oder Frequenzen, sowie Umrechnungen zwischen verschiedenen Gr\[ODoubleDot]\[SZ]en. Die Zahlenwerte der astronomischen Gr\[ODoubleDot]\[SZ]en stammen aus dem Buch von Wischnewski: \[RightGuillemet]Astronomie in Theorie und Praxis\[LeftGuillemet]. Man beachte, dass die astronomischen Konstanten in verschiedenen Quellen sich teilweise unterscheiden.
Alle Konstanten aus PhysicalConstants` sind \[UDoubleDot]bernommen (um Doppeldefinitionen zu vermeiden mit anderen Bezeichnungen und ohne Einheiten). In den usages werden diese durch (*PhC*) gekennzeichnet." 

ZeigeKonst::usage = "ZeigeKonst \[ODoubleDot]ffnet ein \[RightGuillemet]Manipulate\[LeftGuillemet], in dem die usages und Zahlenwerte der Konstanten und Funktionen aus brfKonst` angezeigt werden k\[ODoubleDot]nnen."

BlackBodyNy::usage=
"BlackBodyNy[\[Nu], T, {c,h,k}] ist die Plancksche Strahlungsformel in Leistung pro Fl\[ADoubleDot]che, Frequenz und Sterrad bei der Temperatur T."

BlackBodyLambda::usage=
"BlackBodyLambda[\[Lambda], T , {c,h,k}] ist die Plancksche Strahlungsformel in Leistung pro Fl\[ADoubleDot]che, Wellenl\[ADoubleDot]nge und Sterrad bei der Temparatur T."

BlackBodyRule::usage=
"BlackBodyRule[c,h,k] ist eine Ersetzungregel, die c\[Rule]cLicht, h\[Rule]hPlanck, k\[Rule]kBoltzmann, durchf\[UDoubleDot]hrt."

BolomKorr::usage="BolomKorr[FI] berechnet aus dem Farbindex FI=(B-V\!\(\*SubscriptBox[\()\), \(0\)]\) n\[ADoubleDot]herungsweise die Bolometrische Korrektur B.C.=\!\(\*SubscriptBox[\(m\), \(v\)]\)-\!\(\*SubscriptBox[\(m\), \(bol\)]\) in mag."

GradFInGradC::usage="GradFInGradC[x] berechnet aus x \[Degree]F die Temperatur in \[Degree]C.
Beachte auch die in normalen Wettertemperaturen anwendbare Fausformel: \[Degree]C=(\[Degree]F-30)/2, (Fehler unter 4\[Degree])."

GradCInGradF::usage="GradCInGradF[x] berechnet aus x \[Degree]C die Temperatur in \[Degree]F.
Beachte auch die in normalen Wettertemperaturen anwendbare Faustformel: \[Degree]F=2\[CenterDot]\[Degree]C+30."

GradCInGradK::usage="GradCInGradK[x] berechnet aus x \[Degree]C die Temperatur in Kelvin."

GradKInGradC::usage="GradKInGradC[x] berechnet aus x K die Temperatur in \[Degree]C."

Tripelpunkt::usage="Tripelpunkt ist der Tripelpunkt des Wassers in Kelvin."

FarbindexToTeff::usage="FarbindexToTeff[fi] berechnet aus dem Farbindex fi=B-V n\[ADoubleDot]herungsweise die effektive Temperatur in Kelvin."

JulianDayNummer::usage="JulianDayNummer[{jahr, monat, tag, h,m,s}] liefert die Julianische Tagesnummer zum Datum zur\[UDoubleDot]ck. tag darf als Real angebeben werden, die optionalen Parameter h,m und s k\[ODoubleDot]nnen von \[RightGuillemet]hinten her\[LeftGuillemet] weggelassen werden.
Siehe auch FromJulianDayNummer."

FromJulianDayNummer::usage="FromJulianDayNummer[jd] liefert zur Julianischen Tagesnummer jd das Datum in der Form {jahr, monat, tag} zur\[UDoubleDot]ck.
Siehe auch JulianDayNummer."

JulianNummerModified::usage="JulianNummerModified gibt den Unterschied in Tagen zwischen Modifiziertem Julianischem Datum (MJD) und Julianischem Datum (JD) gem\[ADoubleDot]\[SZ] MJD = JD - JulianNummerModified"

(* Naturkonstanten *)

cLicht::usage="cLicht ist die Lichtgeschwindigkeit in m/s."

epsNull::usage="epsNull ist die elektrische Feldkonstante \!\(\*SubscriptBox[\(\[CurlyEpsilon]\), \(o\)]\) in F/m."

myNull::usage="myNull ist die magnetische Feldkonstante \!\(\*SubscriptBox[\(\[Mu]\), \(o\)]\) in H/m."

hPlanck::usage="hPlank ist das Plancksche Wirkungsquantum h in Js."

hqPlanck::usage="hqPlanck ist \[HBar]=\!\(\*FractionBox[\(h\), \(2  \[Pi]\)]\) in Js."

alphaFS::usage="alphaFS ist die Feinstrukturkonstante \[Alpha]\[TildeTilde]1/137"

lambdaCElektron::usage="lambdaCElektron ist die Compton\[Dash]Wellenl\[ADoubleDot]nge des Elektrons in m."

lambdaCProton::usage="lambdaCProton ist die Compton\[Dash]Wellenl\[ADoubleDot]nge des Protons in m."

lambdaCNeutron::usage="lambdaCNeutron ist die Compton\[Dash]Wellenl\[ADoubleDot]nge des Neutrons in m."

RydbergKonst::usage="RydbergKonst ist die Rydberg\[Dash]Konstante \!\(\*SubscriptBox[\(R\), \(H\)]\) aus \!\(\*FractionBox[\(1\), \(\[Lambda]\)]\)=\!\(\*SubscriptBox[\(R\), \
\(H\)]\)(\!\(\*FractionBox[\(1\), SuperscriptBox[\(n\), \(2\)]]\) \
-\!\(\*FractionBox[\(1\), SuperscriptBox[\(m\), \(2\)]]\)) in 1/m."

GKonst::usage="GKonst ist die Newtonsche Gravitationskonstante in \!\(\*SuperscriptBox[\(Nm\), \(2\)]\)/\!\(\*SuperscriptBox[\(kg\), \
\(2\)]\)."

eLadung::usage="eLadung ist die Elektronenladung in Coulomb."

sigmaBoltzmann::usage="sigmaBoltzmann ist die Stefan\[Dash]Boltzmann\[Dash]Konstante \[Sigma] der Strahlung des Schwarzen K\[ODoubleDot]rpers aus F=\!\(\*SuperscriptBox[\(\[Sigma]T\), \(4\)]\) in W/\!\(\*SuperscriptBox[\(m\), \
\(2\)]\)\[CenterDot]\!\(\*SuperscriptBox[\(K\), \(4\)]\)."

aBoltzmann::usage="aBoltzmann ist die Strahlungskonstante a=4\[Sigma]/c des Schwarzen K\[ODoubleDot]rpers f\[UDoubleDot]r die Energiedichte u=\!\(\*SuperscriptBox[\(aT\), \(4\)]\) in J/\!\(\*SuperscriptBox[\(K\), \
\(4\)]\)\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(3\)]\)."

kWien::usage="kWien ist die Konstante des Wienschen Verschiebungsgesetzes \[Lambda]T=kWien in K\[CenterDot]m."

RGasKonst::usage="RGasKonst ist die allgemeine Gaskonstante R aus pV=nRT in J/mol\[CenterDot]K."

kBoltzmann::usage="kBoltzmann ist die Boltzmann\[Dash]Konstante k aus pV=NkT in J/K."

NAvogadro::usage="NAvogadro ist die Avogadro\[Dash]Konstante, also die Teilchenanzahl eines Mols."

molVolumen::usage="molVolumen ist das Volumen eines Mols eines idealen Gases unter Normalbedingungen (T=273.15\[ThinSpace]K, 101325\[ThinSpace]Pa) in \!\(\*SuperscriptBox[\(m\), \(3\)]\)/mol."

CalInJoule::usage="CalInJoule ist die Energie in Joule, um 1 Gramm Wasser um 1\[Degree] zu erw\[ADoubleDot]rmen."

(* Oberflaechenspannung, Druecke *)
sigmaWasser::usage = "sigmaWasser[T] liefert die Oberfl\[ADoubleDot]chenspannung des Wassers an der Grenzschicht mit Luft bei der absoluten Temperatur T (N\[ADoubleDot]herungsformel)."

rhoLuft::usage="rhoLuft[p,T] liefert die Dichte der Luft beim Druck p (in Pa) und der Temperatur T (in K).
rhoLuft[p] nimmt eine Temperatur von 20 \[Degree]C an.
rhoLuft[] nimmt Normdruck (101300 Pa) und 20 \[Degree]C an."

(* Exzentrizitaeten und Planetendaten *)
exErde::usage="exErde ist die Exzentrizit\[ADoubleDot]t der Erdbahn."
rhoErde::usage="rhoErde ist die mittlere Dichte der Erde in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albErde::usage="albErde ist die Albedo der Erde."

exMond::usage="exMond ist die Exzentrizit\[ADoubleDot]t der Mondbahn"
rhoMond::usage="rhoMond ist die mittlere Dichte des Mondes in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albMond::usage="albMond ist die Albedo des Mondes."

aMerkur::usage="aMerkur ist die gro\[SZ]e Halbachse des Merkur in m."
exMerkur::usage="exMerkur ist die Exzentrizit\[ADoubleDot]t der Merkurbahn."
rMerkurEq::usage="rMerkurEq ist der \[CapitalADoubleDot]quatorradius des Merkur in m."
mMerkur::usage="mMerkur ist die Masse des Merkur in kg. "
iMerkur::usage="iMerkur ist die Inklination der Merkurbahn in Grad."
rotMerkur::usage="rotMerkur ist die siderische Rotationperiode des Merkur in h."
umMerkur::usage="umMerkur ist die Umlaufzeit des Merkur in mittleren Sonnentagen."
rhoMerkur::usage="rhoMerkur ist die mittlere Dichte des Merkur in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albMerkur::usage="albMerkur ist die Albedo des Merkur."

aVenus::usage="aVenus ist die gro\[SZ]e Halbachse der Venus in m."
exVenus::usage="exVenus ist die Exzentrizit\[ADoubleDot]t der Venusbahn."
rVenusEq::usage="rVenusEq ist der \[CapitalADoubleDot]quatorradius der Venus in m."
mVenus::usage="mVenus ist die Masse der Venus in kg."
iVenus::usage="iVenus ist die Inklination der Venusbahn in Grad."
rotVenus::usage="rotVenus ist die siderische Rotationperiode des Venus in h."
umVenus::usage="umVenus ist die Umlaufzeit der Venus in mittleren Sonnentagen."
rhoVenus::usage="rhoVenus ist die mittlere Dichte der Venus in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albVenus::usage="albVenus ist die Albedo der Venus."

aMars::usage="aMars ist die gro\[SZ]e Halbachse des Mars in m."
exMars::usage="exMars ist die Exzentrizit\[ADoubleDot]t der Marsbahn."
rMarsEq::usage="rMarsEq ist der \[CapitalADoubleDot]quatorradius des Mars in m."
mMars::usage="mMars ist die Masse des Mars in kg." 
iMars::usage="iMars ist die Inklination der Marsbahn in Grad."
rotMars::usage="rotMars ist die siderische Rotationperiode des Mars in h."
umMars::usage="umMars ist die Umlaufzeit des Mars in mittleren Sonnentagen."
rhoMars::usage="rhoMars ist die mittlere Dichte des Mars in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albMars::usage="albMars ist die Albedo des Mars."

aJupiter::usage="aJupiter ist die gro\[SZ]e Halbachse des Jupiter in m."
exJupiter::usage="exJupiter ist die Exzentrizit\[ADoubleDot]t der Jupiterbahn."
rJupiterEq::usage="rJupiterEq ist der \[CapitalADoubleDot]quatorradius des Jupiter in m."
mJupiter::usage="mJupiter ist die Masse des Jupiter in kg." 
iJupiter::usage="iJupiter ist die Inklination der Jupiterbahn in Grad."
rotJupiter::usage="rotJupiter ist die siderische Rotationperiode des Jupiter in h."
umJupiter::usage="umJupiter ist die Umlaufzeit des Jupiter in mittleren Sonnentagen."
rhoJupiter::usage="rhoJupiter ist die mittlere Dichte des Jupiter in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albJupiter::usage="albJupiter ist die Albedo des Jupiter."

aSaturn::usage="aSaturn ist die gro\[SZ]e Halbachse des Saturn in m."
exSaturn::usage="exSaturn ist die Exzentrizit\[ADoubleDot]t der Saturnbahn."
rSaturnEq::usage="rSaturnEq ist der \[CapitalADoubleDot]quatorradius des Saturn in m."
mSaturn::usage="mSaturn ist die Masse des Saturn in kg." 
iSaturn::usage="iSaturn ist die Inklination der Saturnbahn in Grad."
rotSaturn::usage="rotSaturn ist die siderische Rotationperiode des Saturn in h."
umSaturn::usage="umSaturn ist die Umlaufzeit des Saturn in mittleren Sonnentagen."
rhoSaturn::usage="rhoSaturn ist die mittlere Dichte des Saturn in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albSaturn::usage="albSaturn ist die Albedo des Saturn."

aUranus::usage="aUranus ist die gro\[SZ]e Halbachse des Uranus in m."
exUranus::usage="exUranus ist die Exzentrizit\[ADoubleDot]t der Uranusbahn."
rUranusEq::usage="rUranusEq ist der \[CapitalADoubleDot]quatorradius des Uranus in m."
mUranus::usage="mUranus ist die Masse des Uranus in kg. "
iUranus::usage="iUranus ist die Inklination der Uranusbahn in Grad."
rotUranus::usage="rotUranus ist die siderische Rotationperiode des Uranus in h."
umUranus::usage="umUranus ist die Umlaufzeit des Uranus in mittleren Sonnentagen."
rhoUranus::usage="rhoUranus ist die mittlere Dichte des Uranus in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albUranus::usage="albUranus ist die Albedo des Uranus."

aNeptun::usage="aNeptun ist die gro\[SZ]e Halbachse des Neptun in m."
exNeptun::usage="exNeptun ist die Exzentrizit\[ADoubleDot]t der Neptunbahn."
rNeptunEq::usage="rNeptunEq ist der \[CapitalADoubleDot]quatorradius des Neptun in m."
mNeptun::usage="mNeptun ist die Masse des Neptun in kg."
iNeptun::usage="iNeptun ist die Inklination der Neptunbahn in Grad."
rotNeptun::usage="rotNeptun ist die siderische Rotationperiode des Neptun in h."
umNeptun::usage="umNeptun ist die Umlaufzeit des Neptun in mittleren Sonnentagen."
rhoNeptun::usage="rhoNeptun ist die mittlere Dichte des Neptun in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albNeptun::usage="albNeptun ist die Albedo des Neptun."

aPluto::usage="aPluto ist die gro\[SZ]e Halbachse des Pluto in m."
exPluto::usage="exPluto ist die Exzentrizit\[ADoubleDot]t der Plutobahn."
rPlutoEq::usage="rPlutoEq ist der \[CapitalADoubleDot]quatorradius des Pluto in m."
mPluto::usage="mPluto ist die Masse des Pluto in kg. "
iPluto::usage="iPluto ist die Inklination der Plutobahn in Grad."
rotPluto::usage="rotPluto ist die siderische Rotationperiode des Pluto in h."
umPluto::usage="umPluto ist die Umlaufzeit des Pluto in mittleren Sonnentagen."
rhoPluto::usage="rhoPluto ist die mittlere Dichte des Pluto in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albPluto::usage="albPluto ist die Albedo des Pluto."

aCeres::usage="aCeres ist die gro\[SZ]e Halbachse des Ceres in m."
exCeres::usage="exCeres ist die Exzentrizit\[ADoubleDot]t der Ceresbahn."
rCeresEq::usage="rCeresEq ist der \[CapitalADoubleDot]quatorradius des Ceres in m."
mCeres::usage="mCeres ist die Masse des Ceres in kg. "
iCeres::usage="iCeres ist die Inklination der Ceresbahn in Grad."
rotCeres::usage="rotCeres ist die siderische Rotationperiode des Ceres in h."
umCeres::usage="umCeres ist die Umlaufzeit des Ceres in mittleren Sonnentagen."
rhoCeres::usage="rhoCeres ist die mittlere Dichte des Ceres in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"
albCeres::usage="albCeres ist die Albedo des Ceres."


(* Massen *)

uMasseneinheit::usage="uMasseneinheit ist die atomare Masseneinheit in kg."

mElektron::usage="mElektron ist die Elektronenmasse in kg."

mNeutron::usage="mNeutron ist die Neutronenmasse in kg."

mProton::usage="mProton ist die Protonenmasse in kg."

mAlpha::usage="mAlpha ist die Masse eines \[Alpha]\[Dash]Teilchens in kg."

(* Entfernungen *)

AEInMeter::usage="AEInMeter ist die Astronomische Einheit in m. (*PhC*)"

ParsecInMeter::usage="ParsecInMeter ist die L\[ADoubleDot]nge eines Parsec in m. (*PhC*)"

ParsecInAE::usage="ParsecInAE ist die L\[ADoubleDot]nge eines Parsec in astronomischen Einheiten. (*PhC*)"

LJInMeter::usage="LJInMeter ist die L\[ADoubleDot]nge eines Lichtjahres in m. (*PhC*)"

LJInAE::usage="LJInAE ist die Länge eines Lichtjahres in astronomischen Einheiten."

LJInParsec::usage="LJInParsec ist die L\[ADoubleDot]nge eines Lichtjahres in pc. (*PhC*)"

(* Sonnendaten *)

mSonne::usage="mSonne ist die Sonnenmasse in kg."

rSonne::usage="rSonne ist der mittlere Radius der Sonne in m."

LSonne::usage="LSonne ist die Leuchtkraft der Sonne in W."

TeffSonne::usage="TeffSonne ist die effektive Temperatur der Sonne in K."

rhoSonne::usage="rhoSonne ist die mittlere Dichte der Sonne in g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)"

magVSonne::usage="magVSonne ist die scheinbare visuelle Helligkeit der Sonne in mag."

MagBolSonne::usage="MagBolSonne ist die absolute bolomentrische Helligkeit der Sonne in mag."

magBolSonne::usage="magBolSonne ist die scheinbare bolometrische Helligkeit der Sonne in mag."

MagVSonne::usage="MagVSonne ist die absolute visuelle Helligkeit der Sonne in mag."

magBCSonne::usage="magBCSonne ist die bolometrische Korrektur der Sonne in mag."

magUSonne::usage="magUSonne ist die scheinbare U\[Dash]Helligkeit der Sonne in mag."

MagUSonne::usage="MagUSonne ist die absolute U\[Dash]Helligkeit der Sonne in mag."

magBSonne::usage="magBSonne ist die scheinbare B\[Dash]Helligkeit der Sonne in mag."

MagBSonne::usage="MagBSonne ist die absolute B\[Dash]Helligkeit der Sonne in mag."

magBVSonne::usage="magBVSonne ist der Farbindex B-V der Sonne in mag."

magUBSonne::usage="magUBSonne ist der Farbindex U-B der Sonne in mag."

magVMond::usage="magVMond ist die mittlere visuelle Helligkeit des Vollmonds in mag."

gSonne::usage="gSonne ist die Fallbeschleunigung auf der Sonnenoberfl\[ADoubleDot]che in m/\!\(\*SuperscriptBox[\(s\), \(2\)]\)."

(* Erddaten *)

mErde::usage="mErde ist die Erdmasse in kg."

rErde::usage="rErde ist der mittlere Radius der Erde in m."

rErdeEq::usage="rErdeEq ist der \[CapitalADoubleDot]quatorradius der Erde in m."

rErdePol::usage="rErdePol ist der Polradius der Erde in m."

gErde::usage="gErde ist die mittlere Fallbeschleunigung der Erde in m/\!\(\*SuperscriptBox[\(s\), \(2\)]\)."

epsEkliptik::usage="epsEkliptik ist die Schiefe der Ekliptik im Jahr 2000 in Grad. (*PhC*)"

(* Monddaten *)
aMond::usage="aMond ist die gro\[SZ]e Halbachse der Mondbahn in m."

aMinMond::usage="aMinMond ist der Perig\[ADoubleDot]umsabstand der Mondbahn in m."

aMaxMond::usage="aMaxMond ist der Apog\[ADoubleDot]umsabstand der Monbahn in m."

mMond::usage="mMond ist die Mondmasse in kg."

rMond::usage="rMond ist der mittlere Radius des Mondes in m."

gMond::usage="gMond ist die mittlere Fallbeschleunigung auf der Mondoberfl\[ADoubleDot]che in m/\!\(\*SuperscriptBox[\(s\), \(2\)]\)."

(* Zeiten *)

TagSidInSek::usage="TagSidInSek ist die L\[ADoubleDot]nge eines siderischen Tags in Sek."

TagSonneInSek::usage="TagSonneInSek ist die L\[ADoubleDot]nge eines mittleren Sonnentages in Sek."

MonatSidInTag::usage="MonatSidInTag ist die L\[ADoubleDot]nge des siderischen Monats in mittleren Sonnentagen."

MonatSynInTag::usage="MonatSynInTag ist die L\[ADoubleDot]nge eines synodischen Monats in mittleren Sonnentagen."

MonatTropInTag::usage="MonatTropInTag ist die L\[ADoubleDot]nge eines tropischen Monats in mittleren Sonnentagen."

MonatDrakInTag::usage="MonatDrakInTag ist die L\[ADoubleDot]nge des drakonitischen Monats (Knoten bis Knoten) in mittleren Sonnentagen."

MonatAnomInTag::usage="MonatAnomInTag ist die L\[ADoubleDot]nge des anomalistischen Monats (Perig\[ADoubleDot]um bis Perig\[ADoubleDot]um) in mittleren Sonnentagen."

JahrAnomInTag::usage="JahrAnomInTag ist die L\[ADoubleDot]nge des anomalistischen Jahres (Perihel bis Perihel) in mittleren Sonnentagen."

JahrSidInSek::usage="JahrSidInSek ist die L\[ADoubleDot]nge des siderischen Jahres in Sek."

JahrSidInTag::usage="JahrSidInTag ist die L\[ADoubleDot]nge des siderischen Jahres in mittleren Sonnentagen."

JahrTropInTag::usage="JahrTropInTag ist die L\[ADoubleDot]nge des tropischen Jahres in mittleren Sonnentagen."

JahrTropInSek::usage="JahrTropInSek ist die L\[ADoubleDot]nge des tropischen Jahres in Sek."

JahrGregInTag::usage="JahrGregInTag ist die L\[ADoubleDot]nge des gregorianischen Jahres in mittleren Sonnentagen."

JahrGregInSek::usage="JahrGregInSek ist die L\[ADoubleDot]nge des gregorianischen Jahres in Sek."

(* Umrechnungen *)
BeaufortFaktor::usage="BeaufortFaktor ist der Umrechnungsfaktor f in km/h aus der Gleichung v=f\[CenterDot]\!\(\*SuperscriptBox[\(B\), \(3/2\)]\), wo v die Windgeschwindigkeit und B die Windst\[ADoubleDot]rke in Beaufort ist." 

(* aus PhysicalConstants` *)     
     
rBohr::usage="rBohr ist der Bohrradius \!\(\*FractionBox[\(4\\ \[Pi]\\ \*SubscriptBox[\(\[CurlyEpsilon]\), \
\(0\)]\), \(\*SubscriptBox[\(m\), \(e\)]\\ \*SuperscriptBox[\(e\), \
\(2\)]\)]\) in m. (*PhC*)"

MMBohr::usage="MMBohr ist das Bohrsche Magneton  \!\(\*FractionBox[\(e\[HBar]\), \(2 \*SubscriptBox[\(m\), \(e\)]\)]\) in J/T. (*PhC*)"

MWBTemperatur::usage="MWBTemperatur ist die Temperatur der kosmischen Hintergrundstrahlung (MicroWave Background) in K. (*PhC*)"

rElektron::usage="rElektron ist der klassische Elektronenradius \!\(\*FractionBox[SuperscriptBox[\(e\), \(2\)], \(4  \[Pi]\\ \
\*SubscriptBox[\(\[CurlyEpsilon]\), \(o\)]\\ \*SubscriptBox[\(m\), \
\(e\)]\\ \*SuperscriptBox[\(c\), \(2\)]\)]\) in m. (*PhC*)"

MMDeuteron::usage="MMDeuteron ist das magnetische Moment des Deuterons in J/T. (*PhC*)"

mDeuteron::usage="mDeuteron ist die Masse des Deuterons in kg. (*PhC*)"

gyrFaktElektron::usage="gyrFaktElektron ist der gyromagnetische Faktor des Elektrons, der angibt wieviel mal st\[ADoubleDot]rker sich der Spin auf die Energie auswirkt als ein gleich gro\[SZ]er Bahndrehimpuls. (*PhC*)"

gyrFaktMyon::usage="gyrFaktMyon ist der gyromagnetische Faktor des Myons, der angibt wieviel mal st\[ADoubleDot]rker sich der Spin auf die Energie auswirkt als ein gleich gro\[SZ]er Bahndrehimpuls. (*PhC*)"

MMElektron::usage="MMElektron ist das magnetische Moment des Elektrons in J/T. Es ist das negative des Bohrschen Magnetons. (*PhC*)"

MMMyon::usage="MMMyon ist das magnetische Moment des Myons in J/T. (*PhC*)"

MMNeutron::usage="MMNeutron ist das magnetische Moment des Neutrons in J/T. (*PhC*)"

MMProton::usage="MMProton ist das magnetische Moment des Protons in J/T. (*PhC*)"

FaradayKonst::usage="FaradayKonst ist die Faraday\[Dash]Konstante Q/n=\!\(\*SubscriptBox[\(N\), \(A\)]\)e in C/mol. Das ist die Ladung pro Mol einfach geladener Ionen bei der Elektrolyse. (*PhC*)"

HubbleKonst::usage="HubbleKonst ist die Hubble\[Dash]Konstante \!\(\*SubscriptBox[\(H\), \(0\)]\) in km/s pro Mpc.
Beachte, dass dieser Wert in der Literatur stark schwankt.
Durch Division mit (1000\[CenterDot]ParsecInMeter) bekommt man ihren Wert in 1/sec. Der Kehrwert des letzteren Wertes ist die Hubble\[Dash]Zeit, die dem Alter des Universums entspricht. (*PhC*)"

mMyon::usage="mMyon ist die Masse des Myons in kg. (*PhC*)"

Planckm::usage="Planckm ist die Planck\[Dash]Masse \!\(\*SqrtBox[FractionBox[\(\[HBar]\\ c\), \(G\)]]\) in kg. (*PhC*)"

SolarKonst::usage="SolarKonst ist die Solarkonstante in W/\!\(\*SuperscriptBox[\(m\), \(2\)]\). (*PhC*)"

rssSonne::usage="rssSonne ist der Schwarzschildradius der Sonne in m."

rssErde::usage="rssErde ist der Schwarzschildradius der Erde in m."

Planckt::usage="Planckt ist die Planck\[Dash]Zeit \!\(\*SqrtBox[FractionBox[\(\[HBar]\\ G\), SuperscriptBox[\(c\), \
\(5\)]]]\) in Sek. (*PhC*)"

Planckl::usage="Planckl ist die Planck\[Dash]L\[ADoubleDot]nge \!\(\*SqrtBox[FractionBox[\(\[HBar]\\ G\), SuperscriptBox[\(c\), \
\(3\)]]]\) in m. (*PhC*)"

Planckq::usage="Planckq ist die Planck\[Dash]Ladung \!\(\*SqrtBox[\(4  \[Pi]\\ \*SubscriptBox[\(\[CurlyEpsilon]\), \(o\)]\
\\ \[HBar]\\ c\)]\) in C. (*PhC*)"

PlanckT::usage="PlanckT ist die Planck\[Dash]Temperatur \!\(\*SqrtBox[FractionBox[\(\[HBar]\\ \*SuperscriptBox[\(c\), \
\(5\)]\), \(G\\ \*SuperscriptBox[\(k\), \(2\)]\)]]\) in K. (*PhC*)"

Begin["`Private`"]

(* === Funktionen === *)

ZeigeKonst:=Manipulate[
  Column[{
    Framed[Row[{Style[ToExpression[f <> "::usage"], "MSG"]}], 
    Background -> LightYellow, FrameStyle -> Orange],
    Spacer[5], 
	If[NumericQ[Evaluate[ToExpression@f]],
      Row[{Evaluate@f, " = ",
        NumberForm[Evaluate[ToExpression@f], 18,
        DigitBlock->3,ExponentStep->3,NumberSeparator->"\[ThinSpace]"]}],
      Row[{Evaluate@f," ist eine Funktion."}]]
  }], 
  {{f,  "brfKonstOverview", ""}, b}, 
   Initialization :> {a = Drop[Union[CharacterRange["A", "z"]], {1, 6}];
   b = DeleteCases[Flatten[Names["brfKonst`" <> # <> "*"] & /@ a, Infinity],
           "ZeigeKonst"];}         
]

SyntaxInformation[BlackBodyNy]={"ArgumentsPattern"->{_,_,{_,_,_}}};
BlackBodyNy[\[Nu]_,T_,{c_,h_,k_}]:=
  (2 h \[Nu]^3)/c^2*1/(Exp[(h \[Nu])/(k T)]-1);  

SyntaxInformation[BlackBodyLambda]={"ArgumentsPattern"->{_,_,{_,_,_}}};
BlackBodyLambda[\[Lambda]_,T_,{c_,h_,k_}]:=
  (2 h c^2)/\[Lambda]^5*1/(Exp[(h c)/(k T \[Lambda])]-1); 

BlackBodyRule[c_,h_,k_]:={h->hPlanck,c->cLicht,k->kBoltzmann};

SyntaxInformation[BolomKorr]={"ArgumentsPattern"->{_}};
BolomKorr[x_]:=1.50x^4-5.07x^3+7.36x^2-4.16x+0.78;

SetAttributes[{BlackBodyNy,BlackBodyLambda,BlackBodyRule,BolomKorr},
  ReadProtected]

SyntaxInformation[GradCInGradK]={"ArgumentsPattern"->{_}};
GradCInGradK[x_]:=x+273.15;
SyntaxInformation[GradKInGradC]={"ArgumentsPattern"->{_}};
GradKInGradC[x_]:=x-273.15;
SyntaxInformation[GradCInGradF]={"ArgumentsPattern"->{_}};
GradCInGradF[x_]:=9x/5+32.;
SyntaxInformation[GradFInGradC]={"ArgumentsPattern"->{_}};
GradFInGradC[x_]:=5/9(x-32.);  

SyntaxInformation[sigmaWasser]={"ArgumentsPattern"->{_}};
sigmaWasser[T_] := 0.007275 (1 - 0.002 (T - 291));

SyntaxInformation[FarbindexToTeff]={"ArgumentsPattern"->{_}};
FarbindexToTeff[x_]:=
Module[{theta, alpha},
 {theta, alpha} = Which[
                 x <= -0.15 < 0, {3.9, -1.43},
              -0.15 <= x < 0.13, {4, -0.69},
                       x >=0.13, {3.96, -0.33}];
 10^(theta + alpha x)
];

SyntaxInformation[rhoLuft]={"ArgumentsPattern"->{_,_.,_.}};
rhoLuft[p_:101300,T_:293.15]:=p/(287.058 T);

SyntaxInformation[JulianDayNummer]={"ArgumentsPattern"->{{_,_,_,_.,_.,_.}}};

JulianDayNummer[{yy_, mm_, dd_, h_: 0, min_: 0, sec_: 0}] :=
Module[{A, B, y = yy, m = mm, d},
  d = dd + h/24 + min/1440 + sec/86400;
  A = 10000 y + 100 m + d;
  If[m <= 2, m += 12; y -= 1];
  If[A <= 15821004.1,
   B = -2 + IntegerPart[(y + 4716)/4] - 1179,
   B = IntegerPart[y/400] - IntegerPart[y/100] + IntegerPart[y/4]];
  A = 365 y - 679004;
  A + B + IntegerPart[30.6001 (m + 1)] + d + 2400000.5
];

SyntaxInformation[FromJulianDayNummer]={"ArgumentsPattern"->{_}};
FromJulianDayNummer[JD_] :=
Module[{jd = JD + 0.5, A, Z, F, a, bB, cC, dD, eE, y, m, d},
  Z = IntegerPart[jd]; F = FractionalPart[jd];
  If[Z < 2299161, A = Z,
   a = IntegerPart[(Z - 1867216.25)/36524.25];
   A = Z + 1 + a - IntegerPart[a/4]];
  bB = A + 1524;
  cC = IntegerPart[(bB - 122.1)/365.25];
  dD = IntegerPart[365.25 cC];
  eE = IntegerPart[(bB - dD)/30.6001];
  d = bB - dD - IntegerPart[30.6001 eE] + F;
  m = If[eE < 14, eE - 1, eE - 13];
  y = If[m > 2, cC - 4716, cC - 4715];
  {y, m, d}
];

(* === Konstanten ==== *)

(* aus PhysicalConstants` geholt: *)     

PlanckT=1.41679*^32;
Planckq=1.8755459*^-18;
Planckl=1.61624*^-35;
Planckt=5.39121*^-44;
Planckm=2.17644*^-8;
rBohr=0.52917720859*^-10;
MMBohr=9.2740154*^-24;
MWBTemperatur=2.726;
rElektron=2.8179402894*^-15;
MMDeuteron=0.433073465*^-26;
MMMyon=-4.49044786*^-26;
MMNeutron=-0.96623641*^-26;
MMProton=1.410606662*^-26;
mDeuteron=3.34358320*^-27;
gyrFaktElektron=-2.0023193043622;
gyrFaktMyon=-2.0023318414;
MMElektron=-982.476377*^-26;
FaradayKonst=96485.3399;
mMyon=1.88353130*^-28;
SolarKonst=1.3661*^3;

(* Astronomisches *)

AEInMeter=1.49597870691*^11;   
ParsecInMeter=3.085677581*^16; 
ParsecInAE=206264.806;         
LJInMeter=9.4607304725808*^15;   
LJInParsec=0.3066014;
LJInAE=63241.07708;
epsEkliptik=23+26/60+21.448/3600;
HubbleKonst=75.;

mSonne=1.9891*^30;           
rSonne=6.95997*^8;           
LSonne=3.846*^26;            
TeffSonne=5778.;                
magVSonne=-26.78;
MagVSonne=4.79;             
magUSonne=-26.06;
MagUSonne=5.51;
magBSonne=-26.16;
MagBSonne=5.41;
magUBSonne=0.1;
magBVSonne=0.62;
magBolSonne=-26.85;
MagBolSonne=4.72;                
magBCSonne=0.07;                  
magVMond=-12.5;
gSonne=274.0;                  
rssSonne=2954.27;

mErde=5.9736*^24;            
rErdeEq=6.378136*^6;         
rErdePol=6.356753*^6;        
rErde=(rErdeEq+rErdePol)/2;    
gErde=9.80665;
rssErde=0.00887305;

TagSidInSek=86164.099;
TagSonneInSek=86400.;

JahrGregInTag=365.0+1/4-1/100+1/400;
JahrGregInSek=JahrGregInTag*TagSonneInSek;
JahrSidInSek=3.155815*^7;
JahrSidInTag=365.25636;     
JahrTropInTag=365.2421897;
JahrTropInSek=86400*JahrTropInTag;
JahrAnomInTag=365.25964;

MonatAnomInTag=27.55455;
MonatSidInTag =27.32166;      
MonatTropInTag=27.32158;
MonatDrakInTag=27.21222;
MonatSynInTag =29.53059;
aMond=384400000.;
aMinMond=363300000.;
aMaxMond=405500000.;
mMond=7.349*^22;
rMond=1.738*^6;
gMond=1.62;
exErde=0.016656;
exMond=0.0549;
rhoErde=5.5;
albErde=0.39;
rhoMond=3.345;
albMond=0.1;

rhoSonne=1.408;

aMerkur=57.909*^9;
exMerkur=0.20564;
mMerkur=0.3302*^24;
rMerkurEq=2.4397*^6;
iMerkur=7.00+16/3600;
rotMerkur=58*24+15+36./60;
umMerkur=87.969;
rhoMerkur=5.42;
albMerkur=0.1;

aVenus=1.08209*^11;
exVenus=0.00679;
mVenus=48690.*^24;
rVenusEq=6.051800*^6;
iVenus=3.39;
rotVenus=243*24+3+50./60;
umVenus=224.7;
rhoVenus=5.240;
albVenus=0.65;

aMars=227.937*^9;
exMars=0.09341;
mMars=0.64141*^24;
rMarsEq=3.397*^6;
iMars=1.85;
rotMars=24+37/60+22.6/3600;
umMars=686.98;
rhoMars=3.84;
albMars=0.15;

aJupiter=778.412*^9;
exJupiter=0.04892;
mJupiter=1898.6*^24;
rJupiterEq=71.492*^6;
iJupiter=1.31;
rotJupiter=9+55/60+30./3600;
umJupiter=4332.71;
rhoJupiter=1.314;
albJupiter=0.52;

aSaturn=1.426755*^12;
exSaturn=0.05772;
mSaturn=568.5*^24;
rSaturnEq=60.268*^6;
iSaturn=2.49;
rotSaturn=10+40/60+24./3600;
umSaturn=10759.5;
rhoSaturn=0.7;
albSaturn=0.76;

aUranus=2.870972*^12;
exUranus=0.04897;
rUranusEq=25.559*^6;
mUranus=86624.*^24;
iUranus=0.77;
rotUranus=15+26./60;
umUranus=30685.0;
rhoUranus=1.3;
albUranus=0.51;

aNeptun=4.498253*^12;
exNeptun=0.0106;
rNeptunEq=24.764*^6;
mNeptun=102.97*^24;
iNeptun=1.77;
rotNeptun=16+3./60;
umNeptun=60190.0;
rhoNeptun=1.66;
albNeptun=0.35;

aPluto=5.906376*^12;
exPluto=0.2469;
rPlutoEq=1.195*^6;
mPluto=0.014*^24;
iPluto=17.2;
rotPluto=6*24+9+22./60;
umPluto=90550.0;
rhoPluto=2.0;
albPluto=0.4;

aCeres=423.94*^9;
exCeres=0.08;
rCeresEq=1050000.;
mCeres=9.445*^20;
iCeres=10.586;
rotCeres=0.38*24;
umCeres=1682.;
rhoCeres=2.077;
albCeres=0.11;

(* Sonstige *)
cLicht=299792458.;                          
myNull=Pi*4.0*^-7;             
epsNull=1/(cLicht^2 myNull); 
hPlanck=6.62606896*^-34;     
hqPlanck=hPlanck/(2Pi);
lambdaCElektron=2.4263102175*^-12;
lambdaCProton=1.3214098445*^-15;
lambdaCNeutron=1.3195908951*^-15;
RydbergKonst=10973731.568527;
GKonst=6.67428*^-11;        
eLadung=1.602176487*^-19;   
alphaFS=eLadung^2/(2 cLicht*EpsNull*hPlanck);

BeaufortFaktor=3.01;
Tripelpunkt=273.16;
JulianNummerModified=2400000.5;

sigmaBoltzmann=5.670400*^-8;
aBoltzmann=(4 sigmaBoltzmann)/cLicht;
kWien=2.8977685*^-3;      

RGasKonst=8.314472;       
kBoltzmann=1.3806504*^-23;
NAvogadro=6.02214179*^23; 
molVolumen=0.022413996;
CalInJoule=4.186;

uMasseneinheit=1.660538782*^-27; 
mElektron=9.10938215*^-31;       
mProton=1.672621637*^-27;        
mNeutron=1.674927211*^-27;       
mAlpha=6.64465620*^-27;  


End[]

SetAttributes[#, ReadProtected] & /@
 ToExpression[Names[Context[] <> "*"],InputForm,Unevaluated];
 
Protect[Evaluate[Context[]<>"*"]];

EndPackage[]