Tag Info

New answers tagged

4

foo := Module[{r = Transpose@Through[{Cos, Sin}[2^Range[#]]], p}, p = Partition[r, 2, 1]; Graphics[{Opacity[.5], Red, Disk[#, .05] & /@ r, Opacity[1], Black, Text @@@ MapIndexed[{First@#2, #} &, r], Arrow[#, .05] & /@ p}, PlotRange -> {{-1.2, ...


1

PolarGraph[n_Integer] := Module[{lp = ListPolarPlot @ Table[{2^x, 1}, {x, 1, n}], p, a, t}, p = Reverse @ Take [Cases[lp, {_Real, _Real}, -1], n]; a = Arrow /@ Partition[p, 2, 1]; t = Text @@@ Transpose[{Range @ Length @ p, p}] /. Text[u_, v_] :> Text[Style[u, Red, 16], v + 0.1]; Graphics[{a, t}, Axes -> True]] PolarGraph[7]


8

data = Reverse@Table[{2^n, 1}, {n, 1, 6}]; Graph[Table[DirectedEdge[i, i + 1], {i, Length@data - 1}], VertexLabels -> "Name", VertexCoordinates -> ({#2 Cos[#1], #2 Sin[#1]} & @@@ data), Axes -> True, ImageSize -> 300]


3

Yes, there is! Wolfram recently launched an online version of mathematica in various forms. You can register for the "programming cloud" and show them a full mathematica notebook online. With the free account you'll be missing a few IO abilities (no databases, limited file IO iirc). This should be more than enough to demonstrate your work. ...



Top 50 recent answers are included