another.m

来自「一个求解纳什交换的均衡问题的例程」· M 代码 · 共 21 行

 clear
bill=[2,2,2,2,4,10,4,6,2];%效用向量
jake=[4,2,1,2,1,1,1,2,2];
b=bill*[1,1,1,1,1,0,0,0,0]';%效用向量*初始商品向量
j=jake*[0,0,0,0,0,1,1,1,1]';
t=b*j;
for i=1:9
    for n=(2^(i-1)):(2^i-1)
    a=dec2bin(n);
    a=a-48;
    u=zeros(1,9-i);
    bb=[u,a];
    jj=ones(1,9)-bb;
    if (bill*bb'>b)&(jake*jj'>j)&((bill*bb')*(jake*jj')>t)%效用大于初始，且效用乘积最大化
        finalb=bill*bb';finalj=jake*jj';t=finalb*finalj;finalbill=bb;finaljake=jj;
   end
   end
end
bill=[finalbill,finalb]
jake=[finaljake,finalj]
t=t