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