Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 17
Val (Einlesen.Strings[zeile],DIntensM,Erfolg);
Kosinus:=cos(PI*(45-DWinkel)/180);
WegPap:=DPappe/Kosinus;
WegKap:=DKapton/Kosinus;
WegAus:=DAusen/Kosinus;
WegIn:=2*Radius*Kosinus-WegAus;
DIntensK:=Round(DIntensM*exp(MI*WegIn+ML*WegAus+MP*WegPap+
MK*WegKap));
Spaces:='';
Inc(ILauf);
if zeile < einlesen.count then Inc(Zeile);
if Binning then begin
if zeile < einlesen.count then begin
Val (Einlesen.Strings[zeile],DIntensM,Erfolg);
Kosinus:=cos(PI*(45-DWinkel-DScanStep)/180);
WegPap:=DPappe/Kosinus;
WegKap:=DKapton/Kosinus;
WegAus:=DAusen/Kosinus;
WegIn:=2*Radius*Kosinus-WegAus;
DIntensK:=DIntensK+Round(DIntensM*exp(MI*WegIn+ML*WegAus+
MP*WegPap+MK*WegKap));
Inc(ILauf);
end
else
DIntensK:=2*DIntensK;
if zeile < einlesen.count then Inc(Zeile);
end;
Schreiben.Add(FloatToStrF(DWinkel,ffFixed,6,4) + ' ' + IntToStr(DintensK));
until zeile > einlesen.count - 1;
// Korriegierte Meßwerte wieder in eine Datei schreiben
Schreiben.SaveToFile(Zielname.Text);
Einlesen.Clear;
Schreiben.Clear;
end;