From 5cfffdd8d8efe01493d3449c80c2818a72921664 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 16 Aug 2017 15:30:27 +0200 Subject: tHintergrundAbzugsArt neu --- werteunit.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'werteunit.pas') diff --git a/werteunit.pas b/werteunit.pas index a34b5f5..8988460 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -70,7 +70,7 @@ type procedure integriereDouble(qu: pTLLWerteDouble; xMi,xMa,tMi,tMa,xOf,tOf: longint; richtung: tIntegrationsRichtung); procedure integriereExtended(qu: pTLLWerteDouble; xMi,xMa,tMi,tMa,xOf,tOf: longint; richtung: tIntegrationsRichtung); procedure gauszFit(amplituden,breiten,positionen,ueberlappe,hintergruende: pTLLWerteExtended; von,bis: longint; senkrecht: boolean; fensterBreite,maxBreite,maxVerschiebung: extended; positionsMitten: tExtendedArray); - function ermittleHintergrund: extended; + function ermittleRandDurchschnitt: extended; procedure kantenFilter(betraege: tLLWerte; xFak,yFak: extended; filterTyp: tKantenFilterTyp); overload; procedure kantenFilter(betraege: tLLWerte; xFak,yFak: extended; filterTyp: tKantenFilterTyp; einseitig: boolean; out maxPos: tIntPoint); overload; procedure fenstereWerte(xMi,xMa,tMi,tMa: int64; xFen,tFen: tFenster; hg: extended); @@ -1938,7 +1938,7 @@ begin end; end; -function tLLWerte.ermittleHintergrund: extended; +function tLLWerte.ermittleRandDurchschnitt: extended; var i: int64; begin @@ -1970,7 +1970,7 @@ var istVollKomplex: byte; // 1=nein, 2=ja schiebung: tIntPoint; begin - istVollKomplex:=(params.tSiz div betraege.params.tSiz); + istVollKomplex:=params.tSiz div betraege.params.tSiz; if (betraege.params.tSiz*istVollKomplex <> params.tSiz) or (betraege.params.xSteps <> params.xSteps) or (not (istVollKomplex in [1,2])) then -- cgit v1.2.3-70-g09d2