用matlab算24点小游戏,24点游戏的Matlab程序

function GUI_games24

S.fh = figure('units','pixels',...

'position',[500 500 800 200],...

'menubar','none',...

'name','24点游戏',...

'numbertitle','off',...

'resize','off');

S.ti = uicontrol('style','text',...

'units','pix',...

'position',[300 150 180 30],...

'string','24点的计算程序','fontsize',15);

S.ra= uicontrol('style','pushbutton',...

'units','pix',...

'position',[10 100 180 30],...

'string','随机生成',...

'callback',{@ra_call});

S.ed1 = uicontrol('style','edit',...

'units','pix',...

'position',[10 60 180 30],...

'string',' ');

S.ed2 = uicontrol('style','edit',...

'units','pix',...

'position',[200 60 180 30],...

'string',' ');

S.ed3 = uicontrol('style','edit',...

'units','pix',...

'position',[400 60 180 30],...

'string',' ');

S.ed4 = uicontrol('style','edit',...

'units','pix',...

'position',[600 60 180 30],...

'string',' ');

S.pb = uicontrol('style','pushbutton',...

'units','pix',...

'position',[10 20 180 30],...

'string','求解计算',...

'callback',{@pb_call});

S.re = uicontrol('style','text',...

'units','pix',...

'position',[200 20 350 30],...

'string','结果显示','fontsize',15);

S.reset = uicontrol('style','pushbutton',...

'units','pix',...

'position',[600 20 180 30],...

'string','reset',...

'callback',{@re_call});

function pb_call(varargin)

% Callback for the pushbutton.

R1 = str2double(get(S.ed1,'string'));

R2 = str2double(get(S.ed2,'string'));

R3 = str2double(get(S.ed3,'string'));

R4 = str2double(get(S.ed4,'string'));

x=[R1,R2,R3,R4];

if any(x>13)

set(S.re,'string','请按reset按钮，输入1-13之间的整数');

return

end

expression=disspp(x);

if length(expression{1})<4

set(S.re,'string','fail!!');

else

cc=cell(1,length(expression{1}));

for i=1:length(expression{1})

if expression{1}(i)>30

cc{i}=char(expression{1}(i));

else

cc{i}=num2str(expression{1}(i));

end

end

set(S.re,'string',cell2mat(cc));

end

end

function re_call(varargin)

% Callback for the pushbutton.

set(S.ed1,'string','');

set(S.ed2,'string','');

set(S.ed3,'string','');

set(S.ed4,'string','');

set(S.re,'string','');

end

function ra_call(varargin)

% Callback for the pushbutton.

rap=randint(1,4,[1,13]);

set(S.ed1,'string',int2str(rap(1)));

set(S.ed2,'string',int2str(rap(2)));

set(S.ed3,'string',int2str(rap(3)));

set(S.ed4,'string',int2str(rap(4)));

end

end

function expression=disspp(x)

% 此程序解决经典的24点游戏

% disspp(x)

% example:x=[3 3 8 8]

% disspp(x)

% 算法在网上有的，也可以编c++,java,asp,jap,html&etc,有兴趣者可以试试

% copyright:\流水

% 编写于5月27日晨

if nargin==0

x=[6 6 6 6];

end

global number expression

number=x;

for i=1:4

expression{i}=number(i);

end

number=x;

bol=search(4);

if bol==1

disp('Sucess.')

else

disp('fail');

end

function bool=search(n)

global number expression

PRECISION=1e-6;

% COUNT_OF_NUMBER=4;

NUMBER_TO_BE_CAL=24;

if n==1

if abs(number(1)-NUMBER_TO_BE_CAL)

for i=1:length(expression{1})

if expression{1}(i)>30

a{i}=char(expression{1}(i));

else

a{i}=num2str(expression{1}(i));

end

end

a=cell2mat(a);

disp(a);

bool=1;

return

else

bool=0;

return

end

end

for i=1:n

for j=i+1:n

a=number(i);

b=number(j);

number(j)=number(n);

expa=expression{i};

expb=expression{j};

expression{j}=expression{n};

expression{i}=[40,expa,43,expb,41];

global expression

number(i)=a+b;

if search(n-1)

global expression

bool=1;

return

end

expression{i}=[40,expa,45,expb,41];

number(i)=a-b;

if search(n-1)

global expression

bool=1;

return

end

expression{i}=[40,expb,45,expa,41];

number(i)=b-a;

if search(n-1)

global expression

bool=1;

return

end

expression{i}=[40,expa,42,expb,41];

number(i)=a*b;

if search(n-1)

global expression

bool=1;

return

end

if b~=0

expression{i}=[40,expa,47,expb,41];

number(i)=a/b;

if search(n-1)

global expression

bool=1;

return

end

end

if a~=0

expression{i}=[40,expb,47,expa,41];

number(i)=b/a;

if search(n-1)

global expression

bool=1;

return

end

end

number(i)=a;

number(j)=b;

expression{i}=expa;

expression{j}=expb;

end

end

bool=0;