Search Results

Plot isn't designed to handle arbitrary expressions as a domain. Replace r with a rdividedbya where rdividedbya is a symbol name that the language can use. Plot[a*r^2*f[r]^2/.r->a rdividedbya,{rdivid …

From the documentation, With the default settings Exclusions->Automatic and ExclusionsStyle->None, DensityPlot breaks continuity in the density it displays at any discontinuity curve it detects. Mat …

I processed the data written in your question dat = ToExpression@ With[{catenated = StringTake[#, StringPosition[#, "Pop"][[1, 2]] - StringLength@#] &@ FirstCase[StringSplit[Import@ "https:// …

Consider Plot[Floor[x],{x,-5.5,5.5},ExclusionsStyle->{None,Blue}] At each discontinuity, we get circles indicating the jump. Mathematically, Floor[x]=x at these discontinuities, which concides with …

Manually crafting the 3d data is a good approach and may be acceptable. Another approach is to use the ListLinePlots themselves as textures for 3d polygons: dat=yourlist&/@Range@6; Show@@Join[ {Plo …

I have completely ignored all specifications of the knots (i.e. I don't know what the definition of Newton pair is or exactly what the tuples correspond to). So, flying by the seat of my pants, here' …

Plot works with logical statements, for instance Plot[If[x>0,x^2,0],{x,-10,10}] Also see Piecewise or Switch instead of nesting Ifs for multiply defined functions.

Too long for a comment: I interpret these sorts of questions as a request for brainstorming. Here's how one might tackle the problem of reverse-engineering the colors: let's get every distinct color …

There are several errors in your plotting code (bmf pointed out pi, PlotStyleBlue should have a ->, PlotPoint should have an s). …

One parameterization of a torus is $((2+\cos v)\cos u,(2+\cos v)\sin u,\sin v)$ for $u\in\{0,2\pi\}$ and $v\in\{0,2\pi\}$. Letting $u=50t$ and $v=t$ yields a curve along the surface like so: With[{n …

I tried setting ColorFunctionScaling->False and manually scaling the range based on the max for u. Also I set MeshFunctions manually to not simply subdivide up to u, but up to 2Pi -- unfortunately th …

I'm not sure about the Tag List error; posting your plot code may yield some insight. That being said, it plots fine with three changes: make LWVdt and LWSgrad functions of $t$, replace instances of …

66 characters, adapted from Greg Hurst's answer: Hue[2⌊2#⌋/3,1,⌊2Random[]⌋Boole@¬.44<#<.53]&~RadialGradientImage~57 old versions 79: ArrayPlot@Array[{Red,1,Blue}〚2+Sign@⌊#^2+#2^2-3⌋⌊2Random[]⌋〛&,{57, …

Slider2D@{.5,.5} makes a draggable orange point with gray lines in a square. I want to use that dot in my plots. I also want to use that color and thickness of gray line. I could extract all of thi …

0) samplepolywhole[nsides_, density_] := Table[(a/density) samplepolyshell[nsides, a], {a, 0, density}] /; (IntegerQ@nsides && nsides > 2 && IntegerQ@density && density >= 0) And finally make a plotting …