第五章 彩票

大概从2009年5月6日到2010年6月13日我研究过彩票，跟脑控一样，彩票操控也是一项高度秘密。在左安龙事件之前，我就对彩票做过一定研究，特别是足球彩票，我自认为自己的足球彩票程序已经写得相当不错，但是对数字彩我得出一个错误的结论就是投入跟回报相差太大。比如我连续买15期，即使我只想赢2元，15期一共需要投入资金148元，也就是我赢的话只有2元，输的话就要输148元。想想，我要挣回148元，那需要中奖多少次？所以我认为风险太高，所以对数字彩就放弃了，或许，等到有钱我会去买足球彩票。但是，现在发现自己的思维被跟踪，股票又被他们控制，所以在完成《销国》与《问真相》之后，我想找一个最公平的行业，于是我选择了彩票，我想不会有比彩票更公平的行业。另一方面，脑控者说我很垃圾，从左安龙事件时就开始说我是一个超级失败者，并且他们说，要看我是怎么死的。偏偏我感觉自己非常强大，所以下定决心，一定要把它研究明白，而且我相信一定会成功，因为我觉得这跟股票差不多，如果排除庄家操控，所面对的都是一堆随机数字。我相信，只要公平，我一定能够成功。应该说这是一种追求公平的精神在驱动，当然，那时对整个社会看得没有像现在这样清楚。

跟以前一样，研究彩票是从历史数据开始，然后通过历史数据写出许多独特的选号方法，这些方法通常需要通过人脑来判断最终是否买入，应该说我的程序还没有人脑考虑得多。这里可以举一个简单的例子，假设对0到9十个数字进行开奖，那么，在理想状态下每个数字的出现概率是十分之一，也就是你开十次，每个数字各出现一次。但是实际的开奖结果是：有的号码多次出现，有的号码一次也没有，也就是实际开出的概率与理想状态的概率出现偏差。这是因为现在只开了十次，如果你开一万次，那么十个数字出现的次数将非常接近，差不多都是一千，那么，每个数字出现的概率是一万分之一千，也就是十分之一，这跟理想状态下的概率一样。由此可以知道，当一个号码在短期内出现次数偏少时，接下来它的出现次数一定会增多。比如在前面70期里边号码6只出现两次，那么在接下来的30期里边它的出现次数很可能会增多，按理想状态计算它至少应该出现3次，实际情况可能大于3次。这时候你买号码6，那么就很容易中奖。换一种思维，当一个号码出现次数少的时候，其他号码出现次数一定会增多，这时你排除冷号，买其他的号码一般都可以中奖，这些可以通过电脑进行验证。

然后，我用自己写的方法进行买彩票，结果中奖率真的很高。从2009年5月6日到2009年5月13日，我总共投注为88次，中奖19次，赢利410元整，累计买入彩票的金额为2620元整，一次性买入的最大金额为200元，这是我现在从支付宝账户统计出来的数据，当时买的是上海时时乐。但是，接下来就出现问题，从连续中奖变成连续不中奖，所以，我想换一个彩种试试，于是我到500Wan网站去买重庆时时彩，结果更糟糕，几乎不会中奖。这怎么可能？选号方法完全一样，中奖概率虽然有波动，但不至于相差这么大！所以我想到了彩票被控制，但是，我要证明它还真有点难，因为谁也不能保证下一期一定会开出什么号码。由此我想到了概率，就是赢的概率大还是输的概率大，要知道彩票的设计就是靠概率来设计，否则凭什么来判断发行彩票可以赢利？所以，我问自己，我的中奖概率到底有多少？结果我自己也不知道，对于这个问题我一直思索了很长时间。有一点须要说明一下，在自己分析彩票历史数据时，发现在不同彩票之间，用相同的方法进行统计时，结果发现它们的中奖概率相差比较大，当时觉得不正常，应该存在人为操控。

那时候，脑控者用村里的人声音跟我思维对话，他们能够在开奖前的一两分钟就知道我有没有中奖。可以肯定，这时的思维对话是脑控的结果，但是在左安龙事件时许多村民之间的对话很可能是真实对话。在思维对话中，他们还对我会不会中奖进行暗示，但是我始终坚持自己的选号方法，从不改变。除此之外还有很多赌博公司给我发电子邮件，有人很想拉我去赌博，这个意图非常明显，因为现在很少给我发这种电子邮件，但是，对于我来说，买彩票不是赌博，我不会去买中奖率只有千分之一的彩票。以前买彩票时看到500Wan网站上有人通过倍投一个号码结果中了几十万，而且不止一次两次。他们买的是福彩3D或者体彩排列三，要知道这只有千分之一的概率。以前想不通他们是怎么做到的，现在明白，那是因为彩票被操控。所以，对于我个人来说证明彩票被控制并不须要通过概率来证明，但是要让社会相信不得不用数学来证明。

自从我发现彩票被控制，网络上谣言一直不断，最典型的是浙江省公安厅网站告诉人们通过买彩票赚钱不可能，但是他们并没有通过数学的方式告诉大家，为什么不可能？在淘宝网的彩票论坛，有人也提出了同样的观点，说买彩票，怎么玩都输，而且他还讲了一些数学证明。其实，他所说的这些问题，都是我思考过的问题。最典型的是彩票的开奖结果与历史数据无关，只与当前这一期有关，如果是十个数字的话，那么每期的概率都是十分之一。关于这一点，我想说的是，作为彩票不能这样简单理解。如果你买两期，可以是两期都买6或者第一期买2第二期买3或者其他任意两个数字，反正只要买两期，那么你中奖的概率就不再是十分之一，而是百分之十九，这是通过对两期所有开奖结果排列之后统计的结果，当然连不连续没关系，也就是买一期之后隔了几期继续买另外一期，结果还是一样。说得具体一点是，买两期相当于两位数，买三期相当于三位数，依此类推。拿买两期举例的话，所有开奖结果排列后是从00到99的100个数字，十位数代表的是你第一期买的号码，个位数代表的是你第二期买的号码，当然你也可以把个位数代表第一期，就看你怎么定义。如果十位代表第一期，个位代表第二期，比如你连续买了两期6，那么只要十位出现6或者个位出现6，就表示你中奖。最后统计一下这个概率，十位是6的数字有：60、61、62、63、64、65、66、67、68、69。个位是6的数字有：06、16、26、36、46、56、66、76、86、96。一共20个数字，由于66是重复的数字，所以要减一，结果是19。如果开奖数据在这19个数字里边，那么你就中奖，如果开奖的结果在其他81个数字里边，说明没中奖。所以中奖的概率是19÷（19+81）×100%=19%。如果你买三期，那么所有的开奖结果是从000到999的排列结果，中奖的概率以此类推。这就是正确的中奖概率计算方法，这非常重要，我想了很久才明白，而且这个概率随着买入期数的增加而增大。如果要计算买一百期的中奖概率，就不能这样简单计算，因为一百位那是一个非常大的数字，对于计算机来说会产生溢出错误，如果一位一位统计的话会让计算机花很长很长的时间。所以只能通过公式来计算，公式是我通过一步一步推算得出，肯定正确，具体可以看后面的VB程序。为了方便查阅我就一次性的把1到100期的中奖概率算了出来，结果如下：

1	10%
2	19%
3	27.1%
4	34.39%
5	40.951%
6	46.8559%
7	52.17031%
8	56.953279%
9	61.2579511%
10	65.13215599%
11	68.618940391%
12	71.7570463519%
13	74.58134171671%
14	77.123207545039%
15	79.4108867905351%
16	81.46979811148159%
17	83.322818300333431%
18	84.9905364703000879%
19	86.49148282327007911%
20	87.842334540943071199%
21	89.0581010868487640791%
22	90.15229097816388767119%
23	91.137061880347498904071%
24	92.0233556923127490136639%
25	92.82102012308147411229751%
26	93.538918110773326701067759%
27	94.1850262996959940309609831%
28	94.76652366972639462786488479%
29	95.289871302753755165078396311%
30	95.7608841724783796485705566799%
31	96.18479575523054168371350101191%
32	96.566316179707487515342150910719%
33	96.9096845617367387638079358196471%
34	97.21871610556306488742714223768239%
35	97.496844495006758398684428013914151%
36	97.7471600455060825588159852125227359%
37	97.97244404095547430293438669127046231%
38	98.175199636859926872640948022143416079%
39	98.3576796731739341853768532199290744711%
40	98.52191170585654076683916789793616702399%
41	98.669720535270886690155251108142550321591%
42	98.8027484817437980211397259973282952894319%
43	98.92247363356941821902575339759546576048871%
44	99.030226270212476397123178057835919184439839%
45	99.1272036431912287574108602520523272659958551%
46	99.21448327887210588166977422684709453939626959%
47	99.293034950984895293502796804162385085456642631%
48	99.3637314558864057641525171237461465769109783679%
49	99.42735831029776518773726541137153191921988053111%
50	99.484622479267988668963538870234378727297892477999%
51	99.5361602313411898020671849832109408545681032301991%
52	99.58254420820707082186046648488984676911129290717919%
53	99.624289787386363739674419836400862092200163616461271%
54	99.6618608086477273657069778527607758829801472548151439%
55	99.69567472778295462913628006748469829468213252933362951%
56	99.726107255004659166222652060736228465213919276400266559%
57	99.7534965295041932496003868546626056186925273487602399031%
58	99.77814687655377392464034816919634505682327461388421591279%
59	99.800332188898396532176313352276710551140947152495794321511%
60	99.8202989700085568789586820170490394960268524372462148893599%
61	99.83826907300770119106281381534413554642416719352159340042391%
62	99.854442165706931071956532433809721991781750474169434060381519%
63	99.8689979491362379647608791904287497926035754267524906543433671%
64	99.88209815422261416828479127138587481334321788407724158890903039%
65	99.893888338800352751456312144247287332008896095669517430018127351%
66	99.9044995049203174763106809298225585988080064861025656870163146159%
67	99.91404955442828572867961283684030273892720583749230911831468315431%
68	99.922644598985457155811651553156272465034485253743078206483214838879%
69	99.9303801390869114402304863978406452185310367283687703858348933549911%
70	99.93734212517822029620743775805658069667793305553189334725140401949199%
71	99.943607912660398266586693982250922627010139749978704012526263617542791%
72	99.9492471213943584399280245840258303643091257749808336112736372557885119%
73	99.95432240925492259593522212562324732787821319748275025014627353020966071%
74	99.958890168329430336341699913060922595090391877734475225131646177188694639%
75	99.9630011514964873027075299217548303355813526899610277026184815594698251751%
76	99.96670103634683857243677692957934730202321742096492493235663340352284265759%
77	99.970030932712154715193099236621412571820895678868432439120970063170558391831%
78	99.9730278394409392436737893129592713146388061109815891952088730568535025526479%
79	99.97572505549684531930641038166334418317492549988343027568798575116815229738311%
80	99.978152549947160787375769343497009764857432949895087248119187176051337067644799%
81	99.9803372949524447086381924091473087883716896549055785233072684584462033608803191%
82	99.98230356545720023777437316823257790953452068941502067097654161260158302479228719%
83	99.984073208911480213996935851409320118581068620473518603878887451341424722313058471%
84	99.9856658880203321925972422662683881067229617584261667434909987062072822500817526239%
85	99.98709929921829897333751803964154929605066558258355006914189883558655402507357736151%
86	99.988389369296469076003766235677394366445599024325195062227708952027898622566219625359%
87	99.9895504323668221684033896121096549298010391218926755560049380568251087603095976628231%
88	99.99059538913013995156305065089868943682093520970340800040444425114259788427863789654079%
89	99.991535850217125956406745585808820493138841688733067200363999826028338095850774106886711%
90	99.9923822651954133607660710272279384438249575198597604803275998434255042862656966961980399%
91	99.99314403867587202468946392450514459944246176787378443229483985908295385763912702657823591%
92	99.993829634808284822220517532054630139498215591086405989065355873174658471875214323920412319%
93	99.9944466713274563399984657788491671255483940319777653901588202858571926246876928915283710871%
94	99.99500200419471070599861920096425041299355462877998885114293825727147336221892360237553397839%
95	99.995501803775239635398757280867825371694199165901989966028644431544326025997031242137980580551%
96	99.9959516233977156718588815527810428345247792493117909694257799883898934233973281179241825224959%
97	99.99635646105794410467299339750293855107230132438061187248320198955090408105759530613176427024631%
98	99.996720814952149694205694057752644695965071191942550685234881790595813672951835775518587843221679%
99	99.9970487334569347247851246519773802263685640727482956167113936115362323056566521979667290588995111%
100	99.99734386011124125230661218677964220373170766547346605504025425038260907509098697817005615300955999%

由此可以知道，彩票的中奖概率至少跟你买入期数有关，除此之外，还与你买入的时间点有关。这里有一个比较常见的问题，有的彩民看到体彩排列三个位的数字5隔了100期才开出，然后就开始追号，比如追35期，那么，是否会提高中奖概率？如果以这样的思维去买彩票，是否会只赢不输？那么就用电脑进行模拟测试一下，一旦有一个号码隔了100期或者100期以上才开出，那么就开始追号，结果发现中奖概率与前面的100期无关，只与你所追的35期有关，事实就是这样。想想也是，买35期，就相当于35位数的排列组合，所有的开奖结果都已包含在这35位数的排列组合里边，只要你不断地开奖，这些排列组合出现的次数接近相等，不可能说中奖的排列组合出现的次数会变多，关于这一点上面已经讲到了。那么，是否就可以认为中奖概率只与自己连续买入的期数有关？也就是与历史数据无关。如果仅仅以这样的方式来考虑还是不够全面，假如现在让你来开奖，开出35个号码，因为我要追35期，现在我问你，在35个号码里边是否存在我要追号的号码？答案是肯定存在，这就意味着我百分之百的中奖。再让你怀疑一下，在你开出的号码里边有的数字可能并不存在，这是否意味着我的结论错了？没错，我就是百分百的中奖。因为你现在仅仅只开出了35个号码，如果现在让你继续开奖，开1000次，也就是1000×35个号码，那么我还能不能百分百的中奖？答案是不能。说到底能能不能中奖是由概率决定的，因为追35期的中奖概率非常高，接近97.5％，相当于在1000个号码里边有975个号码是中奖号码，只有25个是非中奖号码，现在让你投注一次，你肯定是百分百的中奖，而不会是97.5％。所以在追号之前你要看一下历史数据，像这样的100期历史上已出现了几次？如果你在看历史数据的时候发现该号码超出了35期才出现，此时你开始追号，假设追35期，那么你中奖的机会又是百分百。这相当于你失败了一次，从概率上来讲连续两次失败的概率只有6.25/10000。

这就是彩票，当你知道了它的概率，只要看看历史数据就可以做到百分之百中奖。实在不行还可以通过计算机进行模拟测试，比如你可以让电脑产生一组随机数字作为开奖数据，再让电脑产生一组随机数字作为抽奖数据，当开奖数据与抽奖数据相同时就代表中奖。现在就来看一下测试的结果，从测试的结果可以看到中奖概率与上面计算得到的理想概率是非常接近的。比如你连续购买7期，它的中奖概率总是在52％上下波动，这里的7期包含了前面的1至6期，也就是你购买1期就中奖的，也算在52％里边。现在画一条横坐标左边是0，右边是100，代表的是连续买入的期数，买了7期中奖的就是7，买了35期中奖的就是35，然后在0的位置画一条纵坐标，代表开奖期号，每产生一个中奖号码就产生一个期号，这相当于福彩体彩中的日期。有了坐标系，就可以在坐标系的中奖位置画上点。现在假设你的投注单位是7期，超出7期之后不再购买，那么横坐标的1至7就表示中奖区域，8至100则表示非中奖区域。如果投注单位是35期，那么1至35为中奖区域，36至100为非中奖区域。从模拟的数据可以看到中奖的位置绝大部分聚集在数轴的左边，像1至7的占到了52％，1至35的则占到97.5％。由此可以知道出奖的循序一定是先出现在横轴的左边，然后才出现在横轴的右边，而真实的模拟结果与此相同。在前面我讲到了中奖的机会是100％，而不是97.5％，在这里得到了证明，不可能说1至35还是空白，中奖位置直接跑到36到100的非中奖区域。

还有一点也必须弄清楚，在前面我讲了如果投注单位是35期的话，连续两次出错的概率只有6.25/10000，这并不意味它不会出现，只要不断地投注，它一定会出现，而且还会连续三次四次出错，不过总的中奖率还是在97.5％上下波动。对于那些研究彩票的人来说会经常碰到类似的问题，但是大家往往意识不到，明明可以百分百中奖，结果却无法百分百中奖。所以在研究彩票时一定要弄清楚，随着模拟次数的增多结果也在改变。

另外，通过模拟可以看到每个数字出现次数虽然有多有少，但是相差不会太多，不可能说数字5出了110次，而数字3连50次也没有，除非你的开奖程序有问题，这点对于那些喜欢追号的人还是有帮助的。其实对于买彩票的人来说，只要真实的中奖率与理想的中奖率不是偏离得太多，赢利就不会有问题。

当然，中奖概率还与许多因素有关，每个人都有每个人的选号方法，这里就不再赘述。补充一点的是当你用电脑进行模拟时千万不要忽略你的电脑被人控制，不要以为你的电脑没有联网就不会受到控制，其实没有联网的电脑同样可以随意受到控制，我的电脑就是一个例子，所以我在写书时很担心，我写的内容会不会被他们更改？至少好多部分丢失过，重写过。

知道这些，就可以写出比较优秀的彩票程序，现在我只要证明通过买彩票到底是否可以做到百分之百赢利，这比较简单，并不需要太优秀，我想要是中奖率在97％，让那些彩票发行部门来买彩票，赢利总不是问题吧？下面就是用VB6.0写的用于证明百分之百赢利的程序，只要把程序复制到VB6.0的编辑器里边，然后调用过程zuizhongzhengming就可以了，比如你可以建立一个按钮，然后再复制上zuizhongzhengming 200,40,1,7,50，然后运行点击按钮就可以了。

程序是让计算机模拟生成一位数的随机数，作为开奖数据，然后让计算机模拟1个人进行投注200次，在这200次的模拟投注中，如果发现连40期没中奖，就作为真实的投注位置开始投注，当投注7期没中奖，那么说明本次投注失败否则就表示明本次投注成功。整个过程相当于一轮，如果在这一轮的模拟投注中没有发现真实的投注位置，那么就继续下一轮的模拟投注，一直可以重复50轮。如果在这50轮中仍旧没发现真实的投注位置，那么程序将删除一开始生成的开奖数据，然后再生成开奖数据以及模拟投注数据，进行模拟投注，如此反复循环，一直等到出现真实投注位置为止。如果在第一次投注中是失败的投注，也就是超过7期才中奖，那么还要继续循环，一直到投注成功为止。程序在最后会弹出一个对话框，提示有效投注的次数。如果提示“有效投注：1次”那么表示你买入的期数小于等于7时就中奖了，这里的1次相当于1个投注单位，我这里的投注单位是7。如果提示“有效投注：2次”，那么说明在前面7期没有中奖，中奖的位置在后面7期里边，总共买入的期数是小于等于2×7期。如果提示“有效投注：3次”，那么说明前14期没有中奖，中奖的位置在后面的7期里边，以此类推，反正只有最后一次中奖如果提示“有效投注：5次”那么说明你需要买5×7期，也就是35期。35期的中奖率前面已经讲到过了是97.5％，累计投入的资金是13244元，单期最大的投入则是2650元，这个资金指的是每期的赢利大于等于2元。事实上你只要知道影响彩票概率的一些因素，几百块钱就可以让你不断地中奖，这也可以从2009年5月6日到13日所花的资金可以看出，当时我还没有像现在这样清楚。为了方便查询，我把资金明细打印如下：

期数	倍数	当期投入	累计投入	当期奖金	合计利润
1	1倍	2元	2元	中10元	8元
2	1倍	2元	4元	中10元	6元
3	1倍	2元	6元	中10元	4元
4	1倍	2元	8元	中10元	2元
5	2倍	4元	12元	中20元	8元
6	2倍	4元	16元	中20元	4元
7	3倍	6元	22元	中30元	8元
8	3倍	6元	28元	中30元	2元
9	4倍	8元	36元	中40元	4元
10	5倍	10元	46元	中50元	4元
11	6倍	12元	58元	中60元	2元
12	8倍	16元	74元	中80元	6元
13	10倍	20元	94元	中100元	6元
14	12倍	24元	118元	中120元	2元
15	15倍	30元	148元	中150元	2元
16	19倍	38元	186元	中190元	4元
17	24倍	48元	234元	中240元	6元
18	30倍	60元	294元	中300元	6元
19	37倍	74元	368元	中370元	2元
20	47倍	94元	462元	中470元	8元
21	58倍	116元	578元	中580元	2元
22	73倍	146元	724元	中730元	6元
23	91倍	182元	906元	中910元	4元
24	114倍	228元	1134元	中1140元	6元
25	142倍	284元	1418元	中1420元	2元
26	178倍	356元	1774元	中1780元	6元
27	222倍	444元	2218元	中2220元	2元
28	278倍	556元	2774元	中2780元	6元
29	347倍	694元	3468元	中3470元	2元
30	434倍	868元	4336元	中4340元	4元
31	543倍	1086元	5422元	中5430元	8元
32	678倍	1356元	6778元	中6780元	2元
33	848倍	1696元	8474元	中8480元	6元
34	1060倍	2120元	10594元	中10600元	6元
35	1325倍	2650元	13244元	中13250元	6元
36	1656倍	3312元	16556元	中16560元	4元
37	2070倍	4140元	20696元	中20700元	4元
38	2588倍	5176元	25872元	中25880元	8元
39	3235倍	6470元	32342元	中32350元	8元
40	4043倍	8086元	40428元	中40430元	2元
41	5054倍	10108元	50536元	中50540元	4元
42	6318倍	12636元	63172元	中63180元	8元
43	7897倍	15794元	78966元	中78970元	4元
44	9871倍	19742元	98708元	中98710元	2元
45	12339倍	24678元	123386元	中123390元	4元
46	15424倍	30848元	154234元	中154240元	6元
47	19280倍	38560元	192794元	中192800元	6元
48	24100倍	48200元	240994元	中241000元	6元
49	30125倍	60250元	301244元	中301250元	6元
50	37656倍	75312元	376556元	中376560元	4元
51	47070倍	94140元	470696元	中470700元	4元
52	58838倍	117676元	588372元	中588380元	8元
53	73547倍	147094元	735466元	中735470元	4元
54	91934倍	183868元	919334元	中919340元	6元
55	114917倍	229834元	1149168元	中1149170元	2元
56	143647倍	287294元	1436462元	中1436470元	8元
57	179558倍	359116元	1795578元	中1795580元	2元
58	224448倍	448896元	2244474元	中2244480元	6元
59	280560倍	561120元	2805594元	中2805600元	6元
60	350700倍	701400元	3506994元	中3507000元	6元
61	438375倍	876750元	4383744元	中4383750元	6元
62	547969倍	1095938元	5479682元	中5479690元	8元
63	684961倍	1369922元	6849604元	中6849610元	6元
64	856201倍	1712402元	8562006元	中8562010元	4元
65	1070251倍	2140502元	10702508元	中10702510元	2元

这就是我写的用于证明百分之百赢利的程序，上面讲到的“200,40,1,7,50”这些都是参数，可以进行变动比如你可以把40改成0，那说明什么条件也没有，开奖即买入，你也可以把它改成100，那说明某个号码在连续100期没有出现之后再买入。还有参数1指的是模拟1个人进行投注，如果把它改为10，那意味着模拟10个人进行投注。还有7，指的是计划中的投注单位，如果超过7期就停止买入。其中第一个参数200与第四个参数50是程序设计的需要，一般没有必要变动。对于第一个参数200跟模拟开奖次数有关，被程序写死，如果要改变的话要选择小于200的数，否则要在程序里边修改。

正是因为买彩票可以做到百分之百的赢利，甚至百分百中奖，所以你想改变开奖结果不是一件容易的事。不要以为中奖只是概率问题，多一次，少一次无关紧要，没人会发现。

在发现彩票被操控后，有一家网络上的赌博公司让我疑惑。它是“奇乐8”，网址是new.keno8.net，我在上面注册了一个账户fxgss，密码是eco.keno8。因为它通过彩票的开奖数据进行赌大小，比如体彩排列三、福彩3D还有上海时时乐开出的是三位数的中奖号码，如果你觉得百位数开出的号码应该在0、1、2、3、4里边，那么你可以在百位赌“小”，如果你觉得个位开出的号码应该在5、6、7、8、9里边，那么你可以在个位赌“大”，它就跟你赌三位数的大小。最小的投注资金是50元，如果赢了就给你45，一次性最大投注资金不得超过5000元。这比买彩票的回报率高很多，我在想，它怎么敢以这种方式进行赌博？最终我想证明它是否是公平的赌博，所以我给公司汇过去500元，后来觉得500元可能资金太少，所以又给它汇了500元，一共是1000元。公司给首次开户的人送10%的红利，不过总的投注额要达到你所汇资金，才可以提款，像我，投注额要达到1000元时才可以提款。要做到投注额达到1000元这不是一件容易的事，当然你也可以一开始选择不要送红利，那么没有总投注额的限制，随时可以提款。然后我跟它赌，最多的时候大概赢了六七百，一直到2010年6月13日才完成1000元的交易额，此时帐户上的资金还有1400元，所以我选择了提款，一共提了1100元，这是现在我从工行帐户中可以找到的明细。还留了300元在公司的帐户里，然后一直没赌，因为我的目的并不是为了赢钱，而是证明。后来公司给我打电话说增加了一些新玩法要我去赌，我登入账号时发现留在帐户里的300元资金没了。我也没问，反正这是赌博公司，可以没有任何信誉，我一开始给他汇钱时就做好了心理准备。这里要问的是赌博是否公平？答案是不公平，虽然我最后赢了，但是在赌的过程中发现是不公平的，也就是赌博公司跟彩票之间存在牵连，因为开大开小完全由彩票决定，说白了控制彩票的人才是公司的真正庄家。其实想想也就明白了，如果赌博是公平的，那么大家都会去赌，而不会去买彩票，因为公司的回报率比彩票回报率高很多，如果是公平的，哪里输得起这么多钱？公司老早破产了，想想彩票都可以做到百分之百赢利，何况是赌博公司？如果赌博公司没有信誉，那么没人会参与，但是在网络上没有发现“奇乐8”的不良信誉。

彩票被恶意控制，对彩票控制者来说自己最清楚。后来上海时时乐关闭了在淘宝网上的销售，但是始终没有关于彩票的真相，也就是政府默认了彩票的操控行为。这些已成为彩票的历史，而我成了对历史产生重大影响的人。对于买彩票我开始有一个意愿，就是通过买彩票为家里买一辆电动三轮车。结果就在那个时候，我哥回家了，然后父亲买了三轮车，而在此之前我没有听说过父亲要买三轮车，我也没有提起过买三轮车的事。这让我想到买三轮车的钱是那些脑控者所支付，有一个问题是我为什么不问问家人这钱是不是脑控者所支付？那是因为我说脑控的事，他们准会说我神经病，所以我还觉得家里在骗我，购买三轮车的钱是脑控者给的。不过今天，我知道这是家里的钱，我相信这是所有脑控受害者的一个通病，到最后碰到脑控的事情都说不出口，成了“只能意会，不能言传”。这些都是受害者的病态心理，跟脑控者的编造、欺骗分不开，所以永远不要相信脑控者。至于，为什么我有买三轮车的意愿时父亲就买了三轮车，这是否是脑控的结果？只有脑控者自己明白。但是对我来说，当时想的是公平，是整个社会的真相，我不会因为脑控者给我买三轮车的钱，而放弃真相，所以，我选择了捐款，我要把这些钱还给社会。

下面是我从银行找到的捐款记录：

2	2011-02-08	正常	人民币	现钞	500	2,289.44
3	2011-02-08	正常	人民币	现钞	500	1,789.44
4	2011-02-09	正常	人民币	现钞	500	1,289.44
5	2011-02-09	正常	人民币	现钞	500	789.44
6	2011-02-11	正常	人民币	现钞	500	289.44
7	2011-02-11	正常	人民币	现钞	289.44	0

从捐款记录中可以看到一共捐了2289.44元，至此我身无分文。我发现我所有的钱还不够支付一辆三轮车的钱，按照这样的想法，我还欠脑控者许多钱，这触动了我某根神经，我一直在不断的劳作，为社会努力奋斗，结果还欠社会这么多钱，想想，那些为社会创造价值的劳动者，他们反而成了负责者，而那些没有为社会真正创造价值的人反而有用不完的钱，这就是现实的社会，它有多矛盾？此前，我一直在坚持正确的思想，到了这里，我发现在一个病态社会里，无法践行正确思想。比如受贿、贪污，在一个病态的社会里永远也无法避免。

此后，在淘宝网，我还给一个生病的孩子进行过捐款。钱是家里的，大概是父亲过春节时给的，一年到头，我除了买点牙膏之类的生活用品外，基本不用钱，所以我一年所用的钱加起来不会超过1000块钱，这里边还有六七百的宽带费用。这就是我的整个生活，我一直在为这个社会奉献着一切。这次捐款跟上次不一样，那是因为在“好人世界”里不需要钱，我觉得主宰着整个世界的脑控者能够像他们所承诺的那样，能够像我一样成就伟大，所以，我再次捐到身无分文。

到了今天，当我把真实的社会看清楚，看明白后，我开始对第一次捐款感到后悔。因为那是捐给一些宗教与慈善机构，因为这些组织机构又控制在恶人手里，所以，这相当于给恶人捐款。不要以为做慈善可以随便做，他们不会把他们的钱去捐给他的对手。就像彩票，真的是为了体育为了福利的公益事业？如果真的这样干嘛要操控彩票？如果真的是有益人民的事业，根本不需要慈善，根本不需要彩票，完全可以通过制度、政策、法规来解决。所以，那些慈善机构根本靠不住，他们的存在纯粹是为了发展他们的私人势力。如果眼光再放大一点，建设中国特色的社会主义真的是为了国家为了人民？所以整个世界都一样，有个玩彩票的人说过“天下乌鸦一片黑”。

事实就是这样，后来，我还买过一些足球彩与篮球彩，最终发现都是被人为操控。想想，中国的足球怎么连韩国与日本也不如，如果不是脑控，你相信吗？中国的足球好几次都输在最后的三分钟里边，你觉得奇怪吗？从综合国力来看韩国与日本根本无法同中国相提并论。另外，在欧洲还传出关于足彩被政府操控的丑闻，但是始终没有真相，被追究责任的也不过几个政府官员而已。其实买足球彩非常简单，只要碰到两支实力悬殊的球队，你就可以大胆买入，这样的中奖概率非常高，所以买足彩比买数字彩要容易得多。说白了买彩票能不能赢利完全取决于中奖率，如果在50次里边只输一次，那么你怎么玩都赢，不过我怎么买都是输。想想，在股市里有妇孺皆知的“股神”巴菲特，但是彩票世界里为什么没有“彩神”？因为彩票的事一说就穿。

除此之外，从体育彩票中我们还可以看到，如果国家之间存在竞争，那么绝对不应该有体育彩票，比如中国人可以买美国的NBA篮球彩票，但是比赛的输赢完全控制在美国手上，也就是美国人到中国来买彩票怎么买都是赢，而中国人怎么买都是输，还有足球彩票同样如此。除了彩票，赌场的花样更多，比如外国人喜欢赌中国的乒乓球、羽毛球等等。由此可以说明整个世界只存在家族竞争，而不存在所谓的国家竞争，这就是下一章将要讲的内容，到底谁是国家主人？

Sub zuizhongzhengming(Mncs_ As Long, Jiange_ As Long, Mntzrs_ As Long, Zstzqs_ As Integer, Lc_ As Long)

Dim Cgbz As String, js As Long, yxtz As Long '成功标志

js = js + 1: Cgbz = ""

Cgbz = KaiShi(Mncs_, Jiange_, Mntzrs_, Zstzqs_, Lc_)

If Cgbz <> "" Then yxtz = yxtz + 1

Loop While Cgbz = "本次投注失败" Or Cgbz = ""

MsgBox "一共循环：" & js & " " & "有效投注：" & yxtz

End Sub

Sub scsjs(g As Long, szbl As Double, sj() As String) '生成0至9的随机数

Randomize Timer * 9990000

Dim I As Long, J As String, s(9) As Long, sfcxsc As String

ReDim sj(g)

sfcxsc = ""

For I = 1 To g

sj(I) = Int(Rnd(Timer) * 10)

J = sj(I)

If J = "0" Then

s(0) = s(0) + 1

ElseIf J = "1" Then

s(1) = s(1) + 1

ElseIf J = "2" Then

s(2) = s(2) + 1

ElseIf J = "3" Then

s(3) = s(3) + 1

ElseIf J = "4" Then

s(4) = s(4) + 1

ElseIf J = "5" Then

s(5) = s(5) + 1

ElseIf J = "6" Then

s(6) = s(6) + 1

ElseIf J = "7" Then

s(7) = s(7) + 1

ElseIf J = "8" Then

s(8) = s(8) + 1

ElseIf J = "9" Then

s(9) = s(9) + 1

End If

Next I

For I = 0 To 9

If s(I) / g < szbl Then

sfcxsc = "重新生成"

Exit For

End If

Next I

If sfcxsc = "重新生成" Then

For I = 0 To 9

s(I) = 0

Next I

End If

Loop While sfcxsc = "重新生成"

J = 0

For I = 0 To 9

Debug.Print I & " " & s(I)

J = J + s(I)

Next I

Debug.Print J

End Sub

Sub sjsckjsjzdmyw(mncs As Long)

Dim nn As Integer, p As Integer, I As Long, Ff As Long

Dim sj() As String

scsjs mncs, 0.09, sj

Ff = FreeFile

Open "C:\开奖数据中的某一位.txt" For Output As #Ff

For I = 1 To mncs

Print #Ff, sj(I) & " " & I

Next I

Close #Ff

'以上生成10000个随机数

End Sub

Sub cwbwjdqkjsj(KaiJiang() As String) '从文本文件读取开奖数据

Dim I As Long, F As Long

F = FreeFile

Open "C:\开奖数据中的某一位.txt" For Input As #F

Do While EOF(F) = False

I = I + 1

ReDim Preserve KaiJiang(I)

Line Input #F, KaiJiang(I)

Loop

Close #F

End Sub

Sub scmntz(mncs As Long, L As Long, mntz() As String)

Dim nn As Integer, p As Integer, I As Long, Ff As Long

scsjs mncs * L, 0.09, mntz

Ff = FreeFile

Open "C:\模拟投注明细.txt" For Append As #Ff

For I = 1 To mncs * L

Print #Ff, mntz(I) & " " & I

mntz(I) = mntz(I) & " " & I

Next I

Close #Ff

End Sub

Function KaiShi(Mncs_ As Long, Jiange_ As Long, Mntzrs_ As Long, Zstzqs_ As Integer, Lc_ As Long) As String '模拟次数，连续不中的最大间隔，模拟投注人数,真实投注期数，轮次

KaiShi = ""

If Dir("C:\开奖数据中的某一位.txt") <> "" Then Kill "C:\开奖数据中的某一位.txt"

If Dir("C:\模拟投注明细.txt") <> "" Then Kill "C:\模拟投注明细.txt"

sjsckjsjzdmyw 250

Dim KaiJiang() As String

cwbwjdqkjsj KaiJiang

Dim mntz() As String, I As Long, F As Long, Ff As Long, ll As Long, J As Integer, jiange As Long, sfcstz As Integer '是否产生投注

Dim Mntzrs As Long, ii As Long

F = FreeFile: Ff = F + 1

Open "C:\真实投注明细.txt" For Append As #F

Open "C:\tmp.txt" For Append As #Ff

For ll = 0 To Lc_ - 1

scmntz Mncs_, Mntzrs_, mntz

For Mntzrs = 0 To Mntzrs_ - 1

J = 0: jiange = 0: sfcstz = 0

For I = 1 To Mncs_ ' - Zstzqs_

ii = Mntzrs * Mncs_ + I

jiange = jiange + 1

If jiange > Jiange_ And Mncs_ - I >= Zstzqs_ Then sfcstz = 1 '发现真实的投注位置

If sfcstz = 1 Then

J = J + 1 '真实投注次数

Print #F, mntz(ii) & " # " & KaiJiang(I + ll) & " # " & J

End If

If Left(mntz(ii), 1) = Left(KaiJiang(I + ll), 1) Then

If jiange > Jiange_ And sfcstz = 1 Then

Print #Ff, I & " # " & jiange & " # " & mntz(ii) & " # " & KaiJiang(I + ll) & " # " & J & " # " & ll + 1

Exit For

End If

Print #Ff, I & " # " & jiange & " # " & mntz(ii) & " # " & KaiJiang(I + ll) & " # " & J & " # " & ll + 1

jiange = 0

End If

Next I

'If jiange > Jiange_ Then

If J <> 0 Then

If J > Zstzqs_ Then

Print #F, "本次投注失败" & " " & Mncs_ & " " & Mntzrs_ & " " & Jiange_ & " " & Zstzqs_ & " " & Lc_ & " " & CStr(DateTime.Date & DateTime.Time)

KaiShi = "本次投注失败"

Else

Print #F, "本次投注成功" & " " & Mncs_ & " " & Mntzrs_ & " " & Jiange_ & " " & Zstzqs_ & " " & Lc_ & " " & CStr(DateTime.Date & DateTime.Time)

KaiShi = "本次投注成功"

End If

GoTo L1: 'Exit Function

End If

Next Mntzrs

Next ll

'End If

'If i = 301 Then

'i = i - 1

'Print #Ff, i & " " & jiange & " " & mntz(i) & " # " & KaiJiang((ll - 1) * 300 + i) & " # " & j

'End If

L1:

Close #F

Close #Ff

End Function

下面的程序程序跟上面的证明程序无关，是用于求连续买n期时的中奖概率，因为0到9十个数字，每个数字的中奖概率是一样的，比如买一期0与买一期9，它们的中奖概率都是百分之十。程序中以连续买n期9作为统计的例子，因为其他数字的中奖概率也一样。

Function gl(n As String) As String

Dim I As Long, J As Long

For I = 0 To n

If InStr(1, I, "9") >= 1 Then

J = J + 1

End If

Next I

gl = J

Debug.Print J

End Function

Function gl1(n As String) As String

Dim M As String, mm As Long, nn As String

Dim I As Long, J As Long

M = gl(99) 'm=19

nn = 99

Do While n <> nn

M = mAddition(mAddition(nn, "1"), MPC("9", M))

nn = nn & "9"

Loop

gl1 = M

'MsgBox gl(n)

End Function

Private Sub Command1_Click()

Dim ws As String '位

Dim I As Long, s As String

ws = InputBox("0到99则输入2，0到999则输入3，0到9999则输入4，以此类推", , 50)

For I = 1 To ws

s = s & "9"

Next I

ws = s

If Len(ws) > 2 Then

s = gl1(ws)

Else

s = gl(ws)

End If

If Len(s) <= 2 Then

MsgBox s / ((CLng(ws) + 1)) * 100 & "%", , "包含数字9所占的百分比，其他九个数字是同样的结果"

Else

MsgBox Left(s, 2) & "." & Mid(s, 3) & "%", , "包含数字9所占的百分比，其他九个数字是同样的结果"

End If

End Sub

下面两个函数mAddition 与MPC是用于防止溢出的加法与乘法运算，摘自网络，本人作了部分编辑。

'n位数运算模拟过程——加法

Function mAddition(ByVal atExpLeft As String, ByVal atExpRight As String) As String

'--------------------左数值右数值

'A+B ==> 123456789 + 1234567890 ==> 00123456789 + 01234567890 ==> 01358024679

'总的思路相当于笔算，在被加数与加数之前都添加一个“0”，目的是同最后的进位相加，还有两个加数的位数一定要相同。

Dim maxLen As Long '估计总长度

Dim alLen As Long, arLen As Long '各数的长度

'Dim atTemp() As Integer '临时数组

Dim I As Long, J As Long 'j为字符串左边非0的字符串长度

Dim atCarry As String, atvalue As String '进位的值,临时的和

Dim atValLeft As Integer, atValRight As Integer '分解后的单个数值

Dim atStr As String

alLen = Len(atExpLeft): arLen = Len(atExpRight)

If alLen >= arLen Then

maxLen = alLen + 1

Else

maxLen = arLen + 1

End If

atExpLeft = mMidString(atExpLeft, maxLen, alLen)

atExpRight = mMidString(atExpRight, maxLen, arLen)

'ReDim atTemp(1 To 2)

atCarry = "0"

atvalue = "0"

For I = maxLen To 1 Step -1 ' 当I=1时就要用到在被加数与加数之前都添加一个“0”

atValLeft = CInt(Mid(atExpLeft, I, 1))

atValRight = CInt(Mid(atExpRight, I, 1))

atvalue = Format(CStr(atValLeft + atValRight + CInt(atCarry)), "00")

atCarry = CInt(Mid(CStr(atvalue), 1, 1)) '进位

atvalue = CInt(Mid(CStr(atvalue), 2, 1)) '对应位数相加之后有效地结果

mAddition = atvalue & mAddition

For I = 1 To maxLen

atStr = Mid(mAddition, I, 1)

If Not atStr = "0" Then

J = maxLen - I + 1

Exit For

End If

Next I

mAddition = Right(mAddition, J)

Exit Function

err:

MsgBox "Error Code"

Exit Function

End Function

'===================================================

Function mMidString(ByVal msString As String, ByVal msMaxLen As Long, ByVal msLen As Long) As String

'---------------------待分解的字符串估计最大长度字符串长度

Dim sTemp() As Integer

Dim I As Long, J As Long

If msMaxLen <= msLen Then GoTo ErrLen

ReDim sTemp(1 To msMaxLen)

'For i = 1 To MaxLen

' sTemp(i) = 0

'Next i

For I = 1 To msMaxLen ' Step -1

On Error Resume Next '当msLen + 1 - I=0时出错

sTemp(msMaxLen - I + 1) = CInt(Mid(msString, (msLen + 1 - I), 1))

Next I

For I = 1 To msMaxLen ' Step -1

mMidString = mMidString & CStr(sTemp(I))

Exit Function

ErrLen:

MsgBox " 字符串长度不符合规则，" + Chr$(13) + Chr$(10) + _

"“ msMaxLen > msLen ” 并且 " + Chr$(13) + Chr$(10) + _

"“ msMaxLen ”大于最大“ msLen ”值“ 1 ”！", vbExclamation

mMidString = "0"

Exit Function

End Function

Public Function MPC(D1 As String, D2 As String) As String

'算法就是按笔算来的

Dim X As Long, Y As Long 'D1,D2两数长度

X = Len(D1): Y = Len(D2)

Dim A() As Integer '用于存储每位数相乘后的结果

ReDim A(1 To X + Y, 1 To Y)

Dim I As Long, J As Long, C As Long, R As Long '临时变量

Dim C1 As Integer, C2 As Integer 'C1被乘数D1中的每位数，C2乘数D2中的每位数

Dim CJ As Integer '乘积

Dim JW As Integer '进位

For J = Y To 1 Step -1 'D2

JW = 0 '进位清0

C2 = Mid$(D2, J, 1) '每位数

For I = X To 1 Step -1 'D1

C1 = Mid$(D1, I, 1) '每位数

CJ = C1 * C2 + JW '计算乘积

C = I + J: R = Y + 1 - J

A(C, R) = CJ Mod 10 '本位

Debug.Print A(C, R)

JW = CJ \ 10 '进位

Next I

A(C - 1, R) = JW

Next J

Dim B() As Integer '存储在A()中每列数相加之后把最终的结果存放到数组B()中

ReDim B(1 To X + Y)

Dim Bit As Long '相乘之后每列的和值

JW = 0

For I = X + Y To 1 Step -1

Bit = JW

For J = 1 To Y

Bit = Bit + A(I, J)

Next J

B(I) = Bit Mod 10

JW = Bit \ 10

Next I

If B(1) > 0 Then

MPC = MPC & B(1)

Else

MPC = MPC & Space(1)

End If

For I = 2 To X + Y

MPC = MPC & B(I)

End Function

价值中国

新知识 - 新思想 - 新经济实名制-专业主义-权益激励

第五章彩票

您还没有登录，请您登录后发表评论。