# Tag Info

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