# Tag Info

20

There is a public, but undocumented, function called GeometricFunctionsDecodeFilledCurve which helps to decode this type of undocumented FilledCurve: GeometricFunctionsDecodeFilledCurve[ FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.887695983062486, 5.160000000000004}, {1.8237311169604027, 5.160000000000004}, ...

18

Go into the option inspector, and try the different settings for Graphics Options > RenderingOptions > "Graphics3DRenderingEngine and see if that has any effect. Edit This option can be set on a per-graphic basis, say by using Style: AbsoluteTiming[ Rasterize[ Style[Graphics3D[{Opacity[0.1], Sphere[{0, 0, 0}, #] & /@ Range[20]}, ...

15

Short answer: I hope Export["foo.pdf", plot,Background->None] fixes it. Let's get there step by step. First, Acrobat X Pro on my Mac reports that both your PDF files are fine. They print fine, and pass all tests with flying colors. I uncompressed the PDF (thanks pdftk) and a diff on them reveals that one weird object that only appears in your ...

15

This happened to me too and apparently, is a problem with the student version. Arnoud helped me figure out a work around for this. In your $UserBaseDirectory/Licensing, you should find a mathpass file that looks something like this: (*userregistered*) machineName1 ID ActivationKey1 Expiration1 UserName machineName2 ID ActivationKey2 Expiration2 UserName ... 15 Unfortunately, there is no solution. Dump (.mx) files are explicitly documented as being non-portable between different versions, and even between different builds of the same version (e.g. 32- and 64-bit versions for a given platform, or those for two different platforms). As such, you must re-generate your .mx files for version 9 either from the original ... 14 You can use Graph itself much like Show. However, you pass the essential data from the graph as the first argument, rather than the graph itself. (Graph[g,....] will not work.) g = Graph[{1 -> 8, 1 -> 11, 1 -> 18, 1 -> 19, 1 -> 21, 1 -> 25, 1 -> 26}, VertexLabels -> "Name", ImagePadding -> 10] Graph[EdgeList[g], ... 13 Changing shortcuts isn't that complicated. All you have to do is change one line in the file KeyEventTranslations.tr in a location in your file system specified by this command: FileNameJoin[{$InstallationDirectory, "SystemFiles", "FrontEnd", "TextResources", $OperatingSystem}] Locate the following line in a text editor and change the key into the one ... 13 You could use SetProperty. For example g = Graph[{1 -> 2, 2 -> 4, 3 -> 4}] SetProperty[g, VertexLabels -> {"Name", 2 -> "Two"}] 12 This is fixed in version 9. This came up on MathGroup before. Since it hasn't been fixed for so long, I wasn't sure if it was really a bug, so I did some spelunking (and some speculation) today to find out what's happening. To jump to the end: I think it's a bug. First, let's see what arguments does LogLinearPlot really pass to the function: ... 12 Actually, as we can use Tooltip on elements directly this is a cleaner method: label = Tooltip[{##2}, Grid[{ {"Name", #}, {"Usability ", #2}, {"Relevancy", #3}, {"Market Size", #4} }, Frame -> All, Alignment -> Left ]] &; BubbleChart[ label @@@ data3, ChartStyle -> 24 ] How about this? ... 12 You need to first do a series connection of the PID controler to the plant. This gives the open loop transfer function. Then do a unity feedback connect to close the loop, like this plant = StateSpaceModel[{x''[t] == u[t] - x'[t]}, {{x''[t],0}}, {{u[t], 0}}, x[t], t]; kip = 5; ki = -0.00001; kid = 0.01; pid = TransferFunctionModel[(kip*s + ki + kid*s^2)/s, ... 11 Suppose we have a Graphics object which depends on some parameters and a controller with which we want to control these parameters. This could be done easily enough using the second argument of Dynamic, for example gr[pts_, col_, radius_] := Graphics[{col, Disk[#, radius] & /@ pts}, PlotRange -> {{0, 3}, {0, 3}}, ImageSize -> 200]; contrl = ... 11 Looks like a bug in V8.0.0 that was fixed in V8.0.1. Seems to be triggered in part when the argument is a packed array: (* V8.0.0 *) In[2]:= digits = Reverse@IntegerDigits[1000]; In[3]:= LengthWhile[digits, 0 === #&] Out[3]= 0 In[4]:= LengthWhile[DeveloperFromPackedArray[digits], 0 === #&] Out[4]= 3 which would explain why it worked when ... 11 This is not simply a mislabeling of the axes. More than that is going on: the plot produced is not even logarithmic. Let's try to use the default (non-log-transformed tick marks): First, with MachinePrecision (correct result): Show[ LogPlot[Abs[E^x - poly], {x, -1, 1}, WorkingPrecision -> MachinePrecision], Ticks -> Automatic ] Then with ... 10 Something like this? It does just what you suggested: export the file and then place a FileDrop reference to it on the clipboard. Needs["NETLink"]; InstallNET[]; LoadNETType["System.Windows.Forms.DataFormats"]; LoadNETType["System.Windows.Forms.Clipboard"]; exportToClipboard[graphics_] := Module[{dob, file}, file = FileNameJoin[{$TemporaryDirectory, ...

9

After consulting a friend of mine P.M. I can tell you this. First of all as @Szabolcs @ruebenko already mentions - in order to get a comparison with Wavelet explorer (v7) to v8, you can go to the following link in the documentation center which shows how the syntax has changed: ...

9

You need to be very careful of simplifying equations with numeric quantities. Compare: Simplify[1.0 x == 0.9999999999999 x] Simplify[1.0 x == 0.99999999999999 x] x == 0 True In the first case Simplify divide by very small number that produce x == 0. This division is allowed with Simplify[... == ...]. The same way FullSimplify[... == ...] (without ...

8

Just in case somebody else needs it, here is a compiled answer. Thanks go out to 0x4A4D (for the actual solution), Michael Pilat (for the JLink part) and everybody else in here for the swift responses. Since this is apparently a bug of sorts in Mathematica 8, percent encoding the Greek letters in the URL will have to do. Reciting Michael Pilat's code ...

8

So I agree with everyone. It seems to be a bug in version 8. I have managed to do a (rather ugly) work around, but it does the job. Basically I define an interpolation function based on the data: thetaplot = Table[tt,{tt,0,2*Pi,2*Pi/300}] interpfunc = Interpolation[Transpose[{thetaplot,dpdOt}]]; And then plot using the interpolation function. ...

8

We need an appropriate complexity function. There were a few questions on this topic but in general, it is not obvious how to design an adequate function and it may appear quite difficult. Moreover there have been certain hidden changes of ComplexityFunction in Mathematica 9 (see: FullSimplify does not work on this expression with no unknowns. By default ...

7

Here's a summary of the answer I gave to a question very similar to this one on stack overflow. In essence, each triple represents a segment of the curve where the first digit in the triples indicates the type of curve used. Here, 0 indicates a Line, 1 or 2 a BezierCurve, and 3 a BSplineCurve. The difference between 1 and 2 is that with option 2, an extra ...

7

You can also use hotstrings as a way of autocompletion. By using such replacements, words are immediately replaced by another word on typing a space after the hotstring: CreateDocument[{}, InputAutoReplacements -> {"sync" -> SynchronousInitialization}] You can set such replacements globally under Option Inspector (CtrlShiftO). Of course no one would ...

7

I'm answering mainly to show solidarity with the idea, although my own efforts at finding a systematic upgrade path with graceful degradation to older versions have ultimately been overtaken by the amount of new and different functionality introduced starting with version 6. Particularly version 6 was a real nuisance because it was so different from both: ...

7

Just playing around, Mathematica gives the correct solution : int2 = FullSimplify[Integrate[TrigExpand[Sin[x] Csc[4 x]], x]]; FullSimplify@D[TrigToExp[int2], x] (* Csc[4 x] Sin[x] *) The real part of the two solutions match but the imaginary parts do not : check = 1/8 Log[Sin[x] - 1] - 1/8 Log[Sin[x] + 1] + Sqrt[2]/4 ArcTanh[Sqrt[2] Sin[x]]; ...

7

Looks like you get small imaginary residuals that are not chopped in V8 (but are in V9). Plot[eigen[[1]] // Im, {k, 0, \[Pi]}] Adding a Re (or Chop or similar) gets rid of those for good: Plot[eigen[[1]] // Re, {k, 0, \[Pi]}]

7

The following code copies the actua PNG image to the clipboard with transparency. This varies from the other answer in that it actual stores the entire image instead of a reference to the file. This code will likely work with more applications then the one above. It currently uses the Ctrl+Shift+C to copy with transparency. The code takes a while to run ...

6

This is definitely a bug. I emailed Wolfram support and got the following reply: Hello, Thank you for your email. I have reproduced this problem. It seems that PathGraph doesn't like variable names like v2, x, and l, but generally works for other variable names. I have filed a report with our developers on this issue. Your contact ...

6

As far as I can tell, the only valid specifications for that first argument seem to be permutations of the input you have and similar lists of triplets. If the list is one element shorter than the second argument, all points in the second argument are points in the list, and the one corresponding to the element {0,2,0} in the first argument is the starting ...

6

The problem is very simple :) eq = 2 x - y == 0 evaluates to False. To make it work, simply defer the evaluation: eq := 2 x - y == 0 ContourPlot3D[Evaluate@eq, {x, -10, 10}, {y, -10, 10}, {z, -10, 10}, ContourStyle -> Opacity[0.5], Mesh -> False]

6

Here is a considerable simplification of Liam's accepted answer. It avoids the need to create and compile a C# program. This is basically just a small modification to Simon Woods' answer, so that it writes directly to the clipboard instead of creating a temporary file on disk. This avoids the need to clean up the file afterward. Needs["NETLink`"] ...

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