Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de
Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de
Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
A Quelltexte <strong>de</strong>r C++-Programm 133<br />
/*FEHLERTEST*/<br />
FehlerBehandlung.IstGroesser(term1, MAX, "Formel 1: Term<br />
1", i, j, k, l);<br />
term2 = pow(<br />
(alphaI*alphaJ*alphaK*alphaL/(pow(((alphaI+alphaK)/2.0), 2)<br />
*pow(((alphaJ+alphaL)/2.0), 2))), (5.0/4.0) );<br />
/*FEHLERTEST*/<br />
FehlerBehandlung.IstGroesser(term2, MAX, "Formel 1: Term<br />
2", i, j, k, l);<br />
//Begin term3<br />
term3 = -(alphaI * alphaK * rik2/(alphaI + alphaK)<br />
+ alphaJ * alphaL * rjl2/(alphaJ + alphaL));<br />
// exp(term3)=0..1<br />
/*FEHLERTEST*/<br />
FehlerBehandlung.IstGroesser(term3, MAX, "Formel 1: Term<br />
in exp", i, j, k, l);<br />
term3 = exp(term3);<br />
/*FEHLERTEST*/<br />
FehlerBehandlung.NichtImBereich(term3, 0, 1, "Formel 1:<br />
exp(..)", i, j, k, l);<br />
//En<strong>de</strong> term3<br />
//Beginn term4<br />
a = -1.0; //0<br />
c = a + b; //>0 o<strong>de</strong>r