New answers tagged

0

Perhaps you would like to use Histogram3D Manipulate[ Histogram3D[ Table[{Frequency[k, r, fmin, fmax], Amplitude[k, r]}, {k, 0, Nwaves - 1}]], {{Nwaves, 1, Style["Number of waves", 10]}, 1, 50, 1, ImageSize -> Large, Appearance -> {"Labeled", "Closed"}}, {{fmin, 0, Style["Min frequency", 10]}, 0, fmax, 0.001, ImageSize -> Large, Appearance ...


5

Here's a possibility. Copy the graphic into a new cell, type p1 = in front of the plot and evaluate the cell. Then, do p1 /. Point[a__] :> {PointSize[0.2], Point[a]} Here's a gif showing the procedure:


2

I think it may be more expedient to use Framed to generate the frame you want, rather than having an extra graphics object: Framed[ Show[ { Graphics[{Red, Thick, Circle[]}], Plot[Sin[x], {x, -2, 5}, PlotStyle -> Directive[Thick, Blue]] }, PlotRange -> {{0, Pi}, {-Pi/2, Pi/2}}, (*REMOVED*) (*PlotRangeClipping -> ...


3

curve[v_, g_] := ParametricPlot[{Chi[t[tau, v, g], x[tau, v, g]], Eta[t[tau, v, g], x[tau, v, g]]}, {tau, -50, 50}, PlotRange -> All, RegionFunction -> Function[{x, y, u}, Norm[{x, y}, 1] < .99999 Pi]] Show[RegionPlot[Norm[{x, y}, 1] <= Pi, {x, -Pi, Pi}, {y, -Pi, Pi}], curve[0.5, 2], PlotRange -> {{-Pi, Pi}, {-Pi, Pi}}, Frame -> ...


6

Using your definitions, let's derive a RegionMemberFunction that indicates whether a point lies on the boundary of the diamond-shaped region that you want to exclude from plotting: rmf = RegionMember@DiscretizeRegion@Line[{{-Pi, 0}, {0, -Pi}, {Pi, 0}, {0, Pi}, {-Pi, 0}}]; Notice that the first point must be repeated to obtain a closed line. Using that ...


4

You can use FrameStyle -> Directive[Opacity @ 0, FontOpacity -> 1], FrameTicks -> None, ... But in general I'd go with Labeled.


2

h[n_] := n + n/FactorInteger[n][[-1, 1]] + 1 L = NestList[h, 1, 10] h[n_] := n + n/FactorInteger[n][[-1, 1]] + 1 firsts[max_Integer] := Module[{L = NestList[h, 1, max]}, Prepend[FirstPosition[NestList[h, #, max], a_ /; MemberQ[L, a]], #] & /@ Range[max] ] firsts[10] (* {{1, 1}, {2, 3}, {3, 1}, {4, 2}, {5, 1}, {6, 2}, {7, 1}, {8, 2}, {9, 1}, {10, 2}} ...



Top 50 recent answers are included