function setbardata(B,H,N)

for n=1:N
   data=[NaN           0           0         NaN
           0       B(1,n)       B(1,n)           0
           0       B(1,n)       B(1,n)           0
         NaN           0           0         NaN
         NaN           0           0         NaN
         NaN         NaN         NaN         NaN
         NaN           0           0         NaN
           0       B(2,n)       B(2,n)           0
           0       B(2,n)       B(2,n)           0
         NaN           0           0         NaN
         NaN           0           0         NaN
         NaN         NaN         NaN         NaN
         NaN           0           0         NaN
           0       B(3,n)       B(3,n)           0
           0       B(3,n)       B(3,n)           0
         NaN           0           0         NaN
         NaN           0           0         NaN
         NaN         NaN         NaN         NaN];
     
     set(H(n),'ZData',data);
     
end