| 0 |
jobThread-0 |
TERMINATED |
(* Set Resolution *)
detailLevel = MSPToExpression[$$detailLevel];
(* Load Package *)
Needs["ExampleUtilities`Tsunami`"];
{sol, stats} = ExampleUtilities`Tsunami`SolveTsunami[detailLevel];
MSP`Utility`$Job@setProgress[0.25];
plot1 = ExampleUtilities`Tsunami`PlotTsunami[sol, stats[[1]], detailLevel];
MSP`Utility`$Job@setProgress[0.5];
plot2 = ExampleUtilities`Tsunami`PlotTsunami[sol, stats[[60]], detailLevel];
MSP`Utility`$Job@setProgress[0.75];
plot3 = ExampleUtilities`Tsunami`PlotTsunami[sol, stats[[119]], detailLevel];
res = MSPShow[GraphicsGrid[{{plot1, plot2, plot3}}, ImageSize -> 1000]];
MSP`Utility`$Job@setProgress[1.0];
res
|
|
NOERROR |
|