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]]], ...


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