level 6
sgylvqº
楼主
m1 = {{0, 0.35405536668285575`}, {1, 0.2360369111219038`}, {2,
0.
15735794074
79359`}, {3, 0.10490529383195726`}, {4,
0.06993686255463819`}, {5, 0.046624575036425454`}, {6,
0.03108305002428364`}}; m3 = {2, 0, 2, 1, 2, 1, 1, 0, 1, 0, 2, 5,
1, 1, 1, 0, 0, 4, 0, 0, 2, 0, 5, 1, 0, 3, 0, 1, 0, 2, 0, 1, 3, 0, 0,
4, 3, 0, 1, 2, 1, 1, 1, 4, 0, 1, 1, 0, 2, 1, 3, 6, 0, 2, 2, 0, 3,
1, 0, 0, 3, 0, 2, 1, 2, 4, 3, 2, 3, 0, 5, 2, 2, 3, 6, 0, 4, 4, 0, 1,
1, 0, 2, 3, 0, 2, 0, 3, 1, 3, 2, 1, 1, 2, 1, 0, 0, 1, 5, 1};
m4 = ListLinePlot[m1, Filling -> Axis]; m5 =
Histogram[m3, Automatic, "ProbabilityDensity",
ChartStyle -> Opacity[0.3]](*指定透明度放在Automatic之后*);
Show[m4, m5, PlotRange -> {{-.5, 7}, {-.01, .4}}]
2021年04月10日 16点04分
1
0.
15735794074
79359`}, {3, 0.10490529383195726`}, {4,
0.06993686255463819`}, {5, 0.046624575036425454`}, {6,
0.03108305002428364`}}; m3 = {2, 0, 2, 1, 2, 1, 1, 0, 1, 0, 2, 5,
1, 1, 1, 0, 0, 4, 0, 0, 2, 0, 5, 1, 0, 3, 0, 1, 0, 2, 0, 1, 3, 0, 0,
4, 3, 0, 1, 2, 1, 1, 1, 4, 0, 1, 1, 0, 2, 1, 3, 6, 0, 2, 2, 0, 3,
1, 0, 0, 3, 0, 2, 1, 2, 4, 3, 2, 3, 0, 5, 2, 2, 3, 6, 0, 4, 4, 0, 1,
1, 0, 2, 3, 0, 2, 0, 3, 1, 3, 2, 1, 1, 2, 1, 0, 0, 1, 5, 1};
m4 = ListLinePlot[m1, Filling -> Axis]; m5 =
Histogram[m3, Automatic, "ProbabilityDensity",
ChartStyle -> Opacity[0.3]](*指定透明度放在Automatic之后*);
Show[m4, m5, PlotRange -> {{-.5, 7}, {-.01, .4}}]
