matlab函数在线手册,matlab内置函数大全,matlab函数速查,matlab在线教程,matlab语法--一手册
当前位置:>
matlab手册
matlab函数手册
版权归所有|
友链等可联系 |matlab（4）
进度条的调用格式为：h = waitbar(x, 'title', '后面可以加属性，和GUI一样');
X是分数到1的时候为百分之百，x = a/b;
使用get(h);,或者get(waitbar(x, 'title'));可以查看进度条的属性。
常用到的属性有’WindowStyle’默认为 normal，可以改成’modal’设置进度条已知在屏幕前面，小tips：如果程序在调试的时候，最好不要设置成modal因为这样程序出错不会跳转，无法继续调试（不过应该用不上吧，谁调试的时候不关waitbar么。循环很难调的）。
H =waitbar(0,'plot','windowstyle','modal');
t =0:0.01;
t =0:0.01:%pi是π
fori = 1:10
plot(t,sin(2*pi*i*t));
waitbar(i/10,H,’done’);
以上程序动态第绘出频率1到10依次变化的正弦波曲线，进度条的改变需要改变前面说的x值，然后进度条会随着改变，一般用在循环中，或者自己知道时间而手动改变进度条。
在使用进度条还有一个特别重要的地方就是增加取消按钮，因为很多时候想要停止程序，但是叉掉进度条是停不了的，这样很浪费时间，所以最好设置一个取消按钮。
设置一个取消按钮，就相当于在gui上设计一个button然后执行回调函数。=
iscancel =
h =waitbar(0,'wait...','name','test','createcancelbtn','iscancel =');
&for i = 1:10
&&&& waitbar(i/10,h,'done');
&&&& pause(1);
&&&& if iscancel
&&&&&&&& delete(h);
上面的程序增加了一个createcancelbtn是一个默认的取消按钮，后面是他的call back 函数，在执行的时候，点击取消，会执行call back 函数，使得if成立。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：5176次
排名：千里之外
原创：34篇
(3)(2)(1)(8)(2)(19)(1)苹果/安卓/wp
积分 721, 距离下一级还需 79 积分
权限: 自定义头衔, 签名中使用图片
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡, 抢沙发下一级可获得
权限: 隐身
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
无聊签到天数: 2 天连续签到: 1 天[LV.1]初来乍到
偶然发现有人编写了用matlab玩俄罗斯方块的程序，测试了一下，果然可以用。但是我们的目的不是玩，而是学习这个编程的过程。其中各种方块的形状和颜色是用patch这个命令来完成的。方块用方向键控制，上方向键可以调整方块的形状。
function [STRUCT] = matlabtetris(varargin)
%MATLABTETRIS A MATLAB version of the classic game Tetris.
% The goal is to fill as many horizontal lines on the game board as
% possible by manipulating the pieces as they fall into place.&&As more
% lines are filled, gameplay speeds up.&&More points are awarded the more
% lines are filled at once, and as a function of the current level.
% Pushing the following keys has the listed effect:
% Key& &&&Effect
% ------------------
% n& && & Starts a new game in the middle of any game.
% p& && & Pauses/Unpauses game play.
% s& && & Starts the new game (alternative to pushing the start button).
% Other tips:
% To move the piece, use the arrow keys.
% The up arrows rotates a piece clockwise, shift+up, counter clockwise.
% Clicking on the preview window hides/unhides the preview (next piece).
% Click on the level (1) before starting a game to choose start level.&&If
% the first level is too slow, try starting out at a higher level, up to 9.
% The desired starting level may also be passed in as an argument when
% first calling the game.&&For example,
%& && & matlabetetris(7)
% starts the game at level 7.
% Also, calling
%& && & A =
% returns the handle/data structure.&&Handles are lower-case, data
% uppercase.&&This can be useful for troubleshooting, etc.
% This game changes the state of the random generator.
% This game tries to write the high score to a file named:
%& && & TETRIS_HIGH_SCORE.mat
% Author: Matt Fig
% Date: 1/11/2012&&
% Version 2.1
& & rng('shuffle');&&% So each game is not the same! RNG is new in r2011a.
catch&&%#ok
& & rand('twister',sum(100*clock));&&%#ok Should work back to r2006a.
f_clr = [.741 .717 .42]; % Allows for easy change.&&Figure color.
S.fig = figure('units','pixels',...
& && && && && &'name','Tetris',...
& && && && && &'menubar','none',...
& && && && && &'numbertitle','off',...
& && && && && &'position',[100 100 650 720],...
& && && && && &'color',f_clr,...
& && && && && &'keypressfcn',@fig_kpfcn2,...%
& && && && && &'closereq',@fig_clsrqfcn,...%
& && && && && &'busyaction','cancel',...
& && && && && &'renderer','opengl',...
& && && && && &'windowbuttondownfcn',@fig_wbdfcn,...
& && && && && &'resizefcn',@fig_rszfcn);
S.pbt = uicontrol('units','pix',...
& && && && && && &'style','pushbutton',...
& && && && && && &'position',[420 30 200 100],...
& && && && && && &'fontweight','bold',...
& && && && && && &'fontsize',20,...
& && && && && && &'string','Start',...
& && && && && && &'callback',@pbt_call,...
& && && && && && &'enable','off',...
& && && && && && &'busyaction','cancel');
S.axs = axes('units','pix',...
& && && && & 'position',[420 460 200 200],...
& && && && & 'ycolor',f_clr,...
& && && && & 'xcolor',f_clr,...
& && && && & 'color',f_clr,...
& && && && & 'xtick',[],'ytick',[],...
& && && && & 'xlim',[-.1 7.1],...
& && && && & 'ylim',[-.1 7.1],...
& && && && & 'visible','off'); % This axes holds the preview.
r_col = [.85 .95 1]; % The color of the rectangles.
S.rct = rectangle('pos',[0 0 7 7],...
& && && && && && &'curvature',.3,...
& && && && && && &'facecolor',r_col,...
& && && && && && &'edgecolor','r',...
& && && && && && &'linewidth',2); % This is used below the preview.
S.tmr = timer('Name','Tetris_timer',...
& && && && &&&'Period',1,... % 1 second between moves time.
& && && && &&&'StartDelay',1,... %
& && && && &&&'TasksToExecute',50,... % Will be restarted many times.
& && && && &&&'ExecutionMode','fixedrate',...
& && && && &&&'TimerFcn',@game_step); % Function def. below.
S.axs(2) = axes('units','pix',...
& && && && && & 'position',[410 130 220 320],...
& && && && && & 'ycolor',f_clr,...
& && && && && & 'xcolor',f_clr,...
& && && && && & 'xtick',[],'ytick',[],...
& && && && && & 'xlim',[-.1 1.1],...
& && && && && & 'ylim',[-.1 1.1],...
& && && && && & 'visible','off'); % Points/Lines holder
S.rct(2) = rectangle('pos',[0 0 1 1],...
& && && && && && && &'curvature',.3,...
& && && && && && && &'facecolor',r_col,...
& && && && && && && &'edgecolor','r',...
& && && && && && && &'linewidth',2); % Holds the current stats.
S.DSPDIG(1) = digits(35,5,-50,'Lines');
set(S.DSPDIG(1).ax,'pos',[500 170 0 0]+get(S.DSPDIG(1).ax,'pos'));
S.DSPDIG(2) = digits(35,8,10,'Points');
set(S.DSPDIG(2).ax,'pos',[438 260 0 0]+get(S.DSPDIG(2).ax,'pos'));
S.DSPDIG(3) = digits(35,3,-90,'Level');
set(S.DSPDIG(3).ax,'pos',[540 350 0 0]+get(S.DSPDIG(3).ax,'pos'));
set(S.DSPDIG(3).ax,'visible','on')
digits(S.DSPDIG(3),sprintf('%i',1))
S.axs(3) = axes('units','pix',...
& && && && && & 'position',[30 30 360 630],...
& && && && && & 'ycolor',f_clr,...
& && && && && & 'xcolor',f_clr,...
& && && && && & 'xtick',[],'ytick',[],...
& && && && && & 'xlim',[-1 11],...
& && && && && & 'ylim',[-1 20],...
& && && && && & 'color',f_clr,...
& && && && && & 'visible','off'); % The main board
% Template positions for the patch objects (bricks) in both axes.
X = [0 .2 0;.2 .8 .2;.2 .8 .8;.8 .2 .8;1 .2 1;0 .2 1;0 .2 0];
Y = [0 .2 0;.2 .2 .2;.8 .8 .2;.8 .8 .8;1 .2 1;1 .2 0;0 .2 0];
g1 = repmat([.9 .65 .4],[1,1,3]); % Grey color used throughout.
S.PRVPOS{1} = [1.5 2.5 3.5 4.5;3 3 3 3]; % Positions of the previews.
S.PRVPOS{2} = [2 3 3 4;2.5 2.5 3.5 2.5]; % 1-I,2-T,3-L,4-J,5-Z,6-S,7-O
S.PRVPOS{3} = [2 3 4 4;2.5 2.5 2.5 3.5];
S.PRVPOS{4} = [2 2 3 4;3.5 2.5 2.5 2.5];
S.PRVPOS{5} = [2 3 3 4;3.5 3.5 2.5 2.5];
S.PRVPOS{6} = [2 3 3 4;2.5 2.5 3.5 3.5];
S.PRVPOS{7} = [2.5 2.5 3.5 3.5;3.5 2.5 3.5 2.5];
% Make the board boarders.
for jj = [-1 10]
& & Xi = X +
& & for ii = -1:19
& && &&&patch(Xi,Y+ii,g1,...
& && && && &&&'edgecolor','none',...
& && && && &&&'handlevis','callback') % Don't need these handles.
for ii = 0:9
& & patch(X+ii,Y-1,g1,'edgecolor','none','handlevis','callback')
S.pch = zeros(10,20); % These hold the handles to the patches.
for jj = 0:19 % Make the board squares.
& & for ii = 0:9
& && &&&if rand&.05 % This simply puts random squares on the board.
& && && && &% If you have an older version without BSXFUN, use the second
& && && && &% line below and comment out the first line below - IF ERROR.
& && && && &R = bsxfun(@minus,.5 + rand(1,1,3)*.5,[0,.25,.5]); % See note!
% R = repmat(.5 + rand(1,1,3)*.5,[1,3,1])-repmat([0,.25,.5],[1,1,3]);
& && && && &S.pch(ii+1,jj+1) = patch(X+ii,Y+jj,R,'edgecolor','none');
& && && && &% drawnow& &% On faster systems this can look neat.
& && &&&else
& && && && &S.pch(ii+1,jj+1) = patch(X+ii,Y+jj,'w','edgecolor','w');
& && &&&end
% Hold the colors of the pieces, and board index where each first appears.
S.PCHCLR = {reshape([1 .75 .5 0 0 0 0 0 0],1,3,3),...
& && && && &reshape([0 0 0 1 .75 .5 0 0 0],1,3,3),...
& && && && &reshape([0 0 0 0 0 0 1 .75 .5],1,3,3),...
& && && && &reshape([1 .75 .5 1 .75 .5 0 0 0],1,3,3),...
& && && && &reshape([1 .75 .5 0 0 0 1 .75 .5],1,3,3),...
& && && && &reshape([0 0 0 1 .75 .5 1 .75 .5],1,3,3),...
& && && && &reshape([.5 .25 0 .5 .25 0 .5 .25 0],1,3,3)}; % Piece colors.
% S.PCHIDX holds the location where each piece first appears on the board.
S.PCHIDX = {194:197,[184 185 186 195],[184 185 186 196],...
& && && && &[184 185 186 194],[194 195 185 186],[184 195 185 196],...
& && && && &[185 186 195 196]};
S.MAKPRV =&&% Make a preview or not.
S.CURPRV = []; % Holds current preview patches.
S.PRVNUM = []; % Holds the preview piece number, 1-7.
make_&&% Call the function which chooses the piece to go next.
S.BRDMAT = false(10,20); % The matrix game board.
S.CURROT = 1; % Holds the current rotation of the current piece.
S.PNTVCT = [40 100 300 800]; % Holds the points per number of lines.
S.CURLVL = 1; % The current level.
S.CURLNS = 0; % The current number of lines
S.STPTMR = 0; % Kills timer when user is pushing keyboard buttons.
S.SOUNDS = load('splat'); % Used for landing/line sound effect.
S.plr = audioplayer(S.SOUNDS.y,S.SOUNDS.Fs); % player for sounds.
S.CURSCR = 0; % Holds the current score during play.
S.PLRLVL = 1; % The level the player chooses to start...
% These next two dictate how fast the game increases its speed and also how
% many lines the player must score to go up a level, respectively.&&The
% first value shoould be on (0,1].&&Smaller values increase speed faster.
% No error handling is provided if you use bad values!
S.LVLFAC = .825;&&% Percent of previous timerdelay.
S.CHGLVL = 5; % Increment level every S.CHGLVL lines.
if nargin && isnumeric(varargin{1})
& & S.PLRLVL = min(round(max(varargin{1},1)),9);&&% Starting level.
& & digits(S.DSPDIG(3),sprintf('%i',S.PLRLVL))
& & SCR = load('TETRIS_HIGH_SCORE.mat');
& & S.CURHSC = SCR.SCR; % The user has a previous High Score.
catch&&%#ok
& & S.CURHSC = 0;
set(S.fig,'name',['Tetris',' High Score - ', sprintf('%i',S.CURHSC)])
set([S.DSPDIG(:).ax,S.axs(:).',S.pbt,S.DSPDIG(:).tx],...
& & 'units','norm','fontunits','norm')&&% So we can resize the figure.
set(S.pbt,'enable','on') % Turn the game on now that we are ready...
if nargout
& & STRUCT = S; % Returns the structure if user requests.
& & function [] = make_preview(varargin)
& & % This function chooses which piece is going next and displays it.
& && &&&if nargin
& && && && &S.PRVNUM = varargin{1};
& && &&&else
& && && && &S.PRVNUM = ceil(rand*7); % Randomly choose one of the pieces.
& && &&&end
& && &&&if ~isempty(S.CURPRV)
& && && && &delete(S.CURPRV) % Delete previous preview.
& && &&&end
& && &&&if S.MAKPRV
& && && && &C = S.PCHCLR{S.PRVNUM};&&% User wants to show the preview.
& && &&&else
& && && && &C = r_
& && &&&end
& && &&&for kk = 1:4&&% Create a new preview.
& && && && &S.CURPRV(kk) = patch(X+S.PRVPOS{S.PRVNUM}(1,kk),...
& && && && && && && && && && && &Y+S.PRVPOS{S.PRVNUM}(2,kk),...
& && && && && && && && && && && &C,'edgecolor','none',...
& && && && && && && && && && && &'parent',S.axs(1));
& && &&&end
& & function [] = pbt_call(varargin)
& & % Callback for the 'Start' ('Pause', 'Continue') button.
& && &&&switch get(S.pbt,'string')
& && && && &case 'Start'
& && && && && & set(S.pch(:),'facecol','w','edgecol','w'); % Clear board.
& && && && && & set(S.pbt,'string','Pause'); % Changle pushbutton label.
& && && && && & digits(S.DSPDIG(3),sprintf('%i',S.PLRLVL)) % Show Level.
& && && && && & ND = round(1000*S.LVLFAC^(S.PLRLVL-1))/1000;% Update Timer.
& && && && && & set(S.tmr,'startdelay',ND,'period',ND);
& && && && && & digits(S.DSPDIG(2),sprintf('%i',0)) % Score and Lines
& && && && && & digits(S.DSPDIG(1),sprintf('%i',0))
& && && && && & S.CURLNS = 0; % New Game -& start at zero.
& && && && && & S.CURLVL = S.PLRLVL; % Set the level to players choice.
& && && && && & S.CURSCR = 0; % New Game -& start at zero.
& && && && && & play_ % Initiate Gameplay.
& && && && &case 'Pause'
& && && && && & stop_&&% Stop the timer, set the callbacks
& && && && && & set([S.fig,S.pbt],'keypressfcn',@fig_kpfcn2)
& && && && && & set(S.pbt,'string','Continue')
& && && && &case 'Continue'
& && && && && & set(S.pbt,'string','Pause')
& && && && && & start_&&% Restart the timer.
& && && && &otherwise
& && &&&end
& & function [] = play_tet()
& & % Picks a next piece and puts the preview in correct axes.
& && &&&S.PNM = S.PRVNUM; % Hold this for keypresfcn.
& && &&&S.CUR = S.PCHIDX{S.PRVNUM}; % Current loc. of current piece.
& && &&&S.COL = S.PCHCLR{S.PRVNUM}; % Transfer correct color.
& && &&&S.CURROT = 1; % And initial rotation number.
& && &&&set(S.pch(S.CUR),'facec','flat','cdata',S.COL,'edgecol','none')
& && &&&if any(S.BRDMAT(S.CUR))
& && && && &disp('....Game over....')
& && && && &clean_&&% Clean up the board.
& && && && &set([S.fig,S.pbt],'keypressfcn',@fig_kpfcn2)
& && && && &return
& && &&&else
& && && && &S.BRDMAT(S.CUR) = % Now update the matrix...
& && &&&end
& && &&&make_&&% Set up the next piece.
& && &&&start_& &&&% Start the timer.
& & function [] = game_step(varargin)
& & % Timerfcn, advances the current piece down the board
& && &&&if S.STPTMR && nargin&&% Only timer calls with args...
& && && && &return&&% So that timer can't interrupt FIG_KPFCN!
& && &&&end
& && &&&col = ceil(S.CUR/10); % S.CUR defined in play_tet.
& && &&&row = rem(S.CUR-1,10) + 1;&&% These are for the board matrix.
& && &&&if any(col==1)&&% Piece is at the bottom of the board.
& && && && &stop_
& && && && &check_
& && && && &play_
& && &&&else
& && && && &ur = unique(row);&&% Check to see if we can drop it down
& && && && &for kk = 1:length(ur)
& && && && && & if (S.BRDMAT(ur(kk),min(col(row==ur(kk)))-1))
& && && && && && &&&stop_
& && && && && && &&&check_
& && && && && && &&&play_
& && && && && && &&&return
& && && && && & end
& && && && &end
& && && && &mover(-10)&&% O.k. to drop the piece... do it.
& && &&&end
& & function [] = fig_kpfcn(varargin)
& & % Figure (and pushbutton) keypressfcn
& && &&&S.STPTMR = 1;&&% Stop timer interrupts.&&See GAME_STEP
& && &&&if strcmp(varargin{2}.Key,'downarrow')
& && && && &game_ % Just call another step.
& && && && &S.STPTMR = 0;&&% Unblock the timer.
& && && && &return
& && &&&end
& && &&&col = ceil(S.CUR/10); % S.CUR defined in play_tet.
& && &&&row = rem(S.CUR-1,10) + 1;&&% These index into board matrix.
& && &&&switch varargin{2}.Key
& && && && &case 'rightarrow'
& && && && && & % Without this IF, the piece will wrap around!
& && && && && & if max(row)&=9
& && && && && && &&&uc = unique(col);&&% Check if object to the right.
& && && && && && &&&for kk = 1:length(uc)
& && && && && && && && &if (S.BRDMAT(max(row(col==uc(kk)))+1,uc(kk)))
& && && && && && && && && & S.STPTMR = 0;
& && && && && && && && && & return
& && && && && && && && &end
& && && && && && &&&end
& && && && && && &&&mover(1)& &% O.k. to move.
& && && && && & end
& && && && &case 'leftarrow'
& && && && && & if min(row)&=2
& && && && && && &&&uc = unique(col);&&% Check if object to the left
& && && && && && &&&for kk = 1:length(uc)
& && && && && && && && &if (S.BRDMAT(min(row(col==uc(kk)))-1,uc(kk)))
& && && && && && && && && & S.STPTMR = 0;
& && && && && && && && && & return
& && && && && && && && &end
& && && && && && &&&end
& && && && && && &&&mover(-1)&&% O.k. to move.
& && && && && & end
& && && && &case 'uparrow'
& && && && && & if strcmp(varargin{2}.Modifier,'shift')
& && && && && && &&&arg = 1;&&% User wants counter-clockwise turn.
& && && && && & else
& && && && && && &&&arg = 0;
& && && && && & end
& && && && && & turner(row,col,arg);&&% Turn the piece.
& && && && &case 'p'
& && && && && & pbt_&&% This will set to pause. Next set new ...
& && && && && & set([S.fig,S.pbt],'keypressfcn',@fig_kpfcn2)% Keypressfcn
& && && && &case 'n'
& && && && && & quit_&&% User might want to quit the game.
& && && && &otherwise
& && &&&end
& && &&&S.STPTMR = 0;&&% Unblock the timer.
& & function [] = fig_kpfcn2(varargin)
& & % Callback handles the case when 's' or 'p' is pressed if
& & % the game is paused or at game start.
& && &&&tmp = strcmp(get(S.pbt,'string'),{'Start','Continue'});
& && &&&if tmp(1)
& && && && &if strcmp(varargin{2}.Key,'s')
& && && && && & pbt_&&% User wants to start a game.
& && && && &end
& && &&&else
& && && && &if tmp(2)
& && && && && & if any(strcmp(varargin{2}.Key,...
& && && && && && && &&&{'1','2','3','4','5','6','7'}))
& && && && && && &&&make_preview(str2double(varargin{2}.Key));
& && && && && && &&&return
& && && && && & end
& && && && &end
& && && && &if strcmp(varargin{2}.Key,'p')
& && && && && & pbt_&&% User wants to pause/unpause.
& && && && &end
& && && && &if strcmp(varargin{2}.Key,'n')
& && && && && & quit_&&% Perhaps user wants to quit.
& && && && &end
& && &&&end
& & function [] = mover(N)
& & % Common task. Moves a piece on the board.
& && &&&S.BRDMAT(S.CUR) = % S.CUR, S.COL defined in play_tet.
& && &&&S.BRDMAT(S.CUR+N) = % All checks should be done already.
& && &&&S.CUR = S.CUR + N;
& && &&&set([S.pch(S.CUR-N),S.pch(S.CUR)],...
& && && && &{'facecolor'},{'w';'w';'w';'w';'flat';'flat';'flat';'flat'},...
& && && && &{'edgecolor'},{'w';'w';'w';'w';'none';'none';'none';'none'},...
& && && && &{'cdata'},{[];[];[];[];S.COL;S.COL;S.COL;S.COL})
& & function [] = turner(row,col,arg)
& & % Common task. Rotates the pieces once at a time.
& & % r is reading left/right, c is reading up/down.
& & % For the switch:&&1-I,2-T,3-L,4-J,5-Z,6-S,7-O
& && &&&switch S.PNM % Defined in play_tet.&&Turn depends on shape.
& && && && &case 1&&
& && && && && & if any(col&19) || all(col&=2)
& && && && && && &&&return
& && && && && & else
& && && && && && &&&if S.CURROT == 1;
& && && && && && && && &r = [row(2),row(2),row(2),row(2)];
& && && && && && && && &c = [col(2)-2,col(2)-1,col(2),col(2)+1];
& && && && && && && && &S.CURROT = 2;
& && && && && && &&&elseif all(row&=9)
& && && && && && && && &r = 7:10;
& && && && && && && && &c = [col(2),col(2),col(2),col(2)];
& && && && && && && && &S.CURROT = 1;
& && && && && && &&&elseif all(row==1)
& && && && && && && && &r = 1:4;
& && && && && && && && &c = [col(2),col(2),col(2),col(2)];
& && && && && && && && &S.CURROT = 1;
& && && && && && &&&else
& && && && && && && && &r = [row(2)-1,row(2),row(2)+1,row(2)+2];
& && && && && && && && &c = [col(2),col(2),col(2),col(2)];
& && && && && && && && &S.CURROT = 1;
& && && && && && &&&end
& && && && && & end
& && && && &case 2
& && && && && & if sum(col==1)==3
& && && && && && &&&return
& && && && && & end
& && && && && & if arg
& && && && && && &&&S.CURROT = mod(S.CURROT+1,4)+1;
& && && && && & end
& && && && && & switch S.CURROT
& && && && && && &&&case 1
& && && && && && && && &r = [row(2),row(2),row(2),row(2)+1];
& && && && && && && && &c = [col(2)-1,col(2),col(2)+1,col(2)];
& && && && && && &&&case 2
& && && && && && && && &if sum(row==1)==3
& && && && && && && && && & r = [1 2 3 2];
& && && && && && && && && & c = [col(2),col(2),col(2),col(2)-1];
& && && && && && && && &else
& && && && && && && && && & r = [row(2)-1,row(2),row(2),row(2)+1];
& && && && && && && && && & c = [col(2),col(2),col(2)-1,col(2)];
& && && && && && && && &end
& && && && && && &&&case 3
& && && && && && && && &r = [row(2)-1,row(2),row(2),row(2)];
& && && && && && && && &c = [col(2),col(2),col(2)-1,col(2)+1];
& && && && && && &&&case 4
& && && && && && && && &if sum(row==10)==3
& && && && && && && && && & r = [9 9 8 10];
& && && && && && && && && & c = [col(2)+1,col(2),col(2),col(2)];
& && && && && && && && &else
& && && && && && && && && & r = [row(2)-1,row(2),row(2),row(2)+1];
& && && && && && && && && & c = [col(2),col(2),col(2)+1,col(2)];
& && && && && && && && &end
& && && && && & end
& && && && && & S.CURROT = mod(S.CURROT,4) + 1;
& && && && &case 3
& && && && && & if sum(col==1)==3
& && && && && && &&&return
& && && && && & end
& && && && && & if arg
& && && && && && &&&S.CURROT = mod(S.CURROT+1,4)+1;
& && && && && & end
& && && && && & switch S.CURROT
& && && && && && &&&case 1
& && && && && && && && &r = [row(2),row(2),row(2),row(2)+1];
& && && && && && && && &c = [col(2)+1,col(2),col(2)-1,col(2)-1];
& && && && && && &&&case 2
& && && && && && && && &if sum(row==1)==3
& && && && && && && && && & r = [1:3 1];
& && && && && && && && && & c = [col(2),col(2),col(2),col(2)-1];
& && && && && && && && &else
& && && && && && && && && & r = [row(2)-1,row(2),row(2)-1,row(2)+1];
& && && && && && && && && & c = [col(2),col(2),col(2)-1,col(2)];
& && && && && && && && &end
& && && && && && &&&case 3
& && && && && && && && &r = [row(2)-1,row(2),row(2),row(2)];
& && && && && && && && &c = [col(2)+1,col(2),col(2)+1,col(2)-1];
& && && && && && &&&case 4
& && && && && && && && &if sum(row==10)==3
& && && && && && && && && & r = [10 9 10 8];
& && && && && && && && && & c = [col(2)+1,col(2),col(2),col(2)];
& && && && && && && && &else
& && && && && && && && && & r = [row(2)-1,row(2),row(2)+1,row(2)+1];
& && && && && && && && && & c = [col(2),col(2),col(2),col(2)+1];
& && && && && && && && &end
& && && && && & end
& && && && && & S.CURROT = mod(S.CURROT,4) + 1;
& && && && &case 4
& && && && && & if sum(col==1)==3
& && && && && && &&&return
& && && && && & end
& && && && && & if arg
& && && && && && &&&S.CURROT = mod(S.CURROT+1,4)+1;
& && && && && & end
& && && && && & switch S.CURROT
& && && && && && &&&case 1
& && && && && && && && &r = [row(2),row(2),row(2),row(2)+1];
& && && && && && && && &c = [col(2)-1,col(2),col(2)+1,col(2)+1];
& && && && && && &&&case 2
& && && && && && && && &if sum(row==1)==3
& && && && && && && && && & r = [1 2 3 3];
& && && && && && && && && & c = [col(2),col(2),col(2),col(2)-1];
& && && && && && && && &else
& && && && && && && && && & r = [row(2)-1,row(2),row(2)+1,row(2)+1];
& && && && && && && && && & c = [col(2),col(2),col(2),col(2)-1];
& && && && && && && && &end
& && && && && && &&&case 3
& && && && && && && && &r = [row(2)-1,row(2),row(2),row(2)];
& && && && && && && && &c = [col(2)-1,col(2),col(2)-1,col(2)+1];
& && && && && && &&&case 4
& && && && && && && && &if sum(row==10)==3
& && && && && && && && && & r = [8 9 8 10];
& && && && && && && && && & c = [col(2)+1,col(2),col(2),col(2)];
& && && && && && && && &else
& && && && && && && && && & r = [row(2)-1,row(2),row(2)-1,row(2)+1];
& && && && && && && && && & c = [col(2),col(2),col(2)+1,col(2)];
& && && && && && && && &end
& && && && && & end
& && && && && & S.CURROT = mod(S.CURROT,4) + 1;
& && && && &case 5
& && && && && & if any(col(2)&19) || sum(col==1)==2
& && && && && && &&&return
& && && && && & elseif S.CURROT==1;
& && && && && && &&&r = [row(2),row(2),row(2)-1,row(2)-1];
& && && && && && &&&c = [col(2)+1,col(2),col(2),col(2)-1];
& && && && && && &&&S.CURROT = 2;
& && && && && & else
& && && && && && &&&if sum(row==10)==2
& && && && && && && && &r = [10 9 9 8];
& && && && && && && && &c = [col(2)-1,col(2)-1,col(2),col(2)];
& && && && && && &&&else
& && && && && && && && &r = [row(2)-1,row(2),row(2),row(2)+1];
& && && && && && && && &c = [col(2),col(2),col(2)-1,col(2)-1];
& && && && && && &&&end
& && && && && && &&&S.CURROT = 1;
& && && && && & end
& && && && &case 6
& && && && && & if any(col(2)&19)|| sum(col==1)==2
& && && && && && &&&return
& && && && && & elseif S.CURROT==1;
& && && && && && &&&r = [row(2)+1,row(2),row(2)+1,row(2)];
& && && && && && &&&c = [col(2)-1,col(2),col(2),col(2)+1];
& && && && && && &&&S.CURROT = 2;
& && && && && & else
& && && && && && &&&if sum(row==1)==2
& && && && && && && && &r = [1 2 2 3];
& && && && && && && && &c = [col(2)-1,col(2)-1,col(2),col(2)];
& && && && && && &&&else
& && && && && && && && &r = [row(2)-1,row(2),row(2),row(2)+1];
& && && && && && && && &c = [col(2)-1,col(2),col(2)-1,col(2)];
& && && && && && &&&end
& && && && && && &&&S.CURROT = 1;
& && && && && & end
& && && && &otherwise
& && && && && & return % The O piece.
& && &&&end
& && &&&ind = r + (c-1)*10; % Holds new piece locations.
& && &&&tmp = S.CUR; % Want to call SET last! S.CUR defined in play_tet.
& && &&&S.BRDMAT(S.CUR) =
& && &&&if any(S.BRDMAT(ind)) % Check if any pieces are in the way.
& && && && &S.BRDMAT(S.CUR) =
& && && && &return
& && &&&end
& && &&&S.BRDMAT(ind) =
& && &&&S.CUR = % S.CUR, S.COL defined in play_tet.
& && &&&set([S.pch(tmp),S.pch(ind)],...
& && && && &{'facecolor'},{'w';'w';'w';'w';'flat';'flat';'flat';'flat'},...
& && && && &{'edgecolor'},{'w';'w';'w';'w';'none';'none';'none';'none'},...
& && && && &{'cdata'},{[];[];[];[];S.COL;S.COL;S.COL;S.COL});
& & function [] = check_rows()
& & % Checks if any row(s) needs clearing and clears it (them).
& && &&&TF = all(S.BRDMAT); % Finds the rows that are full.
& && &&&if any(TF)&&% There is a row that needs clearing.
& && && && &set(S.pbt,'enable','off')&&% Don't allow user to mess it up.
& && && && &sm = sum(TF); % How many rows are there?
& && && && &B = false(size(S.BRDMAT));&&% Temp store to switcheroo.
& && && && &B(:,1:20-sm) = S.BRDMAT(:,~TF);
& && && && &S.BRDMAT = B;
& && && && &TF1 = find(TF); % We only need to drop those rows above.
& && && && &L = length(TF1);
& && && && &TF = TF1-(0:L-1);
& && && && &S.CURLNS = S.CURLNS + L;
& && && && &digits(S.DSPDIG(1),sprintf('%i',S.CURLNS))&&% Lines display
& && && && &S.CURSCR = S.CURSCR+S.PNTVCT(L)*S.CURLVL;
& && && && &digits(S.DSPDIG(2),sprintf('%i',S.CURSCR))&&% Points display
& && && && &play(S.plr,[6000 length(S.SOUNDS.y)])
& && && && &for kk = 1:L % Make these rows to flash for effect.
& && && && && & set(S.pch(:,TF1(:)),'facecolor','r');
& && && && && & pause(.1)
& && && && && & set(S.pch(:,TF1(:)),'facecolor','g');
& && && && && & pause(.1)
& && && && &end
& && && && &for kk = 1:L % 'Delete' these rows.
& && && && && & set(S.pch(:,TF(kk):19),...
& && && && && && &&&{'facecolor';'edgecolor';'cdata'},...
& && && && && && &&&get(S.pch(:,TF(kk)+1:20),...
& && && && && && &&&{'facecolor';'edgecolor';'cdata'}));
& && && && &end
& && && && &if (floor(S.CURLNS/S.CHGLVL)+1)&S.CURLVL % Level display check.
& && && && && & S.CURLVL = S.CURLVL + 1;
& && && && && & digits(S.DSPDIG(3),sprintf('%i',S.CURLVL))
& && && && && & ND = round(get(S.tmr,'startdelay')*S.LVLFAC*;
& && && && && & ND = max(ND,.001);
& && && && && & set(S.tmr,'startdelay',ND,'period',ND) % Update timer
& && && && &end
& && && && &if S.CURSCR&=S.CURHSC&&% So that figure name is current.
& && && && && & S.CURHSC = S.CURSCR;
& && && && && & set(S.fig,'name',...
& && && && && && &&&sprintf('Tetris High Score - %i',S.CURHSC))
& && && && &end
& && && && &set(S.pbt,'enable','on')&&% Now user is o.k. to go.
& && &&&else
& && && && &if ~isplaying(S.plr)
& && && && && & play(S.plr,[])&&% Play our plunk sound.
& && && && &end
& && &&&end
& & function [] = clean_tet()
& & % Cleans up the board and board matrix after Game Over.
& && &&&stop_&&% Stop the timer.
& && &&&for kk = 1:20
& && && && &set(S.pch(:,kk),'cdata',g1,'edgecol','none')
& && && && &drawnow % Gives the nice effect of grey climbing up.
& && &&&end
& && &&&set(S.pbt,'string','Start')
& && &&&S.BRDMAT(:) = % Reset the board matrix.
& & function [] = start_tet()
& & % Sets the correct callbacks and timer for a new game
& && &&&set([S.fig,S.pbt],'keypressfcn',@fig_kpfcn)
& && &&&start(S.tmr)
& & function [] = stop_tet()
& & % Sets the correct callbacks and timer to stop game
& && &&&stop(S.tmr)
& && &&&set([S.fig,S.pbt],'keypressfcn','fprintf('''')')
& & function [] = fig_clsrqfcn(varargin)
& & % Clean-up if user closes figure while timer is running.
& && &&&try&&% Try here so user can close after error in creation of GUI.
& && && && &warning('off','MATLAB:timer:deleterunning')
& && && && &delete(S.tmr)&&% We always want the timer destroyed first.
& && && && &warning('on','MATLAB:timer:deleterunning')
& && && && &SCR = S.CURHSC;
& && && && &try
& && && && && & save('TETRIS_HIGH_SCORE.mat','SCR')
& && && && &catch&&%#ok
& && && && && & disp('Unable to save high score. Check permissions.')
& && && && &end
& && &&&catch %#ok
& && &&&end
& && &&&delete(varargin{1})&&% Now we can close it down.
& & function [] = fig_wbdfcn(varargin)
& & % The WindowButtonDownFcn for the figure.
& && &&&if any(gco==[S.rct(1);S.CURPRV(:)]) % Clicked in preview window.
& && && && &S.MAKPRV = ~S.MAKPRV;&&% Change from current state.
& && && && &if S.MAKPRV
& && && && && & set(S.CURPRV,'cdata',S.PCHCLR{S.PRVNUM},'facecolor','flat')
& && && && &else
& && && && && & set(S.CURPRV,'facecolor',r_col)
& && && && &end
& && &&&elseif any(gco==[S.DSPDIG(3).ax [S.DSPDIG(3).P{:}]])
& && && && &% In here user wants to select a starting level.
& && && && &if strcmp(get(S.pbt,'string'),'Start')
& && && && && & tmp = inputdlg('Enter Starting Level',...
& && && && && && && && && && & 'Level',1,{sprintf('%i',S.PLRLVL)});
& && && && && & if ~isempty(tmp)&&% User might have closed dialog.& && && &&&
& && && && && && &&&S.PLRLVL = min(round(max(str2double(tmp),1)),9);
& && && && && && &&&digits(S.DSPDIG(3),sprintf('%i',S.PLRLVL))
& && && && && & end
& && && && &end
& && &&&end
& & function [] = fig_rszfcn(varargin)
& & % The figure's resizefcn
& && &&&pos = get(S.fig,'pos');&&% Don't allow distorted shapes...
& && &&&rat = 720/650; % This ratio will be hard-coded. Original pix size.
& && &&&set(S.fig,'pos',[pos(1) pos(2) pos(4)/rat, pos(4)]);
& & function [] = quit_check()
& & % Creates a dialog box to check if the user wants to quit.
& && &&&QG = questdlg('Are you sure you want to start over?',...
& && && && && && && & 'End current game?', ...
& && && && && && && & 'Yes', 'No', 'Yes');
& && &&&if strcmp(QG,'Yes')
& && && && &clean_
& && && && &% The call to UICONTROL is necessary if a line has
& && && && &% just been scored and the user hits n to start a new
& && && && &% game but not otherwise ... mysterious...
& && && && &uicontrol(S.pbt)
& && && && &pbt_
& && &&&end
& & function [X] = digits(varargin)
& & % To create a display, pass in the pixel height desired, the number of
& & % digits to create, the offset of the text and string. To update the
& & % display, pass in a string representation of the number to display...
& & % Example:
& & % X = digits(80,2,0,'Points'); % 80 pix tall, 2 digits, 0 offset.
& & % for ii = 1:100,digits(X,sprintf('%i',ii)),pause(.1),end
& && &&&if isstruct(varargin{1})
& && && && &transcriber(varargin{1},varargin{2});&&% Change display.
& && && && &return
& && &&&else
& && && && &X.N = varargin{1}; % The pixel height of the numbers.
& && && && &X.M = varargin{2}; % The number of numbers.
& && && && &X.D = varargin{3}; % The offset of the text, in pixels.
& && && && &X.T = varargin{4}; % The display label.
& && &&&end
& && &&&X.ax = axes('units','pix',...
& && && && && && &&&'pos',[0,0,X.N/1.7*X.M,X.N],...
& && && && && && &&&'xtick',[],'ytick',[],...
& && && && && && &&&'xlim',[0,X.M],'ylim',[0,1.7],...
& && && && && && &&&'color',r_col,...
& && && && && && &&&'xcolor',r_col,...
& && && && && && &&&'ycolor',r_col,...
& && && && && && &&&'visible','off');&&% Digits displayed on this axes.
& && &&&X.tx = text('units','pixels',...
& && && && && && &&&'pos',[X.D,X.N+10],...
& && && && && && &&&'string',X.T,...
& && && && && && &&&'backgroundc','none',...
& && && && && && &&&'vertical','baselin',...
& && && && && && &&&'fontw','bold',...
& && && && && && &&&'fontname','fixedwidth',...
& && && && && && &&&'fontsize',20,...
& && && && && && &&&'color',[0.3 .07451]);&&% Create label.
& && &&&% X.P holds the basic patch pattern as a template.
& && &&&X.P{1}(1) = patch([.175 .275 .725 .825 .725 .275 .175],...
& && && && && && && && &&&[.150 .050 .050 .150 .250 .250 .150],'k');
& && &&&X.P{1}(2) = patch([.175 .275 .725 .825 .725 .275 .175],...
& && && && && && && && &&&[.150 .050 .050 .150 .250 .250 .150]+.7,'k');
& && &&&X.P{1}(3) = patch([.175 .275 .725 .825 .725 .275 .175],...
& && && && && && && && &&&[.150 .050 .050 .150 .250 .250 .150]+1.4,'k');
& && &&&X.P{1}(4) = patch([.150 .050 .050 .150 .250 .250 .150],...
& && && && && && && && &&&[.175 .275 .725 .825 .725 .275 .175],'k');
& && &&&X.P{1}(5) = patch([.150 .050 .050 .150 .250 .250 .150],...
& && && && && && && && &&&[.175 .275 .725 .825 .725 .275 .175]+.7,'k');
& && &&&X.P{1}(6) = patch([.150 .050 .050 .150 .250 .250 .150]+.70,...
& && && && && && && && &&&[.175 .275 .725 .825 .725 .275 .175],'k');
& && &&&X.P{1}(7) = patch([.150 .050 .050 .150 .250 .250 .150]+.70,...
& && && && && && && && &&&[.175 .275 .725 .825 .725 .275 .175]+.70,'k');
& && &&&set(X.P{1},'edgecolor','none')
& && &&&for ww = 2:X.M
& && && && &for yy = 1:7
& && && && && & X.P{ww}(yy) = patch('xdata',...
& && && && && && && && && && && && &get(X.P{1}(yy),'xdata')+(ww-1),...
& && && && && && && && && && && && &'ydata',get(X.P{1}(yy),'ydata'),...
& && && && && && && && && && && && &'facecolor','k',...
& && && && && && && && && && && && &'edgecolor','none');% Making digits!
& && && && &end
& && &&&end
& && &&&X.PAT = {[1 3 4 5 6 7],... % 0.. Hold the pattern to each digit...
& && && && && &&&[6 7],...& && && &% used as an index into X.P
& && && && && &&&[1 2 3 4 7],...& &% 2
& && && && && &&&[1 2 3 6 7],...& &% 3
& && && && && &&&[2 5 6 7],...& &&&% 4
& && && && && &&&[1 2 3 5 6],...& &% 5
& && && && && &&&[1 2 4 5 6],...& &% 6
& && && && && &&&[3 6 7],...& && & % 7
& && && && && &&&1:7,...& && && &&&% 8
& && && && && &&&[2 3 5 6 7]};& &&&% 9
& && &&&transcriber(X,'0')
& && &&&function [] = transcriber(X,C)
& && &&&% This deals with making the numbers. Nested to DIGITS.
& && && && &if length(C)&X.M&&% Display more digits than available!
& && && && && & C = repmat('9',1,X.M);
& && && && &else
& && && && && & C = [repmat('!',1,X.M-length(C)),C];&&% Pad them to left.
& && && && &end
& && && && &for xx = 1:X.M
& && && && && & set(X.P{xx}(:),'facecolor','none') % Clean it up first.
& && && && && & if ~strcmp('!',C(xx))
& && && && && && &&&set(X.P{xx}(X.PAT{str2double(C(xx))+1}),...
& && && && && && && && &'facecolor',[.1 .4 .1])&&% Set correct display.
& && && && && & end
& && && && &end
& && &&&end
支持楼主：、
购买后，论坛将奖励 10 元论坛资金给楼主，以表示您对TA发好贴的支持
载入中......
13:32:43 上传
这个也可以有。佩服！
无限扩大经管职场人脉圈！每天抽选10位免费名额，现在就扫& 论坛VIP& 贵宾会员& 可免费加入
加入我们,立即就学扫码下载「就学」app& Join us!& JoinLearn&
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师