Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.87 KB | None | 0 0
  1. tab;
  2. part = -1;
  3. Map[
  4. (part++;
  5. pos = Ordering[#, 1];
  6. Flatten[{#[[pos]], part*10 + pos}]) &,
  7. Partition[tab, 10]]
  8.  
  9. {{1.14342, -0.229913, 0.010659, 0.0106627, 0.0220835}, {1.14342,
  10. 0.056976, -3.4145*10^-6, -3.4142*10^-6, 2.8*10^-7}, {1.14342,
  11. 0.046243, -4.5741*10^-9, -4.5743*10^-9, 1.094*10^-11}, {1.14342,
  12. 0.026232, -1.8258*10^-8, -1.8258*10^-8, 1.0785*10^-12}, {1.14342,
  13. 0.00997399, -2.83587*10^-17, -2.83586*10^-17,
  14. 1.23384*10^-27}, {1.14342, 0.0000188759, 1.18276*10^-19,
  15. 1.18276*10^-19, -4.37444*10^-37}, {1.14342, 2.53853*10^-6,
  16. 3.61987*10^-23, 3.61987*10^-23, -5.51771*10^-44}, {1.14342,
  17. 3.33013*10^-7, 1.07414*10^-26,
  18. 1.07414*10^-26, -6.84044*10^-51}, {1.14342, 3.31144*10^-8,
  19. 3.13814*10^-30,
  20. 3.13814*10^-30, -8.37446*10^-58}, {1.14342, -6.17228*10^-9,
  21. 8.89034*10^-34, 8.89034*10^-34, -1.01556*10^-64},.....}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement