Question: plot error ?

Robert Israel helped me to plot  F2 vs k 

http://www.mapleprimes.com/questions/120380-Explicate-Plotting

I tried to modify his code to get reults for F2 vs S from equation A1, but i am still facing problems with it

The maple code is

restart:with(MultiSeries):with(plots):

parvalues:={C=2.02,H_liq=8.74,R=22.11,R1=0.0006};

G:=R3*k*(1-R1)/(C*Pec_i);

F1:=1/(R*S+1-S);

F:=F1*(1-R*G*S);

F2:=Pec_i*F;

A1:=Theta0/C=(exp(F2*(1-S))-1)*(H_liq+1/(1-exp(-C/k*F2*(S))));

Robert Israel code for F2 vs k

R3values:= [0,-1,-3,-4]; colours:= [red,blue,green,black];
   display([seq(plottools[transform](
      unapply([k, subs(parvalues, Pec_i = -20, R3=R3values[i], F2)], (k,S)))
      (implicitplot(subs(parvalues,Theta0=4,R3=R3values[i],Pec_i=-20,A1),
              k=0..20, S=0..1, colour=colours[i],gridrefine=3)), i=1..4)],
labels=[k,'F2']);

 

The above command give me plot for F2 vs k. Now I want to fix k=4 and the rest of the parameters have the same values as the above plot and want to get results for F2 vs S from A1.

Please Wait...