Tag Info

New answers tagged

4

This syntax coloring bug [264325] was fixed in Mathematica 10.0.2:


2

The problem seems to be when the label is rotated. Check this: Export["test.pdf", ListPlot[{1, 2, 3}, Joined -> False, Frame -> True, FrameLabel -> {Rotate["\!\(\*SqrtBox[\(x\)]\)", \[Pi]/2], "\!\(\*SqrtBox[\(y\)]\)"}]] however if you accept unrotated label, you can use: Export["test.pdf", ListPlot[{1, 2, 3}, Joined -> False, ...


3

It appears as if this problem was a bug in earlier versions of the RPi distribution. The August 4, 2014 version behaves as expected.: $Version Column[{Date[],DateList[],$TimeZone}] (* 10.0 for Linux ARM (32-bit) (August 4, 2014) {2014, 12, 17, 18, 30, 42.338928} {2014, 12, 17, 18, 30, 42.339383} -6. *)


3

The problem seems to be the setting "DefaultPlotStyle" -> Automatic in the Method option in the plot theme: Charting`ResolvePlotTheme["Classic", ListPointPlot3D] (* {AxesStyle -> Directive[GrayLevel[0], AbsoluteThickness[0.2]], BaseStyle -> Automatic, FaceGridsStyle -> Automatic, LabelStyle -> {FontFamily -> "Times"}, Method ...


6

Both options PlotTheme -> None and PlotTheme -> "Classic" don't give the expected coloring for the points. However, you can set their color explicitly using PlotStyle -> Directive[PointSize[0.03], ColorData[1][1]]: ListPointPlot3D[ Partition[Flatten[Table[l u1 + p u2 + q u3, {l, -3, 3}, {p, -3, 3}, {q, -3, 3}]], 3], PlotRange -> {{-1, 1}, ...


8

Yes, this is a bug in the more general function RegionMeasure. I knew there were some edge cases in the handling of inexact numberics, but I was unaware of such a simple example. I will forward this bug internally. Workarounds include using the parametric (2-argument) form of ArcLength, and using DiscretizeRegion to preprocess regions before sending them ...


4

Following discussion w/ Jason Grigsby at WRI, rather than edit the Q w/ additional detail, the conclusion is that composite Keys such as lists of strings, interfere with above-mentioned named slot access: data = <|"a" -> 1, {"b", "c"} -> 2|> // Dataset; data[#["a"] &] 1 while data[#"a" &] Failure[Function, Association[ ...


3

This is a bug in 10.0.2 that will be fixed in 10.0.3 (if not earlier, and pushed out via a paclet update), but for now you can use this 'indirection' workaround: prepender[x_] := Prepend[x, {"First" -> "one", "Second" -> "two"}]; prepender /@ dataset


0

Workaround: Use Normal to unpack the dataset before prepending: Prepend[#,{"First"->"one","Second"->"two"}]& /@ Normal@dataset // Dataset


3

To me it looks like there is a bug in the Implementation of BarLegend. When the the number of contours increases there is not only a switch from discrete contours to a continuous gradient (this behavior is documented), but also a change in the scaling (that's the bug). colorf = Blend[{{0, Red}, {20, Yellow}, {40, Green}}, Round[#, 0.1]] &; ...


2

Blend was modified in version 10. It appears that Blend is now scaled to {0, 1}. colorf = Blend[{{0, Red}, {0.5, Yellow}, {1, Green}}, Round[#, 0.01]] &; BarLegend[{colorf, {0, 30}}]


4

This is an adjunct to @Mr.Wizard's answer: while I've fixed this for 10.0.3, anyone who wants to use this rather trivial function in the meantime can run SystemOpen["GeneralUtilitiesLoader`"] and then paste the following code at the end of that file: Begin["GeneralUtilities`General`PackagePrivate`"] AssociatePairs[l_] := Macros`ConditionalRHS[ ...


0

Try: Ticks -> {Range[0, 7, 1], Automatic} Otherwise, I think Mathematica might be considering the point x = 2 on your graph as the origin of the , and from the Function Navigator, Possible Issues of Ticks states that it will not label the origin. Switch to Axes->{True,True} and post the screenshot. Also, removing PlotRange -> All might do the ...


12

This is a bug in the 10.0.2 version of the type inferencer, which now goes inside pure functions†. It's 'harmless' in that the type inference will just give up and fall back on deduction (which is what it was going to do anyway). I've fixed this for version 10.0.3, but in the meantime, here's a patch that will prevent the message: ...


3

Fixed in 10.0.2, windows 7, 64 bits


1

Bug fixed in 10.0.2 Clear[y, x]; DSolve[D[y[x], x] - y[x]^2 + y[x]*Sin[x] - Cos[x] == 0, y[x], x, GeneratedParameters -> C]


3

Fixed in 10.0.2 v1 = Table[i, {i, 1, 100000}]; v2 = Table[i, {i, 1, 100001}]; s1 = BitShiftRight[v1]; s2 = BitShiftRight[v2]; s1[[1 ;; 10]] s2[[1 ;; 10]] v = Range[100001]; a = BitShiftRight[v[[;; 10]]]; b = BitShiftRight[v][[;; 10]]; a == b


3

This has been fixed in 10.0.2. The longer time now remain in the status windows. On windows 7, 64 bit SetOptions[$FrontEnd, EvaluationCompletionAction -> "ShowTiming"] Plot[{BesselJ[1, x], BesselJ[2, x]}, {x, 0, 10}, PlotPoints -> 1*^5, Filling -> {1 -> {2}}]


4

bug fixed in 10.0.2. WIndows 7, 64 bit Commonest[{1, 2, 3, 1, 2, 3}, 1] (*should return {1}*)


2

Fixed in 10.0.2. It now return unevaluated


3

Fixed in 10.0.2 Probability[a^2 + b^2 + c^2 + d^2 + e^2 + f^2 + g^2 < 1, {a, b, c, d, e, f, g} \[Distributed] UniformDistribution[{{0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}}]]


2

Fixed in 10.0.2. On windows 7, 64 bit:


0

Fixed in 10.0.2. On windows 7, 64 bit << ComputationalGeometry` g = RandomGraph[{12, 18}]; pt = GraphEmbedding[g]; convexhull = ConvexHull[pt]; Show[PlanarGraphPlot[pt, convexhull, ColorOutput -> Red], g, Graphics[{Red, PointSize@Large, Point[#]} & /@ pt]] g = RandomGraph[{10, 20}]; GraphEmbedding[g]; g


1

Even just setting PlotMarkers->Automatic makes the error bars disappear Fixed in 10.0.2. windows 7, 64 bit Needs["ErrorBarPlots`"] ErrorListPlot[{{{1, 1}, ErrorBar[0.2]}, {{2, 2}, ErrorBar[0.1]}, {{3, 4}, ErrorBar[0.3]}, {{4, 6}, ErrorBar[0.4]}, {{5, 7}, ErrorBar[0.8]}, {{6, 10}, ErrorBar[0.5]}}, Joined -> True] ErrorListPlot[{{{1, ...


1

No error nv 10.0.2. On windows 7, 64 bit SeedRandom[0]; x = RandomReal[{-5, 5}, 100]; y = 2 x + 1 + RandomReal[{-0.1, 0.1}, 100]; X = Transpose[{x, y}]; ListPlot[X] Correlation[X] // MatrixForm CorrelationTest[X, 99995/100000, "PearsonCorrelation"] No error messages.


0

To get finer triangles the option MaxCellMeasure is available, only it does nothing when used. This is fixed in 10.0.2. on windows 7, 64 bit


0

This has been fixed in 10.0.2. On windows 7, 64 bit


0

Fixed in 10.0.2 . On windows 7, 64 bits Graphics3D[{CapForm["Butt"], Tube[{{0, 0, 0}, {1000, 0, 0}}, 30], Tube[{{0, 300, 0}, {1000, 300, 0}, {1000, 300, 100}}, 30]}, Boxed -> False, PlotRange -> All]


0

Mathmatica tells me that it does not converge This has been fixed in V 10.0.2. On windows 7, 64 bit. Integrate[E^(-((201 x1^2)/101)) x1^2 (15 - 20 x1^2 + 4 x1^4) (5913508078417951503 + 1124782662003060300000 x1^2 - 2983951574394000000000 x1^4 + 2591462040000000000000 x1^6 - 797900000000000000000 x1^8 + 80000000000000000000 ...


0

This has been fixed in version 10.0.2. On windows 7, 64 bit try with small list and


1

This has been fixed in V 10.0.2. It no longer returns 0. On windows 7, 64 bit: FullSimplify[I InverseFourierTransform[FourierTransform[Cosh[t], t, w]/w, w, x]]


1

I can reproduce the crash on Win7 64 Pro SP1, Mma 10.0.1.0 This has been fixed in version 10.0.2. On windows 7: $Version (*10.0 for Microsoft Windows (64-bit) (December 4, 2014)*) RawArray["Byte", {}] No crash. Just the above error message.


1

This has been fixed in Version 10.0.2. On windows: TextString[-0.5]


0

This is fixed in Version 10.0.2. On windows: FinancialDerivative[]


0

This has been fixed in version 10.0.2 a = {{0, 0, 1, 0}, {0, 0, 0, 1}, {-2, -1, 0, 0}, {1, -1, 0, 0}} b = {{0}, {0}, {1}, {0}} sys = StateSpaceModel[{a, b}, StateSpaceRealization -> "Controllable"]; (A0 = Normal[sys][[1]]) // MatrixForm


2

Ignoring Stephen's marketing hype, it's important to recognize that the RPi distribution is stripped down a bit so that it can be bundled onto the computer (I think the latest version is 400 MB). This issue was more recently addressed with the Sunrise and Sunset functions over at Wolfram Community: Yes. We strive to keep the Raspberry Pi distribution as ...


0

You may see that removing a single vertex doesn't disconnects your graph. It's a bug,as noted in the comments: And @@ Thread[ Length /@ ConnectedComponents /@ (VertexDelete[g, #] & /@ VertexList@g) == 1] (* True *)


4

It seems I managed to reproduce the problem (M 10.0.1 or 10.0.2, OS X). It appears only when the suggestions bar is turned on and I wait for it to appear after every single output. This does appear to be a bug. Workaround: turn off the suggestions bar. Please do report this problem to support at wolfram.com. The suggestions bar can be very useful for ...


1

This seems to be a bug. But I have found a workaround. So I post it here in case someone wants to do this in the future. The idea is this. Create a state space object first (the StateSpaceRealization -> "Controllable" option if used now, will be ignored, hence the bug). Then convert the object to TransferFunctionModel. Now create a state space object ...


7

The recursion limit error which you observe looks like a bug in N. Here is a shorter code to reproduce the issue: N[obj[args__]] := obj[args] N@obj[1, 2, 3] During evaluation of In[2]:= $RecursionLimit::reclim: Recursion depth of 1024 exceeded. >> obj[1, 2, 3] In the comments Oleksandr R. provided a workaround via combined usage of Verbatim ...


3

On 10.0 for Mac OS X x86 (64-bit) (September 10, 2014) one uses: With[{f = # + 1/# &, center = 1/3 + 3 I/2, radius = 4/3}, ParametricPlot[ Through[{Re, Im}[f[center + r Exp[I \[Theta]]]]], {r, 0, radius}, {\[Theta], -\[Pi], \[Pi]}, PlotPoints -> 55, PlotRange -> All, Mesh -> Full]] So, Mesh seems to do the trick.


4

Use PlotTheme -> "Classic" to get V 9 output: With[ {f = # + 1/# &, center = 1/3 + 3 I/2, radius = 4/3}, ParametricPlot[Through[{Re, Im}[f[center + r Exp[I \[Theta]]]]], {r, 0, radius}, {\[Theta], -\[Pi], \[Pi]}, PlotPoints -> 30, PlotRange -> All, MaxRecursion -> 3, PlotTheme -> "Classic"] ] I am not sure why, might be a ...


5

What you observe is a bug (evaluation leek) inside of TreeForm. In particular, observe this: TreeForm[Unevaluated[Print[5 + 6]]] 11 11 As you see, Print is evaluated twice inside of the TreeForm code. It is apparent bug and I suggest you to report it to technical support.


5

The circle is not cropped when used in a Subscript: Subscript["M", "⊙"] Thus, by using this answer you can easily do: str = "This is some text with a CircleDot: " <> ToString[Subscript["M", "⊙"], FormatType -> StandardForm] If you want some Style: Style[str, Red, 20]


2

The problem is that whoever wrote the Wordpress plugin didn't use the official API to parse the CDF shortcode. The CDF plugin is essentially saying "right before the content is presented, modify it using function parseContent" (add_filter('the_content', array($wolframCDF, 'parseContent'));). The function parseContent uses regular expressions to find the ...


3

It seems AxesOrigin property spoils everything. A bug maybe.. I can suggest 2 way outs: first, simply: Graphics3D[{arrowAxes[3], Sphere[{1, 1, 1}]}, Axes -> True, Boxed -> False, AxesEdge -> {{0, -1}, {0, -1}, {0, -1}}, AxesStyle -> Opacity[0], TicksStyle -> Opacity[1]] This gives what you want, but i don't know how to specify the ...


1

I just changed your code a little bit, to TickStyle->None arrowAxes[arrowLength_] := Map[{Apply[RGBColor, #], Arrow[Tube[{{0, 0, 0}, #}]]} &, arrowLength IdentityMatrix[3]]; Graphics3D[{Sphere[{1, 1, 1}], arrowAxes[3]}, Axes -> True, Boxed -> False, AxesOrigin -> {0, 0, 0}, AxesStyle -> Opacity[0], TicksStyle -> None]


2

denom = 25 + 2 g + x^2; x0 = I/2 Sqrt[100 + 8 g]; Rather than substituting with x -> x0, take the limit result[g_] = Limit[(x - x0)/denom, x -> x0] -(I/(2*Sqrt[25 + 2*g])) result[1000] -(I/90) result[1] -(I/(6*Sqrt[3])) Apart works with symbolic expressions: (x - x0)/denom ((-(1/2))ISqrt[100 + 8*g] + x)/ (25 + 2*g + x^2) ...



Top 50 recent answers are included