精 彩 论 坛已经更名为百强频道,迁新地址www.bqpd.cn

亲爱的朋友,首先为给您带来的不便深表歉意,现因发展的需要,精彩论坛迁到新的地址http://www.bqpd.cn,还望您一如既往地支持精彩论坛,谢谢
精 彩 论 坛已经更名为百强频道,迁新地址www.bqpd.cn

论坛因发展的需要现已经迁址www.bqpd.cn,等待您的到来。谢谢


    重力均值法预测乐透彩票之2-1

    分享
    avatar
    一品明灯
    Admin

    帖子数 : 292
    积分 : 720
    威望 : 4
    注册日期 : 10-03-02
    年龄 : 8

    普通 重力均值法预测乐透彩票之2-1

    帖子 由 一品明灯 于 2010-03-11, 14:45

    重力均值法预测乐透彩票之2-1
    ' by chinamen668 20060212
    '==========================================================
    CpParam.Add "显示","符号","{符号}{号码}"
    Function Main
    '===============申明或定义变量=============
    CpRowCount = CpData.RowCount '开奖期数
    CpColCount = CpData.ColCount '开奖号码个数
    CpMaxCode = CpData.MaxCode '最大号码
    CpMinCode = CpData.MinCode '最小号码
    CpCodeCount = CpData.CodeCount '号码数量
    '=================建表=================
    CpAna.AddField "期号", 8
    For i = 1 to CpColCount
    CpAna.AddField "基"&i,3
    Next
    CpAna.AddField "重力数",6
    CpAna.AddField "中奖数",6
    CpAna.AddField "中奖率",6
    For i = 1 to CpColCount*3\2-1
    CpAna.AddField "重力"&i,5
    Next
    CpAna.RowCount = CpRowCount-1
    CpAna.CreateTable()
    '==============算法主体============================
    redim sum(CpCodeCount)
    For row = 2 to CpRowCount - 1
    For v = 0 to CpCodeCount
    sum(v)=0
    Next
    CpAna.Cell(row-2,0) = CpData.Seq(row)
    For col = 0 to CpColCount - 1
    code=CpData.Code(row,col)
    CpAna.Cell(row-2,col+1) = CpData.Code(row,col)
    for c=0 to 2
    code=CpData.Code(row-c,col) -1
    sum(code)=sum(code)+1
    next
    Next
    w=1
    d=3
    s=0
    sh=0
    cs=0
    zjgs=0
    For i = 0 to CpCodeCount-1
    if sum(i)>0 and d=3 then
    sh=(i+1)*sum(i)+sh
    wsh=sh
    s=s+1
    cs=sum(i)+cs
    if s=3 then
    wdd=round(wsh/cs)
    if wdd<10 then wdd="0"&wdd
    if instr(CpData.CodeStr(row+1),wdd)>0 then
    zjgs=zjgs+1
    CpAna.Color(row-1,"重力"&w) = 255
    if CpParam.Value( "显示")="符号" then CpAna.Cell(row-1,"重力"&w) = "中"
    end if
    if CpParam.Value( "显示")="号码" then CpAna.Cell(row-1,"重力"&w) = wdd
    if row=CpRowCount - 1 then CpAna.Cell(row-1,"重力"&w) = wdd
    w=w+1
    sh=0
    s=0
    d=2
    cs=0
    end if
    elseif sum(i)>0 and d=2 then
    sh=(i+1)*sum(i)+sh
    s=s+1
    wsh=sh
    cs=sum(i)+cs
    if s=2 then
    wdd=round(wsh/cs)
    if wdd<10 then wdd="0"&wdd
    if instr(CpData.CodeStr(row+1),wdd)>0 then
    zjgs=zjgs+1
    CpAna.Color(row-1,"重力"&w) = 255
    if CpParam.Value( "显示")="符号" then CpAna.Cell(row-1,"重力"&w) = "中"
    end if
    if CpParam.Value( "显示")="号码" then CpAna.Cell(row-1,"重力"&w) = wdd
    if row=CpRowCount - 1 then CpAna.Cell(row-1,"重力"&w) = wdd
    w=w+1
    sh=0
    s=0
    d=3
    cs=0
    end if
    end if
    Next
    if cs>0 then
    wdd=round(wsh/cs)
    if wdd<10 then wdd="0"&wdd
    if instr(CpData.CodeStr(row+1),wdd)>0 then
    zjgs=zjgs+1
    CpAna.Color(row-1,"重力"&w) = 255
    if CpParam.Value( "显示")="符号" then CpAna.Cell(row-1,"重力"&w) = "中"
    end if
    if CpParam.Value( "显示")="号码" then CpAna.Cell(row-1,"重力"&w) = wdd
    if row=CpRowCount - 1 then CpAna.Cell(row-1,"重力"&w) = wdd
    w=w+1
    end if
    CpAna.Cell(row-1,"重力数") = w-1
    CpAna.Cell(row-1,"中奖数") = zjgs
    CpAna.Cell(row-1,"中奖率") = round(zjgs*100/(w-1))&" %"

    Next
    CpAna.Cell(row-2,"期号") = "下一期"

    End Function

    '-----vb编辑原理-------------

    '万物类象---重力均值法预测乐透彩票之2-1
    '请记住一句至理名言:大道至简
    '本文介绍如何用9个数测中下期6个号!
    '作者:吴俊怀 一注网资深预测专家
    '
    ' 所谓万物类象,是易经编创者发现的深刻的自然规律。简单的说也就是万事万物都依据一些基本的规律运行着,虽然可能表面上纷繁芜杂,令人眼花缭乱。在知道了其中某一个事物运行规律后,可以根据这个规律推知相类似事物的运行规律。大道至简:复杂的东西,其背后一定是有很简单的规律在起作用。
    ' 该法特点:使用简单,原理深刻。一学即会。预测模型是以上期数据做为具有不同势能的物体,下期数据是上期数据经过势能平衡后的结果。本文介绍重力均值法之中级法---多期均值法
    ' 原理解释:所谓重力,也即引力。处于不同高度和位置的物体其势能是不同的,由于势能不同,就会发生高势能的物体向低势能处移动的现象,以达到势能平衡,也即达到稳定状态。这是自然界的一个基本原理。重力均值法就是在这种原理的启发下创造出来的。这也进一步验证了易经中万物类象的道理。
    '
    '现以全国联网体育彩票29选7的第2005086期的预测作示例:
    '预测本期号码需要用到前3期数据:
    '2005083期:02 04 09 13 15 21 28
    '2005084期:03 09 11 14 19 24 29
    '2005085期:04 13 14 25 27 28 29
    '统计重力点值:
    '重力值 2 3 4 9 11 13 14 15 19 21 24 25 27 28 29
    '出现量 1 1 2 2 1 2 2 1 1 1 1 1 1 2 2
    '分区 1-1区 2-1区 1-2区 2-2区 1-3区 1-4区
    '第一步,计算重力稳定点:
    '1-1区稳定点=(2+3+4+4)/4=3.25
    '1-2区稳定点=(13+13+14+14+15)/5=13.8
    '1-3区稳定点=(24+25)/2=24.5
    '1-4区稳定点=(27+28+28+29+29)/5=28.2
    '1-1区稳定点=(2+3+4+4)/4=3.25
    '2-1区稳定点=(9+9+10)/3=9.75;
    '2-2区稳定点=19+21
    '第二步,统计简化稳定点:
    '稳定点 3.25 9.75 13.8 19 21 25 28
    '四舍五入值 3 10 14 19 21 25 28
    '从求得的7个稳定点可以看出,其中已经包含了10,21,25,28四个下期号。命中率相当的高。计算的方法非常简单,但是道理并不是人人懂得。这就是大道至简,万物类象的原理。
    '
    '----------相关说明-------
    '几处不同于原理的:
    '分区方法是按3个数一个区再2个数一个区再3个数一个区,即3-2-3-2-3-2等等
    '2-1区稳定点=(9+9+11)/3=9.67
    '2-2区稳定点=(19+21)/2=20
    '第二步,统计简化稳定点:
    '稳定点 3.25 9.67 13.8 20 25 28
    '四舍五入值 3 10 14 20 25 28
    '基于乐透型彩票,在全能版6122编辑测试通过


    _________________
    一流的条件 精彩的论坛

      目前的日期/时间是2018-04-25, 01:59