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

138
A Quelltexte der C++-Programme
Vektors RGammaDelta", i, j, k, l);
return result;
} //RGammaDelta
/*********************************************************/
void R(GtoParameter * Gto, double *R, USHORT i, USHORT k)
//berechnet R[3] = RGamma[3] bzw RDelta[3]
{
USHORT count;
char taste;
Fehler FehlerBehandlung;
/*FEHLERTEST*/
FehlerBehandlung.Ausloeschung(Gto[i].Alpha()*Gto[i].X(),
-Gto[k].Alpha()*Gto[k].X(),
"R: rGamma bzw. rDelta, x-Komponente", i, i, k, k);
FehlerBehandlung.Ausloeschung(Gto[i].Alpha()*Gto[i].Y(),
-Gto[k].Alpha()*Gto[k].Y(),
"R: rGamma bzw. rDelta, y-Komponente", i, i, k, k);
//z-Komponenten immer gleich Null
R[0] = (1.0/(Gto[i].Alpha() + Gto[k].Alpha()))
* (Gto[i].Alpha() * Gto[i].X() + Gto[k].Alpha() *
Gto[k].X());
R[1] = 1.0/(Gto[i].Alpha() + Gto[k].Alpha())
* (Gto[i].Alpha() * Gto[i].Y() + Gto[k].Alpha() *
Gto[k].Y());
R[2] = 0.0;
/*FEHLERTEST*/
for (count = 0; count < 3; count++)
FehlerBehandlung.IstGroesser(R[count], MAX, "R:
Komponente von rGamma bzw. rDelta", i, i, k, k);
} //R
/*********************************************************/
double Omega(GtoParameter * Gto, USHORT i, USHORT j, USHORT
k, USHORT l)
//return omega
{
double result = 0.0;
Fehler FehlerBehandlung;