4
In MATLAB, what I generally use, you can just use the 'hold on'
command.
There is no hold on in Mathematica, but you can add a point to a plot in many ways. One is to use Epilog
Code
Clear["Global`*"];
fx[a_, b_, c_, d_, u_, L0_, x_, y_] := x*(L0 - a*x - b*y)
fy[a_, b_, c_, d_, u_, L0_, x_, y_] := y*(u - c*x - d*y);
xCoord[a_, b_, c_, d_, u_, L0_] := (...
3
I am not able to evaluate the OP's notebook, as it uses stuff that can't be parsed by version 11.2. Nevertheless, let me show a small demonstration of coloring a dodecahedron and adding lines to it, using the method from this answer, and the built-in PolyhedronData["Dodecahedron"]:
Graphics3D[{Directive[AbsoluteThickness[4], EdgeForm[AbsoluteThickness[4]]], ...
answered May 7 at 9:44
2
I want the slider to be hidden at first, and to be shown only when I
check the checkbox
In this case I suggest you use OpenerView
code
pts1 = Table[{x, x^2}, {x, -10, 10}]
pts2 = Table[{x, 0.5*x^2}, {x, -10, 10}]
Manipulate[
tick;
g = Graphics[{{Line[Take[pts1, n]], Line[Take[pts2, n]]}},
Axes -> True, PlotRange -> {{-20, 20}, {0, 100}},
...
2
whenever you use Manipulate, use TrackedSymbols to tell it which symbols to track
Manipulate[m = RandomPrime[d];
{m, d}, {d, {20, 50}, SetterBar},
TrackedSymbols :> {d}]
Without this, it will track each symbol in its expression and if any changes, it will re-evaluate again automatically until no more changes are detected.
1
One possibility is to nest Manipulate
pts1 = Table[{x, x^2}, {x, -10, 10}];
pts2 = Table[{x, 0.5*x^2}, {x, -10, 10}];
Manipulate[
If[check,
Manipulate[
Graphics[
{Line[pts1[[1 ;; n]]], Line[pts2[[1 ;; n]]]},
Axes -> True,
PlotRange -> {{-20, 20}, {0, 100}}],
{{n, 21}, 1, 21, 1, Animator,
AnimationRepetitions -> 2,
...
1
You can use an iframe within wordpress. The ones created here are using iframe within wordpress: https://sameradeeb-new.srv.ualberta.ca/introduction-to-numerical-analysis/finding-roots-of-equations/
Based on my limited experience, I recommend using only one iframe per page.
1
Plot your function for given value c=.5(for example) with the option RegionFunction
pic = Plot3D[ g[p, q, .5] , {p, 0, 1}, {q, 0, 1}, RegionFunction -> Function[{p, q, z}, z <= 1]]
With
points=pic[[1, 1]][[1]]
(*{{7.14286*10^-8, 7.14286*10^-8, 0.500001}, {0.0714286, 7.14286*10^-8,0.64673},
{0.142857, 7.14286*10^-8, 0.753498}, {0.214286,7.14286*...
1
I'm not sure exactly how you want the interface. Here's way to monitor the progress but without Monitor:
ClearAll[progressFunction];
progressFunction[time_, t_] := Module[{},
If[time > 0,
For[t = 0, t <= time, t++, Pause[1]]
];
t = 0;
];
Manipulate[
progressFunction[time, Unevaluated@progress];
{time, progress},
{{time, 0}, ...
Only top voted, non community-wiki answers of a minimum length are eligible
