开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 人工智能/神经网络 > 查看源码
ShuangSeQiuDlg.cpp
资源名称：ShuangSeQiu.rar　[点击查看]
上传用户：flyanjing
上传日期：2015-10-09
资源大小：649k
文件大小：22k
源码类别：

人工智能/神经网络

开发平台：

Visual C++

ShuangSeQiuDlg.cpp：源码内容
  1. // ShuangSeQiuDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "ShuangSeQiu.h"
  6. #include "ShuangSeQiuDlg.h"
  8. #include "AddHistoryDlg.h"
  9. #include "HistoryReorcd.h"
  11. #include "Spliter.h"
  13. #include "math.h"
  15. #ifdef _DEBUG
  16. #define new DEBUG_NEW
  17. #undef THIS_FILE
  18. static char THIS_FILE[] = __FILE__;
  19. #endif
  21. /////////////////////////////////////////////////////////////////////////////
  22. // CAboutDlg dialog used for App About
  24. class CAboutDlg : public CDialog
  25. {
  26. public:
  27. CAboutDlg();
  29. // Dialog Data
  30. //{{AFX_DATA(CAboutDlg)
  31. enum { IDD = IDD_ABOUTBOX };
  33. //}}AFX_DATA
  35. // ClassWizard generated virtual function overrides
  36. //{{AFX_VIRTUAL(CAboutDlg)
  37. protected:
  38. virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
  39. //}}AFX_VIRTUAL
  41. // Implementation
  42. protected:
  43. //{{AFX_MSG(CAboutDlg)
  44. virtual BOOL OnInitDialog();
  45. //}}AFX_MSG
  46. DECLARE_MESSAGE_MAP()
  47. };
  49. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  50. {
  51. //{{AFX_DATA_INIT(CAboutDlg)
  52. //}}AFX_DATA_INIT
  54. }
  56. BOOL CAboutDlg::OnInitDialog() 
  57. {
  58. CDialog::OnInitDialog();
  60. // TODO: Add extra initialization here
  62. SetDlgItemText(IDC_EDIT1,"声明:本程序采用历史开奖记录,用遗传算法计算下期可能出现的红色球号码和兰色球号码.本人不负责使用本程序引起的连带责任.");
  64. return TRUE;  // return TRUE unless you set the focus to a control
  65.               // EXCEPTION: OCX Property Pages should return FALSE
  66. }
  69. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  70. {
  71. CDialog::DoDataExchange(pDX);
  72. //{{AFX_DATA_MAP(CAboutDlg)
  73. //}}AFX_DATA_MAP
  74. }
  76. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  77. //{{AFX_MSG_MAP(CAboutDlg)
  78. //}}AFX_MSG_MAP
  80. END_MESSAGE_MAP()
  82. /////////////////////////////////////////////////////////////////////////////
  83. // CShuangSeQiuDlg dialog
  85. CShuangSeQiuDlg::CShuangSeQiuDlg(CWnd* pParent /*=NULL*/)
  86. : CDialog(CShuangSeQiuDlg::IDD, pParent)
  87. {
  88. //{{AFX_DATA_INIT(CShuangSeQiuDlg)
  89. // NOTE: the ClassWizard will add member initialization here
  90. //}}AFX_DATA_INIT
  91. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  92. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  93. }
  95. void CShuangSeQiuDlg::DoDataExchange(CDataExchange* pDX)
  96. {
  97. CDialog::DoDataExchange(pDX);
  98. //{{AFX_DATA_MAP(CShuangSeQiuDlg)
  99. DDX_Control(pDX, IDC_CODELIST, m_list);
  100. //}}AFX_DATA_MAP
  101. }
  103. BEGIN_MESSAGE_MAP(CShuangSeQiuDlg, CDialog)
  104. //{{AFX_MSG_MAP(CShuangSeQiuDlg)
  105. ON_WM_SYSCOMMAND()
  106. ON_WM_PAINT()
  107. ON_WM_QUERYDRAGICON()
  108. ON_BN_CLICKED(IDC_BTN_YUCE, OnBtnYuce)
  109. ON_BN_CLICKED(IDC_BTN_ADD, OnBtnAdd)
  110. ON_BN_CLICKED(IDC_BTN_VIEWHISTORY, OnBtnViewhistory)
  111. ON_BN_CLICKED(IDC_BTN_SAVE, OnBtnSave)
  112. ON_BN_CLICKED(IDC_BTN_HISTORYSTAT, OnBtnHistorystat)
  113. ON_NOTIFY(NM_CLICK, IDC_CODELIST, OnClickCodelist)
  114. ON_BN_CLICKED(IDC_BTN_HISTORY, OnBtnHistory)
  115. ON_BN_CLICKED(IDC_BTN_DELETE, OnBtnDelete)
  116. //}}AFX_MSG_MAP
  117. ON_NOTIFY (NM_CUSTOMDRAW, IDC_CODELIST, OnCustomdrawMyList)
  119. ON_MESSAGE(WM_VALIDATE, OnEndLabelEditVariableCriteria) //添加的自定义的消息
  120. ON_MESSAGE(WM_SET_ITEMS, PopulateComboList)
  122. END_MESSAGE_MAP()
  124. /////////////////////////////////////////////////////////////////////////////
  125. // CShuangSeQiuDlg message handlers
  127. BOOL CShuangSeQiuDlg::OnInitDialog()
  128. {
  129. CDialog::OnInitDialog();
  131. //skinppLoadSkin("AquaOS.ssk");
  132. skinppLoadSkin("MAC.ssk");
  135. // Add "About..." menu item to system menu.
  137. // IDM_ABOUTBOX must be in the system command range.
  138. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  139. ASSERT(IDM_ABOUTBOX < 0xF000);
  141. CMenu* pSysMenu = GetSystemMenu(FALSE);
  142. if (pSysMenu != NULL)
  143. {
  144. CString strAboutMenu;
  145. strAboutMenu.LoadString(IDS_ABOUTBOX);
  146. if (!strAboutMenu.IsEmpty())
  147. {
  148. pSysMenu->AppendMenu(MF_SEPARATOR);
  149. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  150. }
  151. }
  153. // Set the icon for this dialog.  The framework does this automatically
  154. //  when the application's main window is not a dialog
  155. SetIcon(m_hIcon, TRUE); // Set big icon
  156. SetIcon(m_hIcon, FALSE); // Set small icon
  160. m_list.EnableVScroll(); 
  161. m_list.SetExtendedStyle(LVS_EX_FULLROWSELECT);
  162. m_list.SetExtendedStyle(LVS_EX_GRIDLINES | LVS_EX_FULLROWSELECT);
  166. m_list.InsertColumn(0,_T("ID"),LVCFMT_LEFT,30);
  167. m_list.InsertColumn(1,_T("红1"),LVCFMT_LEFT,40);
  168. m_list.InsertColumn(2,_T("红2"),LVCFMT_LEFT,40);
  169. m_list.InsertColumn(3,_T("红3"),LVCFMT_LEFT,40);
  170. m_list.InsertColumn(4,_T("红4"),LVCFMT_LEFT,40);
  171. m_list.InsertColumn(5,_T("红5"),LVCFMT_LEFT,40);
  172. m_list.InsertColumn(6,_T("红6"),LVCFMT_LEFT,40);
  174. m_list.InsertColumn(7,_T("蓝"),LVCFMT_LEFT,40);
  177. line = 0;
  178. yuce = 0;
  180. //初始化变量
  181. initVar();
  183. //读历史数据
  184. ReadHistroy();
  186. CString strValidChars;//
  187. m_list.SetReadOnlyColumns(0);//read only
  189. strValidChars = "0123456789";
  190. m_list.SetColumnValidEditCtrlCharacters(strValidChars,1);//digital only edit
  191. m_list.SetColumnValidEditCtrlCharacters(strValidChars,2);//digital only edit
  192. m_list.SetColumnValidEditCtrlCharacters(strValidChars,3);//digital only edit
  193. m_list.SetColumnValidEditCtrlCharacters(strValidChars,4);//digital only edit
  194. m_list.SetColumnValidEditCtrlCharacters(strValidChars,5);//digital only edit
  195. m_list.SetColumnValidEditCtrlCharacters(strValidChars,6);//digital only edit
  196. m_list.SetColumnValidEditCtrlCharacters(strValidChars,7);//digital only edit
  198. // TODO: Add extra initialization here
  200. return TRUE;  // return TRUE  unless you set the focus to a control
  201. }
  203. void CShuangSeQiuDlg::OnSysCommand(UINT nID, LPARAM lParam)
  204. {
  205. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  206. {
  207. CAboutDlg dlgAbout;
  208. dlgAbout.DoModal();
  209. }
  210. else
  211. {
  212. CDialog::OnSysCommand(nID, lParam);
  213. }
  214. }
  219. // If you add a minimize button to your dialog, you will need the code below
  220. //  to draw the icon.  For MFC applications using the document/view model,
  221. //  this is automatically done for you by the framework.
  223. void CShuangSeQiuDlg::OnPaint() 
  224. {
  225. if (IsIconic())
  226. {
  227. CPaintDC dc(this); // device context for painting
  229. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  231. // Center icon in client rectangle
  232. int cxIcon = GetSystemMetrics(SM_CXICON);
  233. int cyIcon = GetSystemMetrics(SM_CYICON);
  234. CRect rect;
  235. GetClientRect(&rect);
  236. int x = (rect.Width() - cxIcon + 1) / 2;
  237. int y = (rect.Height() - cyIcon + 1) / 2;
  239. // Draw the icon
  240. dc.DrawIcon(x, y, m_hIcon);
  241. }
  242. else
  243. {
  244. CDialog::OnPaint();
  245. }
  246. }
  250. // The system calls this to obtain the cursor to display while the user drags
  251. //  the minimized window.
  252. HCURSOR CShuangSeQiuDlg::OnQueryDragIcon()
  253. {
  254. return (HCURSOR) m_hIcon;
  255. }
  258. //初始化变量
  259. void CShuangSeQiuDlg::initVar()
  260. {
  262. for(int i=0;i<6;i++){
  263. red[i] ="";
  264. }
  266. blue=""; //已经蓝球
  268. for(int r=0;r<34;r++){
  269. StatRed[r] =0; //红球累计
  270. StatRedRate[r] = 0.0; //红球累计率
  272. sn[r] = r;
  273. }
  275. for(int b=0;b<17;b++){
  276. StatBlue[b] =0; //蓝球累计
  277. StatBlueRate[b] = 0.0; //蓝球累计率
  278. }
  280. int dd = 0;
  282. deleteflag = false;
  283. totalsn = 0;
  285. popnum = 20;
  287. //为预报工作作一些初始化
  288. for(int item=0;item<popnum;item++){
  289. for(int r=0;r<6;r++){
  290. ItemCountRed[item][r]=0;
  291. }
  292. ItemCountBlue[item]=0;
  293. ItemCountRedRate[item] =0;
  294. }
  297. MAXRATE = 20; //rate 排序前max的值
  299. thebest =0;
  301. yecefail = true;
  302. }
  305. //读历史数据
  306. void CShuangSeQiuDlg::ReadHistroy()
  307. {
  308. CHistoryReorcd chr;
  309. CString path = chr.GetCurPath();
  310. CString filename = path+ "\history.txt";
  311. line = chr.GetFileLine(filename);
  313. //分析每一行的数据,根据不同的内容,把值分到不同的数组中.
  314. for(int i=1;i<=line;i++){
  315. CString linestr= chr.GetLineActionFile(filename,i);
  316. int sub = linestr.Find(":",0);
  317. CString codestr = linestr.Mid(sub+1);
  319. CSpliter cSpliter;
  320. cSpliter.setdata(codestr);
  321. cSpliter.setsplitflag(",");
  322. CStringArray a;
  323. cSpliter.getsplitstrarray(a);
  325. int number_red=0;
  327. for(int r=0;r<6;r++){
  328. number_red = atoi(a.GetAt(r));
  329. StatRed[number_red] ++;
  330. }
  331. //把最后两期的号赋到全局数组中,以供预测时候比较.
  332. if(i == line-1){
  333. for(int p=0;p<6;p++){
  334. int sn =p;
  335. passval[sn] = atoi(a.GetAt(p));
  336. }
  337. }else if (i == line){
  338. for(int p=0;p<6;p++){
  339. int sn = 6+p;
  340. passval[sn] = atoi(a.GetAt(p));
  341. }
  342. }
  345. int number_blue = atoi(a.GetAt(6));
  346. StatBlue[number_blue] ++;
  347. }
  350. float RedTotolTime  = (float)6*line; //红球总出现次数
  351. float BlueTotolTime = (float)line; //蓝球总出现次数
  353. //计算机率
  354. for(int rr=1;rr<34;rr++){
  355. StatRedRate[rr] = (float)StatRed[rr] / RedTotolTime; //红球累计率
  356. }
  358. for(int br=1;br<17;br++){
  359. StatBlueRate[br] = (float)StatBlue[br] /BlueTotolTime; //蓝球累计率
  360. }
  363. }
  365. void CShuangSeQiuDlg::OnBtnYuce() 
  366. {
  367. yecefail = true;
  369. while(yecefail){
  371. //通过算法得到数值
  372. GAStudy();
  374. UpdateData(TRUE);
  376. int i =m_list.GetItemCount();
  378. CString str;
  379. str.Format("%d",totalsn+1);
  381. if (!yecefail){
  382. SetDlgItemText(IDC_STATIC_INFO,"信息:这是个可选号码!" );
  383. m_list.InsertItem(LVIF_TEXT|LVIF_STATE, i+1, str, LVIS_SELECTED|LVIS_FOCUSED, LVIS_SELECTED|LVIS_FOCUSED, 0, 0);
  384. }
  388. if (!yecefail){
  389. for(int sub=0;sub<6;sub++){
  390. CString s="";
  391. s.Format("%d" ,sn[ ItemCountRed[thebest][sub] ]); 
  392. m_list.SetItemText(i,sub+1,s);
  393. }
  394. int blue = rand()%(16) + 1;
  395. CString bstr;
  396. bstr.Format("%d",blue);
  397. //兰色球号码,没有怎么做,随机了一个兰色球,哈...
  398. m_list.SetItemText(i,7,_T(bstr));
  399. totalsn ++;
  400. }
  401. UpdateData(FALSE);
  403. }
  409. }
  411. //开始GA学习
  412. void CShuangSeQiuDlg::GAStudy()
  413. {
  415. initpop(); //初始化种群
  417. int train_count =0;
  419. int totalval =118; //累加和
  421.     int bubiaole =0;
  422. int pre = 0;
  424. while( totalval < 75  || totalval > 125  ||  train_count< 10  )
  425. {
  426. totalval = 0; //初始化为0
  428. train_count++; //下一代
  430. ComputeFit(); //计算适应度
  432. SelectAndDeletePop(); //选择和淘汰种群
  434. CrossPop(); //交叉操作
  436. Mutation();         //变异操作
  438. thebest = GetResult(); //得到最优种群ID
  440. int val[6] ={0};
  442. for(int i=0;i<6;i++){
  443. val[i] = sn[ItemCountRed[thebest][i]];
  444. totalval = totalval + val[i];
  445. }
  447. if (pre == totalval){
  448. bubiaole ++;
  449. }else{
  450. pre = totalval;
  451. }
  453. if (bubiaole>10){
  454. //AfxMessageBox("出现不推荐号码已跳过,请继续预测!");
  455. SetDlgItemText(IDC_STATIC_INFO,"信息:出现不推荐号码已跳过,系统继续预测中......" );
  456. yecefail = true;
  457. break;
  458. }else{
  459. yecefail = false;
  460. }
  462. //比较与上两期差别
  463. int samecount =0;
  464. for(i=0;i<6;i++){
  465. for(int sn=0;sn<12;sn++){
  466. if( val[i] == passval[sn] ){
  467. samecount ++ ;
  468. if (samecount > 2 ){ //如果大于两个则,放弃这个预测
  469. yecefail = true;
  470. SetDlgItemText(IDC_STATIC_INFO,"信息:与上两期相似号跳过,系统继续预测中......" );
  471. break;
  472. }else{
  473. yecefail = false;
  474. }
  475. }
  476. }
  477. }
  479. int dd = 0;
  481. }
  483. }
  485. //初始化种群
  486. void CShuangSeQiuDlg::initpop()
  487. {
  488. //排序
  489. int tmp=0;
  491. for(int i=1;i<34;i++){
  492. for(int j=i+1;j<34;j++) 
  493. if( StatRedRate[sn[i]]  < StatRedRate[sn[j]] ) {
  494. tmp = sn[i];
  495. sn[i]= sn[j];
  496. sn[j] = tmp;
  497. }
  498. }
  501. //间接排序问题
  502. /*
  503. CStdioFile file; 
  504. file.Open("sort.txt",CFile::modeCreate|CFile::modeReadWrite); 
  506. int len = 34;
  507. for(i=1;i<len ;i++){
  508. CString rate,ratelist;
  509. ratelist.Format("%.8f",StatRedRate[sn[i]]);
  510. rate.Format("%d --",sn[i]);
  511. rate = rate + ratelist;
  512. file.WriteString(rate);
  513. file.WriteString("n");
  514. }
  515. file.Close();
  516. */
  519. srand(time(0));/*设置种子,并生成伪随机序列*/ 
  520. for(int pop=0;pop<popnum;pop++){
  521. for(int j=0;j<6;j++){
  522. bool same = true;
  524. int r =0;
  525. int min = 1;
  527. int diff=0;
  528. while(same){
  529. r = rand()%(MAXRATE) + min;
  530. for(int next=0 ;next<6; next++){
  531. if (r == ItemCountRed[pop][next] ){
  532. same =true;
  533. diff= 0;
  534. break;
  535. }else{
  536. diff ++;
  537. }
  538. }
  539. if (diff >= 5){
  540. same = false;
  541. }
  542. }
  543. ItemCountRed[pop][j] = r;
  544. }
  545. }
  547. CStdioFile file; 
  548. file.Open("pop.txt",CFile::modeCreate|CFile::modeReadWrite); 
  549. for(i=0;i<popnum ;i++){
  550. CString popn="";
  552. for(int j=0;j<6;j++){
  553. CString nextp="";
  554. nextp.Format("%d",sn[ItemCountRed[i][j]] );   //相当于rate.Format("%d --",sn[i]);
  555. popn = popn + " " + nextp;
  557. }
  558. file.WriteString(popn);
  559. file.WriteString("n");
  560. }
  561. file.Close();
  564. }
  567. //计算适应度
  568. void CShuangSeQiuDlg::ComputeFit()
  569. {
  570. for(int pop=0;pop<popnum;pop++){
  571. for(int j=0;j<6;j++){
  572. int cur = sn[ItemCountRed[pop][j]] ;
  573. ItemCountRedRate[pop] =ItemCountRedRate[pop] + StatRedRate[cur] ;
  574. }
  575. }
  578. CStdioFile file; 
  579. file.Open("poprate.txt",CFile::modeCreate|CFile::modeReadWrite); 
  580. for(int i=0;i<popnum ;i++){
  581. CString popn="";
  582. popn.Format("%.8f",ItemCountRedRate[i]);
  583. file.WriteString(popn);
  584. file.WriteString("n");
  585. }
  586. file.Close();
  587. }
  591. //选择和淘汰种群
  592. void CShuangSeQiuDlg::SelectAndDeletePop()
  593. {
  594. float maxrate =0;
  595. float minrate =1000; 
  598. for(int i=0;i<popnum ;i++){
  599. if (ItemCountRedRate[i] > maxrate){
  600. maxindex = i;
  601. maxrate = ItemCountRedRate[i] ;
  602. }
  603. if (ItemCountRedRate[i] < minrate){
  604. minindex = i;
  605. minrate = ItemCountRedRate[i] ;
  606. }
  607. }
  609. CStdioFile file; 
  611. CFileStatus   fs;   
  612. if(!CFile::GetStatus(_T("popselect.txt"),fs))   
  613. {   
  614. file.Open("popselect.txt",CFile::modeCreate|CFile::modeReadWrite); 
  615. }else{
  616. file.Open("popselect.txt",CFile::modeReadWrite); 
  617. }
  622. file.SeekToEnd();
  624. CString maxindexstr="";
  625. maxindexstr.Format("%d 最优的种群ID",maxindex);
  626. file.WriteString(maxindexstr);
  627. file.WriteString("n");
  629. CString minindexstr="";
  630. minindexstr.Format("%d 最差的种群ID",minindex);
  631. file.WriteString(minindexstr);
  632. file.WriteString("n");
  634. file.Close();
  636. }
  638. //交叉操作
  639. void CShuangSeQiuDlg::CrossPop()
  640. {
  641. srand(time(0));
  642. int min =0;
  643. int r = 0; //随机一个种群号
  645. CStdioFile file; 
  646. file.Open("CrossPop.txt",CFile::modeCreate|CFile::modeReadWrite); 
  648. file.SeekToEnd();
  650. CString rr="";
  651. rr.Format("%d",minindex);
  652. CString crossstr="最差的 minindex=" + rr + "n";
  654. for(int i=0;i<6;i++){
  655. CString s="";
  656. s.Format("%d" ,sn[ ItemCountRed[minindex][i] ]); 
  657. crossstr = crossstr + s  + " ";
  658. }
  659. file.WriteString(crossstr);
  660. file.WriteString("n");
  663. bool nextthreesame = true;
  665. //如果随机的后三位和最优的前三位不同就可以
  666. while(nextthreesame){
  667. r = rand()%(popnum) + min; //从种群20中随机一个种群号
  668. int cuti= 3;
  669. int cutb =0;
  670. for(cuti=3;cuti<6;cuti++){ //随机的后三位
  671. for(cutb=0;cutb<3;cutb++){//最优的前三位比较
  672. if(sn[ ItemCountRed[r][cuti] ] == sn[ ItemCountRed[maxindex][cutb] ]){
  673. nextthreesame = true; //有相同的,则要重新找随机种群
  674. break;
  675. }
  676. }
  677. }
  678. if(cuti == 6 && cutb == 3){
  679. nextthreesame = false;
  680. }
  681. }
  684. //用最好的种群和随机的种群进行杂交,替换最差的种群的前三位值
  685. for(int cutb=0;cutb<3;cutb++){
  686. ItemCountRed[minindex][cutb] = ItemCountRed[maxindex][cutb] ;
  687. }
  689. for(int cuti=3;cuti<6;cuti++){
  690. ItemCountRed[minindex][cuti] = ItemCountRed[r][cuti] ;
  691. }
  694. rr.Format("%d",r);
  695. crossstr="随机 r=" + rr + "n";
  696. for(i=0;i<6;i++){
  697. CString s="";
  698. s.Format("%d" ,sn[ ItemCountRed[r][i] ]); 
  699. crossstr = crossstr + s+ " ";
  700. }
  701. file.WriteString(crossstr);
  702. file.WriteString("n");
  704. rr.Format("%d",maxindex);
  705. crossstr="最好的 maxindex=" + rr + "n";
  706. for(i=0;i<6;i++){
  707. CString s="";
  708. s.Format("%d" ,sn[ ItemCountRed[maxindex][i] ]); 
  709. crossstr = crossstr + s + " ";
  710. }
  711. file.WriteString(crossstr);
  712. file.WriteString("n");
  714. rr.Format("%d",minindex);
  715. crossstr="新的 minindex=" + rr + "n";
  716. for(i=0;i<6;i++){
  717. CString s="";
  718. s.Format("%d" ,sn[ ItemCountRed[minindex][i] ]); 
  719. crossstr = crossstr + s + " ";
  720. }
  721. file.WriteString(crossstr);
  722. file.WriteString("n");
  724. file.Close();
  726. }
  729. //变异操作
  730. void CShuangSeQiuDlg::Mutation()
  731. {
  733. float r = (float)rand()/65535 ;
  734. int min =0;
  735. int opindex = 0;
  737. if(r<0.4){
  738. opindex = rand()%(MAXRATE) + min; //从最优号码里面选一个号
  739. ItemCountRed[minindex][0] = opindex;
  740. }else if (r<0.8){
  741. opindex = rand()%(33) + min; //从全部号里面选一个号
  742. ItemCountRed[minindex][5] = opindex;
  743. }else{
  744. opindex = rand()%(33) + MAXRATE; //从最差号中选一个号
  745. ItemCountRed[minindex][5] = opindex;
  746. }
  750. CStdioFile file; 
  751. file.Open("Mutation.txt",CFile::modeCreate|CFile::modeReadWrite); 
  753. CString rr="";
  754. rr.Format("%.8f", r);
  755. CString crossstr="随机 r = " + rr + "n";
  756. file.WriteString(crossstr);
  757. file.WriteString("n");
  758. if(r<0.5){
  759. rr.Format("%d", opindex);
  760. crossstr="最优选号 opindex = " + rr + "n";
  761. file.WriteString(crossstr);
  762. file.WriteString("n");
  763. }else{
  764. rr.Format("%d", opindex);
  765. crossstr="全部选号 opindex = " + rr + "n";
  766. file.WriteString(crossstr);
  767. file.WriteString("n");
  768. }
  771. crossstr="变异后n";
  772. for(int i=0;i<6;i++){
  773. CString s="";
  774. s.Format("%d" ,sn[ ItemCountRed[minindex][i] ]); 
  775. crossstr = crossstr + s + " ";
  776. }
  777. file.WriteString(crossstr);
  778. file.WriteString("n");
  780. file.Close();
  783. }
  785. //得到最优的遗传结果
  786. int CShuangSeQiuDlg::GetResult()
  787. {
  788. int thebestpop =0;
  790. for(int pop=0;pop<popnum;pop++){
  791. ItemCountRedRate[pop] =0;
  792. for(int j=0;j<6;j++){
  793. int cur = sn[ItemCountRed[pop][j]] ;
  794. ItemCountRedRate[pop] =ItemCountRedRate[pop] + StatRedRate[cur] ;
  795. }
  796. }
  798. CStdioFile file; 
  799. file.Open("poprateget.txt",CFile::modeCreate|CFile::modeReadWrite); 
  800. for(int i=0;i<popnum ;i++){
  801. CString popn="";
  802. popn.Format("%.8f",ItemCountRedRate[i]);
  803. file.WriteString(popn);
  804. file.WriteString("n");
  805. }
  808. float maxrate =0;
  809. for(i=0;i<popnum ;i++){
  810. if (ItemCountRedRate[i] > maxrate){
  811. maxindex = i;
  812. maxrate = ItemCountRedRate[i] ;
  813. }
  814. }
  816. CString thebest = "";
  817. thebest.Format("%d",maxindex);
  818. file.WriteString(thebest);
  819. file.WriteString("n");
  821. CString crossstr="最优的种群为:n";
  822. for(i=0;i<6;i++){
  823. CString s="";
  824. s.Format("%d" ,sn[ ItemCountRed[maxindex][i] ]); 
  825. crossstr = crossstr + s + " ";
  826. }
  827. file.WriteString(crossstr);
  828. file.WriteString("n");
  829. file.Close();
  831. thebestpop = maxindex;
  832. return thebestpop;
  833. }
  836. //新增历史
  837. void CShuangSeQiuDlg::OnBtnAdd() 
  838. {
  839. CAddHistoryDlg adddlg;
  840. if (adddlg.DoModal()){
  841. //重新初始化;
  842. initVar();
  843. //重新导入记录;
  844. ReadHistroy();
  845. }
  846. }
  849. //查看历史
  850. void CShuangSeQiuDlg::OnBtnViewhistory() 
  851. {
  852. WinExec("Notepad.exe history.txt", SW_SHOW);
  853. }
  855. //保存号码
  856. void CShuangSeQiuDlg::OnBtnSave() 
  857. {
  859. CStdioFile file; 
  860. file.Open("save.txt",CFile::modeCreate|CFile::modeReadWrite); 
  862. int len = m_list.GetItemCount();
  863. for(int i=0;i<len ;i++){
  864. CString codeline;
  865. for(int j=1;j<8;j++){
  866. CString code = m_list.GetItemText(i,j);
  867. codeline = codeline + code + "  ";
  868. }
  869. file.WriteString(codeline);
  870. file.WriteString("n");
  871. }
  872. file.Close();
  874. WinExec("Notepad.exe save.txt", SW_SHOW);
  876. }
  878. //历史统计
  879. void CShuangSeQiuDlg::OnBtnHistorystat() 
  880. {
  881. CStdioFile file; 
  882. file.Open("historystat.txt",CFile::modeCreate|CFile::modeReadWrite); 
  884. CString redt;
  885. redt.Format("%d",line);
  887. CString rss = "现在总期数 " + redt+ "期.n" ;
  890. file.WriteString(rss);
  892. for(int r =1;r<34;r++){
  893. CString rstr,rn;
  894. rstr.Format("%d",r);
  895. rn.Format("%d",StatRed[r]);
  896. CString rp = "红" + rstr + " 出现 " + rn+ "次.";
  898. CString redrate;
  899. redrate.Format("%.8f",StatRedRate[r]);
  900. rp = rp + " 出现率为" + redrate + "n";
  902. file.WriteString(rp);
  903. }
  905. file.WriteString("n***********************n");
  907. CString bluet;
  908. bluet.Format("%d",line);
  909. CString bss = "兰球共出现 " + bluet+ "次.n" ;
  910. file.WriteString(bss);
  912. for(int b=1;b<17;b++){
  913. CString bstr,bn;
  914. bstr.Format("%d",b);
  915. bn.Format("%d",StatBlue[b]);
  916. CString bp = "兰" + bstr + " 出现 " + bn+ "次.";
  917. CString bluerate;
  918. bluerate.Format("%.8f",StatBlueRate[b]);
  919. bp = bp + " 出现率为" + bluerate + "n";
  920. file.WriteString(bp);
  921. }
  924. file.Close();
  925. WinExec("Notepad.exe historystat.txt", SW_SHOW);
  927. }
  931. void CShuangSeQiuDlg::OnClickCodelist(NMHDR* pNMHDR, LRESULT* pResult) 
  932. {
  933. POSITION   Pos   =   m_list.GetFirstSelectedItemPosition(); 
  934. cursel   =   m_list.GetNextSelectedItem(Pos);  
  937. *pResult = 0;
  938. }
  941. LRESULT CShuangSeQiuDlg::PopulateComboList(WPARAM wParam, LPARAM lParam)
  942. {
  943. // Get the Combobox window pointer
  944. CComboBox* pInPlaceCombo = static_cast<CComboBox*> (GetFocus());
  946. // Get the inplace combbox top left
  947. CRect obWindowRect;
  949. pInPlaceCombo->GetWindowRect(&obWindowRect);
  951. CPoint obInPlaceComboTopLeft(obWindowRect.TopLeft()); 
  953. m_list.GetWindowRect(&obWindowRect);
  955. int iColIndex = (int )wParam;
  957. CStringList* pComboList = reinterpret_cast<CStringList*>(lParam);
  958. pComboList->RemoveAll(); 
  960. if (obWindowRect.PtInRect(obInPlaceComboTopLeft)) 
  961. {
  962. if(iColIndex==2)  //对combox 列进行操作
  963. {
  964. // for(int i =0;i<ACTNUM;i++){
  965. // pComboList->AddTail(actstr[i]);
  966. // }
  967. }
  968. }
  969. return true;
  970. }
  972. LRESULT CShuangSeQiuDlg::OnEndLabelEditVariableCriteria(WPARAM wParam, LPARAM lParam)
  973. {
  974. LV_DISPINFO* pDispInfo = (LV_DISPINFO*)lParam;
  976. return 1;
  977. }
  979. void CShuangSeQiuDlg::OnBtnHistory() 
  980. {
  982. }
  984. void CShuangSeQiuDlg::OnBtnDelete() 
  985. {
  986. m_list.DeleteItem(cursel);
  987. }
  989. //为什么不进这个函数
  990. LRESULT CShuangSeQiuDlg::OnCustomdrawMyList ( NMHDR* pNMHDR, LRESULT* pResult )
  991. {
  992. //This code based on Michael Dunn's excellent article on
  993. //list control custom draw at http://www.codeproject.com/listctrl/lvcustomdraw.asp
  995. NMLVCUSTOMDRAW* pLVCD = reinterpret_cast<NMLVCUSTOMDRAW*>( pNMHDR );
  997.     // Take the default processing unless we set this to something else below.
  998.     *pResult = CDRF_DODEFAULT;
  1000.     // First thing - check the draw stage. If it's the control's prepaint
  1001.     // stage, then tell Windows we want messages for every item.
  1002. if ( CDDS_PREPAINT == pLVCD->nmcd.dwDrawStage )
  1003. {
  1004.         *pResult = CDRF_NOTIFYITEMDRAW;
  1005. }
  1006.     else if ( CDDS_ITEMPREPAINT == pLVCD->nmcd.dwDrawStage )
  1007. {
  1008.         // This is the notification message for an item.  We'll request
  1009.         // notifications before each subitem's prepaint stage.
  1011.         *pResult = CDRF_NOTIFYSUBITEMDRAW;
  1012. }
  1013.     else if ( (CDDS_ITEMPREPAINT | CDDS_SUBITEM) == pLVCD->nmcd.dwDrawStage )
  1014. {
  1016. COLORREF clrNewTextColor, clrNewBkColor;
  1017.         
  1018. int    nItem = static_cast<int>( pLVCD->nmcd.dwItemSpec );
  1020. CString strTemp = m_list.GetItemText(nItem,pLVCD->iSubItem);
  1023. clrNewTextColor = RGB(255,0,0); //Set the text to red
  1024. clrNewBkColor = RGB(255,255,0); //Set the bkgrnd color to blue
  1028. pLVCD->clrText = clrNewTextColor;
  1029. pLVCD->clrTextBk = clrNewBkColor;
  1031.         
  1032.         // Tell Windows to paint the control itself.
  1033.         *pResult = CDRF_DODEFAULT;
  1034.         
  1035.         
  1036. }
  1039. return 1;
  1040. }