大家有兴趣都来看看怎么编写这个程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

这是02年数学建模大赛的B题：
“传统型”采用“10选6+1”方案：先从6组0~9号球中摇出6个基本号码，每组摇出一个，然后从0~4号球中摇出一个特别号码，构成中奖号码。投注者从0~9十个号码中任选6个基本号码（可重复），从0~4中选一个特别号码，构成一注，根据单注号码与中奖号码相符的个数多少及顺序确定中奖等级。以中奖号码“abcdef+g”为例说明中奖等级，如表一（X表示未选中的号码）。
                                表一

中  奖 等  级	10 选 6+1（6+1/10）
	基 本 号 码                       特别号码	说  明
一等奖	abcdef g	选7中（6+1）
二等奖	abcdef	选7中（6）
三等奖	abcdeX Xbcdef	选7中（5）
四等奖	abcdXX XbcdeX XXcdef	选7中（4）
五等奖	abcXXX XbcdXX XXcdeX XXXdef	选7中（3）
六等奖	abXXXX XbcXXX XXcdXX XXXdeX XXXXef	选7中（2）

我现在已经生成了100万注随机的彩票号码，并生成本期的中奖号码（4，3，4，5，1，8，0）其中0为特别号码，那如何编写程序统计各等奖的中奖数呢？
下面是生成随机彩票号码的代码：

1. data arr(drop=i);
   
2. do i= 1 to 1000000;
   
3. num1=int(0+9*uniform(0));
   
4. num2=int(0+9*uniform(0));
   
5. num3=int(0+9*uniform(0));
   
6. num4=int(0+9*uniform(0));
   
7. num5=int(0+9*uniform(0));
   
8. num6=int(0+5*uniform(0));
   
9. output;
   
10. end;
    
11. run;

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Uniform output outpu form ABCD 程序 兴趣 编写

看不懂
http://www.pinggu.org/bbs/viewth ... amp;from^^uid=1898316

1# 6203479170

呵呵 用sas果真很简单啊

就是统计这100万注里一等奖有多少，二等奖有多少，一直到七等奖

你想去福彩中心效力么？不好意思 那里的程序已经很完善了

5# sushe1527
不是啦，是因为想做一下历年的数模比赛的题目而已。。。

数模玩的是忽悠。

你应该还有num7啊，那个特别号码。

1. 
   
2. data have;
   
3.     set arr;
   
4.     array c{6} _temporary_ (4,3,4,5,1,8);
   
5.     array num{6}; _n = 0;
   
6.     do i = 1 to 6;
   
7.       _n + (c(i) = num(i));      if num(i) ^= c(i) then do;
   
8.         p = max(p, _n);  _n = 0;
   
9.       end;
   
10.     end;
    
11.     p = max(p, _n);
    
12.     if p >= 2 then prize = 8-p;
    
13.     if p = 6 then if num7 = 0 then prize = 1;
    
14.   run;

复制代码

没有验证，不知道对不对？

8# jingju11
啊。。对，少了个NUM7，我觉得这题的难点是要连号中才算。。

6203479170 发表于 2010-8-3 16:06
8# jingju11
啊。。对，少了个NUM7，我觉得这题的难点是要连号中才算。。

             prize    Frequency     Percent     Frequency      
                   ----------------------------------------------------------
                      不中奖   976902         .               .         
                       1           1              0.00              1         
                       2           3              0.01              4         
                       3           24            0.10              28        
                       4           269          1.16             297         
                       5          2279         9.87            2576        
                       6          20522       88.85         23098

我用11做seed。最后的统计数字如上。