Tag Info

1

You might consider just generating a table of points. The downside is that the spacing of the points might not be as optimal as what you get with harvesting the points from ParametricPlot. Using your example with 500 points: k[w_] := Exp[(-I)*w]/(1 + I*w); p = Table[{w, Re[k[w]], Im[k[w]]}, {w, -Pi, 0, Pi/500}]; p = Select[p, 0 <= #[[3]] <= 1.1 &&...

2

In this case, I would do as follows. Here is your plot: k[w_] := Exp[(-I)*w]/(1 + I*w); p = ParametricPlot[{Re[k[w]], Im[k[w]]}, {w, -Pi, 0}, PlotRange -> {{-0.7, 2.1}, {0, 1.1}}]; This is the position of the line you are looking for in the form of a list: Position[p, Line] // Flatten (* {1, 1, 1, 3, 1, 2, 0} *) One only needs to replace the ...

0

Thanks for making a very useful Package even in 2021. However, Polygon output seems to have an error, checked with QGIS 2.18. I found the error part in writepolygon[ ] function for entering Shape Type value(Polygon:5) as follows. [Original code] writepolygon[stream_, shxstream_, polyrecord_, recordnumber_] := Module[{numpart = Depth@polyrecord[[1]] - 2, ...

6

modified The result of NDSolve offers interpolation functions, which might be evaluated at arbitrary gridpoints. Try {F, G} = NDSolveValue[{de1, de2, IC}, {f, g}, {t, t0, 1}, {p,10^-2,10}, Method -> {"MethodOfLines", "TemporalVariable" -> t,"SpatialDiscretization" -> {"FiniteElement","MeshOptions" -&...

2

I finally found a way to do it addRow[a_, b_, n_] := Join[a[[;; n - 1]], b, a[[n ;;]]] array = { {""}, {"Analysis 1"}, {"1 class TimeDependentAnalysis timeIntegrationScheme 1 solver 1 \*"}, {"**"}, {""} }; elements = Table[ToString@StringForm["Text ...

2

I have found a work-around that is acceptable for my images. If Filling->Axis is used instead of RegionPlot, the image is around a factor of 100 smaller.

2

Meanwhile I got hints for both directions and I have made two functions: (* ReadLn reads one line of UTF-8 coded text from the open stream inFile. Returns the string including the linefeed (if there is one). The last line is returned without linefeed, if there is none after it. All subsequent ReadLn return the symbol EndOfFile instead of a ...

0

Just Use at end of your code the Export Function on figure like this you will find it in your home directory saved in PDF format Export["plot.pdf", figure]

3

You can use DecimalForm to format your table: \[Rho] = 0.5; numeric[x_, t_] := 0.03125 (1 - 4 Sech[0.25 x]^2) + 0.0078125 t Sech[0.25 x]^4 Tanh[0.25 x] + 0.0078125 t Sech[0.25 x]^2 Tanh[0.25 x]^3 + 0.00012207 t^2 (-2.25 Sech[0.25 x]^4 + 2.25 Sech[0.25 x]^6 + 1. Sech[0.25 x]^8 + 4.5 Sech[0.25 x]^2 Tanh[0.25 x]^2 + 20.25 Sech[0.25 ...

1

I am not sure that this fully fixes the problem, but I observe a better image. Firstly, I am using \$Version 12.0.0 for Linux x86 (64-bit) (April 7, 2019) Now, what I did is the following: I run the code precisely as it is given in the post and generating an image Right click on the image, Print Graphic, I chose Print to File (PDF), and then just clicked ...

1

Try this: Module[{op = 0.1}, plot = Style[Graphics3D[{Green, Opacity[op], EdgeForm[None], Cuboid[{6, 0, 0}, {10, 6, 5}], Red, Opacity[op], EdgeForm[None], Cuboid[{6, 0, 5}, {10, 6, 10}], Opacity[1], billboard3D[Style["HM", 50, Bold, FontFamily -> "Courier"], 3.5, {10, 3, 7}, {1, 0, 0}, {0, 0, 1}], billboard3D[Style["DFN&...

Top 50 recent answers are included