diff options
| author | Erich Eckner <git@eckner.net> | 2017-10-04 15:34:47 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-10-04 15:34:47 +0200 |
| commit | 635d090145bf455943f77e4c9c1d87311486fe47 (patch) | |
| tree | dfe76275dbf3b8c57165f6c342b0e1ee33ccb92e /werteunit.pas | |
| parent | 0f4837b47ac6eaceb94d4c6ad0c98b599c205a1d (diff) | |
| download | epost-635d090145bf455943f77e4c9c1d87311486fe47.tar.xz | |
alle Bugs entfernt (denkste)
Diffstat (limited to 'werteunit.pas')
| -rw-r--r-- | werteunit.pas | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/werteunit.pas b/werteunit.pas index 05c3687..0e65ed2 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -59,8 +59,9 @@ type procedure fft2dNachbearbeitungB(xMin,xMax: longint; nB: tFFTDatenordnung); procedure fft2dNachbearbeitungVerdoppeln(nB: tFFTDatenordnung); procedure fft2dNachbearbeitungKomplex(xMin,xMax: longint; nB: tFFTDatenordnung); - procedure schreibeWert(var f: textfile; x,y: longint); overload; - procedure schreibeWert(var f: textfile; x,y,wert: extended); overload; + procedure schreibeWert(var f: textfile; x,y: longint; beschriftung: tExtPoint); overload; inline; + procedure schreibeWert(var f: textfile; x,y: longint); overload; inline; + procedure schreibeWert(var f: textfile; xBeschr,yBeschr,wert: extended); overload; inline; procedure schreibeWertIntegriert(var f: textfile; i: longint; hor: boolean); procedure erzeugeBinning(senkrecht,linien: boolean; x0,dx: extended; s: string); procedure holeRAM; inline; overload; @@ -868,24 +869,29 @@ begin result:=not (in0 or out0); end; -procedure tLLWerte.schreibeWert(var f: textfile; x,y: longint); +procedure tLLWerte.schreibeWert(var f: textfile; x,y: longint; beschriftung: tExtPoint); begin - schreibeWert(f,x,y,werte[x+y*params.xSteps]); + schreibeWert(f,beschriftung['x'],beschriftung['y'],werte[x+y*params.xSteps]); end; -procedure tLLWerte.schreibeWert(var f: textfile; x,y,wert: extended); +procedure tLLWerte.schreibeWert(var f: textfile; x,y: longint); var - xa,ta: extended; + pkt: tExtPoint; begin if params.xStop=params.xStart then - xa:=params.xStop + pkt['x']:=params.xStop else - xa:=params.xStart+x/(params.xSteps-1)*(params.xStop-params.xStart); + pkt['x']:=params.xStart+x/(params.xSteps-1)*(params.xStop-params.xStart); if params.tStop=params.tStart then - ta:=params.tStop + pkt['y']:=params.tStop else - ta:=params.tStart+y/(params.tSiz-1)*(params.tStop-params.tStart); - writeln(f,floatToStr(xa)+' '+floatToStr(ta)+' '+floatToStr(wert)); + pkt['y']:=params.tStart+y/(params.tSiz-1)*(params.tStop-params.tStart); + schreibeWert(f,x,y,pkt); +end; + +procedure tLLWerte.schreibeWert(var f: textfile; xBeschr,yBeschr,wert: extended); +begin + writeln(f,myFloatToStr(xBeschr)+' '+myFloatToStr(yBeschr)+' '+myFloatToStr(wert)); end; procedure tLLWerte.schreibeWertIntegriert(var f: textfile; i: longint; hor: boolean); |