From 2bf99af3688a4a2044e5e297f032e8a2763f42a1 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 17 Jun 2020 14:49:31 +0200 Subject: epostunit.pas: gib Differenz an, wenn Radon-Achsen nicht gleich skaliert sind --- epostunit.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'epostunit.pas') diff --git a/epostunit.pas b/epostunit.pas index 36018ff..1fcf7f4 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -6077,7 +6077,7 @@ begin end; if quelle.disk2kontFak('x',1) <> quelle.disk2kontFak('y',1) then - gibAus('Warnung: dx ('+floatToStr(quelle.disk2kontFak('x',1))+') und dy ('+floatToStr(quelle.disk2kontFak('y',1))+') unterscheiden sich bei Radontransformation - die Achsen verlaufen nicht linear!',3); + gibAus('Warnung: dx ('+floatToStr(quelle.disk2kontFak('x',1))+') und dy ('+floatToStr(quelle.disk2kontFak('y',1))+') unterscheiden sich (um '+floatToStr(abs(quelle.disk2kontFak('x',1)-quelle.disk2kontFak('y',1)))+') bei Radontransformation - die Achsen verlaufen nicht linear!',3); if not sT then begin gibAus('kopiere Werte für Radon-Transformation ...',3); -- cgit v1.2.3-70-g09d2