Build a list from a Loop!

Question

I need to build a list with the values of the parameter $\gamma = \mu/a$ and the standard deviation of the following process,

a = .3;
μ = n/10;
c = .2;
σ = 0.1;
proc = ItoProcess[{\[DifferentialD]s[t] == -a s[t] i[
       t] \[DifferentialD]t, \[DifferentialD]i[
       t] == (a s[t] i[t] - μ i[t] + 
         c (1 - s[t] - i[t]) i[t]) \[DifferentialD]t + σ i[
        t] \[DifferentialD]W[t]}, {s[t], i[t]}, {{s, i}, {0.3, 0.7}}, 
   t, W \[Distributed] WienerProcess[0, 1]];

aa = ParallelTable[RandomFunction[proc, {0, 3000, 0.5}, 10], {100}]; //
   AbsoluteTiming // First
sol2 = TemporalData[
  Join @@ Through[aa["ValueList"]], {aa[[1]]["Times"]}]

The table should have values of μ/a (where n varies as loop index) and the standard deviation of the process. I've tried to build a loop using "Do" and "For" to evaluate the process for each index n and saves the values of μ/a and the standard deviation in a table, but i doesn't work. How could I do that task?

Thanks in advance!

Answer 1

Better write the process as function of its parameters and make the iteration variable n explicit:

a = .3;
c = .2;
σ = 0.1;
ClearAll[proc];
proc[μ_, σ_, a_, c_] := ItoProcess[{
    \[DifferentialD]s[t] == -a s[t] i[t] \[DifferentialD]t,
    \[DifferentialD]i[t] == (a s[t] i[t] - μ i[t] + c (1 - s[t] - i[t]) i[t]) \[DifferentialD]t + σ i[t] \[DifferentialD]W[t]
    },
   {s[t], i[t]}, {{s, i}, {0.3, 0.7}}, t, 
   W \[Distributed] WienerProcess[0, 1]
   ];

aa = ParallelTable[
     RandomFunction[proc[n/10, σ, a, c], {0, 300, 0.15},10], 
     {n, 1, 100}
     ];

I reduced the stepsize and the time horizon because Mathematica issued several overflow error. This is more a problem with the mathematical model of this process (it tends to blow up) than with OP's question.