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

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

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


    期差积积2扩展分析

    分享
    avatar
    一品明灯
    Admin

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

    普通 期差积积2扩展分析

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

    期差积积2扩展分析 by tkltkl7676@163.com
    '==========================================================

    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

    For i=0 to CpColCount-1
    CpAna.AddField "基" & i+1 & "期差",8
    Next

    CpAna.AddField "期差积积2",10
    CpAna.AddField "期差积积2十位",13
    CpAna.AddField "期差积积2和",11
    CpAna.AddField "期差积积2积",11
    CpAna.AddField "期差积积2和尾",13
    CpAna.AddField "期差积积2积尾",13

    CpAna.RowCount = CpRowCount
    CpAna.CreateTable()

    '==============算法主体============================
    ReDim QiCha(CpColCount)

    For row = 0 to CpRowCount - 1
    CpAna.Cell(row, "期号") = CpData.Seq(row)
    CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)

    '求期差积积2
    If row > 0 Then
    QiChaSum=0
    For col = 0 to CpColCount - 1
    QiCha(col) = abs(CpData.Code(row,col)*CpData.Code(row-1,col))^(2/3)\1
    QiChaSum=QiChaSum + QiCha(col)
    A=(QiChaSum)\1
    Next

    For col = 0 to CpColCount - 1
    CpAna.Cell(row,col+2) = QiCha(col)

    Next
    CpAna.Cell(row,"期差积积2")=A
    CpAna.Cell(row,"期差积积2十位")=(((A MOD 100)-(A MOD 10))\10)
    CpAna.Cell(row,"期差积积2和")=(A\100)+(((A MOD 100)-(A MOD 10))\10)+(A MOD 10)
    CpAna.Cell(row,"期差积积2积")=(A\100)*(((A MOD 100)-(A MOD 10))\10)*(A MOD 10)
    CpAna.Cell(row,"期差积积2和尾")=((A\100)+(((A MOD 100)-(A MOD 10))\10)+(A MOD 10)) mod 10
    CpAna.Cell(row,"期差积积2积尾")=((A\100)*(((A MOD 100)-(A MOD 10))\10)*(A MOD 10)) mod 10
    End If
    Next

    End Function


    _________________
    一流的条件 精彩的论坛

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