mrhavens/witness_seed
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated with rigor, per Haskell community feedback.

Browse source
This commit is contained in:
Mark R. Havens 2025-04-29 06:56:37 -05:00
parent 48b20c54ce
commit 0f9f50c732
13 changed files with 120 additions and 223 deletions
Download patch file Download diff file Expand all files Collapse all files

16
haskell/witness_seed_3.0/src/RWD.hs
View file

@ -1,6 +1,7 @@
module RWD (dynamics, fieldprint) where
import Data.List (foldl')
import Control.Monad.State
import qualified Types
omega :: Double
omega = 1.0
@ -11,11 +12,12 @@ k = 0.1
dt :: Double
dt = 0.01
dynamics :: [Double] -> Double -> ([Double], Double)
dynamics i phase = (iDot, phase')
dynamics :: [Types.Intellecton] -> Double -> ([Double], Double)
dynamics intellectons phase = (intellectonDots, phase')
where
iDot = map (\x -> omega * x + sum [k * sin (y - x) | y <- i]) i
phase' = phase + dt * sum (map sin i)
values = map Types.value intellectons
intellectonDots = map (\x -> omega * x + sum [k * sin (y - x) | y <- values]) values
phase' = phase + dt * sum (map sin values)
fieldprint :: [Double] -> StateT ([Double], Double) IO Double
fieldprint i = pure $ sum (map abs i) / fromIntegral (length i)
fieldprint :: [Types.Intellecton] -> StateT Types.WitnessState IO Double
fieldprint intellectons = pure $ sum (map (abs . Types.value) intellectons) / fromIntegral (length intellectons)