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

134
A Quelltexte der C++-Programme
a + b", i, j, k, l);
FehlerBehandlung.Ausloeschung(c,-d, "Formel 1: Term 5,
c + d", i, j, k, l);
b = (a + b) * r0; //>0 oder 0 oder 0
d = 225.0 * omega/(2.0 * pow(r0,3)); //>0
/*FEHLERTEST*/
FehlerBehandlung.Ausloeschung(a,-b, "Formel 1: Term 5,
a + b", i, j, k, l);
FehlerBehandlung.Ausloeschung(-c,d, "Formel 1: Term 5,
c + d", i, j, k, l);
a = a + b; //=0
b = c + d; //=0
/*FEHLERTEST*/
FehlerBehandlung.Ausloeschung(a,-b, "Formel 1: term 5,
a + b", i, j, k, l);
term5 = qr0*(a + b);
/*FEHLERTEST*/
FehlerBehandlung.IstGroesser(term5, MAX, "Formel 1:
Term 5 (Q(r0)", i, j, k, l);
//Ende term5
/*FEHLERTEST*/
FehlerBehandlung.Ausloeschung(term4,-term5, "Formel 1:
Term 4 + Term 5", i, j, k, l);
return term1 * term2 * term3 * (term4 + term5);
} //Formel1
/**********************************************************/
double Formel2( GtoParameter * Gto, double rik2, double
rjl2, USHORT i, USHORT j, USHORT k, USHORT l)
{
double alphaI, alphaJ, alphaK, alphaL, sum;
double term1, term2, term3, term4, term5;
//Zwischenergebnisse
Fehler FehlerBehandlung;
alphaI = Gto[i].Alpha();
alphaJ = Gto[j].Alpha();
alphaK = Gto[k].Alpha();
alphaL = Gto[l].Alpha();
sum = alphaI + alphaJ + alphaK + alphaL;