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

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

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


    3D个位特殊分析 by tkltkl7676

    分享
    avatar
    一品明灯
    Admin

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

    普通 3D个位特殊分析 by tkltkl7676

    帖子 由 一品明灯 于 2010-03-08, 10:38

    3D个位特殊分析 by tkltkl7676

    '==========================================================
    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 "12位和",7
    CpAna.AddField "23位和",7
    CpAna.AddField "13位和",7
    CpAna.AddField "3D特殊分析",10
    CpAna.RowCount = CpRowCount+0
    CpAna.CreateTable()
    '==============算法主体============================
    ReDim GWs(CpColCount) '个位
    '每个开奖号的个位
    For col = 0 to CpColCount - 1
    GWs(col) = CpData.Code(row,col) mod 10
    next
    For row = 0 to cprowcount -1
    CpAna.Cell(row, "期号") = CpData.Seq(row)
    CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)
    a=(CpData.Code(row, GWs(col)))+(CpData.Code(row,GWs(col)+1))
    b=(CpData.Code(row,GWs(col)))+(CpData.Code(row,GWs(col)+2))
    c=(CpData.Code(row,GWs(col)+1))+(CpData.Code(row,GWs(col)+2))
    cpana.cell(row,"12位和")=a
    cpana.cell(row,"13位和")=b
    cpana.cell(row,"23位和")=c
    CpAna.cell(row, "3D特殊分析")=((a mod 10)*(b mod 10)*(c mod 10))mod 100

    next
    End Function
    avatar
    一品明灯
    Admin

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

    普通 回复: 3D个位特殊分析 by tkltkl7676

    帖子 由 一品明灯 于 2010-03-08, 10:39

    3D综合个位分析 By tkltkl7676
    '==========================================================
    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 "12位和",7
    CpAna.AddField "23位和",7
    CpAna.AddField "13位和",7
    CpAna.AddField "3D转2D",7
    CpAna.AddField "3D转1D",7
    CpAna.AddField "3D转1D(1-3)",12
    CpAna.AddField "位置积和",8
    CpAna.AddField "位置积差",8
    CpAna.AddField "位合并数",7
    CpAna.AddField "位个方",7
    CpAna.RowCount = CpRowCount+0
    CpAna.CreateTable()
    '==============算法主体============================
    ReDim GWs(CpColCount) '个位

    '每个开奖号的个位
    For col = 0 to CpColCount - 1
    GWs(col) = CpData.Code(row,col) mod 10
    next
    For row = 0 to cprowcount -1
    CpAna.Cell(row, "期号") = CpData.Seq(row)
    CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)
    a=(CpData.Code(row, GWs(col)))+(CpData.Code(row,GWs(col)+1))
    b=(CpData.Code(row,GWs(col)))+(CpData.Code(row,GWs(col)+2))
    c=(CpData.Code(row,GWs(col)+1))+(CpData.Code(row,GWs(col)+2))
    cpana.cell(row,"12位和")=a mod 10
    cpana.cell(row,"13位和")=b mod 10
    cpana.cell(row,"23位和")=c mod 10
    cpana.cell(row,"3D转2D")=((a mod 10)&(c mod 10))
    cpana.cell(row,"3D转1D")=(((CpData.Code(row,0))+(CpData.Code(row,0+1)) mod 10)&((CpData.Code(row,0+1))+(CpData.Code(row,0+2))) mod 10) mod 10
    cpana.cell(row,"3D转1D(1-3)")=(((CpData.Code(row,0))+(CpData.Code(row,0)) mod 10)&((CpData.Code(row,0))+(CpData.Code(row,0+2))) mod 10) mod 10
    cpana.cell(row,"位置积和")=(CpData.Code(row, GWs(col)))*1+(CpData.Code(row,GWs(col)+1))*2+(CpData.Code(row,GWs(col)+3))*3
    cpana.cell(row,"位置积差")=abs((CpData.Code(row, GWs(col)))*1-(CpData.Code(row,GWs(col)+1))*2-(CpData.Code(row,GWs(col)+3))*3)
    cpana.cell(row,"位合并数")=(CpData.Code(row,(0 mod 10)))+(CpData.Code(row,(1 mod 10)))&(CpData.Code(row,(1 mod 10)))+(CpData.Code(row,(2 mod 10)))&(CpData.Code(row,(0 mod 10)))+(CpData.Code(row,(2 mod 10)))
    cpana.cell(row,"位个方")=sqr((CpData.Code(row,(0 mod 10)))+(CpData.Code(row,(1 mod 10)))&(CpData.Code(row,(1 mod 10)))+(CpData.Code(row,(2 mod 10)))&(CpData.Code(row,(0 mod 10)))+(CpData.Code(row,(2 mod 10))))\1

    next
    End Function

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