Community RSS Feed
http://community.wolfram.com
RSS Feed for Wolfram Community showing any discussions in tag Dynamic Interactivity sorted by active[✓] Use of ControllerManipulate?
http://community.wolfram.com/groups/-/m/t/1125938
Does anybody know in what way the command ControllerManipulate can be used? The help function says that it gives the same as Manipulate, but without a controlling slider or so. The controller would be outside. But what kind of controller is meant then? In other words, how can one control the result of ControllerManipulate? Does anybody have an example?Laurens Wachters2017-06-21T16:42:08ZCreate a color 3D slicer?
http://community.wolfram.com/groups/-/m/t/1122480
Hello All!
I've decided to use Wolfram as a platform to learn how to code a Color 3D Slicer. I'm a total newbie when it comes to coding anything other than HTML. Any advice, suggestions, or help would be highly appreciated., i.e. how to incorporate color information to slices. Thanks!EDWARD AYLWARD2017-06-19T04:58:40Z[GIF] Rise Up ((29, 5)-torus knot)
http://community.wolfram.com/groups/-/m/t/1122344
![(29,5)-torus knot][1]
**Rise Up**
Continuing the torus knot theme ([1][2], [2][3], [3][4]). This is just a simple rotation of a $(29,5)$-torus knot. It's entirely three-dimensional, but because it's much simpler to parametrize torus knots on the Clifford torus in 4D, I am as usual parametrizing there and then stereographically projecting to 3D.
Here's the code:
Stereo3D[{x1_, y1_, x2_, y2_}] := {x1/(1 - y2), y1/(1 - y2), x2/(1 - y2)};
pqtorus[t_, θ_, p_, q_] := 1/Sqrt[2] {E^(p I (t + θ/p)), E^(q I t)};
With[{viewpoint = {0, 3, 0}, n = 450*29, p = 29, q = 5,
cols = RGBColor /@ {"#F21368", "#22C7A9", "#474655"}},
Manipulate[
Graphics3D[
{Tube[Table[Stereo3D[Flatten[ReIm /@ pqtorus[t, -θ, p, -q]]], {t, 0., 2 π, 2 π/n}], .07]},
PlotRange -> 2.7, ViewPoint -> viewpoint, ViewAngle -> π/9,
ViewVertical -> {0, 0, -1}, Boxed -> False,
Background -> cols[[-1]], ImageSize -> 540,
Lighting -> {{"Point", cols[[1]], {3/4, 0, 0}}, {"Point", cols[[2]], {-3/4, 0, 0}},
{"Ambient", cols[[-1]], viewpoint}, {"Point", Darker[cols[[-1]], .87], viewpoint}}],
{θ, 0, 2 π/q}]
]
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=knots49Lr.gif&userId=610054
[2]: http://community.wolfram.com/groups/-/m/t/1099081
[3]: http://community.wolfram.com/groups/-/m/t/1100242
[4]: http://community.wolfram.com/groups/-/m/t/1115846Clayton Shonkwiler2017-06-18T14:41:30ZMake a list of checkboxes that exclude each other?
http://community.wolfram.com/groups/-/m/t/1119969
I am looking for a simple way to make a list of checkboxes that exclude each other.
Suppose one has the following checkboxes:
Checkbox[Dynamic[p]]
Checkbox[Dynamic[q]]
Checkbox[Dynamic[r]]
How do I make that if I check one of them the other two are unchecked. Sothat always only p or q or r is true, and the other two false.
Thanks in advance for your help.Laurens Wachters2017-06-14T11:12:56ZGive input in Robotica Mathematica for dynamic inputs?
http://community.wolfram.com/groups/-/m/t/1120688
How to give input in robotica mathematica for dynamic inputs. like mass inertia?Purnendu Tripathi2017-06-15T11:36:18Z[✓] Put 2 different plots inside a manipulation?
http://community.wolfram.com/groups/-/m/t/1121642
I would like to have a notebook with 2 different kinds of plots inside a manipulation, in which the control for the manipulation uses locators linked to one of the plots. A simple example of something close to what I desire that will work is shown in the code below, but only one of the plots is inside the manipulate. The example plots a pair of sinusoids where the amplitudes and phases are controlled with the mouse by moving a variable around the complex plane.
Dynamic[Plot[{Sqrt[w[[1, 1]]^2 + w[[1, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[1, 2]]/w[[1, 1]]]],
Sqrt[w[[2, 1]]^2 + w[[2, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[2, 2]]/w[[2, 1]]]]}, {t, 0, 1},
PlotRange -> {{0, 1}, {-3, 3}}]]
Manipulate[w = p;
ListPlot[p,
PlotRange -> {{-2, 2}, {-2, 2}}], {{p, {{-1, -1}, {1, 1}}},
Locator}]
But what I would really prefer is to do the same calculations with something like the following, which does not work. Is there anything similar to this second approach that does work?
Manipulate[w = p;
GraphicsRow[{Plot[{Sqrt[w[[1, 1]]^2 + w[[1, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[1, 2]]/w[[1, 1]]]],
Sqrt[w[[2, 1]]^2 + w[[2, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[2, 2]]/w[[2, 1]]]]}, {t, 0, 1},
PlotRange -> {{0, 1}, {-3, 3}}],
ListPlot[p,
PlotRange -> {{-2, 2}, {-2, 2}}]}], {{p, {{-1, -1}, {1, 1}}},
Locator}]Mike Luntz2017-06-16T17:56:27Z[GIF] Curve running on top a curve
http://community.wolfram.com/groups/-/m/t/1120928
Gif inspired by [beesandbombs][1].
![A][2]
![B][3]
![C][4]
![D][5]
Code:
DynamicModule[{\[Sigma] = (2*Pi)/25, r, f, \[Phi], P},
r[t_] := 8 {Cos[3 t], Sin[2 t]};
f[t_, t0_, \[Phi]_] := Exp[-((t - t0)^2/(2 \[Sigma]^2))] Cos[17 t - \[Phi]] 2;
P[t0_, \[Phi]_, c_] := ParametricPlot[If[\[Phi] == -1, r[t], r[t] + {-1, 1} f[t, t0, \[Phi]] Reverse@Normalize[r'[t]]],
{t, -Pi + t0, Pi + t0}, PlotRange -> 11 {{-1, 1}, {-1, 1}},
Axes -> False, PlotStyle -> Thickness[0.008],
ColorFunction -> If[\[Phi] == -1, Black &, (Blend[{{-1.5, Transparent}, {1, RGBColor@c}}, #] &)], Background -> RGBColor@"#FAF9FA"];
res = Manipulate[
Show@{P[t0, 0, "#F2D12E"], P[t0, Pi/2, "#DE2DAE"],
P[t0, 3 Pi/2, "#55B7B4"], P[t0, -1, Black]}
, {t0, 0, 2 Pi, 0.1}]
]
[1]: https://twitter.com/beesandbombs/status/874565733807730689
[2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=test.GIF&userId=845022
[3]: http://community.wolfram.com//c/portal/getImageAttachment?filename=7492test.GIF&userId=845022
[4]: http://community.wolfram.com//c/portal/getImageAttachment?filename=2493test.GIF&userId=845022
[5]: http://community.wolfram.com//c/portal/getImageAttachment?filename=3558test.GIF&userId=845022Thales Fernandes2017-06-15T16:44:02Z