# User Portlet

Discussions |
---|

It looks like the only problem is that Graphics is expecting a list. Graphics takes 1 argument followed by any options, so all the graphics items need to be in a list as the first argument. Currently your Point is trying to be an option setting. |

Mathematica is quite unusual compared to most programming languages, so it's difficult if you don't know what kinds of functions to look for in the first place. A very vague rule of thumb I would recommend is looking for functions that work in "broad... |

Pretty. Also why it sounds like Scoobie-do? Lawsuit IMO. Graphics-wise I would try using Tube in Graphics3D along with an infinite perspective, then maybe some kind of edge detection if the tubes are too curvy, or maybe just a Glow setting to prevent... |

Here is a crude preliminary version of what Szabolics hinted at: CursorPlot[f_] := Module[{plot, max,}, plot = Plot[f[x], {x, -2 Pi, 2 Pi}]; (*calculate max bounds*) max = 1.1 Max@Abs@Flatten@ (PlotRange... |

Try something like this (using Daniel's suggestion): nearestIndex[list_, a_] := Nearest[list -> Range[Length[list]], a][[1]]; {pos5 -> nearestIndex[m5, a], pos6 -> nearestIndex[m6, a]} |

Your "then" condition isn't running, so what happens is that you are Clearing alpha at the top and it's never set to anything, so it stays unassigned. The code works for me, so I'm not sure what might be the exact issue. Maybe you have an extra comma... |

I'm not quite sure what exactly you're going for, but maybe this can give you some ideas (with and without HoldForm):[code]expr = HoldForm[Exp[Subscript[p, 2] + Subscript[q, 2] + z] + Exp[Subscript[p, 3] + Subscript[q, 3] + z]]; Replace[expr,... |

I don't have a Pi to play with, but offhandedly, Associations allow the most straightforward OO-like behavior in terms of syntax. It's possible the people at WR had this in mind, given the sugar for string keys: [code]obj = 1, "y" -> 1|>... |

I think I see what you are trying to do now. Generally I would just use this: (# + c) & /@ {a, b}For your more expanded version, you can use this: Plus @@@ Tuples[{{a, b}, {ref1, ref2}}]Or 'Outer', which is the function... |

Here's maybe a simpler form, but I don't know how general it is: m = a {x, y, z}; gcd = PolynomialGCD @@ Flatten[m]; Row[{gcd, m/gcd}] I also don't know if there might be a more direct/built-in way of doing it. |