24/05/27 06:53:09.54 akziHR3h0.net
x=Flatten[{x12,x15,x20}];
Tally[x];
Histogram[x];
p=Flatten[{p12,p15,p20}];
xp=Transpose[Table[{x,p}]];;
pmf=GroupBy[xp,First->Last,Total;
ListPlot[pmf]
BarChart[pmf,ChartLabels->{Placed[Keys[pmf],Top]}]
Keys[pmf]
pmf[124]
% // N
徐々にWolframの書式に慣れてきた。