User Portlet
| Discussions |
|---|
| Dear Henrik, this is exactly what I was looking for! As always, you nailed it! Thanks so much again. Best wishes, Max |
| Hi Brad, thanks for your suggestions and the insight into the metadata manipulation of Mathematica :-) I do not have a student version but a regular license for academic use, but it also changes the meta information. Actually a lot more than in... |
| Hello Jim, great, thanks for this! This is what I was looking for. It works for the 3D case too (looks much cooler in 3D). dist1 = MixtureDistribution[{1, 1}, {MultinormalDistribution[{0.3, 0.5, 0.4}, {{0.01, 0, 0},... |
| Hello Mike, thanks for this great solution! It works well for many types of Graphics. Cheers, Max |
| Hello Sander and Henrik, I also think it looks like a bug. After adding the two additional lines to Henrik's code, I find it is about 13.7 px, but the value from CaliperWidth is 15.5 px. Manipulate[ Labeled[Show[img, ... |
| Good evening Henrik, your code looks quite good and is very fast. I think the two prominent directions are artefacts though. If I rotate the image by a random value, the peaks remain where they are. Probably the gradient function treats certain... |
| Hello Richard, Yes the formula is correct, it is xi•(x1 + … + xn) - ai•(x1 + … + xn) + bi•xi == 0, i = 1 to n. , so bi*xi and not just bi. One solution is xi = 0 for all i = 1...n. I also found a formula for c[2]: c[2] ==... |
| Hi Gianluca, oh I forgot to mention that there are curved lines too in my images. l = {Line[{{0, 0}, {0, 1}, {1, 1}, {0, 0}}], Circle[{0.5, 0.5}, 0.5]}; i = Graphics[l, ImageSize -> 300] Show[ImageGraphics[Rasterize[Graphics[l,... |
| Hello David and Alexay, thanks for your suggestions! However, none of them changed the outcome. Then I updated from 10.0.2 to 10.2.0 and now the issue is gone! I am also working with Win7 Pro x64. Thanks again for your replies! Max ... |