Message Boards Message Boards

0
|
1543 Views
|
1 Reply
|
1 Total Likes
View groups...
Share
Share this post:

Code show no plot although there is no error message?

Posted 3 years ago
SubPlus[k]/SubMinus[k] == 4/5;
    A[t_] := (c0/(1 + (SubMinus[k]/SubPlus[k])) )*( 
       Exp [-t (SubMinus[k] + SubPlus[k])] + (SubMinus[k]/SubPlus[k]))
    B[t_] := (c0/(1 + (SubMinus[k]/SubPlus[k])) )*( 
       1 - Exp [-t (SubMinus[k] + SubPlus[k])])
    Plot[{A[t]/c0, B[t]/c0}, {t, 0, 10}, PlotStyle -> {Blue, Red},
     PlotLegends -> "Expressions",
     AxesLabel -> {"time", "Concentration"}]
POSTED BY: Hsu Aung

Because you did not assign values to the expressions.

kp = 4;
km = 5; 

A[t_] := (c0/(1 + (km/kp)))*(Exp[-t (km + kp)] + (km/kp)) 

B[t_] := (c0/(1 + (km/kp)))*(1 - Exp[-t (km + kp)]) 


Plot[{ A[t]/c0, B[t]/c0}, {t, 0, 10}, PlotStyle -> {Blue, Red}, 
AxesLabel -> {"time", "Concentration"}, PlotRange -> All]
POSTED BY: Hans Dolhaine
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract