Question: Differene between two functions

Hello All,

This is my first post, and I want to thank you for helping guys like me.

I am working on a project, but I've gotten to a point, where I need help :(

Actually, it is 2 points...

• I am using Maple 12 (document mode), and I'm trying to get the following graph drawn:

mm:=(101/100)*ln(10)-ln(S(t))+10-S(t) = 5*t

plot2:=implicitplot(mm, t = 0 .. 10, S = 0 .. 10)

display(plot2)

Even with "t = 0 .. 10, S = 0 .. 10" the graph litterarly ends at about (2.5 , 0,5).

Can I make another plot, so that the graph will continue until about S=0?

• The above mentioned plot2 is also plotted with another graph like this:

display(plot1,plot2)

plot1 is defined as such:

sol1 := dsolve([a, b, c, d, E(0) = 1, P(0) = 0, S(0) = 10, X(0) = 0], numeric, method = classical[rk4], stepsize = 0.5e-4)
plot1 := plots[odeplot](sol1, [t, S(t)], 0 .. 8, color = red)

The functions E(t), X(t), S(t) and P(t) are just some functions coupled to each other via the ODEs a, b, c and d...

Is there a way to make another plot defined as the difference between the function S(t) from mm and the function S(t) from the ODEs at a given time?

In other words, the deviation of the two functions S(t).

I hope I have explained myself well enough for some to help me.

Thank you in advance

vik20