I am sorry for bothering you all with the asymptotic again and again. Actually I am unable to find a magic way to evaluate an asymptotic expension.  

R3Infintyplots_S0=.mws

Hi,

How to compress the following equation to make it more easly readable.

A:=-1/2*Phi*(variphi*sigma*sinh(l*S0)*cosh(l)-variphi*sigma*sinh(l*S0)*sinh(l)-variphi*sigma*sinh(l*S0)*R1*cosh(l)+variphi*sigma*sinh(l*S0)*R1*sinh(l)+cosh(l*S0)*l*N_1*cosh(l)-cosh(l*S0)*l*N_1*sinh(l))/l/(-R1*R2*cosh(-l+l*S0)*sinh(l*S0)+sinh(-l+l*S0)*cosh(l*S0));

Thanks

A := C/H/k*Q/R1/R2/(-1+R1)*(Q*R2*R1-R1*R2+1)-2*C*Q*(R1*R2+1)/H/k/(-1+R1)/R1/R2;

plot14:= plot(subs({Q=6,R2=8.75,k=4,C=1.96,H=7},A),R1=0..1,color=blue):

display(plot14,view=-15..10);

points:=op([1,1],plot14):

writedata("c:/khan/plotdata.txt",points,float);

Error, (in writedata) Bad data found undefined

Any one there?

Is there an easy way to find the limit of the following equations as Pec_i approches infinity.

 Equation 1

(Q*(R*S+1-S)/(1-R*R3*k*(1-R1)/C/Pec_i*S)*(H_vap+1/(1-exp(Pec_i)))*exp(C*Pec_i/(R*S+1-S)*(1-R*R3*k*(1-R1)/C/Pec_i*S)*S/k)-H_vap)*(1-exp(Pec_i*(1-S)/(R*S+1-S)*(1-R*R3*k*(1-R1)/C/Pec_i*S))) = 1;

 Equation 2

 Theta0/C = (exp(Pec_i/(R*S+1-S)*(1-R*R3*k*(1-R1)/C/Pec_i*S)*(1-S))-1)*(H_liq+1/(1-exp(-C/k*Pec_i/(R*S+1-S)*(1-R*R3*k*(1-R1)/C/Pec_i*S)*S)));

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};...