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

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

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


    大 中 小 分 析

    分享
    avatar
    一品明灯
    Admin

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

    普通 大 中 小 分 析

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

    大 中 小 分 析 tkltkl7676@163.COM
    '==========================================================

    CpParam.Add "分析","号码","{号码}{个位}",50

    Function Main
    '===============申明或定义变量=============
    CpRowCount = CpData.RowCount '开奖期数
    CpColCount = CpData.ColCount '开奖号码个数
    CpMaxCode = CpData.MaxCode '最大号码
    CpMinCode = CpData.MinCode '最小号码
    CpCodeCount = CpData.CodeCount '号码数量
    '=================建表=================
    CpAna.AddField "期号",8
    CpAna.AddField "开奖号码",CpColCount*3
    CpAna.AddField "小号个数",8
    CpAna.AddField "中号个数",8
    CpAna.AddField "大号个数",8
    CpAna.AddField "小号和",6
    CpAna.AddField "中号和",6
    CpAna.AddField "大号和",6
    CpAna.AddField "小号均值",8
    CpAna.AddField "中号均值",8
    CpAna.AddField "大号均值",8
    CpAna.AddField "小中大HGW形态",14
    CpAna.AddField "小中大GS形态",12
    CpAna.AddField "小中大除11GW形态",16
    CpAna.AddField "除11GW形态GW",14
    CpAna.RowCount = CpRowCount
    CpAna.CreateTable()
    '==============算法主体============================

    FX=CpParam.Value("分析")
    If FX="号码" then
    MidCode=(CpMinCode + CpMaxCode) / 3
    Else
    MidCode=3
    End If

    For row = 0 to CpRowCount - 1
    XHGS = 0 '小号个数
    ZHGS = 0 '中号个数
    DHGS = 0 '大号个数
    XHH = 0 '小号和
    ZHH = 0 '中号和
    DHH = 0 '大号和
    DZXXT = "" '大中小形态

    CpAna.Cell(row, "期号") = CpData.Seq(row)
    CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)

    For col = 0 to CpColCount - 1
    Code = CpData.Code(row ,col)
    If FX="个位" then
    Code=Code mod 10
    End if
    If Code < MidCode then '小数
    XHGS = XHGS + 1
    XHH = XHH + Code

    End if
    If Code < 2*MidCode then '中数
    zHGS = zHGS + 1
    ZHH = ZHH + Code

    Else '大数
    DHGS = DHGS + 1
    DHH = DHH + Code


    End If
    Next

    CpAna.Cell(row, "小号个数") = XHGS
    CpAna.Cell(row, "中号个数") = ZHGS-XHGS
    CpAna.Cell(row, "大号个数") = DHGS
    CpAna.Cell(row, "小号和") = XHH
    CpAna.Cell(row, "中号和") = ZHH-XHH
    CpAna.Cell(row, "大号和") = DHH
    CpAna.Cell(row, "小号均值") = XHH/(XHGS+0.000001)\1
    CpAna.Cell(row, "中号均值")=(ZHH-XHH)/(ZHGS-XHGS+0.000001)\1
    CpAna.Cell(row, "大号均值") = DHH/(DHGS+0.000001)\1
    CpAna.Cell(row, "小中大HGW形态") = XHH MOD 10 & (ZHH-XHH) MOD 10 & DHH MOD 10
    CpAna.Cell(row, "小中大GS形态") = XHGS & ZHGS-XHGS & DHGS
    CpAna.Cell(row, "小中大除11GW形态") = (XHH\11) MOD 10 & ((ZHH-XHH)\11) MOD 10 & (DHH\11) MOD 10
    CpAna.Cell(row, "除11GW形态GW") = ((XHH\11) MOD 10 & ((ZHH-XHH)\11) MOD 10 & (DHH\11) MOD 10) MOD 10

    Next
    End Function


    _________________
    一流的条件 精彩的论坛

      目前的日期/时间是2018-04-25, 02:05