New answers tagged

2

It seems to be a bug. I advise you to report this to Wolfram support, e.g. by using the "Give Feedback..." option on the Help menu or via their website.


3

Not a bug - it's a feature!! First let's import the data in as quick a fashion as possible, arableLandPerPopulation=<<"https://gist.githubusercontent.com/jasondbiggs/9e915145a2d4cfa34119fa4d0e535ed2/raw/75387a17c21ee7ff9d7f21e528ca2f971e24209b/gistfile1.txt"; Now look at the GeoRegionValuePlot with and without the PlotRange specified ...


7

To whom it may concern, a workaround: path = FileNameJoin[{$HomeDirectory, "Desktop", "testWorking.nb"}]; nb = Notebook[{}, Saveable -> False, NotebookEventActions -> {{"MenuCommand", "Save"} :> {}} (*the fix*) ]; Export[path, nb, "NB"]


2

I reported this to WRI tech support. This is what I sent them I have encountered an issue when evaluating an example given in ref/ImplicitRegion. The example before I evaluated its code showed a circle. Evaluation should have redrawn the circle, but it actually produced a blank plot. I enclose a screen capture to illustrate the problem. screen capture ...


6

Without SetPrecision it actually doesn't work fine in Mathematica 10.4.1: In[2]:= NSolve[eqn, {h, r, fc}] Out[2]= {{h -> 45112.4 + 69798. I, r -> 3.6894*10^11 - 2.09612*10^12 I, fc -> -3.94833*10^7 - 4.35473*10^7 I}, {h -> 0.387583 + 0.0290387 I, r -> 44.9117 - 8.67483 I, fc -> 415.19 + 53.0697 I}} In[3]:= eqn /. % Out[3]= ...


4

Works fine in Mathematica 10.4.1 NSolve[SetPrecision[eqn, 16], {h, r, fc}] // Chop (* {{h -> 0.3876007531699077 + 0.0289254524823553 I, r -> 44.91373180094011 - 8.66855962462205 I, fc -> 415.1894059341150 + 53.0819264533987 I}} *)


2

Lets start with a simpler case Integrate[q0/(-1 + a q^2), q] $\frac{\log \left(1-a \text{q}^2\right)}{2 a}$ When you put limit [0,A], it has no problem with q=0. But it is not defined when $aA^2>1$. So you always have to obey that condition. You can check that by Integrate[q0/(-1 + a q0^2), {q0, 0, A}] In your second case Integrate[q0/(-1 + 12. ...


5

Graphics3D[ {Cylinder[ Most[mat.Append[#, 1]] & /@ {{0, 0, 0}, {0, 0, 20}}, 5]}, PlotRange -> All, ClipPlanes -> {{0, 0, -1, 6}}, ClipPlanesStyle -> {Directive[Opacity[.3], Green]}] Just for fun, here is a swept volume generation demo. trans= "1:eJxTTMoPSmNkYGAoFgMSIUWJecVp+UW5iSWZ+\ ...


8

This MathGroup discussion should answer your question, so I'll cite it here: On Tue, 29 May 2012 05:47:52 -0400 (EDT), JCW wrote: Please forgive my dragging up ancient history: I have been using Mathematica from version 2.2 through 7.0. I remember at least one (maybe two?) format conversions that were necessary to update old ...


0

rewi gives a workaround. But I notice the curve generated by RegionPlot is actually jiggling instead of smooth, this can be confirmed if we turned on Mesh->All reg = ImplicitRegion[x^2 + y^2 <= 1, {x, y}]; RegionPlot[reg, BoundaryStyle -> Darker, PlotStyle -> White, Mesh -> All] On the other hand, ContourPlot is designed for this kind ...


3

No, it doesn't. But this workaround helps: reg = ImplicitRegion[x^2 + y^2 <= 1, {x, y}] RegionPlot[reg, BoundaryStyle -> Darker, PlotStyle -> White]


4

This is a bug in DiscreteConvolve[]. The bug is caused by a missing condition (m>=0) in one term of the answer returned by DiscreteConvolve[] for your example. A workaround for the problem is to apply PiecewiseExpand[] to the first two arguments of DiscreteConvolve[] as shown below. h = (1/2)^n UnitStep[n] - 3*(1/2)^(n - 1) UnitStep[n - 1]; g = 3^n ...


3

Looks like you've uncovered a bug. I can confirm this behavior in 10.3.1 and 10.4. You can still discretize your region using DiscretizeGraphics though: r = DiscretizeGraphics@ RegionPlot[0 < Sin[u]/Cos[v] < 1 && 0 < Sin[v]/Cos[u] < 1, {u, 0, 2}, {v, 0, 2}] And if you want finer areas, use DiscretizeRegion: DiscretizeRegion[r, ...


4

There is a straightforward way to set CellMargins to be zero: DialogInput[ DialogNotebook[{ExpressionCell[Pane[RandomImage[], ImageMargins -> 8], CellMargins -> 0]}]] Instead of ImageMargins we can rely on CellFrameMargins: DialogInput[ DialogNotebook[{ExpressionCell[RandomImage[], CellMargins -> 0, CellFrameMargins -> 8, ...


3

I gave up looking for neat solution. Here's brute force. Since the bottom CellMargins are not respected then let's not use any! :) We can use Pane and its ImageMargins to take control over padding. DialogInput[ DynamicModule[{}, Pane[RandomImage[], ImageMargins -> 8], Initialization :> (SetOptions[EvaluationCell[], CellMargins -> ...


2

It really expects that you have some buttons along the bottom. DialogInput[Column[{Pane @ RandomImage[], Button["OK", DialogReturn[0]]}]] but you can do it this way DialogInput[Column[{Pane @ RandomImage[], ""}]] Update I Think it looks better with the bottom margin a bit larger than the top, but if you are being picky about equal margins, try ...


0

Today I believe I encountered the same problem when trying to reproduce the result of this paper about Lamb's problem and solutions mentioned above doesn't help in my specific case. After struggling for a while I managed to find a work-around and I think it's worth sharing. In short, if the integrate contains singular point(s) in addition, you may need to ...


0

I finally create a rasterized eps file with sufficent quality for my needs without losing the ticks. Maybe can be helpful even for other file formats outputs. Try this double rasterization, where you can increase the ImageResolution value, but I do not recomend to increase the RasterSize beyond 515 or the ticks will disappear: myPlot Rasterize[%, ...


2

This is a Linux-specific bug that has been fixed in Mathematica 10.0.2 and later.


4

The workaround suggested by Algohi works but it leads to reevaluation of the entire LogLogPlot each time you open a Notebook. The following workaround avoids this: With[{g = Labeled[LogLogPlot[x, {x, 10^-5, 1}], "Test"]}, Dynamic@g] Another workaround is to place this Graphics as Inset inside of another Graphics object: pl = LogLogPlot[x, {x, 10^-5, 1}]; ...


6

LogLogPlot plots contain a dynamic objects which when you open the notebook, the security of Mathematica prevents the dynamic objects from being updated. Check this What you can do is wrap your plot with dynamic and when opened again and when you click Enable Dynamic, you will get the correct plot. Dynamic@Labeled[LogLogPlot[x, {x, 10^-5, 1}], "Test"]


9

This is an artifact in Graphics3D rendering (Z-fighting) which is generally difficult to avoid when using a depth buffer. While ArrayMesh is new in 10.4, you would see similar behavior if you did copy and paste the result into an older version. As a possible workaround, try SetOptions[$FrontEnd, RenderingOptions -> {"Graphics3DRenderingEngine" ...


2

Let's look at a simpler example to show the problem. We'll create a Delaunay mesh from some random points, and generate a RegionBoundary from that. In version 10.4: SeedRandom[4]; mr1 = DelaunayMesh[RandomReal[1, {15, 2}]]; mr2 = RegionBoundary[mr1]; Show[mr1, HighlightMesh[mr2, 1], ListLinePlot[MeshCoordinates@mr2, PlotStyle -> Directive[Thick, ...


5

There is a duplicated vertex causing this issue: idiom[[;; 1665]] // Length 1665 idiom[[;; 1665]] // Union // Length 1664 As a workaround, you could take Union over the vertex set: g = RelationGraph[StringTake[#1, -1] == StringTake[#2, 1] &, Union@idiom[[;; 1665]]]; GraphQ[g] True but the output shouldn't be that. You should ...


2

I'd go ahead and call it a bug, but I don't know what is causing it (sadly, I'm not a kernel developer). I can verify it's a bug below and I can offer a workaround to create the desired graph easily. Here is a function that should create a RelationGraph but without the vertex labels, although I think that could be added easily enough, ...



Top 50 recent answers are included