{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots);
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 60 "Exact traveling wave solution
 of generalized Fisher equation" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "
u:=x->1/(1+exp(a*x))^(2/m);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
56 "eq:=d*diff(u(x),x,x)+c*diff(u(x),x)+k*u(x)*(1-(u(x))^m);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "simplify(eq);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "eq1:=simplify(eq,assume=positive);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "eq2:=simplify(eq1*(1+ex
p(a*x))^((2*m+2)/m),assume=positive);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "eq3:=simplify(eq2*(m^2));" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 22 "collect(eq3,exp(a*x));" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 70 "solve(\{4*d*a^2+k*m^2-2*c*a*m=0, -2*c*a*m-2*d*a^2*m
+2*k*m^2=0\}, \{a,c\});" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "How ab
out the other problem " }{MPLTEXT 1 0 1 " " }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 59 "eqnew:=d*diff(u(x),x,x)+c*diff(u(x),x)+k*(u(x))^m*(1-
u(x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "simplify(eqnew);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "eqnew1:=simplify(eqnew,
assume=positive);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "eqnew2
:=simplify(eqnew1*(1+exp(a*x))^((2*m+2)/m),assume=positive);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 1 0" 57 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }