restart:
with(Maplets[Tools]): with(Maplets[Elements]): with(plots):
StartEngine();
PlotIt:=Maplet(onstartup = RunWindow(MAIN),
Window[MAIN]('title'="Plot It Demo",
[ ["Type in a function of x, and an interval a..b for x."],
["Function:", TextField['func']('width'=25, background=turquoise)],
["Interval:", TextField['interv']('width'=25, background=turquoise)],
[Button("Plot It", Evaluate('function' = "plotfunc"), background=tan)],
[Button("Good Bye", Shutdown(), background=pink)]
]
)
):
[Plotter['myplot']('width'=300, 'height'=300)],
plotfunc:=proc()
local userfunc, userinterv, userpoint, p1;
userfunc:=Get('func'::'anything'):
userinterv:=Get('interv'::'range'):
p1:=plot(userfunc, x=userinterv, thickness=5, color=green);
Set('myplot'=p1)
end proc:
Maplets[Display]( PlotIt );