diff options
| author | Erich Eckner <git@eckner.net> | 2018-05-24 12:29:05 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2018-05-24 12:29:05 +0200 |
| commit | 8cb5c90f737ecb10790a408532657fc5da7598f1 (patch) | |
| tree | 6217940ba408ee24be4f60e660166c17ea320ff6 /werteunit.inc | |
| parent | 5d70f388b7d3dbe2f6bb3a5fda13ffaf448d14de (diff) | |
| download | epost-8cb5c90f737ecb10790a408532657fc5da7598f1.tar.xz | |
zentriere x-Achse bei Radon-Transformation
Diffstat (limited to 'werteunit.inc')
| -rw-r--r-- | werteunit.inc | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/werteunit.inc b/werteunit.inc index 704e1bc..65331cf 100644 --- a/werteunit.inc +++ b/werteunit.inc @@ -173,15 +173,16 @@ end; {$IFDEF tLLWerte_radonTransformation} //procedure tLLWerte.radonTransformation(xMin,xMax: longint; xStep,yStep: extended; qu: pTLLWerteSingle); var - oX,oY,iX,iY: longint; - oYf,cX,sX,iXM,iYM,oYM,wert: extended; + oX,oY,iX,iY: longint; + oYf,cX,sX,iXM,iYM,oXM,oYM,wert: extended; begin iXM:=(qu^.params.xSteps-1)/2; iYM:=(qu^.params.tSiz-1)/2; + oXM:=(params.xSteps-1)/2; oYM:=(params.tSiz-1)/2; for oX:=xMin to xMax do begin - cX:=cos(oX*xStep); - sX:=sin(oX*xStep); + cX:=cos((oX-oXM)*xStep); + sX:=sin((oX-oXM)*xStep); for oY:=0 to params.tSiz-1 do werte[oX+oY*params.xSteps]:=0; for iY:=0 to qu^.params.tSiz-1 do |