%%
global auto_path
set auto_path "/mit/cdsdev/html/Ode $auto_path"
$this append [OdeMakeGraph $this]
if {[string length [info globals OdeServer]] == 0} {
OdeServerOpen ode
}
%% %%
frame $this.f -borderwidth 2 -relief raised
pack append $this.f \
[radiobutton $this.f.brusselator -text "Brusselator" \
-borderwidth 0] {top fillx} \
[radiobutton $this.f.pendulum -text "Pendulum" \
-borderwidth 0] {top fillx} \
[radiobutton $this.f.verhurst -text "Verhurst" \
-borderwidth 0] {top fillx} \
[radiobutton $this.f.vanderpol -text "Van Der Pol" \
-borderwidth 0] {top fillx} \
[radiobutton $this.f.pp -text "Predator Prey" \
-borderwidth 0] {top fillx}
$this append $this.f
%%
%%
button $this.integ -text "Push to integrate" -command "OdeDoIntegration $this"
button $this.clear -text "Push to clear" -command "OdeClearLines $this"
button $this.direction -text "Push for direction field" \
-command "OdeDirectionField $this"
$this append $this.integ
$this append $this.clear
$this append $this.direction
%%
Parameters and Initial Conditions
%%
$this append [OdeMakeEntry $this "params" 3 "param"]
%% %%
$this append [OdeMakeEntry $this "initial" 2 "initial"]
%%
%%
$this append [OdeMakeEntryFromList $this f3 {step_size num_steps}]
$this.f3.step_size.entry insert 0 0.01
$this.f3.num_steps.entry insert 0 1000
OdeServerSend {OdeSetFunction pendulum}
%%