Matlab，俄罗斯方块代码

以下是一个简单的 Matlab 俄罗斯方块代码示例：

function tetris_game()
    % 初始化游戏界面
    ROWS = 20;
    COLS = 10;
    board = zeros(ROWS, COLS);
    fig = figure('KeyPressFcn', @keyPressedFcn);
    set(fig, 'Name', 'Matlab 俄罗斯方块');
    set(fig, 'MenuBar', 'none');
    set(fig, 'ToolBar', 'none');
    set(fig, 'NumberTitle', 'off');
    set(fig, 'Color', [0.5 0.5 0.5]);
    set(fig, 'Position', [400, 300, 300, 400]);
    set(fig, 'Resize', 'off');
    ax = axes('Units', 'Normalized', 'Position', [0.05, 0.05, 0.9, 0.9]);
    set(ax, 'XLim', [0.5, COLS+0.5]);
    set(ax, 'YLim', [0.5, ROWS+0.5]);
    set(ax, 'XTick', []);
    set(ax, 'YTick', []);
    hold(ax, 'on');
    for i = 1:ROWS
        plot(ax, [0.5, COLS+0.5], [i+0.5, i+0.5], 'k');
    end
    for i = 1:COLS
        plot(ax, [i+0.5, i+0.5], [0.5, ROWS+0.5], 'k');
    end

    % 定义方块形状
    shapes{1} = [1 1; 1 1];
    shapes{2} = [1 1 1 1];
    shapes{3} = [1 0 0; 1 1 1];
    shapes{4} = [0 0 1; 1 1 1];
    shapes{5} = [1 1 0; 0 1 1];
    shapes{6} = [0 1 1; 1 1 0];
    shapes{7} = [1 1 1; 0 1 0];

    % 定义方块颜色
    colors{1} = [0 0 1];
    colors{2} = [0 1 0];
    colors{3} = [1 0 0];
    colors{4} = [1 1 0];
    colors{5} = [1 0 1];
    colors{6} = [0 1 1];
    colors{7} = [0.5 0.5 0.5];

    % 初始化游戏状态
    score = 0;
    game_over = false;
    shape = [];
    color = [];
    x = 0;
    y = 0;
    rotate = 0;
    next_shape = randi(7);
    next_color = colors{next_shape};
    updateNextShape();

    % 游戏主循环
    while ~game_over
        if isempty(shape)
            shape = shapes{next_shape};
            color = next_color;
            x = round(COLS/2 - size(shape, 2)/2);
            y = 1 - size(shape, 1);
            rotate = 0;
            if ~canMove(0, 0, 0)
                game_over = true;
            end
            next_shape = randi(7);
            next_color = colors{next_shape};
            updateNextShape();
        end
        if canMove(0, 1, 0)
            y = y + 1;
        else
            board(y:y+size(shape, 1)-1, x:x+size(shape, 2)-1) = shape;
            score = score + removeLines();
            shape = [];
        end
        drawBoard();
        drawShape();
        drawScore();
        pause(0.1);
    end

    % 游戏结束
    drawGameOver();

    % 按键处理函数
    function keyPressedFcn(~, event)
        if ~isempty(shape)
            switch event.Key
                case 'leftarrow'
                    if canMove(-1, 0, 0)
                        x = x - 1;
                    end
                case 'rightarrow'
                    if canMove(1, 0, 0)
                        x = x + 1;
                    end
                case 'downarrow'
                    if canMove(0, 1, 0)
                        y = y + 1;
                    end
                case 'uparrow'
                    if canMove(0, 0, 1)
                        rotate = mod(rotate+1, 4);
                        shape = rot90(shape);
                    end
            end
        end
    end

    % 更新下一个方块显示
    function updateNextShape()
        next_ax = axes('Units', 'Normalized', 'Position', [0.8, 0.7, 0.15, 0.15]);
        set(next_ax, 'XLim', [0.5, 4.5]);
        set(next_ax, 'YLim', [0.5, 4.5]);
        set(next_ax, 'XTick', []);
        set(next_ax, 'YTick', []);
        hold(next_ax, 'on');
        for i = 1:4
            plot(next_ax, [0.5, 4.5], [i+0.5, i+0.5], 'k');
        end
        for i = 1:4
            plot(next_ax, [i+0.5, i+0.5], [0.5, 4.5], 'k');
        end
        next_shape = shapes{next_shape};
        for i = 1:size(next_shape, 1)
            for j = 1:size(next_shape, 2)
                if next_shape(i, j)
                    rectangle('Position', [j+0.5, 4.5-i+0.5, 1, 1], 'FaceColor', next_color, 'EdgeColor', 'none');
                end
            end
        end
    end

    % 绘制游戏界面和方块
    function drawBoard()
        for i = 1:ROWS
            for j = 1:COLS
                if board(i, j)
                    rectangle('Position', [j+0.5, ROWS-i+0.5, 1, 1], 'FaceColor', colors{board(i, j)}, 'EdgeColor', 'none');
                end
            end
        end
    end
    function drawShape()
        if ~isempty(shape)
            for i = 1:size(shape, 1)
                for j = 1:size(shape, 2)
                    if shape(i, j)
                        rectangle('Position', [x+j+0.5, ROWS-y-i+0.5, 1, 1], 'FaceColor', color, 'EdgeColor', 'none');
                    end
                end
            end
        end
    end

    % 绘制得分
    function drawScore()
        text(ax, 0, ROWS+1, sprintf('Score: %d', score));
    end

    % 消除满行
    function num_lines = removeLines()
        num_lines = 0;
        for i = ROWS:-1:1
            if all(board(i, :))
                num_lines = num_lines + 1;
                board(i, :) = [];
                board = [zeros(1, COLS); board];
            end
        end
    end

    % 判断方块是否可以移动
    function can_move = canMove(dx, dy, drotate)
        can_move = true;
        new_x = x + dx;
        new_y = y + dy;
        new_rotate = mod(rotate+drotate, 4);
        new_shape = rot90(shape, drotate);
        if new_x < 1 || new_x+size(new_shape, 2)-1 > COLS || new_y < 1 || new_y+size(new_shape, 1)-1 > ROWS
            can_move = false;
            return;
        end
        for i = 1:size(new_shape, 1)
            for j = 1:size(new_shape, 2)
                if new_shape(i, j) && board(new_y+size(new_shape, 1)-i, new_x+j)
                    can_move = false;
                    return;
                end
            end
        end
    end

    % 绘制游戏结束画面
    function drawGameOver()
        rectangle(ax, 'Position', [3, 5, 4, 3], 'FaceColor', [1 0 0], 'EdgeColor', 'none');
        rectangle(ax, 'Position', [4, 6, 2, 1], 'FaceColor', [1 1 1], 'EdgeColor', 'none');
        text(ax, 3.5, 5.5, 'Game', 'FontSize', 20, 'Color', 'white');
        text(ax, 4.5, 6.5, 'Over', 'FontSize', 20, 'Color', 'black');
    end
end

运行该代码，即可在 Matlab 中玩俄罗斯方块游戏。