Advertisement
Guest User

Untitled

a guest
Jun 26th, 2019
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. ClearAll[f]
  2. f[a_] := f[a] = Cos[a]
  3.  
  4. grid = Table[x, {x, 1, 2, 0.1}];
  5. vals = Parallelize[f[#] & /@ grid];
  6.  
  7. In[30]:= DownValues[f]
  8. Out[30]= {HoldPattern[f[a_]] :> (f[a] = Cos[a])}
  9.  
  10. In[31]:= grid=Table[x,{x,1,2,0.1}];
  11. vals=f[#]&/@grid;
  12. DownValues[f]
  13. Out[33]= {HoldPattern[f[1.]]:>0.540302,HoldPattern[f[1.1]]:>0.453596,HoldPattern[f[1.2]]:>0.362358,HoldPattern[f[1.3]]:>0.267499,HoldPattern[f[1.4]]:>0.169967,HoldPattern[f[1.5]]:>0.0707372,HoldPattern[f[1.6]]:>-0.0291995,HoldPattern[f[1.7]]:>-0.128844,HoldPattern[f[1.8]]:>-0.227202,HoldPattern[f[1.9]]:>-0.32329,HoldPattern[f[2.]]:>-0.416147,HoldPattern[f[a_]]:>(f[a]=Cos[a])}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement