matlab大富翁程序

以下是一个简单的 MATLAB 大富翁游戏程序，你可以根据自己的需求进行修改和扩展。

%% 大富翁游戏程序

% 游戏版图（10x10）
board = zeros(10);
board(1,:) = 1:10;
board(end,:) = fliplr(91:100);
board(:,1) = board(:,1) + 10;
board(:,end) = fliplr(board(:,end) + 20);

% 玩家信息
player1 = struct('name', '玩家1', 'position', 1, 'money', 1000);
player2 = struct('name', '玩家2', 'position', 1, 'money', 1000);

% 游戏循环
while true
    % 玩家1轮流掷骰子
    fprintf('%s掷骰子...\n', player1.name);
    pause(1);
    dice = randi(6);
    fprintf('%s掷出了%d点\n', player1.name, dice);
    player1.position = player1.position + dice;
    
    % 玩家1到达终点，游戏结束
    if player1.position > 100
        fprintf('%s赢得了胜利！\n', player1.name);
        break;
    end
    
    % 玩家1移动到新位置
    player1.position = min(player1.position, 100);
    fprintf('%s移动到了%s\n', player1.name, get_position_name(player1.position));
    
    % 处理玩家1新位置的事件
    event = get_position_event(player1.position);
    switch event
        case '空地'
            % do nothing
        case '地产'
            % 如果该地产没有所有者，则可以购买
            % 如果有所有者，则需要支付过路费
            [owner, price, toll] = get_property_info(player1.position);
            if isempty(owner)
                if player1.money >= price
                    player1.money = player1.money - price;
                    set_property_owner(player1.position, player1.name);
                    fprintf('%s购买了%s，花费了%d元\n', player1.name, get_position_name(player1.position), price);
                else
                    fprintf('%s的现金不足，无法购买%s\n', player1.name, get_position_name(player1.position));
                end
            else
                if owner == player1.name
                    % do nothing
                else
                    if player1.money >= toll
                        player1.money = player1.money - toll;
                        set_property_owner(player1.position, player1.name);
                        fprintf('%s支付了%d元过路费给%s\n', player1.name, toll, owner);
                    else
                        fprintf('%s的现金不足，无法支付过路费给%s\n', player1.name, owner);
                    end
                end
            end
        case '命运'
            % 随机触发命运事件
            fate = randi(3);
            switch fate
                case 1
                    bonus = randi(500);
                    player1.money = player1.money + bonus;
                    fprintf('%s获得了%d元奖金\n', player1.name, bonus);
                case 2
                    punishment = randi(500);
                    player1.money = player1.money - punishment;
                    fprintf('%s受到了%d元罚款\n', player1.name, punishment);
                case 3
                    % do nothing
            end
        case '监狱'
            player1.position = 11;
            fprintf('%s被送进了监狱，停留三个回合\n', player1.name);
    end
    
    % 显示玩家1的状态
    fprintf('%s现在的位置是%s，现金余额是%d元\n', player1.name, get_position_name(player1.position), player1.money);
    
    % 玩家2轮流掷骰子（同上）
    fprintf('%s掷骰子...\n', player2.name);
    pause(1);
    dice = randi(6);
    fprintf('%s掷出了%d点\n', player2.name, dice);
    player2.position = player2.position + dice;
    
    if player2.position > 100
        fprintf('%s赢得了胜利！\n', player2.name);
        break;
    end
    
    player2.position = min(player2.position, 100);
    fprintf('%s移动到了%s\n', player2.name, get_position_name(player2.position));
    
    event = get_position_event(player2.position);
    switch event
        case '空地'
            % do nothing
        case '地产'
            [owner, price, toll] = get_property_info(player2.position);
            if isempty(owner)
                if player2.money >= price
                    player2.money = player2.money - price;
                    set_property_owner(player2.position, player2.name);
                    fprintf('%s购买了%s，花费了%d元\n', player2.name, get_position_name(player2.position), price);
                else
                    fprintf('%s的现金不足，无法购买%s\n', player2.name, get_position_name(player2.position));
                end
            else
                if owner == player2.name
                    % do nothing
                else
                    if player2.money >= toll
                        player2.money = player2.money - toll;
                        set_property_owner(player2.position, player2.name);
                        fprintf('%s支付了%d元过路费给%s\n', player2.name, toll, owner);
                    else
                        fprintf('%s的现金不足，无法支付过路费给%s\n', player2.name, owner);
                    end
                end
            end
        case '命运'
            fate = randi(3);
            switch fate
                case 1
                    bonus = randi(500);
                    player2.money = player2.money + bonus;
                    fprintf('%s获得了%d元奖金\n', player2.name, bonus);
                case 2
                    punishment = randi(500);
                    player2.money = player2.money - punishment;
                    fprintf('%s受到了%d元罚款\n', player2.name, punishment);
                case 3
                    % do nothing
            end
        case '监狱'
            player2.position = 11;
            fprintf('%s被送进了监狱，停留三个回合\n', player2.name);
    end
    
    fprintf('%s现在的位置是%s，现金余额是%d元\n', player2.name, get_position_name(player2.position), player2.money);
end

%% 辅助函数

% 获取位置名称
function name = get_position_name(position)
    board = get_board();
    [r, c] = find(board == position);
    name = sprintf('%c%d', char('A'+r-1), c);
end

% 获取位置事件类型
function event = get_position_event(position)
    board = get_board();
    [r, c] = find(board == position);
    if r == 1 || r == 10 || c == 1 || c == 10
        event = '空地';
    elseif r == 2 || r == 9 || c == 2 || c == 9
        event = '命运';
    elseif r == 5 && c == 5
        event = '监狱';
    else
        event = '地产';
    end
end

% 获取地产信息（所有者、价格、过路费）
function [owner, price, toll] = get_property_info(position)
    properties = getappdata(gcf, 'properties');
    property = properties(position);
    owner = property.owner;
    price = property.price;
    toll = property.toll;
end

% 设置地产所有者
function set_property_owner(position, owner)
    properties = getappdata(gcf, 'properties');
    property = properties(position);
    property.owner = owner;
    properties(position) = property;
    setappdata(gcf, 'properties', properties);
end

% 获取游戏版图
function board = get_board()
    board = getappdata(gcf, 'board');
end

% 初始化游戏版图和地产信息
board = zeros(10);
board(1,:) = 1:10;
board(end,:) = fliplr(91:100);
board(:,1) = board(:,1) + 10;
board(:,end) = fliplr(board(:,end) + 20);
setappdata(gcf, 'board', board);

for i = 1:100
    properties(i).owner = '';
    if i <= 20
        properties(i).price = 300 + 20*i;
        properties(i).toll = properties(i).price * 0.1;
    elseif i <= 40
        properties(i).price = 900 - 20*(i-20);
        properties(i).toll = properties(i).price * 0.2;
    elseif i <= 60
        properties(i).price = 300 + 20*(i-40);
        properties(i).toll = properties(i).price * 0.3;
    else
        properties(i).price = 900 - 20*(i-60);
        properties(i).toll = properties(i).price * 0.4;
    end
end
setappdata(gcf, 'properties', properties);

使用方法：将上述程序保存为一个 `.m` 文件，在 MATLAB 命令窗口中运行即可。程序会自动创建一个 10x10 的游戏版图和 100 个地产，两名玩家轮流掷骰子并按照游戏规则移动，直到有一名玩家到达终点（100号位置），游戏结束。