11.01.2015 Views

Faça o download da tese completa na versão em PDF - A Biblioteca ...

Faça o download da tese completa na versão em PDF - A Biblioteca ...

Faça o download da tese completa na versão em PDF - A Biblioteca ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

iii = 1 ; soma = 0 ;<br />

,<br />

True<br />

,<br />

iii ++ ;<br />

,<br />

incr<strong>em</strong>ento =<br />

(2/(x^2))(2 iii + 1) ( (Abs[a[iii][x,m]])^2 + (Abs[b[iii][x,m]])^2 ) ;<br />

soma += incr<strong>em</strong>ento ;<br />

If [ iii > 70 , Return[soma]; ];<br />

];<br />

Q[r_][l_] := Q[x[r][l],m[l]] ;<br />

Q[r_,lmin_,lmax_,l_] :=<br />

If[ lmin

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!