User Portlet
| Discussions |
|---|
| @Daniel Thank you very much. But you are slower by a factor of two than my simpleminded solution. @Rohit: Thank you as well. But you erroneously give containsQ[{a,b,c,b},{b}] -> False My Solution and test: test1Q[a_, {}] := True ... |
| OK. I found it myself. replacing := with = did the trick. Lesson learned: With Mathematica you have to read evey word of the documentation and think twice about it. Then you understand it halfways. := does lazy evaluation and thus n had no value when... |
| Thank you David, you made my day! |
| Gianluca, thank you very much for your Answer. Works like a charm. How come i couldnt find this in the documentation? I did search and browse a lot! Thomas |
| I want to draw some graphics that also include a region. What i basically want to do is to do something along the lines Graphics[ Red, Disk[{0,0},1], Blue, DiscretizeRegion[RegionDifference[Disk[{1,0},1],... |
| Hi all, What can i do to speed up my image processing? Rendering an 6k by 4k (24 Mega Pixel) Image with a simple Apply-Function using ImageApplyIndexed takes about 7700 Seconds. On a 6 core, each @3.5 GHz, MacPro with 16GB RAM, this should be... |
| Ah - i got it. Remove the "t = Mod[n,p]" statement from IsSmoothQ. If breaks because 170! |
| \* Face palm * ![Facepalm from Wikipedia][1] Show[DiscretizeRegion[area], Graphics[stuff]] does what i want. But i don't understand why and how this works. Any pointers are welcome. [1]:... |
| Much better! Now i will get out my trig book and find a formula for Cos[1/3 ArcTan[x]] and Sin[1/3 ArcTan[x]] Thank you so far, Thomas |
| I am so dumb. Plot[Evaluate[Integrate[x^2, x]], {x, -3, 3}] works. And i can do f[x_] := Sin[x]/x Plot[Evaluate[{f[x], Integrate[f[x], x]}], {x, -10, 10}] which is my original problem. |