level 4
埃斯顿123🍺
楼主
sp500 = FinancialData["SP500", "FractionalChange", {{2000, 1, 1}, {2009, 1, 1}, "Day"}]edist = EstimatedDistribution[sp500, NormalDistribution[\[Mu], \[Sigma]]]
hist = Histogram[sp500, Automatic, "PDF"];Show[hist, Plot[PDF[edist, Quantity[x, "%"]], {x, -10, 12}, PlotStyle -> Thick, PlotRange -> All]]
