Procedure returning plot

DuncanA — Sat, 07 May 2011 22:45:45 Z

I have solved a similar problem by having a procedure myplot() that gets the values from each slider and returns the plot so the code for each slider is Do(%Plot0=myplot()); There are five sliders in the attached worksheet which all call myplot() when updated.

>	# Standing Wave

restart;

>	y01sin(omegat-kx) + y02sin(omegat+kx);

(1)

myplot := proc()
    uses DocumentTools;
    local y01, y02, omega, t, k, y1, y2, p1, p2, p3;
    y01 := GetProperty('y01Slider', 'value');
    y02 := GetProperty('y02Slider', 'value');
    omega := GetProperty('omegaSlider', 'value');
    t := GetProperty('tSlider', 'value');
    k := GetProperty('kSlider', 'value');
    y1 := y01*sin(omega*t-k*x);
    y2 := y02*sin(omega*t+k*x);
    p1 := plot(y1, x = 0 .. 5, color=red);
    p2 := plot(y2, x = 0 .. 5, color=green);
    p3 := plot(y1 + y2, x = 0 .. 5, color=blue);
    plots:-display([p1, p2, p3], scaling=constrained);
end proc:

>	#DocumentTools:-Do(%Plot0=myplot()): # Each slider contains Do(%Plot0=myplot()) as the action when the slider value changes.

Download Standing_Wave.mw

---

Duncan

MaplePrimes - answers and comments on Question, How to code sliders to make it easy to add new ones?

Procedure returning plot