T-SQL 模擬彩票預測-有解無憂

比較簡單，只是模擬彩票出數字的程序，不計算單一數字的出現概率，

傳統上來說，每次彩票出號的概率都是獨立事件，單純的在可選數字內隨機實作即可，

本文探索的是實作簡單的預測分析，包含歷史開獎結果的連續事件，

舉例說明：(模擬三個數字，數字區域1-10)

第一次開獎 1,2,3

第二次預測 [4-10] + [1-10 ]中按次序隨機取三個數字，每隨機取一個數字后都要在數字區域移除這個數字，

第二次開獎 4,5,6

第三次預測 [4-10] +[1-3]+[7-10]+[1-10] 中按次序隨機取三個數字，每隨機取一個數字后都要在數字區域移除這個數字，

第N次預測在前N次開獎數字之外的其他數字+本次的數字區域中按次序隨機取三個數字，每隨機取一個數字后都要在數字區域移除這個數字，

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

思路就是把歷史每次開獎數字剩下的數字集合放到下一次抽獎池中進行隨機

步驟如下

1.創建一張表保存歷史開獎結果，

2.將每次開獎結果以外的其他數字放到抽獎池中，

3.將預測本次開獎結果的全部數字放到抽獎池中，

3.在抽獎池中逐個隨機抽取數字，每輪抽取中的數字都要在抽獎池中排除，

4.輸出顯示結果，

代碼模擬的是大樂透，分前區數字1-35，后區數字1-12，前區和后區相互獨立，分開處理

  1 /******************************************************************
  2 drop table Number
  3 create table Number
  4 (
  5     ID  int identity(1,1),
  6     Ver varchar(5),
  7     Num1 int,
  8     Num2 int,
  9     Num3 int,
 10     Num4 int,
 11     Num5 int,
 12     Num6 int,
 13     Num7 int
 14 )
 15 
 16 select * from Number
 17 
 18 insert into Number
 19 select '23004','04','13','15','20','22','04','08' union all 
 20 select '23005','01','03','10','20','29','06','11' union all 
 21 select '23006','02','04','12','27','35','06','07' union all 
 22 select '23007','02','03','24','30','32','01','06' 
 23 
 24 ******************************************************************/
 25 IF(OBJECT_ID('tempdb..#Front')) IS NOT NULL 
 26 DROP TABLE #Front;
 27 CREATE TABLE #Front
 28 (
 29 Id int identity(1,1),
 30 Num int 
 31 )
 32 
 33 IF(OBJECT_ID('tempdb..#Back')) IS NOT NULL 
 34 DROP TABLE #Back;
 35 
 36 CREATE TABLE #Back
 37 (
 38 Id int identity(1,1),
 39 Num int 
 40 )
 41 
 42 DECLARE @FrontNum INT
 43 DECLARE @BackNum INT
 44 DECLARE @Rolling INT
 45 
 46 SET @Rolling = 1
 47 
 48 WHILE (@Rolling<=(SELECT COUNT(*)+1 FROM Number))
 49 BEGIN
 50 SET @FrontNum = 1
 51 
 52         WHILE(@FrontNum<=35)
 53         BEGIN 
 54             INSERT INTO #Front
 55             SELECT @FrontNum
 56         SET    @FrontNum = @FrontNum+1
 57         END
 58 SET @BackNum = 1
 59         WHILE(@BackNum<=12)
 60         BEGIN 
 61             INSERT INTO #Back
 62             SELECT @BackNum
 63         SET    @BackNum = @BackNum+1
 64         END
 65     SET    @Rolling = @Rolling+1
 66 END
 67 
 68 
 69 
 70 IF(OBJECT_ID('tempdb..#BASE')) IS NOT NULL 
 71 DROP TABLE #BASE;
 72 
 73 select 
 74  Ver
 75 ,KeyNum
 76 ,Value
 77 INTO #BASE
 78 FROM Number
 79 UNPIVOT
 80 (
 81 Value for KeyNum in ([Num1], [Num2], [Num3], [Num4], [Num5], [Num6], [Num7])
 82 ) a
 83 
 84 
 85 DECLARE Front_Cursor Cursor
 86 FOR SELECT [Value] as Num FROM #BASE WHERE RIGHT(KeyNum,1)<=5;
 87 
 88 OPEN Front_Cursor;
 89 DECLARE @Var_Front int;
 90 FETCH NEXT FROM Front_Cursor into @Var_Front
 91 WHILE (@@FETCH_STATUS=0)
 92 BEGIN 
 93     DELETE FROM #Front WHERE ID IN (SELECT top 1 id FROM #Front WHERE Num = @Var_Front order by id)
 94     FETCH NEXT FROM Front_Cursor into @Var_Front
 95 END
 96 GO
 97 CLOSE Front_Cursor;
 98 DEALLOCATE Front_Cursor;
 99 
100 
101 DECLARE Back_Cursor Cursor
102 FOR SELECT [Value] as Num FROM #BASE WHERE RIGHT(KeyNum,1)>5;
103 
104 OPEN Back_Cursor;
105 DECLARE @Var_Back int;
106 FETCH NEXT FROM Back_Cursor into @Var_Back
107 WHILE (@@FETCH_STATUS=0)
108 BEGIN 
109     DELETE FROM #Back WHERE ID IN (SELECT top 1 id FROM #Back WHERE Num = @Var_Back order by id)
110     FETCH NEXT FROM Back_Cursor into @Var_Back
111 END
112 GO
113 CLOSE Back_Cursor;
114 DEALLOCATE Back_Cursor;
115 
116 
117 
118 /***************************
119 Finial
120 **************************/
121 
122 IF(OBJECT_ID('tempdb..#Finial')) IS NOT NULL 
123 DROP TABLE #Finial;
124 CREATE TABLE #Finial
125 (
126 Id int identity(1,1),
127 Num int 
128 )
129 
130 DECLARE @Seq1 int
131 DECLARE @Num1 int
132 SET @Seq1 = 1 
133 WHILE (@Seq1<=5)
134 BEGIN
135     SET @Num1 = (SELECT TOP 1 Num from #Front order by NEWID())
136     PRINT @Num1
137     INSERT INTO  #Finial SELECT @Num1
138     DELETE FROM #Front WHERE Num = @Num1
139     SET @Seq1 = @Seq1+1
140 END
141 
142 DECLARE @Seq2 int
143 DECLARE @Num2 int
144 SET @Seq2 = 1
145 WHILE (@Seq2<=2)
146 BEGIN
147     SET @Num2 = (SELECT TOP 1 Num from #Back order by NEWID())
148     INSERT INTO #Finial SELECT @Num2
149     DELETE FROM #Back WHERE Num = @Num2
150     SET @Seq2 = @Seq2+1
151 END
152 
153 
154 IF(OBJECT_ID('tempdb..#RESULT')) IS NOT NULL 
155 DROP TABLE #RESULT;
156 
157 WITH CTE AS
158 (
159 SELECT ROW_NUMBER()over(order by Num) as Seq,Num from #Finial where id<=5 
160 UNION ALL
161 SELECT ROW_NUMBER()over(order by Num)+5 as Seq,Num from #Finial where id>5 
162 )
163 ,Final as 
164 (
165 
166 SELECT 
167  'Num'+CONVERT(varchar,Seq) as NumSeq 
168 ,Num as Value 
169 FROM CTE 
170 )
171 
172 
173 SELECT * INTO #RESULT 
174 FROM Final
175 PIVOT
176 (
177 SUM(Value) FOR NumSeq in (Num1,Num2,Num3,Num4,Num5,Num6,Num7)
178 ) a 
179 
180 SELECT * FROM #RESULT

轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/542346.html

標籤：SQL Server

上一篇：MySQL之視圖

下一篇：T-SQL 模擬彩票預測