* Bugfix linear regression calculation LS

  * Add control for beta angle <= 360° and calculation to +-180° if angle > +-180°
  * Update user manual
  * New Version number.

CHANGES.md

 VECTO-CSE: Changes
 ===================
-#### 2014-09-30: v2.0.1-beta3 ####
+#### 2014-11-13: v2.0.1-beta4 ####
+Mostly TUG improvements:
+
+  * Bugfix linear regression calculation LS
+  * Add control for beta angle <= 360° and calculation to +-180° if angle > +-180°
+  * Update user manual
+  * New Version number.
+  
+#### 2014-11-10: v2.0.1-beta3 ####
 Mostly TUG improvements:
 
   * Correction HS calculation

CSE/Calculation/sub_linear_regression.vb

@@ -91,7 +91,7 @@ Module sub_linear_regression
                                     ' Get the values
                                     XLS1_Array(0, UBound(XLS1_Array, 2)) = 1
                                     XLS1_Array(1, UBound(XLS1_Array, 2)) = ErgValuesComp(tCompErg.v_air_sq)(j)
-                                    YLS1_Array(UBound(XLS1_Array)) = ErgValuesComp(tCompErg.F_res_ref)(j)
+                                    YLS1_Array(UBound(YLS1_Array)) = ErgValuesComp(tCompErg.F_res_ref)(j)
 
                                     ' Add values for t_tire_min/max and rho_air into the result dictionary
                                     If FirstInLS1 Then

CSE/IO/input.vb

@@ -336,6 +336,14 @@ Public Module input
                             End If
                         ElseIf sKV.Key = tComp.trigger Then
                             CalcData(tCompCali.trigger_c).Add(CDbl(Line(sKV.Value)))
+                        ElseIf sKV.Key = tComp.beta_ar Then
+                            If InputData(sKV.Key)(tDim) > 360 Or InputData(sKV.Key)(tDim) < -360 Then
+                                Throw New Exception("The beta_ar angle is higher then +-360°! This is not a possible angle. Please correct.")
+                            ElseIf InputData(sKV.Key)(tDim) > 180 Then
+                                InputData(sKV.Key)(tDim) = InputData(sKV.Key)(tDim) - 360
+                            ElseIf InputData(sKV.Key)(tDim) < -180 Then
+                                InputData(sKV.Key)(tDim) = InputData(sKV.Key)(tDim) + 360
+                            End If
                         End If
                     Next sKV
 

CSE/declaration_public.vb

@@ -13,7 +13,7 @@ Module declaration_public
 
     ' Description of the form
     Public Const AppName As String = "VECTO_CSE"                ' Name of the programm
-    Public Const AppVers As String = "2.0.1-beta3"              ' Version of the Programm
+    Public Const AppVers As String = "2.0.1-beta4"              ' Version of the Programm
     Public AppDate As String                                    ' Date of the compilation of the programm
 
     ' Control variables