6
{p, ((p - 2) n^2 - (p - 4) n)/2 // Distribute} /. p -> Range[3, 32] // Transpose;
TraditionalForm@TableForm[Partition[%, 5], TableAlignments -> Center]
Explanation
Since most arithmetic operations are performed element-wise over lists (e.g. {a, b} + 1 -> {a + 1, b + 1}), we can strip the Table and just replace p with the list of given values. ...
5
As a workaround, break the path into multiple overlapping paths using Partition and use CapForm
coords = {{10, 10}, {10, 20}, {20, 20}, {20, 10}};
GeoGraphics[{Thickness[0.05], CapForm["Round"],
GeoPath[Partition[coords, 2, 1]]}]
coords = Table[{Cos[t], Sin[t]}, {t, 0, Pi, Pi/20.}];
GeoGraphics[{CapForm["Round"], Thickness[0.1],
GeoPath[Partition[...
4
Welcome to MSE. Here is one way
table = Table[{p, TraditionalForm@Expand[((p - 2) n^2 - (p - 4) n)/2]}, {p, 3, 32}];
table // Map[Column[#, Center] &] // Partition[#, 5] & // Grid
2
If I understand you:
cfform[{b_, d___}] := Row[{"[", b, ";", ##, "]"}] & @@ Riffle[{d}, ","]
TableForm[{table1, cfform /@ table2}\[Transpose],
TableHeadings -> {None, {"R", "CF of R"}}]
2
You might make a table as follows
lst1 = Table[{X, side1}, {X, 0.01, 10, 0.1}];
then transform the numbers into a format you need:
lst2 = lst1 //
NumberForm[#, NumberFormat -> (Row[{#, "e", #3}] &),
ExponentFunction -> (# &)] &;
and export it:
Export[NotebookDirectory[] <> "file.txt", lst2, "Table"]
Do not forget to ...
2
The issue you are facing is that the FullForm of x/2 changes upon evaluation, combined with the HoldAllComplete attribute of MakeBoxes:
Hold[a/2]//FullForm
(* Hold[Times[a,Power[2,-1]]] *)
a/2//FullForm
(* Times[Rational[1,2],a] *)
Note how $a\cdot2^{-1}$ changes to $a\cdot\frac 12$ when allowed to evaluate. As mentioned above, this leads to problems due ...
2
I think you can create a wrapper that modifies the box generation code so that it never generates brackets:
MakeBoxes[SuppressBracketArguments[expr_], StandardForm] ^:= ReplaceAll[
MakeBoxes[expr,StandardForm],
RowBox[{h_, "[",___,"]"}]->h
]
A couple examples:
f[g[x]] //SuppressBracketArguments
f[x] g[y] //SuppressBracketArguments
f
f g
Only top voted, non community-wiki answers of a minimum length are eligible
