31

Update: We can get a shape similar (except for colors) to the one in OP using ScalingTransform as follows: ClearAll[t1, t2]; t1[n_: 8, s_: .3] := ScalingTransform[s, #] & /@ Transpose[Through @ {Cos, Sin} @ Rest[Subdivide[n] Pi]]; t2[n_: 8, s_: .25] := ScalingTransform[s, #] & /@ Transpose[Through @ {Cos, Sin} @ (Pi/2/n + Rest[Subdivide[n] ...


11

A modest start: Show[PolarPlot[10 + Sin[10 \[Theta]], {\[Theta], 0, 2 \[Pi]}, PlotStyle -> {Thickness[0.02], Green}], Graphics[{Black, Disk[{0, 0}, 9]}]]


9

img0 = Import["https://i.stack.imgur.com/pLroE.png"]; 1. ComponentMeasurements Graphics[{Blue, Values @ ComponentMeasurements[Binarize @ img0 , "Contours"]}] You can get the coordinate data by a simple ReplaceAll: data = Join @@ Values[ComponentMeasurements[Binarize@img0, "Contours"]] /. Line[x_] :> x; Row[ListPlot[...


8

This should do it: ListPlot3D[RandomVariate[UniformDistribution[], {10, 10}], Filling -> Axis, Boxed -> False ] // DiscretizeGraphics


7

It appears you can define your own indicators to be used with TradingChart (this doesn't seem to be documented though): myIndicator[data_, OptionsPattern[]] := Module[ {myind}, myind = Accumulate /@ SplitBy[Differences[Log[QuantityMagnitude[data[[4]]["Values"]]]], Sign] // Flatten; {TimeSeries[myind, {Most[data[[4]]["Dates&...


6

Taking David G. Stork's approach a step further: Use PolarPlot to create pairs of curves and use them to create FilledCurves: n = 9; a = 1.; b = 0; polarplot = PolarPlot[{a - 1/n Sin[n t + b], a + 1/n Sin[n t + b]}, {t, 0, 2 Pi}, ImageSize -> 400, Axes -> False]; Row[{polarplot, Graphics[{Opacity[1], Red, FilledCurve @ Cases[polarplot, _Line,...


6

You could just do this: img = Binarize@Import["https://i.stack.imgur.com/pLroE.png"]; ListPlot@PixelValuePositions[EdgeDetect@img, 1] Or if you want to use meshing then: img = Binarize@Import["https://i.stack.imgur.com/pLroE.png"]; ListPlot@MeshCoordinates@RegionBoundary@ImageMesh@img If you want to go further and break them up into ...


4

That page has a few links at the end, one called "Implementation [of geometric substitution systems]" https://www.wolframscience.com/nks/notes-5-4--implementation-of-geometric-substitution-systems It suggest a very simple implementation via complex numbers. The WL code there can be used in the following way: f[z_]:=1/2 (1-I) {I z+1/2,z-1/2} data[n_]...


3

My interpretation of the posed question and a quick solution for it based on the teardrop shape from https://mathworld.wolfram.com/TeardropCurve.html m=3 Array[With[{ u=RandomReal[{0,2\[Pi]}], t=Mod[(1-Abs[RandomVariate[NormalDistribution[.1,.3]]])\[Pi],\[Pi]] }, {Sin[t]Sin[t/2]^m Cos[u],Sin[t]Sin[t/2]^m Sin[u],Cos[t]}]&, 250]; pts=Join[Mean/@...


3

You can also use PlotTheme -> "FilledSurface"]: ListPlot3D[RandomVariate[UniformDistribution[], {10, 10}], PlotTheme -> "FilledSurface", Boxed -> False, Axes -> False] DiscretizeGraphics @ % You might also consider PlotTheme -> "ThickSurface": ListPlot3D[RandomVariate[UniformDistribution[], {10, 10}], ...


3

Start: ohlcv = FinancialData["SPY", "OHLCV", {DatePlus[Today, -300], Yesterday}]; chart1 = TradingChart[ohlcv, {"Volume", "BollingerBands"}, ImageSize -> {700, 500}]; myind = Accumulate /@ SplitBy[Differences[ Log[QuantityMagnitude[ohlcv["Values"][[All, 4]]]]], Sign] // Flatten; ...


1

Thanks to those that looked at this question and tried to find a solution. I have been working at the problem and found that I can Rasterize the RawBoxes to give me an Image. I can now do ImageResize and ImageRotate Example: Continuing with the item that has been pasted and is called a from original post. b = Rasterize[a]; ImageCompose[ImageRotate[b, π/2], ...


Only top voted, non community-wiki answers of a minimum length are eligible