- #421
Davorak
- 276
- 0
bored and late
FBox[x_List] := StringJoin@ToString @@@ Flatten[
{
"\begin{array}\n",
"{", "|", Table["
c|", {n, 1, Length[x]}], "}", "\hline", Table[{Table[{ToString[x[[n1,
n2]]], If[n2 ≠ Dimensions[
x][[2]], "&", ""]}, {n2, 1, Dimensions[x][[2]]}], "\\\\", "\hline
"}, {n1, 1, Dimensions[x][[1]]}], "\n \end{array}"
}
]
FBox[{{1, 2}, {1, 2}, {3, 2}, {2, 4}, {2, 5}}]:
[tex]
\begin{array}
{|c|c|c|c|c|}\hline1&2\\\hline1&2\\\hline3&2\\\hline2&4\\\hline2&5\\\hline
\end{array}
[/tex]
FBox[x_List] := StringJoin@ToString @@@ Flatten[
{
"\begin{array}\n",
"{", "|", Table["
c|", {n, 1, Length[x]}], "}", "\hline", Table[{Table[{ToString[x[[n1,
n2]]], If[n2 ≠ Dimensions[
x][[2]], "&", ""]}, {n2, 1, Dimensions[x][[2]]}], "\\\\", "\hline
"}, {n1, 1, Dimensions[x][[1]]}], "\n \end{array}"
}
]
FBox[{{1, 2}, {1, 2}, {3, 2}, {2, 4}, {2, 5}}]:
[tex]
\begin{array}
{|c|c|c|c|c|}\hline1&2\\\hline1&2\\\hline3&2\\\hline2&4\\\hline2&5\\\hline
\end{array}
[/tex]