We have N=45
lists as below ones (I am bringing some of them to show their ordering)
list[1]={{0.26, 3, 0}, {0.26, 4, 0}, {0.26, 5, 0}, {0.26, 6, 0.0445602}};
list[2]={{0.27, 3, 0}, {0.27, 4, 0}, {0.27, 5, 0.129654}, {0.27, 6, 0}};
list[3]={{0.28, 3, 0}, {0.28, 4, 0.00488254}, {0.28, 5, 0.124178}, {0.28, 6,
0}};
.
.
list[20]={{0.45, 3, 0.228627}, {0.45, 4, 0}, {0.45, 5, 0}, {0.45, 6, 0}};
..
list[45]={{0.7, 3, 0.362271}, {0.7, 4, 0}, {0.7, 5, 0}, {0.7, 6, 0}};
If n
is 3,4,5,...
(the middle value in each row of any list ) and considering two edge numbers of each row in any list we wish to reach:
extract[3]={{0.26,0},{0.27,0},{0.28,0}, .....,{0.7,0.36}};
extract[4]={{0.26,0},{0.27,0},{0.28,0.00488254}, .....,{0.7,0}};
extract[5]={{0.26,0},{0.27,0.129654},{0.28,0.124178}, .....,{0.7,0}};
extract[6]={{0.26,0.0445602},{0.27,0},{0.28,0}, .....,{0.7,0}};
and so on
By:
extract= {}; Do[AppendTo[extract, list[i]], {i, 1,45}];
we joined all of them. After that we do not know what should be done!