m |
m |
||
| Line 2: | Line 2: | ||
|bodyclass = | |bodyclass = | ||
|name = Years | |name = Years | ||
| − | |title = Years | + | |title = <wz tip="20th and 21th Centuries...">Our Years</wz> |
|state = {{{state<includeonly>|collapsed</includeonly>}}} | |state = {{{state<includeonly>|collapsed</includeonly>}}} | ||
|titlestyle = | |titlestyle = | ||
| Line 21: | Line 21: | ||
<noinclude> | <noinclude> | ||
| − | Generated using this Mathematica code: | + | Generated using this Mathematica code (here for the 18th century): |
<pre> | <pre> | ||
StringJoin @@ | StringJoin @@ | ||
Table[If[Mod[i, 10] == 9, | Table[If[Mod[i, 10] == 9, | ||
| − | "[[" <> ToString[i] <> "]]\n |list | + | "[[" <> ToString[i] <> "]]\n |list" <> |
| − | ToString[Evaluate[Round[(i - | + | ToString[Evaluate[Round[(i - 1700)/10.] + 1]] <> "=", |
| − | "[[" <> ToString[i] <> "]]{{*}}"], {i, | + | "[[" <> ToString[i] <> "]]{{*}}"], {i, 1700, 1799}] |
</pre> | </pre> | ||
</noinclude> | </noinclude> | ||
| ||||||||||||||||||||||||||||||||||||||
Generated using this Mathematica code (here for the 18th century):
StringJoin @@
Table[If[Mod[i, 10] == 9,
"[[" <> ToString[i] <> "]]\n |list" <>
ToString[Evaluate[Round[(i - 1700)/10.] + 1]] <> "=",
"[[" <> ToString[i] <> "]]{{*}}"], {i, 1700, 1799}]