MATLAB动图演示原理,求大神matlab中有趣的演示范例中的xpquad的工作原理是什么-CSDN博客

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

if nargin<1,

action='initialize';

end;if strcmp(action,'initialize'),

figNumber=figure( ...

'Name',getString(message('MATLAB:demos:xpquad:fig_Superquadrics')), ...

'NumberTitle','off', ...

'Visible','off', ...

'Color',0.8*[1 1 1], ...

'BackingStore','off');

colordef(figNumber,'white')

axes( ...

'Units','normalized', ...

'Position',[0.05 0.05 0.70 0.90], ...

'Visible','off'); %===================================

% Information for all buttons

labelColor=[0.8 0.8 0.8];

top=0.95;

bottom=0.05;

btnWid=0.15;

btnHt=0.10;

right=0.95;

left=right-btnWid;

% Spacing between the button and the next command's label

spacing=0.02;

%====================================

% The CONSOLE frame

frmBorder=0.02;

yPos=bottom-frmBorder;

frmPos=[left-frmBorder yPos btnWid+2*frmBorder 0.9+2*frmBorder];

h=uicontrol( ...

'Style','frame', ...

'Units','normalized', ...

'Position',frmPos, ...

'BackgroundColor',[0.50 0.50 0.50]); %====================================

% The first slider

btnNumber=1;

yPos=top-(btnNumber-1)*(btnHt+spacing);

callbackStr='xpquad(''build'');'; % Generic button information

sldPos=[left yPos-2*btnHt btnWid btnHt];

labelPos1=[left yPos-btnHt/2 btnWid btnHt/2];

labelPos2=[left yPos-btnHt btnWid btnHt/2];

sld1Hndl=uicontrol( ...

'Style','slider', ...

'Tag','vertical', ...

'Units','normalized', ...

'Position',sldPos, ...

'Callback',callbackStr); uicontrol( ...

'Style','text', ...

'String',getString(message('MATLAB:demos:xpquad:uicontrol_Vertical')), ...

'Units','normalized', ...

'Position',labelPos1);

uicontrol( ...

'Style','text', ...

'String',getString(message('MATLAB:demos:xpquad:uicontrol_Roundness')), ...

'Units','normalized', ...

'Position',labelPos2); %====================================

% The second slider

btnNumber=3;

yPos=top-(btnNumber-1)*(btnHt+spacing);

callbackStr='xpquad(''build'');'; % Generic button information

sldPos=[left yPos-2*btnHt btnWid btnHt];

labelPos1=[left yPos-btnHt/2 btnWid btnHt/2];

labelPos2=[left yPos-btnHt btnWid btnHt/2];

sld2Hndl=uicontrol( ...

'Style','slider', ...

'Tag','horizontal', ...

'Units','normalized', ...

'Position',sldPos, ...

'Callback',callbackStr); uicontrol( ...

'Style','text', ...

'String',getString(message('MATLAB:demos:xpquad:uicontrol_Horizontal')), ...

'Units','normalized', ...

'Position',labelPos1);

uicontrol( ...

'Style','text', ...

'String',getString(message('MATLAB:demos:xpquad:uicontrol_Roundness')), ...

'Units','normalized', ...

'Position',labelPos2); %====================================

% The HELP button

labelStr=getString(message('MATLAB:demos:shared:LabelHelp'));

callbackStr=['helpwin ' mfilename];

uicontrol( ...

'Style','pushbutton', ...

'Units','normalized', ...

'Position',[left bottom+btnHt+spacing btnWid btnHt], ...

'String',labelStr, ...

'Callback',callbackStr); %====================================

% The CLOSE button

labelStr=getString(message('MATLAB:demos:shared:LabelClose'));

callbackStr='close(gcf)';

uicontrol( ...

'Style','push', ...

'Units','normalized', ...

'Position',[left bottom btnWid btnHt], ...

'String',labelStr, ...

'Callback',callbackStr); % Uncover the figure

set(figNumber, ...

'Visible','on'); % Make the sliders 16 pixels tall so it looks good on a Mac

set([sld1Hndl sld2Hndl],'Units','pixel')

sld1Pos=get(sld1Hndl,'Position');

sld2Pos=get(sld2Hndl,'Position');

set(sld1Hndl,'Position',[sld1Pos(1) sld1Pos(2)+sld1Pos(4)-16 sld1Pos(3) 16])

set(sld2Hndl,'Position',[sld2Pos(1) sld2Pos(2)+sld2Pos(4)-16 sld2Pos(3) 16])

set([sld1Hndl sld2Hndl],'Units','normalized') % Draw the initial superquadric

n=5*get(sld1Hndl,'Value');

e=5*get(sld2Hndl,'Value');

[x,y,z]=superquad(n,e,20);

surfHndl=surf(x,y,z);

set(surfHndl,'Tag','surface');

light('Position',[2 -1 10]);

light('Position',[-3 -1 -5]);

lighting phong

axis off;

shading interp;

colormap([0 0 1])

drawnowelseif strcmp(action,'build'),

%====================================

axHndl=gca;

figNumber=gcf;

sld1Hndl=findobj(gcf,'Tag','horizontal');

sld2Hndl=findobj(gcf,'Tag','vertical'); % Xpquad problem

n=5*get(sld1Hndl,'Value');

e=5*get(sld2Hndl,'Value');

[x,y,z]=superquad(n,e,20);

surfaceHndl=findobj(gcf,'Tag','surface');

set(surfaceHndl,'XData',x,'YData',y,'ZData',z)

drawnowend; % if strcmp(action, ...