Guest User

Untitled

a guest
Feb 20th, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.10 KB | None | 0 0
  1. x = {0.01`, 0.11`, 0.21000000000000002`, 0.31000000000000005`,
  2. 0.41000000000000003`, 0.51`, 0.6100000000000001`,
  3. 0.7100000000000001`, 0.81`, 0.91`};
  4. y = {1.`, 1.`, 1.`, 1.`, 1.`, 0.9804148800744802`,
  5. 0.8196730260718126`, 0.6189620070242443`, 0.40469250572443105`,
  6. 0.26901189545273474`};
  7. z = {0.8153370522348216`, 0.8853249359665971`, 0.9223317847713025`,
  8. 0.9559380865485229`, 0.9999999995185327`, 1.`, 1.`,
  9. 0.9084506972387802`, 0.7345679056105409`, 0.5989011012000781`};
  10. domain = Partition[Flatten[{x, y, z}], 3];
  11.  
  12. f[x_, y_, z_] := (x + 1.5*y + 1.2*z)/(1 + x);
  13.  
  14. Map[f, domain]
  15.  
  16. {f[0.01, 0.11, 0.21], f[0.31, 0.41, 0.51], f[0.61, 0.71, 0.81],
  17. f[0.91, 0.815337, 0.885325], f[0.922332, 0.955938, 1.],
  18. f[1., 1., 0.908451], f[0.734568, 0.598901, 1.], f[1., 1., 1.],
  19. f[1., 0.980415, 0.819673], f[0.618962, 0.404693, 0.269012]}
  20.  
  21. {f[{0.01, 0.11, 0.21}], f[{0.31, 0.41, 0.51}], f[{0.61, 0.71, 0.81}],
  22. f[{0.91, 0.815337, 0.885325}], f[{0.922332, 0.955938, 1.}],
  23. f[{1., 1., 0.908451}], f[{0.734568, 0.598901, 1.}], f[{1., 1., 1.}],
  24. f[{1., 0.980415, 0.819673}], f[{0.618962, 0.404693, 0.269012}]}
Add Comment
Please, Sign In to add comment