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

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

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

x_0=

y_0=

Recompute

Component graph x(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

x1 = 2.2836774662429313
P1: (2, 4)
maxT = 40 (slider from 0 to 50)
g'(t, x, y) = (-1 * sin(x)) - (0.1 * y) + (0.44 * cos((0.69 * t)))
f'(t, x, y) = y
y0 = 0.7615948503629681
x0 = 2.2836774662429313
e1 = true
e2 = false
e3 = true
InputBox1 = Textfield(x0)
InputBox2 = Textfield(y0)
text1: "\frac{dx}{dt}= " + (LaTeX[f']) + " \\
\frac{dy}{dt}= " + (LaTeX[g']) + ""
InputBox3 = Textfield(f')
InputBox4 = Textfield(g')
t = 22.8 (slider from 0 to maxT, step maxT / 100)
c: (1 / maxT * t)
numericalIntegral1, numericalIntegral2 = NSolveODE({f', g'}, 0, {x0, y0}, maxT)
t1: x(Point[numericalIntegral1, c])
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 = false
C: (x0, y0)
P2: ((2 * sin(x1)) + x(P1), (-2 * cos(x1)) + y(P1))
g = Segment(P1, P2)
run = 76 (slider from 0 to 100, step 1)
t0: 0
tstart: 0
tstep: maxT / 120
tcont = 0
dumflag = 0
xdum = 4.97622535181739
ydum = 0.16393206688698905
tdum = 172.33333333333385
y1 = 0.7615948503629681
numericalIntegral3, numericalIntegral4 = NSolveODE({f', g'}, tcont, {x1, y1}, tcont + tstep)
A: (x1, y1)
plist = Sequence((y(Point[numericalIntegral1, i / ((40 * maxT))]), y(Point[numericalIntegral2, i / ((40 * maxT))])), i, 0, (40 * maxT))
f = PolyLine(plist)
n = 0
xlast = 2.2836774662429313
ylast = 0.7615948503629681
numericalIntegral5, numericalIntegral6 = NSolveODE({f', g'}, (n * maxT), {xlast, ylast}, (n * maxT) + maxT)
qlist = Sequence((y(Point[numericalIntegral5, i / ((40 * maxT))]), y(Point[numericalIntegral6, i / ((40 * maxT))])), i, 0, (40 * maxT))
f2 = PolyLine(qlist)