i j = odes . ix i . negExp . ix j


exampleSystem :: SSystem Double
exampleSystem = SSystem
  [ SODE 5  [ 0, 0, 1, 0,-1] 10 [ 2, 0, 0, 0, 0]
  , SODE 10 [ 2, 0, 0, 0, 0] 10 [ 0, 2, 0, 0, 0]
  , SODE 10 [ 0,-1, 0, 0, 0] 10 [ 0,-1, 2, 0, 0]
  , SODE 8  [ 0, 0, 2, 0,-1] 10 [ 0, 0, 0, 2, 0]
  , SODE 10 [ 0, 0, 0, 2, 0] 10 [ 0, 0, 0, 0, 2]
  ] 5
exampleSystem = SSystem
  [ SODE 5  [ 0, 0, 1, 0,-1] 10 [ 2, 0, 0, 0, 0]
  , SODE 10 [ 2, 0, 0, 0, 0] 10 [ 0, 2, 0, 0, 0]
  , SODE 10 [ 0,-1, 0, 0, 0] 10 [ 0,-1, 2, 0, 0]
  , SODE 8  [ 0, 0, 2, 0,-1] 10 [ 0, 0, 0, 2, 0]
  , SODE 10 [ 0, 0, 0, 2, 0] 10 [ 0, 0, 0, 0, 2]
  ] 5