amr
Reputation
4,487
Top tag
Next privilege 5,000 Rep.
Approve tag wiki edits
Badges
1 11 30
Newest
Impact
~63k people reached

• 0 helpful flags
• 412 votes cast

# 135 Comments

 Jul 20 comment Functions as objects you might try replacing the output statements with Print[...]. i think the top-level behavior of newline-separated statements (as input into a notebook) is different when they're in a "formal" expression. Jul 15 comment How to create a thick spiral then extract the coordinates from the image? Regarding the spacing/interval update in your question, it's not clear to me what the simplest approach to that is, and there's a couple mathematical issues (eg the spirals are close together at the center). Maybe figuring out how to make alternating black/white spirals that are exactly touching would be a good heuristic. The quickest way might actually be to ask on the Math.SE site. Jul 15 comment How to create a thick spiral then extract the coordinates from the image? @Solarmew See my edit for one solution to that. Jul 14 comment How to create a thick spiral then extract the coordinates from the image? I'm currently busy but I'll see if I can figure something out later today. In any case, feel free to re-accept to someone else's answer. Jul 7 comment Image smoothing with own smoothing function could you not use ImageFilter ? also ParallelTable would be a quick way to parallelize. Jul 4 comment Matrix multiplication for higher dimensional matrices to clarify here, MatrixForm is a display function. it's used to show your results as a matrix, but is not used during calculations. you don't need to tell Mathematica "hey this is a matrix" because any rectangular list of lists is as good a matrix as you need. for example Det[{{a, 1}, {Graphics[Disk[]], d}}] will give an answer. this is a deliberate design feature. in particular, it means that all the functions you use for dealing with lists (such as Reverse) can also be used directly on matrices... and vice versa. Jul 3 comment Graphics3D artifact in Mathematica 10.1 64bit Home Edition - Windows 7? could it be some kind of post-evaluation function that has attached itself to Graphics3D outputs that puts them in Pane? i don't remember what the commands are but the setting might be somewhere in AbsoluteOptions[EvaluationNotebook[]]. Actually, if this is the case it should be visible if you // FullForm the graphics3D output. Jul 3 comment How to create a thick spiral then extract the coordinates from the image? Just as an addendum, ImageCrop[image] is useful for cutting back exactly after over-padding (such as with PlotRangePadding in this case). Jul 3 comment Graph, overlapping vertexlabels This is probably the one failing of Mathematica's graphs presentation so far (poor handling of labels). Otherwise it's really pretty. Hopefully they improve labeling in the future. A couple things I would try here: Increasing/decreasing the ImageSize of the graph, as the labels don't scale in proportion to it. Removing the vertices altogether to get a cleaner graph, also fading down the edges a bit. Jul 3 comment Using function to transform a list Here is a version of the code to show a few different things/tricks: Fcoord[{n_, s_}] := Module[{x, y}, {y, x} = 100*If[Divisible[n, 30], QuotientRemainder[n, 30] + {1, 0}, {Quotient[n, 30], 30}]; s /. { "I" -> {x, y}, "II" -> {-x, y}, "III" -> {-x, -y}, "IV" -> {x, -y}}]; Fcoord /@ {{242, "I"}, {56, "IV"}} Note that Mathematica has functions for a bunch of stuff, even for things you would normally think are too specialized. Jul 3 comment Using function to transform a list oh i see. it's because function parameters are "literal" pattern replacements (they aren't really variables), so when you type coord[[1]] = x inside, the system sees it as {300,II} = x when it is applied. there's ways around this, but i would recommend using Map as you are attempting to. Map isn't designed to modify the original list, it always gives you a completely new list. lots of  goes into making this inefficient-sounding thing efficient, so generally you shouldn't worry about performance with something as basic as Map. Also take a look at functions such as NestList. Jul 3 comment Using function to transform a list on first glance, you are using = (assignment) where you mean == (equality) ?. by the way it's good that you're trying to go with Mathematica's style. it may take a while, but it will pay off. Jul 2 comment Curvature Application @nikie by chance have you written any books? if you wrote an "image/data processing/analysis in mathematica" book, i'd buy it (as long as it was not more than \$85). Jul 1 comment How to create a thick spiral then extract the coordinates from the image? @Solarmew no problemos. i'm guessing Binarize is choosing a different background based on some threshold, or something like that. Just use ColorNegate to get the polarity you need. For the cropping issue you could adjust the PlotRange but the easiest is to set a padding: PlotRangePadding -> 3. By the way, you can do something like ComposeList[{Binarize, ColorNegate, ImageData, MatrixPlot}, plot] // Column to follow these kinds of sequential transformations. Jul 1 comment How to create a thick spiral then extract the coordinates from the image? do you mean just PolarPlot[theta/2 Pi, {theta, 0, 2 Pi}, PlotStyle -> {AbsoluteThickness[8], CapForm["Round"]}, Axes -> None] // Binarize // ImageData // MatrixPlot ? by setting large ImageSize you can increase the resolution. you can also use Position[imagedata,1] and ImageValuePositions[im,1] for coordinates Jun 27 comment Drawing a ladder graph with Line and Table/Array by the way, FullForm[Normal[Show[GridGraph[{8, 2}]]]]. interestingly, by converting to graphics with either Show or FullGraphics, you can move vertices around and the edges stay connected. May 23 comment Mathematica's ViewPoint versus MATLAB's View command @Guesswhoitis. you're right ty. fixed. i am dyslexic with respect to mathematica 3D view specification parameter names. Aug 8 comment Start Mathematica without the menu bar? ¡¡ WE DID IT REDDIT !! Dec 31 comment Get DownValues that do not involve patterns? one way of extracting the inputs/outputs: Cases[DownValues[f], (_[Verbatim[f][value : Except[_Pattern]]] :> result_) :> (value -> result)] (general note: i figure this out by using FullForm. e.g. FullForm[x_] => Pattern[x, Blank[]]) Dec 26 comment How to generate a random snowflake i just noticed this isn't particularly in line with what OP was looking for. i don't think it'll hurt anyone though and it's in the Christmas spirit