Search type Search syntax
Tags [tag]
Exact "words here"
Author user:1234
user:me (yours)
Score score:3 (3+)
score:0 (none)
Answers answers:3 (3+)
answers:0 (none)
isaccepted:yes
hasaccepted:no
inquestion:1234
Views views:250
Sections title:apples
body:"apples oranges"
URL url:"*.example.com"
Favorites infavorites:mine
infavorites:1234
Status closed:yes
duplicate:no
migrated:no
wiki:no
Types is:question
is:answer
Exclude -[tag]
-apples
For more details on advanced search visit our help page
Results tagged with Search options user 3246

Questions on the construction of 2D and 3D graphics through the direct use of primitives, directives, and functions. Include the graphics3d tag for questions specifically on 3D graphics. This tag is not to be used for basic questions on visualizing functions and lists using the various flavors of Plot commands.

7
votes
0answers
. Block[{p}, SeedRandom[1729]; p = RandomReal[{-1, 1}, {10, 2}]; Graphics[{Thickness[0.05], Opacity[0.4], BSplineCurve[p]}]] I also tried a BSplineFunction of the points, f = BSplineFunction …
asked Nov 23 '15 by KennyColnago
15
votes
1answer
The film Arrival showed Wolfram Language code in action analysing alien logograms. A recent blog describes some details and mentions a live-coding video by Christopher Wolfam. See also Stephen Wolfram …
asked Feb 7 '17 by KennyColnago
10
votes
Um, I like spirals. So as @C.E. points out, AnglePath is a useful function. Manipulate[ Graphics[{Thick, MapIndexed[{ColorData[cs, (#2[[1]]*d)^e], Line[#]} &, Partition …
answered May 16 by KennyColnago
2
votes
*x - b], 0]; Graphics[{ EdgeForm[{Thickness[0.004], Black}], FaceForm[Lighter[Blue, 0.8]], Map[Disk[#, r] &, p], Thin, Map[Circle[#, r] &, pts], Red, Line …
answered Nov 30 '15 by KennyColnago
3
votes
What if you made a number spiral similar to the prime spiral of Stanislaw Ulam? This transforms the 1D distribution of Hamming numbers into a 2D distribution. Note that kSmoothSpiral generalizes to an …
answered Jul 9 '14 by KennyColnago
6
votes
function d may be the following, or Norm or ChessboardDistance or ... Other parameters include scalings of colours, rotation angles, and translations. Block[{hmax = 34, vmax = 21, d}, Graphics
answered Sep 23 '14 by KennyColnago
13
votes
}, SeedRandom[seed]; Binarize[Blur[Dilation[ Graphics[{CapForm["Round"], (* circles composing circular stroke *) Table[ r = RandomReal[radius*{rmin, rmax …
answered Feb 7 '17 by KennyColnago
18
votes
I bought 'Introduction to Circle Packing' by Kenneth Stephenson a few years ago, and have been trying to understand it since. I found theFindMaximumanswer by @SimonWoods very good, but larger graphs s …
answered Jun 18 '14 by KennyColnago
9
votes
}]; Generate a table of locations in the complex plane with ParallelTable. d = ParallelTable[i + I*j, {j, -0.5, 0.5, 0.001}, {i, 0.3, 2.5, 0.001}]; Graphics[Raster[...]] can be faster than ArrayPlot … [...]. This plot shows the final Abs[z]. Graphics[Raster[ Rescale[Log[Log[CollatzFractal01[d][[All, All, 1]] + 1.] + 1.]], ColorFunction -> (ColorData["FallColors", 1 - #] &)], ImageSize -> 600 …
answered May 21 '16 by KennyColnago
5
votes
, high}, {low, high}}], Disk[#, r] ] &, pts]; reg = Sort[GatherBy[reg, Head]]; Show[ Graphics[{ FaceForm@Lighter[Blue, 0.8], EdgeForm[{Thickness[0.004], Black …
answered Nov 26 '15 by KennyColnago
4
votes
[ Module[{a = 2, b = 4, u}, u = AngleConversionForDisk[t, a, b]; Graphics[{Thick, Circle[{0, b}, {a, b}],(* ellipse *) Cyan, Disk[{0, b}, {a, b}, {0, u}], (* ellipse sector …
answered Oct 7 '15 by KennyColnago
3
votes
To reverse the colours you could try 1-# instead of just # in a pure function passed to ColorFunction. To change how the line segments are coloured, include an exponent as follows. Manipulate[ Plo …
answered May 5 by KennyColnago
3
votes
]. Manipulate[ Graphics[{ EdgeForm[{Thick, Black}], Orange, Disk[{0, 1}, 1], Darker@Green, Disk[{2 Sqrt[r2], r2}, r2] }, PlotRange -> {{-2, 4}, {0, 3}}, Frame -> True], {{r2, 1, "Right Circle Radius"}, 0.05, 5, Appearance -> "Labeled"}] …
answered Mar 27 '18 by KennyColnago
6
votes
]]}]; Graphics[{ Thick, PointSize[0.02], Line[{v1, v2, v3, v1}], Red, Incircle[{v1, v2, v3}], Blue, Point[w], Blue, Line[{v1, w[[2]]}], Line[{v2, w[[3]]}], Line[{v3, w …
answered May 12 '18 by KennyColnago
25
votes
[CentralPolygon[p, q, ϕ]] /; k == 0 And finally, HyperbolicTessellationGraphics[p_Integer, q_Integer, ϕ_, k_Integer, rule_RuleDelayed, opts___] := Graphics[{Circle[{0, 0}, 1 … ], HyperbolicTessellation[p, q, ϕ, k, 10.^-10] /. rule}, opts] For example, HyperbolicTessellationGraphics[7, 3, 0., 3, HyperbolicLineRule, PlotLabel -> "{7,3}"] Graphics[{EdgeForm[{Thin, Black}], Flatten …
answered Nov 9 '14 by KennyColnago

15 30 50 per page