8

There is an option called Paneled to control the outer frame. Setting this option to False should do the trick. Manipulate[Plot[Sin[x (1 + a x)], {x, 0, 6}], {a, 0, 2}, Paneled -> False]


7

To remove only the outer panel keep the frame around the content area, you can use Style + DefaultOptions as follows: Style[#, DefaultOptions -> {Panel -> {Background -> White}}] & @ Manipulate[Plot[Sin[n x], {x, 0, 2 Pi}], {{n, 3}, 0, 10, 1}]


5

Use your function to define a parametric curve (say, curve) and use it with ParametricPlot and add the moving circle asEpilog. The normal to the curve at point t is Cross[Normalize[curve'[t]]] so we can easily find the center of moving circle: ClearAll[curve] curve[x_] := {x, x} Manipulate[ParametricPlot[curve[x], {x, -Pi, 3 Pi}, Epilog -> {Red, ...


4

It is because your control variables are not local to Manipulate. One way around it is soleq2 = Sqrt[x] BesselJ[Sqrt[13]/2, x] C[1] + Sqrt[x] BesselY[Sqrt[13]/2, x] C[2]; Manipulate[ Plot[soleq2 /. {C[1] -> c[1], C[2] -> c[2]}, {x, 0, 10}], {c[1], 0, 10}, {c[2], 0, 10}, TrackedSymbols :> {c[1], c[2]} ] Or you could move the expression ...


4

Two alternatives: Using With (use multiple ones if necessary): Manipulate[ With[ {data = RandomReal[{0, 1}, {4, 4}]}, Dynamic@ArrayPlot[data^p]], {p, 0.1, 10}, SynchronousUpdating -> False] Use a local variable with no control: Manipulate[ data = RandomReal[{0, 1}, {4, 4}]; Dynamic@ArrayPlot[data^p], {p, 0.1, 10}, {data, None}, ...


4

This seems to work: Module[{amzn, googl}, amzn = InteractiveTradingChart[{"AMZN", {{2009, 1, 1}, {2009, 12, 31}}}]; googl = InteractiveTradingChart[{"GOOGL", {{2009, 1, 1}, {2009, 12, 31}}}]; TabView[{"AMZN" -> amzn, "GOOGL" -> googl}]]


4

ClearAll[x1, x2, l, m, n] x1[l_, n_, m_] := x /. First@Solve[(n - x) m == x*l, x] x2[l_, n_, m_] := x /. First@Solve[x (n - x) m - (x - 1)*(n - x + 1) m == x l, x] Manipulate[Plot[{(n - x) m, x*l, x (n - x) m - (x - 1)*(n - x + 1) m}, {x, 1, If[n <= 10, 10, n]}, AspectRatio -> 1, PlotRange -> All, Epilog -> {Red, PointSize[Large], Point[{#...


3

Make s1 and s2 manipulate parameters with no controls and update them using TrackingFunction in controls mu1 and mu2: Manipulate[Style[#, 16] & @ TableForm[{s1, s2}], {mu1, -1, 1, TrackingFunction -> (mu1 = #; s1 = RandomVariate[NormalDistribution[#, 1], 5]; &)}, {mu2, -1, 1, TrackingFunction -> (mu2 = #; s2 = RandomVariate[...


2

New Edit Maybe use With Manipulate[With[{data = RandomReal[{0, 1}, {2, 2}]}, Dynamic@Show[ArrayPlot[data^p], Graphics[Circle[]]]], {p, 0.1, 10}, SynchronousUpdating -> False] Edit Manipulate[data = RandomReal[{0, 1}, {2, 2}]; Dynamic@Show[ArrayPlot[data^p], Graphics[Circle[]]], {p, 0.1, 10}, SynchronousUpdating -> False] Original Manipulate[...


2

Here is a clean version of your code. First, I convert some repetitive pieces of the code to functions, so that they can be reused easily. Creating a function out of the big equation f[bd_, bh_, l_, pm_, p_, o_, t_] := (((0.669207*(471 - bd) + 0.068928*(bd) + 1.91202*(1776 - bh) + 0.196938*(bh) + 0.764808*(495 - l) + 0.078775*(l) + 0.223096*(3793 - ...


1

By using Dynamic[] we are able to localise variables, preventing the entire expression from updating. Clear[S1]; Clear[S2]; S1[mu1_] := RandomVariate[NormalDistribution[mu1, 1], 1][[1]]; S2[mu2_] := RandomVariate[NormalDistribution[mu2, 1], 1][[1]]; Manipulate[ { {{Table[Dynamic[S1[mu1]], 10]}}, {{Table[Dynamic[S2[mu2]], 10]}} } // TableForm, {mu1,...


1

Try Manipulate[With[{i = i}, DynamicImage@Image[RandomReal[{0, i}, {100, 100}]]], {i, 0, 1}] or Manipulate[DynamicImage @ Image[RandomReal[{0, #}, {100, 100}]] & @ i, {i, 0, 1}] or Manipulate[DynamicImage@Image[RandomReal[{0, j}, {100, 100}]] /. j -> i, {i, 0, 1}]


1

entity = RandomEntity["Country"] cities = CityData[{Large, CanonicalName @ entity}] Manipulate[DynamicGeoGraphics[{GeoMarker[cities], GeoPath[{x, y}, "Geodesic"]}], {{x, First @ cities}, Thread[cities -> CommonName /@ cities], ControlType -> PopupMenu}, {{y, Last @ cities}, Thread[cities -> CommonName /@ cities], ControlType -&...


Only top voted, non community-wiki answers of a minimum length are eligible