{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 52 "# a remarkable appro ximation of the Blasius function" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 226 "lambda:=0.3320574360;\na0:=1.667686765;\nBlasius:=ds olve(\{(D@@3)(y)(x)+1/2*y(x)*(D@@2)(y)(x)=0,y(0)=0,D(y)(0)=0,(D@@2)(y) (0)=lambda\}, numeric, output=operator);\na:=x->a0+0.05555*(x-3.286); \nf:=x->(tanh((lambda*x)^a(x)))^(1/a(x));" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 57 "plot([rhs(Blasius[3])(x),f(x)],x=0..8,color=[black, red]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "plot([(rhs(Blasiu s[3])(x)-f(x)),0.00016,-0.00016],x=0..8,color=[black,blue,blue]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }