Question: How to integrate

I need to find value of integrals ratio:

int(f2(t),t=0..5.5)/int(f1(t),t=0..5.5),

where the functions f1(t), f2(t) are result of numerical solution of differential equations system:

> restart; with(plots):
> sys:=diff(f1(t),t)=piecewise(t<=4,3*exp(-2*t),-1),
diff(f2(t),t)=sin(t):
init:= f1(0)=1, f2(0)=1:
> F:=dsolve({sys,init}, {f1(t), f2(t)}, numeric);
> Result:=odeplot(F, [[t,f1(t)],[t,f2(t)]], 0..5.5):
> display(Result);

In other words I need to find squares ratio under the curves which are result of solution of differential equations system.
 

Please Wait...