User Portlet
Discussions |
---|
It is useful but in this way I met a new problem, that is when I save the result with .wdx format, it takes very long time even more than the calculating time, of course the result is very large(maybe several G), and Mathematica quit running... |
Problem solved. Within the option *PlotMarkers*, the value of *Thickness* within *Edgeform* was set too small, thus somehow the plotmarkers disappeared in the pdf. I increased that by a factor of 100 and now it works. |
Dear John. See the pdf in the first post and you see that pdf has problems on the right-handed side. Suggestions for solving this issue appreciated. M |
Just as a remark: > ... so that people can really see the periodic temperature distribution. So how about this: img = ImageCrop@ ContourPlot[ufun[x, z], {x, z} \[Element] mesh, MaxRecursion -> 4, Contours -> 30,... |
Hi Tim. Thank you very much for the idea of warping the solution into a loop and change MinPoints (and your code). I did that by placing the code into TimeConstrained (to terminate the calculation after a predefined time) and by checking if there... |
John, I did not complain about Mathematica, read my text carefully. I only want to know if Mathematica can do what I requested. Code was already attached (see initial question). Maybe you have a solution than the "old trick", which was a nice... |
That is exactly what I was looking for. Thanks. |
Works nicely. Thanks. |
Maybe using `NSum` instead of `Sum` will give a speed boost. Worth a try. |
Sorry, didn't mention this. *m* is always an integer. |