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!
Do
rather thanTable
? $\endgroup$