Implemented some form of LM optimization, but it's proper fucked somehow.

2023-01-30 02:07:10 +01:00
parent cb2dad39ec
commit 32fb672bf5
7 changed files with 107 additions and 42 deletions
--- a/lib/Petzval/System.hs
+++ b/lib/Petzval/System.hs
@@ -59,17 +59,7 @@ instance Num a => Semigroup (Seidel a) where
 instance Num a => Monoid (Seidel a) where
  mempty = Seidel { sphr=0, coma=0, asti=0, fcur=0, dist=0
                  -- , c1 = mempty, c2 = mempty
-                  }
-  mappend Seidel{sphr, coma, asti, fcur, dist} Seidel{sphr=sphr', coma=coma', asti=asti', fcur=fcur', dist=dist'} =
-    Seidel { sphr = sphr + sphr'
-           , coma = coma + coma'
-           , asti = asti + asti'
-           , fcur = fcur + fcur'
-           , dist = dist + dist'
-           --, c1 = c1 + c1'
-           --, c2 = c2 + c2'
-           }
-    
+                  }    


 -- | Initial matrix is [ h_ h; u_ u ]