beamlet3dfig03.m

来自「beamlet变化的工具箱」· M 代码 · 共 65 行

function Beamlet3Dfig02(OpenNewWindow,HaveTitle,LoadData)

%auxillary function: box1

LoadData=0;
if nargin<2
    HaveTitle=1;
end
if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end
subplot(1,2,1)
box1(1,0,0,0);
set(gca,'Xtick',0:.5:1,'Ytick',0:.5:1,'Ztick',0:.5:1,'Projection','Orthographic');
zoom(.8)
text(0,.6,1.6,'C(0,0,0,0)','fontsize',8,'color','b','fontunits','normalized');
axis on
subplot(1,2,2)
n=1;
l=1;
d1=0.02;


text(-.75,.6,.7,'C(0,1,0,1)','fontsize',12,'color','b','fontunits','normalized');
text(-.75,.6,1.2,'C(0,1,1,1)','fontsize',12,'color','b','fontunits','normalized');
text(0.3,.6,1.5,'C(1,1,1,1)','fontsize',12,'color','b','fontunits','normalized');
text(0.9,-.3,.45,'C(1,0,0,1)','fontsize',12,'color','b','fontunits','normalized');
text(0.9,-.3,.95,'C(1,0,1,1)','fontsize',12,'color','b','fontunits','normalized');
text(.1,-.2,-0.05,'C(0,1,0,1)','fontsize',12,'color','b','fontunits','normalized');
n=n-d1;
for x=0:l,
   for y =0:l,
      for z=0:l,
         box1(n/2,x*(d1+n/2),y*(d1+n/2),z*(d1+n/2)) 
      end
   end
end
%cameramenu
set(gca,'Projection','Orthographic','Xtick',0:0.5:1,'Ytick',0:0.5:1,'Ztick',0:0.5:1);
axis on
zoom(.8)
set(GCF, 'Renderer','Zbuffer');

if HaveTitle
   text(-1.2,1,2.3,'Dyadic cubes','fontsize',13,'fontunits','normalized')
end

%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%