DateDifference[Now,DateObject[{2019,9,13,0,0,0}],"Day"]
DateString[
{
"День недели: ",
"DayName",
"\nЧисло: ",
"Day",
"\nМесяц: ",
"MonthName",
"\nГод: ",
"Year"
}
]
Row[
{
"— Сегодня пятница, 13-е?\n— ",
If[DateValue[{"DayName","Day"}]==={Friday,13},"Да","Нет"]
}
]
daysOfWeek={Monday,Tuesday,Wednesday,Thursday,Friday,Sunday,Saturday};
SetOptions[
BarChart,
ChartLabels->(Style[#,Bold,12]&/@daysOfWeek),
ImageSize->700,
ColorFunction
->
Function[{height},ColorData["TemperatureMap"][height]],
TicksStyle->Directive[Bold,12],
AxesStyle->Thick,
GridLinesStyle->Dashed
];
Table[DayName@DateObject[{19,monthNumber,13}],{monthNumber,1,12}]
Tally[
Table[DayName@DateObject[{19,monthNumber,13}],{monthNumber,1,12}]
]
BarChart[
Sort[
Tally[
Table[
DayName@DateObject[{19,monthNumber,13}],
{monthNumber,1,12}
]
/.
Thread[daysOfWeek->Range[7]]
],
#1[[1]]<#2[[1]]&
][
[;;,2]
],
Ticks→{Automatic,{1,2,3}},
PlotLabel→
TextCell[
"Распределение 13-х чисел\nмесяцев 2019 г. по дням недели",
FontFamily→"Open Sans Light",
25,
TextAlignment→Left
]
]
Table[DayName@DateObject[{2019,monthNumber,13}],{monthNumber,1,12}]
Manipulate[
BarChart[
Sort[
Tally[
Table[
DayName@DateObject[{yearNumber,monthNumber,13}],
{monthNumber,1,12}
]
/.
Thread[daysOfWeek->Range[7]]
],
#1[[1]]<#2[[1]]&
][
[;;,2]
],
Ticks→{Automatic,{1,2,3}},
PlotLabel→
TextCell[
Row[
{
"Распределение 13-х чисел месяцев\n",
Style[yearNumber,Red],
" г. по дням недели"
}
],
FontFamily→"Open Sans Light",
25,
TextAlignment→Left
]
],
{{yearNumber,2019,"Год: "},0,10000,1}
]
Friday13MonthNumbers[nYear_,mYear_]:=
Flatten@
Table[
Position[
Table[
DayName@DateObject[{yearNumber,monthNumber,13}],
{monthNumber,1,12}
],
Friday
],
{yearNumber,nYear,mYear}
]
Friday13MonthNumbers[2019,2019]
Friday13MonthNumbers[2019,2029]
period=Friday13MonthNumbers[0,399];
Table[Total[period-Friday13MonthNumbers[400i,400i+399]],{i,1,10}]
BarChart[
Sort[
Tally[
Flatten@
Table[
DayName@DateObject[{yearNumber,monthNumber,13}],
{yearNumber,0,399},
{monthNumber,1,12}
]
/.
Thread[daysOfWeek->Range[7]]
],
#1[[1]]<#2[[1]]&
][
[;;,2]
],
Ticks→{Automatic,{684,685,687,688}},
PlotRange→{680,690},
GridLines→{None,{684,685,687,688}},
PlotRangePadding→{{0,0},{1,0}},
PlotLabel→
TextCell[
"Распределение пятниц, 13-е по месяцам\n(в течение одного периода Григорианского календаря)",
FontFamily→"Open Sans Light",
25,
TextAlignment→Left
]
]
NumberOfFriday13InYear[nYear_]:=
Count[
Table[
DayName@DateObject[{nYear,monthNumber,13}],
{monthNumber,1,12}
],
Friday
]
Grid[
{
TextCell[#,FontFamily→"Open Sans Light",16,TextAlignment→Left]&/@
{
"Количество пятниц, 13-е в году",
"Количество лет, в которых столько раз встречается пятница, 13-е"
}
}
~
Join
~
Tally[Table[NumberOfFriday13InYear[nYear],{nYear,0,399}]],
Background→{None,{LightOrange,{LightGreen,LightYellow}}},
Frame→All,
ItemStyle→Bold,
ItemSize→{{20,20},Automatic}
]
BarChart[
Sort[Tally[Friday13MonthNumbers[0,399]],#1[[1]]<#2[[1]]&][[;;,2]],
Ticks→{Automatic,{56,57,58}},
PlotRange→{55,59},
GridLines→{None,{56,57,58}},
PlotRangePadding→{{0,0},{1/2,0}},
ChartLabels→(Style[#,Bold,12]&/@Range[12]),
PlotLabel→
TextCell[
"Распределение пятниц, 13-е по месяцам\n(в течение одного периода Григорианского календаря)",
FontFamily→"Open Sans Light",
25,
TextAlignment→Left
]
]