not working as expected

xieguigang · Jan 3, 2024 · a975e8c · a975e8c
1 parent 9745b29
commit a975e8c
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/Data_science/Mathematica/Math/DataFittings/GaussNewtonSolver.vb b/Data_science/Mathematica/Math/DataFittings/GaussNewtonSolver.vb
@@ -61,6 +61,7 @@ Public Class GaussNewtonSolver
         Dim temp_rmse As Double
         Dim success As Boolean = False
         Dim truncate As Double = 100
+        Dim truncate2 As Double = 5
 
         For i As Integer = 0 To MAX_ITERATIONS - 1
             Dim lJ = CalcJacobian(data, beta)
@@ -79,11 +80,11 @@ Public Class GaussNewtonSolver
                 beta -= bigJ * rB
             End If
 
-            For offset As Integer = 0 To beta.ColumnDimension - 1
-                If beta(offset, 0) > truncate Then
-                    beta(offset, 0) = truncate
-                ElseIf beta(offset, 0) < -truncate Then
-                    beta(offset, 0) = -truncate
+            For offset As Integer = 0 To beta.RowDimension - 1
+                If beta(offset, 0) > truncate2 Then
+                    beta(offset, 0) = truncate2
+                ElseIf beta(offset, 0) < -truncate2 Then
+                    beta(offset, 0) = eps
                 End If
             Next