# Search Results

Results tagged with Search options user 3246
18 results

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.

. 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
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
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 …
*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
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
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
}, SeedRandom[seed]; Binarize[Blur[Dilation[ Graphics[{CapForm["Round"], (* circles composing circular stroke *) Table[ r = RandomReal[radius*{rmin, rmax …
answered Feb 7 '17 by KennyColnago
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
}]; 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
, 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
[ 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
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 …