aivika-experiment-chart 0.2.2 → 0.3

raw patch · 3 files changed

+8/−8 lines, 3 filesdep ~aivikadep ~aivika-experimentPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: aivika, aivika-experiment

API changes (from Hackage documentation)

Files

• LICENSE +1/−1
• aivika-experiment-chart.cabal +3/−3
• examples/BassDiffusion.hs +4/−4

@@ -1,4 +1,4 @@-Copyright (c) 2012 David Sorokin <david.sorokin@gmail.com>+Copyright (c) 2012-2013 David Sorokin <david.sorokin@gmail.com>  All rights reserved. 

@@ -1,5 +1,5 @@ name:            aivika-experiment-chart-version:         0.2.2+version:         0.3 synopsis:        Simulation experiments with charting for the Aivika library description:     This package complements the Aivika and Aivika Experiment packages with@@ -46,7 +46,7 @@                      split >= 0.2.2,                      data-accessor >= 0.2.2.3,                      colour >= 2.3.3,-                     aivika >= 0.5.4,-                     aivika-experiment >= 0.2.2+                     aivika >= 0.6,+                     aivika-experiment >= 0.3      ghc-options:     -O2

@@ -73,14 +73,14 @@       definePerson :: Person -> Array Int Person -> Ref Int -> Ref Int -> Simulation () definePerson p ps potentialAdopters adopters =-  do stateActivation (personPotentialAdopter p) $+  do setStateActivation (personPotentialAdopter p) $        do modifyRef potentialAdopters $ \a -> a + 1           -- add a timeout           t <- liftIO $ exprnd advertisingEffectiveness            let st  = personPotentialAdopter p               st' = personAdopter p           addTimeout st t $ activateState st'-     stateActivation (personAdopter p) $ +     setStateActivation (personAdopter p) $         do modifyRef adopters  $ \a -> a + 1           -- add a timer that works while the state is active           let t = liftIO $ exprnd contactRate    -- many times!@@ -91,9 +91,9 @@                when (st == Just (personPotentialAdopter p')) $                  do b <- liftIO $ boolrnd adoptionFraction                     when b $ activateState (personAdopter p')-     stateDeactivation (personPotentialAdopter p) $+     setStateDeactivation (personPotentialAdopter p) $        modifyRef potentialAdopters $ \a -> a - 1-     stateDeactivation (personAdopter p) $+     setStateDeactivation (personAdopter p) $        modifyRef adopters $ \a -> a - 1          definePersons :: Array Int Person -> Ref Int -> Ref Int -> Simulation ()