创出10组四星彩号码.doc

創出10組四星彩號碼:請先創造檔案4star.txt：格式:例如 : (4行表示有4台開獎機器)10 14 7 12 各機器出現0的次數11 11 15 15 各機器出現1的次數12 11 10 12 各機器出現2的次數再利用minitab 創造檔案uniform_data.txt：格式如下:例 Y用 U用0.3878290.2780270.2988080.1878180.0738680.0915810.9285140.7316730.5306770.0998160.6254420.5736550.8102410.9334760.0533410.9969340.0624270.7323890.2593040.964751實行結果：(程式請見附錄)請輸入要求幾組數字 104 4 8 9 2 8 6 9 5 0 4 8 3 5 3 6 4 9 4 7 9 2 1 5 8 4 6 7 0 0 4 7 8 3 1 7 5 0 8 5結果：結果可以得到10組數據，就是實行結果最後的10列數字，主要是利用從4星彩開始至2004年1月8號，希望能猜中就好了。附錄程式碼：parameter (SIZE=10) ! 全部有幾個號碼球integer getnum(4) ! getnum 為得到的號碼integer numfq(4,SIZE) ! numfq 目前各號碼出現次數integer maxtime,get integer Y(SIZE*200) ! 用uniform所得的號碼 integer check,timesinteger I,J,Kreal U(SIZE*200) ! 用uniform所得0到1之間的數real maxfq(4) ! 目前數字出現最多次的次數open(1,file=4star.txt,status=old)open(2,file=uniform_data.txt,status=old)print *,請輸入要求幾組數字read *,timesdo I=1,SIZE ! 讀取數字出現次數 read (1,*,end=99) ( numfq(J,I),J=1,4 )enddo99I=1maxtime=0 do while(maxtime.le.SIZE*200) ! 處理uniform資料 read (2,*,end=98) temp,U(I) maxtime=maxtime+1 Y(I)=int(temp*10) I=I+1enddo98J=1get=0do M=1,4 maxfq(M)=numfq(M,1) do I=2,SIZE if (maxfq(M) .lt. numfq(M,I) maxfq(M)=numfq(M,I) enddoenddodo K=1,times get=0 do while ( (get.ne.4) .and. ( J .le. maxtime ) ) check=0 do while ( (J.le.maxtime).and.(check.ne.2) ) check=0 if ( check .eq. 0) then if ( U(J).le.( numfq(get+1,Y(J)*10/maxfq(get+1) ) then check=2 get=get+1 getnum(get)=Y(J) endif en