精 彩 论 坛已经更名为百强频道,迁新地址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:44

    偏度和过滤
    '=================================================

    CpFlt.Add "偏度和"

    Function Main()
    Pub_FltRow = CpFlt.RowCount
    Pub_CodeCount = CpFlt.CodeCount

    ReDim Code(Pub_CodeCount)
    ReDim Data(Pub_CodeCount) '定义数组
    ReDim PdData(Pub_CodeCount) '偏度数组


    For col = 0 to Pub_CodeCount-1
    Code(col) = CpData.Code(CpData.RowCount-1,col)

    Next

    For row = 0 to Pub_FltRow-1
    cnt1 = 0'二次限定

    '求偏度和
    ss=0
    For col=0 to Pub_CodeCount-1
    code0 = CpFlt.Code(row,col)
    For col1=0 to Pub_CodeCount-1
    Data(col1)=Abs(code0 -Code(col1))
    Next

    min=1000
    For col1=0 to Pub_CodeCount-1
    If Data(col1)<min Then
    min=Data(col1)
    End if
    Next

    PdData(col)=min

    pdstr=pdstr+" "+CStr(min)
    ss=ss+min
    Next

    For k = 0 to CpFlt.ConditionCount-1
    If CpFlt.Checked(k,"偏度和",ss) Then
    cnt1 = cnt1+1
    End If
    Next
    If CpFlt.LimitChecked(cnt1)="False" then
    CpFlt.Filter(row)
    End if

    Next
    End Function


    _________________
    一流的条件 精彩的论坛

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