Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de

A Quelltexte der C++-Programm 135
term1 = FAKTOR/sqrt(PI);
/*FEHLERTEST*/
FehlerBehandlung.IstGroesser(term1, MAX, "Formel 2:
Term 1", i, j, k, l);
term2 = pow((alphaI * alphaJ * alphaK *
alphaL/pow((sum/4.0),2)),(5.0/4.0));
/*FEHLERTEST*/
FehlerBehandlung.IstGroesser(term2, MAX, "Formel 2:
Term 2", i, j, k, l);
term3=-(alphaI * alphaK * rik2/(alphaI + alphaK)
+ alphaJ * alphaL * rjl2/(alphaJ + alphaL));
// exp(term1)=0..1
/*FEHLERTEST*/
FehlerBehandlung.IstGroesser(term3, MAX, "Formel 2:
Term 3", i, j, k, l);
term3=exp(term3);
/*FEHLERTEST*/
FehlerBehandlung.NichtImBereich(term3, 0, 1, "Formel 2:
exp(..)", i, j, k, l);
term4=-16.0/15.0 * (1.0/(alphaI + alphaK) + 1.0/
(alphaJ + alphaL)); //0
/*FEHLERTEST*/
FehlerBehandlung.IstGroesser(term5, MAX, "Formel 2:
Term 5", i, j, k, l);
FehlerBehandlung.Ausloeschung(-term4, term5, "Formel 2:
Term 4 + Term 5", i, j, k, l);
return term1 * term2 * term3 * (term4 + term5);
} //Formel2
/*********************************************************/
double RBetragQuadrat( GtoParameter * Gto, USHORT i, USHORT
k)
//return (Betrag des Abstandsvektors (ri-rk)^2)
{
double result;
Fehler FehlerBehandlung;
/*FEHLERTEST*/
FehlerBehandlung.Ausloeschung(Gto[i].X(), Gto[k].X(),