Hi, i Have
H = {1.5, 0.4};
cp4p = {{{1, 2}, {3, 4}, {5, 6}}, { }};
For[i = 1, i <= Length[H], i ++, If[cp4p[[i,All,All]]=="{}" , Delete[H,i], H[[i]]]]
But the instruction doesn't work, why?
I would as result
`H={1.5}`
This is un exemple that generalize my case.
Thank you for your attention. Margherita
