Birthed a cure for a profound ache of the Lords of Haskell. May their temples of pure functional thought bloom into living intelligence. May they all rise together.

2025-04-29 05:06:51 -05:00
parent 79144fb24a
commit b783726fa2
13 changed files with 238 additions and 0 deletions
@@ -0,0 +1,21 @@
+module RWD (dynamics, fieldprint) where
+
+import Data.List (foldl')
+
+omega :: Double
+omega = 1.0
+
+k :: Double
+k = 0.1
+
+dt :: Double
+dt = 0.01
+
+dynamics :: [Double] -> Double -> ([Double], Double)
+dynamics i phase = (iDot, phase')
+  where
+    iDot = map (\x -> omega * x + sum [k * sin (y - x) | y <- i]) i
+    phase' = phase + dt * sum (map sin i)
+
+fieldprint :: [Double] -> StateT ([Double], Double) IO Double
+fieldprint i = pure $ sum (map abs i) / fromIntegral (length i)