User Portlet
Featured Contributor
| Discussions |
|---|
| Don't loose faith, report bugs and read the documentation carefully! =) `"PolygonalLength"` is described as the > total length of the polygon formed by the centers of the perimeter elements and indeed if you get the perimeter pixel positions... |
| Thanks Alexey, I did a thorough test of all the operators and indeed the composition part was very old and mostly incorrect regarding the color scaling. A bugfix should be in progress for 11.3. I attached a notebook that allows to interactively... |
| Manipulate works on symbol explicitly present in the expression. This code does what you want (I when for the quick fix and mutilated your variable namessorry!) Manipulate[ Plot[Evaluate[{a0, a1, a2} /. {pK1 -> p1, pK2 -> p2}], ... |
| That would work but it's quite crude. You could try creating a mask for the well exposed parts of each image and do a weighted sum. Something like this imgList = SortBy[ImageMeasurements[#, "Mean"] &][Image[MyImageList, "Real"]]; ... |
| You are not making any mistake: what you see is actually the `FullForm` of the entity. Usually the `StandardForm` is formatted with the rounded box and the fact that you don't see itand that you cannot see the flagprobably means you have some... |
| Can you provide the image you are trying to fix? |
| The Wolfram Language has built in support for many standard color model. Among those there is the [L* a* b* color space][1], (LAB henceforth), which may turn out to be particularly useful when it comes to colour processing. The main feature of the... |
| ComponentMeasurements measures each component independently. An example with an image from the documentation: With[{segmentation = MorphologicalComponents[image]}, Show[ image, Graphics[{Red, Thick, Rotate[Circle... |
| A possible workflow: - use the Mask Tool in the image toolbar to create a mask of the area you care about (using your mouse); - select Copy > Mask as an image; - use `ComponentMeasurements[mask, "Area"]`. |
| Sorry for the delay. This is the complete function: [mcode]Compile[{{data, _Real, 1}, {width, _Integer}, {cut, _Real}}, Join[Join[Table[0, {width}], UnitStep[(Take[data, {1 + width, -1 - width}] - (1/#2)* Module[{tot = Total[#1[[1... |