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}]