From bc305ea1009fdecd3780b4e9c6e903740c0a80e2 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 28 Aug 2014 16:49:14 +0200 Subject: wieder lauffähig MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- werteunit.pas | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'werteunit.pas') diff --git a/werteunit.pas b/werteunit.pas index c790c19..b6ea916 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -30,8 +30,8 @@ type procedure kopiereVon(st: boolean; original: pTLLWerteDouble; xmin,xmax: longint); overload; procedure kopiereVon(st: boolean; original: pTLLWerteSingle; xmin,xmax,tmin,tmax: longint); overload; procedure kopiereVon(st: boolean; original: pTLLWerteDouble; xmin,xmax,tmin,tmax: longint); overload; - procedure kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen); overload; - procedure kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen); overload; + procedure kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen); overload; + procedure kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen); overload; destructor destroy; override; function liesDateien(dateien: tGenerischeInputDateiInfoArray): boolean; function fft(senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; const fen: tFenster; out pvFehler: extended): boolean; overload; @@ -161,7 +161,7 @@ begin end; end; -procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen); +procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteSingle; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen); var i,j,k,l: longint; tmp: extended; begin @@ -177,7 +177,7 @@ begin if (vb.count>0) or (nb.count>0) then tmp:=(tmp-original^.params^.minW)/(original^.params^.maxW-original^.params^.minW); for l:=0 to vb.count-1 do - vb[l].anwenden(tmp); + vb[l].transformiereWert(tmp); tmp:=tmp * (ZGs[i].x * (2*j-1) + 1-j) * (ZGs[i].y * (2*k-1) + 1-k); werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps]:= werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps] + @@ -187,12 +187,12 @@ begin for j:=xmin to xmax do begin tmp:=werte[j + i*params^.xsteps] / ZAs[j + i*params^.xsteps]; for k:=0 to nb.count-1 do - nb[k].anwenden(tmp); + nb[k].transformiereWert(tmp); werte[j + i*params^.xsteps]:=tmp; end; end; -procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tBearbeitungen); +procedure tLLWerte.kopiereVerzerrt(original: pTLLWerteDouble; ZPs: tPointArray; ZGs: tExtPointArray; ZAs: tExtendedArray; xmin,xmax,tmin,tmax: longint; vb,nb: tTransformationen); var i,j,k,l: longint; tmp: extended; begin @@ -208,7 +208,7 @@ begin if (vb.count>0) or (nb.count>0) then tmp:=(tmp-original^.params^.minW)/(original^.params^.maxW-original^.params^.minW); for l:=0 to vb.count-1 do - vb[l].anwenden(tmp); + vb[l].transformiereWert(tmp); tmp:=tmp * (ZGs[i].x * (2*j-1) + 1-j) * (ZGs[i].y * (2*k-1) + 1-k); werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps]:= werte[ZPs[i].x+j + (ZPs[i].y+k)*params^.xsteps] + @@ -218,7 +218,7 @@ begin for j:=xmin to xmax do begin tmp:=werte[j + i*params^.xsteps] / ZAs[j + i*params^.xsteps]; for k:=0 to nb.count-1 do - nb[k].anwenden(tmp); + nb[k].transformiereWert(tmp); werte[j + i*params^.xsteps]:=tmp; end; end; -- cgit v1.2.3-70-g09d2