Revert " * Correction HS calculation"

This reverts commit ac3d72cc.

CHANGES.md

 VECTO-CSE: Changes
 ===================
-#### 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 ####
+#### 2014-09-30: 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(YLS1_Array)) = ErgValuesComp(tCompErg.F_res_ref)(j)
+                                    YLS1_Array(UBound(XLS1_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,14 +336,6 @@ 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-beta4"              ' Version of the Programm
+    Public Const AppVers As String = "2.0.1-beta3"              ' Version of the Programm
     Public AppDate As String                                    ' Date of the compilation of the programm
 
     ' Control variables