+ + + +    
clear all; clf; close all;

figure(1)
subplot(1,2,1); 
     [x,y]=meshgrid(0:6, 0:10);
     z= sin(x) .* cos(y/2);
     bar3(z);
    pause(2)
    set(gca, 'color', 'none', 'xcolor', 'k', 'xgrid', 'off', 'ycolor','k', 'ygrid','off');
    set(gca,'Xcolor','r' , 'Ycolor' , 'y' , 'GridlineStyle', ':' , 'LineWidth' , 3)

subplot(122)
     HB = stem3(z, 'c*', 'filled')                                      % >  Farben  anpassen wie bei "bar3"
   set(HB, 'linewidth', 2, 'markersize', 10)
     pause(2)
     set(gca, 'color', 'none', 'xcolor', 'k', 'xgrid', 'off', 'ycolor','k', 'ygrid','off');
    set(gca,'Xcolor','r' , 'Ycolor' , 'y' , 'GridlineStyle', ':' , 'LineWidth' , 3)
    set(gcf,'color','k');
pause(2)