9,513 reputation
31973
bio website bobthechemist.com
location Chicago, IL
age 40
visits member for 1 year, 11 months
seen 52 mins ago

Chemist, birdwatcher and Mathematica enthusiast. Interested in developing tools that help kids learn science.


58m
comment When using PopupMenu other controls stop working
...and it looks like this issue has been addressed previously. It seems to deal with the visibility of symbols.
1h
comment When using PopupMenu other controls stop working
Another possibility is Manipulate[ Dynamic@Plot[f[x], {x, -10, 10}, PlotRange -> {-10, 10}], {f, {a # + b & -> "Linear", Abs[a # + b] & -> "Absolute Value"}, ControlType -> PopupMenu}, {a, -3, 3, 1, Appearance -> "Labeled"}, {{b, -5, "y-intercept"}, -5, 5, 1, Appearance -> "Labeled"}]. The plot needs to be dynamic in order to be updated in this fashion. If I come up with a good explanation why, I'll post an answer rather than a comment.
1h
comment When using PopupMenu other controls stop working
Moving your rules to the Plot command does what I think you want. Manipulate[ Plot[f[x] /. {a -> $a, b -> $b}, {x, -10, 10}, PlotRange -> {-10, 10}], {f, {a # + b & -> "Linear", Abs[a # + b] & -> "Absolute Value"}, ControlType -> PopupMenu}, {$a, -3, 3, 1, Appearance -> "Labeled"}, {{$b, -5, "y-intercept"}, 5, 1, Appearance -> "Labeled"}]
1h
revised When using PopupMenu other controls stop working
fixed formatting
1h
answered Dual Axis Histogram
13h
comment Can Mathematica solve 625 linear coupled differential equations?
I'm voting to close this question as off-topic because the question requires additional input from the OP, but appears to have been abandoned.
20h
awarded  Popular Question
22h
comment Get .NET Link to work on Raspberry Pi
Good point, I tried the circumference one which didn't seem to work, but I also have insufficient knowledge of .NET to debug further.
1d
comment Get .NET Link to work on Raspberry Pi
Yup, got this far. I wasn't able to get any of the examples to work properly, however.
1d
comment Get .NET Link to work on Raspberry Pi
The approach used to get Python bindings won't work here. You can copy the windows version of NETLink to the RPi ("can" doesn't necessarily mean "allowed to"); however, InstallNET.exe and the accompanying dll are for Windows, not the RPi, and would need to be recompiled. There is a 'source' directory included in the NETLink file structure, but I don't know enough about the platform to say whether or not you can recompile for the RPi. This is probably a good question for WC.
2d
comment Mathematica 10.1 availability
FWIW this is a fine discussion to have, but is better suited for chat.
2d
comment Mathematica on Raspberry Pi
@Szabolcs If we assume that the CDF language also applies to packages, then packages would be distributed under CC BY-SA, which allows for commercial use, and the "restriction" is that others are allows to modify the package as desired, so long as attribution is given. The Enterprise CDF option would be required if the author does not wish to allow such end-user access to the code. Given the educational philosophy behind the RPi, it is logical that WRI would allow such open distribution as afforded by CC BY-SA.
Mar
26
comment Mathematica on Raspberry Pi
@denfromufa for confirmation, I would seek advise from Wolfram directly, but I think it would be problematic. Note that the Wolfram software license mentions that code created in a CDF must be licensed under CC BY-SA, and I would assume that any packages would fall under the same restriction.
Mar
26
comment Get Axes Range of Plot?
+1 PlotRange[plot] is a very interesting answer - an option rule that can behave as a function. I didn't see anything in the documentation that PlotRange (or other options, for that matter) could behave in this fashion.
Mar
26
answered Get Axes Range of Plot?
Mar
26
revised Mathematica on Raspberry Pi
corrected answer
Mar
26
answered Mathematica on Raspberry Pi
Mar
23
revised plotting a box in Mathematica
Removed irrelevant tags
Mar
23
comment Palette button with progress bar
I don't have access to v10 at the moment, but there is an undocumented option to CreateScheduledTask that might be useful here. Does CreateScheduledTask[Pause[10],{1,1},0,EpilogFunction:>(MessageBox["Done"])] do something along the lines you are looking for?
Mar
23
comment Write a circle using module
f[{x_, y_}, {x1_, y1_}] := Graphics[Circle[{x, y}, EuclideanDistance[{x, y}, {x1, y1}]], PlotRange -> {2 {x - x1, x + x1}, 2 {y - y1, y + y1}}, Axes -> True]