Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data =
- {
- {0., {{0., 167588}, {.25, 171669}, {.5, 172119}, {.75, .16890}, {1., 164398}}},
- {.5, {{0., 222510}, {.25, 257364}, {.5, 259375}, {.75, 254025}, {1., 246744}}},
- {1., {{0., 161485}, {.25, 182667}, {.5, 188409}, {.75, 189229}, {1., 187053}}}
- };
- plotData =
- Module[{col, rows},
- {col, rows} = Transpose @ data;
- MapThread[Function[u, Insert[u, #1, 1]] /@ #2 &, {col, rows}] // Catenate]
- ListPlot3D[plotData]
Add Comment
Please, Sign In to add comment