Consider two tables
Tab1 = Table[{{RandomReal[{0, 1}],
RandomReal[{0, 1}]}, {RandomReal[{0, 1}],
RandomReal[{0, 1}]}, {RandomReal[{0, 1}],
RandomReal[{0, 1}]}}, {i, 1, 5, 1}];
Tab2 = Table[{{RandomReal[{0, 1}],
RandomReal[{0, 1}]}, {RandomReal[{0, 1}],
RandomReal[{0, 1}]}}, {i, 1, 5, 1}];
Their rows are also tables:
Tab2//TableForm
I would like to make several manipulations with the tables:
Combine the tables in a way such that their sub-tables will be merged. The ugly realization (in the sense that it may be slow if Tab1 has a large size) is
TabJoined=Table[Join[Tab1[[i]],Tab2[[i]]],{i,1,Length[Tab1],1}];
Extract only the first row from each sub-table of Tab1. The ugly realization is
TabRowExtracted=Table[Tab1[[i]][[2]],{i,1,Length[Tab1],1}];
Multiply each 2nh element of the second row of Tab1 by 2:
TabSecondElementMultiplied=Table[{Tab1[[i]][1],{Tab1[[i]][[2]][[2]],2*Tab1[[i]][[2]][[2]]},Tab1[[i]][[3]]},{i,1,Length[Tab1],1}];
Could you please tell me whether there are faster realizations of these tasks?
Tab1=RandomReal[{0,1},{5,3,2}]; Tab2=RandomReal[{0,1},{5,2,2}];
. $\endgroup$