WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

離散時間と離散状態の過程

    
Wolfram Language code: procs = {BernoulliProcess[1 / 3], BinomialProcess[1 / 3], RandomWalkProcess[1 / 3], DiscreteMarkovProcess[{1, 0, 0}, {{0, (1/2), (1/2)}, {(1/2), 0, (1/2)}, {(1/2), (1/2), 0}}], RenewalProcess[PascalDistribution[1, 1 / 3]], CompoundRenewalProcess[PascalDistribution[1, 1 / 3], BinomialDistribution[5, 1 / 2]]};
Wolfram Language code: data = RandomFunction[#, {0, 25}]& /@ procs;
Wolfram Language code: Table[ListPlot[data[[i]], PlotLabel -> Head[procs[[i]]], Filling -> Axis, FillingStyle -> RandomChoice[ColorData[45, "ColorList"]]], {i, Length[procs]}]