Guest User

Untitled

a guest
Feb 23rd, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. data =
  2. {
  3. {0., {{0., 167588}, {.25, 171669}, {.5, 172119}, {.75, .16890}, {1., 164398}}},
  4. {.5, {{0., 222510}, {.25, 257364}, {.5, 259375}, {.75, 254025}, {1., 246744}}},
  5. {1., {{0., 161485}, {.25, 182667}, {.5, 188409}, {.75, 189229}, {1., 187053}}}
  6. };
  7.  
  8. plotData =
  9. Module[{col, rows},
  10. {col, rows} = Transpose @ data;
  11. MapThread[Function[u, Insert[u, #1, 1]] /@ #2 &, {col, rows}] // Catenate]
  12.  
  13. ListPlot3D[plotData]
Add Comment
Please, Sign In to add comment