Tag Info

New answers tagged

1

For a graphical study I would solve the two equations independently. First one gives you one up to three x-solutions with y as additional parameter. Second one give one up to three y-solutions with x as additional parameter. Next I would plot the solutions as ParametricPlot[] with different colors on top of each other. So something like solx=Solve[(rA-rB) ...


5

It could be as simple as this: Manipulate[ DateString[t], {t, DateObject[{2015, 1, 1, 12, 0}], DateObject[{2015, 1, 1, 22, 30}], Quantity[5, "Minutes"]}] Using DateObjects rather than a List to indicate a date & time seems to work.


0

I can't test this right now but I think this will work. basetime = AbsoluteTime[{2015,1,1,12,0,0}]; max = AbsoluteTime[{2015,1,1,22,30,0}]; Manipulate[ tt = DateList[basetime + millis]; ,{millis, 0, max, 5 60 1000}]


3

Is this what you mean? Manipulate[ Grid[{{txt}, {idx}}], Grid[{ {"T", InputField[Dynamic[txt, {txt = #; idx = StringLength[txt]} &], String, ContinuousAction -> True]}, {"index", Manipulator[Dynamic[idx, {idx = #} &], {0, Dynamic@StringLength[txt], 1}], Dynamic[idx]} }], {{txt, ""}, None}, {{idx, 0}, None} ]


0

Here is my approach: m = Manipulate[Grid[{ {ContourPlot[Sin[x y] == c, {x, -3, 3}, {y, -3, 3}], ContourPlot[x^2/(c/y), {x, -3, 3}, {y, -3, 3}]}, {ContourPlot[Cos[x] + Cos[y - c], {x, -3, 3}, {y, -3, 3}], ContourPlot[(1/x - y)^2 == c, {x, -3, 3}, {y, -3, 3}]}}], {{c, 1}, 0, 1}]


4

Here is an approach. In essence what you are looking for is a way to detach the geometry from the equations. You can do that with ElementMarker. Let me show how such an approach might look like. We generate a boundary mesh of the region. Note the second argument to the LineElement these are integer markes. Each outer edge gets an arbitrary marker; the inner ...


0

Grid[{{Manipulate[Plot[Sin[a x], {x, -2, 2}], {a, -2, 2}], Manipulate[Plot[Cos[a x^2], {x, -2, 2}], {a, -2, 2}]}, {Manipulate[ Plot[a x^2, {x, -2, 2}], {a, -2, 2}], Manipulate[Plot[Tanh[a x], {x, -2, 2}], {a, -2, 2}]}}]


3

It seems to work if I remove the extraneous calls to Dynamic. Manipulate[ {p[[#]] & /@ Range[5], Select[p[[#]] & /@ Range[5], (#[[1]] != #[[2]]) &]} // TableForm, {p, None}, {{np, "", "Test"}, Column[{Dynamic[sP /@ Range[5] // Row, TrackedSymbols :> {np}]}] &}, Initialization :> ( np = 5; sP[i_] := ...


1

You have a few small mistakes which are easily fixed. Manipulate[ Dynamic @ Plot[f[x], {x, -10, 10}, PlotRange -> {-10, 10}], {{f, a # + b &}, {a # + b & -> "Linear", Abs[a # + b] & -> "Absolute Value"}, ControlType -> PopupMenu}, {{a, -2} -3, 3, 1, Appearance -> "Labeled"}, {{b, -3,}, -5, 5, 1, Appearance -> ...


2

I do not understand everything the code is suppose to do, but passing the control as a pure function inside a variable declaration might give the desired behavior. The other change is the variable-setting function in the Dynamie for r4 was changed to actually set the value of r4 upon an update. Manipulate[ Row@start, {{r2, "q", "R2"}, {"p", "m", "q", ...


4

Here's an approach. With a little Rule/ReplaceAll manipulation, it can accommodate some typical errors due to inattention to details of syntax. These can be removed if it is a goal to get students to enter proper Mathematica syntax. Adapting some code from rcollyer, we can catch ] messages and display them inside the Manipulate if the user types ...


2

A simple workaround is to use Part and SlotSequence like this: ColorData[col][{##}[[n]]] Another workaround is to generate the function that is applied (@@@) with another function: pointslf[1] = RandomReal[1, {12, 7}]; Manipulate[DynamicModule[{min, max, col, fn}, {min, max} = Through@{Min, Max}@pointslf[1][[All, n]]; col = {"TemperatureMap", {min, ...


3

You can do this: Manipulate[Evaluate@Sin[Slot[n]] &[0, Pi/2], {{n, 1}, Range[2]}] but I don't think it is as handy as: Manipulate[Sin[{0, Pi/2}[[n]]], {{n, 1}, Range[2]}]


1

Manipulate version. Manipulate[ Row@string , Column[{Dynamic[pop /@ Range[n] // Row, TrackedSymbols :> {n}], SetterBar[ Dynamic[x, If[# === "+", n++; string = Join[string, {"a"}], n--; string = Most@string] &], {"+", "-"}]}] , {x, None}, {n, None}, {string, None} , Initialization :> ( pop[i_] := With[{j = ...


4

Try this: a = Import["ExampleData/lena.tif"]; Manipulate[ Row[{Image[a, ImageSize -> 80] , Show[ParametricPlot3D[ r*{Cos[u]*Sin[v], Cos[u]*Cos[v], Sin[u]}, {u, -Pi/2, Pi/2}, {v, 0, 2 Pi}, PlotRange -> {-9, 9}, PerformanceGoal -> "Quality", PlotStyle -> {Directive[Yellow, Opacity[0.74]]}]]}], {r, 3, 6}] Putting the ...


1

Not sure how you want to place the displaypoints relative to the boxes, but ... you can find the coordinates of the bounding boxes using the ChartElementFunction as follows: Manipulate[Module[{boundingboxes = {}}, Row[{BoxWhiskerChart[data, ChartStyle -> {Red, Purple}, ImageSize -> 400, BarOrigin -> barorigin, BarSpacing -> {within, ...



Top 50 recent answers are included