SakNgoi

Day: April 13, 2012

ศุกร์ 13

แสดง list ของ ศุกร์ที่ 13 ตั้งแต่ปี 1900 ถึงปี 2012 ด้วย Mathematica x = Reap[Do[If[#[[1]]==”Friday” && #[[2]]==”13″,Sow[#]]&@StringSplit@DateString[i,{“DayName”,” “,”Day”,” “,”Month”,” “,”Year”}],{i,1,3565900800,86400}]][[2,1]] (* แสดงว่าในแต่ล่ะปีจะมีศุกร์ 13 อย่างน้อย 1 ครั้ง *) Union@ToExpression@x[[All, 4]] == Range[1900, 2012] True (* ลอง plot histogram ดู *) Histogram[ToExpression@x[[All,4]],Length@x,PlotLabel->”# of Friday 13^th in each year\n(from 1900 to 2012)”,PlotRange->{0,4},ColorFunction->”Rainbow”]

Back to top
%d bloggers like this: