[chronojump] Fixed hang with wrong FV profiles

[Xavier Padullés <xpadulles src gnome org>]

commit 7ca063bcf7528eeccad95901507b1459bfd37308
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Apr 11 17:37:45 2018 +0200

    Fixed hang with wrong FV profiles

 encoder/pfvProfileEvolution.R |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)
---
diff --git a/encoder/pfvProfileEvolution.R b/encoder/pfvProfileEvolution.R
index fc4add5..e95548f 100644
--- a/encoder/pfvProfileEvolution.R
+++ b/encoder/pfvProfileEvolution.R
@@ -79,6 +79,12 @@ pfvProfileDrawProfilesEvolution <- function(analyzeTable)
         
         f0 = profiles$f0
         v0 = profiles$v0
+        if(min(v0) <= 0 || min(f0) <= 0){
+                plot(0,0,type="n",axes=F,xlab="",ylab="")
+                text(x=0,y=0,translateToPrint("Some of the F-V profiles is wrong.\nProbably the F0 or V0 is 
negative"),cex=1.5)
+                dev.off()
+                quit()
+}
         pmax = f0*v0/4
         dates = profiles$dates
         
@@ -94,6 +100,10 @@ pfvProfileDrawProfilesEvolution <- function(analyzeTable)
         #v = seq(vlimits[1], vlimits[2], by = (vlimits[2] - vlimits[1]) / 100)
         f = seq(0, flimits[2], by = flimits[2] / 100)
         v = seq(0, vlimits[2], by = vlimits[2] / 100)
+        print("--------V:")
+        print(v)
+        print("--------F:")
+        print(f)
         
         #Create a grid with all the combinations of the force and velocity values
         fv <- expand.grid(f,v)