diff options
Diffstat (limited to 'romunit.pas')
| -rw-r--r-- | romunit.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/romunit.pas b/romunit.pas index a3289c5..613124a 100644 --- a/romunit.pas +++ b/romunit.pas @@ -300,6 +300,10 @@ begin for i:=0 to length(outPuls)-2 do if outPuls[i+1]['x']<=outPuls[i]['x'] then writeln('Der Outpuls ist nicht sortiert!'); + if length(inPuls)<2 then + writeln('Der Inpuls hat nur '+intToStr(length(inPuls))+' Datenpunkte!'); + if length(outPuls)<2 then + writeln('Der Outpuls hat nur '+intToStr(length(outPuls))+' Datenpunkte!'); // Extrema identifizieren exList[0]:=findeExtrema(inPuls,false); |