| Author |
Comment/Response |
Bill Simpson
|
 10/17/12 11:38am
Is this what you want?
In[1]:= zrange=Range[3];
data=Map[{z=#;
z,
FindRoot[Integrate[1/14 (r^2) (((2 (z^(3/2)) E^(-z*r))^2)+9 (((1/(3^.5)) ((z/2)^(3/2)) (z*r) (E^(-(z*r)/2)))^2)+4 ((2/27) ((2/5)^.5) ((z/3)^(3/2)) ((z*r)^2) (E^(-(z*r)/3)))^2),{r,0,L}]\[Equal].9,{L,1}][[1]][[2]]}&,zrange]
Out[1]= {{1,11.7958},{2,5.89788},{3,3.93192}}
All I did was initialize z to be the value of the item in zrange that you were mapping over.
URL: , |
|
