$\mbox{show} ~x(t)$

$\mbox{show} ~y(t)$

$\mbox{show} ~(x(t),y(t))$

x_0=

y_0=

Recompute

Component graph x(t)

x(t)

y(t)

animate time

x

y

t

x

y

t

x

x,y

too messy

f(t) =

g(t) =

\leq t_{\mbox{par}} \leq 

parametric

initial point

e1 = true
e2 = false
e3 = true
x0: 4
y0: 4
InputBox1 = Textfield(x0)
InputBox2 = Textfield(y0)
f'(t, x, y) = y
g'(t, x, y) = (-5 * x) - (6 * y) + (10 * cos((3 * t)))
text1: "\frac{dx}{dt}= " + (LaTeX[f']) + " \\
\frac{dy}{dt}= " + (LaTeX[g']) + ""
InputBox3 = Textfield(f')
InputBox4 = Textfield(g')
maxT = 21 (slider from 0 to 50)
t = 2.6 (slider from 0 to maxT)
c: (1 / maxT * t)
numericalIntegral1, numericalIntegral2 = NSolveODE({f', g'}, 0, {x0, y0}, maxT)
plist = Sequence((y(Point[numericalIntegral1, i / ((40 * maxT))]), y(Point[numericalIntegral2, i / ((40 * maxT))])), i, 0, (40 * maxT))
f = PolyLine(plist)
t1: x(Point[numericalIntegral1, c])
x1: y(Point[numericalIntegral1, c])
y1: y(Point[numericalIntegral2, c])
A: (x1, y1)
B: (t1, x1)
D: (t1, y1)
a = false
xtxth: y(Corner[text2, 3]) - y(Corner[text2, 1])
xtxtw: x(Corner[text2, 3] - Corner[text2, 1])
ytxth: y(Corner[text3, 3]) - y(Corner[text3, 1])
ytxtw: x(Corner[text3, 3]) - x(Corner[text3, 1])
ttxth: y(Corner[text4, 3]) - y(Corner[text4, 1])
ttxtw: x(Corner[text4, 3]) - x(Corner[text4, 1])
xmin: x(Corner[2, 1])
xmax: x(Corner[2, 3])
ymin: y(Corner[2, 1])
ymax: y(Corner[2, 3])
xg(t) = (6 * ℯ^((-t))) - (2 * ℯ^((-5 * t)))
InputBox5 = Textfield(xg)
yg(t) = (-6 * exp((-t))) + (10 * exp((-5 * t)))
InputBox6 = Textfield(yg)
parstart: -3
parend: 32
InputBox7 = Textfield(parstart)
InputBox8 = Textfield(parend)
b = CurveCartesian(xg(t), yg(t), t, parstart, parend)
e4 = true
C: (x0, y0)