用matlab写的梭哈游戏

suffer

本程序作者：zjliu

suoha.m

1. % clear
   
2. M=1000;
   
3. Kp=100;
   
4. Kz=1;
   
5. close all
   
6. S={'2','3','4','5','6','7','8','9','10','J','Q','K','A'};
   
7. CC={'\diamondsuit','\heartsuit','\clubsuit','\spadesuit'};
   
8. PPd=randperm(52);
   
9. aa=PPd(1:5);
   
10. bb=PPd(6:10);
    
11. [anc,an]=ind2sub([4,13],aa);
    
12. [bnc,bn]=ind2sub([4,13],bb);
    
13. 
    
14. [an,K]=sort(an);
    
15. anc=anc(K);
    
16. aSC=zeros(3,5);
    
17. ppl=find(anc<2);
    
18. aSC(1,ppl)=1;
    
19. 
    
20. [bn,K]=sort(bn);
    
21. bnc=bnc(K);
    
22. bSC=zeros(3,5);
    
23. ppl=find(bnc<2);
    
24. bSC(1,ppl)=1;
    
25. 
    
26. figure('Position',[83 79 888 586],'MenuBar','none',...
    
27.     'NumberTitle','off','name','扑克梭哈');
    
28. axes('position',[0.3,0.94,0.2,0.2]);
    
29. text(0,0,'\diamondsuit','fontsize',48,'color','r')
    
30. axis off
    
31. 
    
32. axes('position',[0.37,0.925,0.2,0.2]);
    
33. text(0,0,'<','fontsize',56,'color','b')
    
34. axis off
    
35. 
    
36. axes('position',[0.44,0.94,0.2,0.2]);
    
37. text(0,0,'\heartsuit','fontsize',48,'color','r')
    
38. axis off
    
39. 
    
40. axes('position',[0.51,0.925,0.2,0.2]);
    
41. text(0,0,'<','fontsize',56,'color','b')
    
42. axis off
    
43. 
    
44. axes('position',[0.58,0.94,0.2,0.2]);
    
45. text(0,0,'\clubsuit','fontsize',48,'color','black')
    
46. axis off
    
47. 
    
48. axes('position',[0.65,0.925,0.2,0.2]);
    
49. text(0,0,'<','fontsize',56,'color','b')
    
50. axis off
    
51. 
    
52. axes('position',[0.72,0.94,0.2,0.2]);
    
53. text(0,0,'\spadesuit','fontsize',48,'color','black')
    
54. axis off
    
55. 
    
56. a1=axes('position',[0.1,0.15,0.088 0.3]);
    
57. rectangle('position',[0 0 1 1],'Curvature',...
    
58.     [0.3 0.3],'EdgeColor','b','linewidth',3);
    
59. aTS1=text(0.2,0.4,char(CC(anc(1))),'fontsize',58,...
    
60. 'color',aSC(:,1));
    
61. aTN1=text(0.1,0.7,S(an(1)),'fontsize',48);
    
62. axis off
    
63. 
    
64. a2=axes('position',[0.2,0.15,0.088 0.3]);
    
65. rectangle('position',[0 0 1 1],'Curvature',...
    
66.     [0.3 0.3],'EdgeColor','b','linewidth',3);
    
67. aTS2=text(0.2,0.4,char(CC(anc(2))),'fontsize',58,...
    
68. 'color',aSC(:,2));
    
69. aTN2=text(0.1,0.7,S(an(2)),'fontsize',48);
    
70. axis off
    
71. 
    
72. a3=axes('position',[0.3,0.15,0.088 0.3]);
    
73. rectangle('position',[0 0 1 1],'Curvature',...
    
74.     [0.3 0.3],'EdgeColor','b','linewidth',3);
    
75. aTS3=text(0.2,0.4,char(CC(anc(3))),'fontsize',58,...
    
76. 'color',aSC(:,3));
    
77. aTN3=text(0.1,0.7,S(an(3)),'fontsize',48);
    
78. axis off
    
79. 
    
80. a4=axes('position',[0.4,0.15,0.088 0.3]);
    
81. rectangle('position',[0 0 1 1],'Curvature',...
    
82.     [0.3 0.3],'EdgeColor','b','linewidth',3);
    
83. aTS4=text(0.2,0.4,char(CC(anc(4))),'fontsize',58,...
    
84. 'color',aSC(:,4));
    
85. aTN4=text(0.1,0.7,S(an(4)),'fontsize',48);
    
86. axis off
    
87. 
    
88. a5=axes('position',[0.5,0.15,0.088 0.3]);
    
89. rectangle('position',[0 0 1 1],'Curvature',...
    
90.     [0.3 0.3],'EdgeColor','b','linewidth',3);
    
91. aTS5=text(0.2,0.4,char(CC(anc(5))),'fontsize',58,...
    
92. 'color',aSC(:,5));
    
93. aTN5=text(0.1,0.7,S(an(5)),'fontsize',48);
    
94. axis off
    
95. 
    
96. b1=axes('position',[0.1,0.55,0.088 0.3]);
    
97. rectangle('position',[0 0 1 1],'Curvature',...
    
98.     [0.3 0.3],'EdgeColor','b','linewidth',3);
    
99. bTS1=text(0.2,0.4,char(CC(bnc(1))),'fontsize',58,...
    
100. 'color',bSC(:,1));
     
101. bTN1=text(0.1,0.7,S(bn(1)),'fontsize',48);
     
102. axis off
     
103. 
     
104. b2=axes('position',[0.2,0.55,0.088 0.3]);
     
105. rectangle('position',[0 0 1 1],'Curvature',...
     
106.     [0.3 0.3],'EdgeColor','b','linewidth',3);
     
107. bTS2=text(0.2,0.4,char(CC(bnc(2))),'fontsize',58,...
     
108. 'color',bSC(:,2));
     
109. bTN2=text(0.1,0.7,S(bn(2)),'fontsize',48);
     
110. axis off
     
111. 
     
112. b3=axes('position',[0.3,0.55,0.088 0.3]);
     
113. rectangle('position',[0 0 1 1],'Curvature',...
     
114.     [0.3 0.3],'EdgeColor','b','linewidth',3);
     
115. bTS3=text(0.2,0.4,char(CC(bnc(3))),'fontsize',58,...
     
116. 'color',bSC(:,3));
     
117. bTN3=text(0.1,0.7,S(bn(3)),'fontsize',48);
     
118. axis off
     
119. 
     
120. b4=axes('position',[0.4,0.55,0.088 0.3]);
     
121. rectangle('position',[0 0 1 1],'Curvature',...
     
122.     [0.3 0.3],'EdgeColor','b','linewidth',3);
     
123. bTS4=text(0.2,0.4,char(CC(bnc(4))),'fontsize',58,...
     
124. 'color',bSC(:,4));
     
125. bTN4=text(0.1,0.7,S(bn(4)),'fontsize',48);
     
126. axis off
     
127. 
     
128. b5=axes('position',[0.5,0.55,0.088 0.3]);
     
129. rectangle('position',[0 0 1 1],'Curvature',...
     
130.     [0.3 0.3],'EdgeColor','b','linewidth',3);
     
131. bTS5=text(0.2,0.4,char(CC(bnc(5))),'fontsize',58,...
     
132. 'color',bSC(:,5));
     
133. bTN5=text(0.1,0.7,S(bn(5)),'fontsize',48);
     
134. axis off
     
135. 
     
136. 
     
137. [aR,aT,aSkk]=suosuo(anc,an);
     
138. [bR,bT,bSkk]=suosuo(bnc,bn);
     
139. 
     
140. aui=uicontrol(gcf,'style','text',...
     
141. 'unit','normalized','position',[0.6,0.29,0.12,0.06],...
     
142. 'BackgroundColor','w','ForegroundColor','r',...
     
143. 'string',aSkk,'fontsize',24);
     
144. 
     
145. Mm=uicontrol(gcf,'style','text',...
     
146. 'unit','normalized','position',[0.79,0.76,0.14,0.07],...
     
147. 'BackgroundColor','w','ForegroundColor','b',...
     
148. 'string','Money','fontsize',24);
     
149. 
     
150. Mone=uicontrol(gcf,'style','text',...
     
151. 'unit','normalized','position',[0.79,0.69,0.16,0.06],...
     
152. 'BackgroundColor','w','ForegroundColor','g',...
     
153. 'string',num2str(M),'fontsize',24);
     
154. 
     
155. zhu=uicontrol(gcf,'style','edit',...
     
156. 'unit','normalized','position',[0.73,0.29,0.1,0.06],...
     
157. 'BackgroundColor','w','ForegroundColor','g',...
     
158. 'string',num2str(Kp),'fontsize',14,'callback',...
     
159. ['Kp=str2num(get(zhu,''string''));']);
     
160. 
     
161. uicontrol(gcf,'style','push',...
     
162. 'unit','normalized','position',[0.84,0.29,0.1,0.04],...
     
163. 'BackgroundColor','w','ForegroundColor','g',...
     
164. 'string','double','fontsize',14,'callback',...
     
165. ['M=str2num(get(Mone,''string''));','Kp=2*Kp;',...
     
166.     'set(zhu,''string'',num2str(Kp));',...
     
167. 'set(Mone,''string'',num2str(M-Kp/2));']);
     
168. 
     
169. bui=uicontrol(gcf,'style','text',...
     
170. 'unit','normalized','position',[0.6,0.69,0.12,0.06],...
     
171. 'BackgroundColor','w','ForegroundColor','r',...
     
172. 'string',bSkk,'fontsize',24);
     
173. 
     
174. uicontrol(gcf,'style','push',...
     
175. 'unit','normalized','position',[0.6,0.19,0.1,0.04],...
     
176. 'BackgroundColor','w','ForegroundColor','g',...
     
177. 'string','Restar','fontsize',14,'callback','suoha;');
     
178. 
     
179. uicontrol(gcf,'style','push',...
     
180. 'unit','normalized','position',[0.71,0.19,0.1,0.04],...
     
181. 'BackgroundColor','w','ForegroundColor','g',...
     
182. 'string','发牌','fontsize',14,'callback','suoha_count;');
     
183. uicontrol(gcf,'style','push',...
     
184. 'unit','normalized','position',[0.82,0.19,0.1,0.04],...
     
185. 'BackgroundColor','w','ForegroundColor','g',...
     
186. 'string','换牌','fontsize',14,'callback',...
     
187. ['suoha_count2;']);
     
188. 
     
189. 
     
190. abN=zeros(1,5);
     
191. uicontrol(gcf,'style','text',...
     
192. 'unit','normalized','position',[0,0.49,0.1,0.04],...
     
193. 'BackgroundColor','w','ForegroundColor','r',...
     
194. 'string','player','fontsize',14);
     
195. 
     
196. uicontrol(gcf,'style','text',...
     
197. 'unit','normalized','position',[0.01,0.89,0.1,0.04],...
     
198. 'BackgroundColor','w','ForegroundColor','r',...
     
199. 'string','computer','fontsize',14);
     
200. 
     
201. Bu={'hold off','hold on'};
     
202. % button
     
203. abutton1=uicontrol(gcf,'style','push',...
     
204. 'unit','normalized','position',[0.11,0.09,0.06,0.04],...
     
205. 'BackgroundColor','w','ForegroundColor','r',...
     
206. 'string','hold off','callback',['abN(1)=not(abN(1));',...
     
207.     'set(gcbo,''string'',Bu(abN(1)+1));']);
     
208. 
     
209. abutton2=uicontrol(gcf,'style','push',...
     
210. 'unit','normalized','position',[0.21,0.09,0.06,0.04],...
     
211. 'BackgroundColor','w','ForegroundColor','r',...
     
212. 'string','hold off','callback',['abN(2)=not(abN(2));',...
     
213.     'set(gcbo,''string'',Bu(abN(2)+1));']);
     
214. 
     
215. abutton3=uicontrol(gcf,'style','push',...
     
216. 'unit','normalized','position',[0.31,0.09,0.06,0.04],...
     
217. 'BackgroundColor','w','ForegroundColor','r',...
     
218. 'string','hold off','callback',['abN(3)=not(abN(3));',...
     
219.     'set(gcbo,''string'',Bu(abN(3)+1));']);
     
220. 
     
221. abutton4=uicontrol(gcf,'style','push',...
     
222. 'unit','normalized','position',[0.41,0.09,0.06,0.04],...
     
223. 'BackgroundColor','w','ForegroundColor','r',...
     
224. 'string','hold off','callback',['abN(4)=not(abN(4));',...
     
225.     'set(gcbo,''string'',Bu(abN(4)+1));']);
     
226. 
     
227. abutton5=uicontrol(gcf,'style','push',...
     
228. 'unit','normalized','position',[0.51,0.09,0.06,0.04],...
     
229. 'BackgroundColor','w','ForegroundColor','r',...
     
230. 'string','hold off','callback',['abN(5)=not(abN(5));',...
     
231.     'set(gcbo,''string'',Bu(abN(5)+1));']);

复制代码

suffer

Suoha_count.m

1. PPd=randperm(52);
   
2. aa=PPd(1:5);
   
3. bb=PPd(6:10);
   
4. [anc,an]=ind2sub([4,13],aa);
   
5. [bnc,bn]=ind2sub([4,13],bb);
   
6. 
   
7. [an,K]=sort(an);
   
8. anc=anc(K);
   
9. aSC=zeros(3,5);
   
10. ppl=find(anc<3);
    
11. aSC(1,ppl)=1;
    
12. 
    
13. [bn,K]=sort(bn);
    
14. bnc=bnc(K);
    
15. bSC=zeros(3,5);
    
16. ppl=find(bnc<3);
    
17. bSC(1,ppl)=1;
    
18. abN=zeros(1,5);
    
19. set(abutton1,'string','hold off');
    
20. set(abutton2,'string','hold off');
    
21. set(abutton3,'string','hold off');
    
22. set(abutton4,'string','hold off');
    
23. set(abutton5,'string','hold off');
    
24. Kp=100;
    
25. set(zhu,'string',num2str(Kp));
    
26. 
    
27. set(aTS1,'string',CC(anc(1)),'color',aSC(:,1));
    
28. set(aTS2,'string',CC(anc(2)),'color',aSC(:,2));
    
29. set(aTS3,'string',CC(anc(3)),'color',aSC(:,3));
    
30. set(aTS4,'string',CC(anc(4)),'color',aSC(:,4));
    
31. set(aTS5,'string',CC(anc(5)),'color',aSC(:,5));
    
32. 
    
33. set(bTS1,'string',CC(bnc(1)),'color',bSC(:,1));
    
34. set(bTS2,'string',CC(bnc(2)),'color',bSC(:,2));
    
35. set(bTS3,'string',CC(bnc(3)),'color',bSC(:,3));
    
36. set(bTS4,'string',CC(bnc(4)),'color',bSC(:,4));
    
37. set(bTS5,'string',CC(bnc(5)),'color',bSC(:,5));
    
38. 
    
39. %%%%%%%%%%%
    
40. set(aTN1,'string',S(an(1)));
    
41. set(aTN2,'string',S(an(2)));
    
42. set(aTN3,'string',S(an(3)));
    
43. set(aTN4,'string',S(an(4)));
    
44. set(aTN5,'string',S(an(5)));
    
45. 
    
46. set(bTN1,'string',S(bn(1)));
    
47. set(bTN2,'string',S(bn(2)));
    
48. set(bTN3,'string',S(bn(3)));
    
49. set(bTN4,'string',S(bn(4)));
    
50. set(bTN5,'string',S(bn(5)));
    
51. 
    
52. [aR,aT,aSkk]=suosuo(anc,an);
    
53. [bR,bT,bSkk]=suosuo(bnc,bn);
    
54. set(aui,'string',aSkk);
    
55. set(bui,'string',bSkk);
    
56. Kz=1;

复制代码

suffer

suoha_count2.m

1. if Kz==0;
   
2.     errordlg('请先按 [ 发牌 ] 按钮 !');
   
3.     Kk=1;
   
4.     return
   
5. end
   
6. 
   
7. 
   
8. an(abN==0)=[];
   
9. anc(abN==0)=[];
   
10. cc=[];
    
11. if length(an)>0;
    
12.     cc=sub2ind([4,13],anc,an);   
    
13. end
    
14. cc(length(cc)+1:5)=PPd(11:10+5-length(cc));
    
15. bb=PPd(16:20);
    
16. aa=cc;
    
17. 
    
18. [anc,an]=ind2sub([4,13],aa);
    
19. [bnc,bn]=ind2sub([4,13],bb);
    
20. 
    
21. [an,K]=sort(an);
    
22. anc=anc(K);
    
23. aSC=zeros(3,5);
    
24. ppl=find(anc<3);
    
25. aSC(1,ppl)=1;
    
26. 
    
27. [bn,K]=sort(bn);
    
28. bnc=bnc(K);
    
29. bSC=zeros(3,5);
    
30. ppl=find(bnc<3);
    
31. bSC(1,ppl)=1;
    
32. M=M-Kp;
    
33. set(aTS1,'string',CC(anc(1)),'color',aSC(:,1));
    
34. set(aTS2,'string',CC(anc(2)),'color',aSC(:,2));
    
35. set(aTS3,'string',CC(anc(3)),'color',aSC(:,3));
    
36. set(aTS4,'string',CC(anc(4)),'color',aSC(:,4));
    
37. set(aTS5,'string',CC(anc(5)),'color',aSC(:,5));
    
38. 
    
39. set(bTS1,'string',CC(bnc(1)),'color',bSC(:,1));
    
40. set(bTS2,'string',CC(bnc(2)),'color',bSC(:,2));
    
41. set(bTS3,'string',CC(bnc(3)),'color',bSC(:,3));
    
42. set(bTS4,'string',CC(bnc(4)),'color',bSC(:,4));
    
43. set(bTS5,'string',CC(bnc(5)),'color',bSC(:,5));
    
44. 
    
45. %%%%%%%%%%%
    
46. set(aTN1,'string',S(an(1)));
    
47. set(aTN2,'string',S(an(2)));
    
48. set(aTN3,'string',S(an(3)));
    
49. set(aTN4,'string',S(an(4)));
    
50. set(aTN5,'string',S(an(5)));
    
51. 
    
52. set(bTN1,'string',S(bn(1)));
    
53. set(bTN2,'string',S(bn(2)));
    
54. set(bTN3,'string',S(bn(3)));
    
55. set(bTN4,'string',S(bn(4)));
    
56. set(bTN5,'string',S(bn(5)));
    
57. [aR,aT,aSkk]=suosuo(anc,an);
    
58. [bR,bT,bSkk]=suosuo(bnc,bn);
    
59. set(aui,'string',aSkk);
    
60. set(bui,'string',bSkk);
    
61. M=sign(aR-bR)*Kp*aT+M+Kp;
    
62. set(Mone,'string',num2str(M));
    
63. Kz=0;

复制代码

suffer

1. function [R,T,Skk]=suosuo(xnc,xn);
   
2. %比较大小
   
3. dxn=diff(xn);
   
4. if length(unique(xn))==5 & length(unique(dxn))==1 & length(unique(xnc))==1;
   
5.     R=8*13^2+max(xn)*13+unique(xnc);
   
6.     T=15;
   
7.     Skk='同花顺';
   
8. elseif length(unique(xn))==2 & dxn(1)+dxn(4)>0;
   
9.     R=7*13^2;
   
10.     T=10;
    
11.     Skk='铁枝(四张)';
    
12. elseif length(unique(xn))==2 & dxn(2)+dxn(3)>0;
    
13.     R=6*13^2+xn(3)*13;
    
14.     T=5;
    
15.     Skk='葫芦';
    
16. elseif length(unique(xnc))==1;
    
17.     R=5*13^2+max(xn)*13+unique(xnc);
    
18.     T=1;
    
19.     Skk='同花';
    
20. elseif length(unique(xn))==5 & length(find(dxn==1))==4;
    
21.     R=4*13^2+max(xn)*13+xnc(xn==max(xn));
    
22.     T=1;
    
23.     Skk='顺子';
    
24. elseif length(find(xn==xn(3)))==3;
    
25.     R=3*13^2+xn(3)*13;
    
26.     T=1;
    
27.     Skk='三条';
    
28. elseif length(unique(xn))==3;
    
29.     R=2*13^2+max(xn(dxn==0))*13+max(xnc(xn==max(xn(dxn==0))));
    
30.     T=1;
    
31.     Skk='兔胚';
    
32. elseif length(unique(xn))==4;
    
33.     R=13^2+max(xn(dxn==0))*13+max(xnc(xn==max(xn(dxn==0))));
    
34.     T=1;
    
35.     Skk='单胚';
    
36. else
    
37.     R=max(xn)*13+xnc(xn==max(xn));
    
38.     T=1;
    
39.     Skk='单张';
    
40. end

复制代码

nymail

一共几个M文件，放到一块试了一下缺个脚本

suffer

原帖由 nymail 于 2006-11-19 11:23 发表
一共几个M文件，放到一块试了一下缺个脚本

一共2个文件，分别见1楼和2楼，没有问题
注意文件名，帖子中已经给出了

fxyz

萝卜就是强啊

2上弦月2

........

小弟大开眼界！要继续努力学习啊！

smtmobly

牛就一个字,我只说一次!就是不知道怎么玩!如果再给出一个help 就好了!

f1111aaaa

到底是怎么用的，麻烦教下，小弟新手，弄了以后它把5张牌都一下给我了