快速注册 登录
华人街网 返回首页

jiliyacui的个人空间 https://www.huarenjie.com/?14066 [收藏] [复制] [分享] [RSS]

日志

2018-01-15

已有 432 次阅读2018-1-15 23:27

今天是值得庆生的日子(2018/01/13(自斟自饮)一通百通。终于掌握了打开彩票的钥匙,玩彩赢利成为事实。陈述如下。 

  这不是论文,只是随笔,跟着思路的脚步,想到哪里就写到哪里。

原点是一维的投影,一维是二维的投影;二维是三维的投影;三维是四维的投影。
  
彩票动态数据表现就是三维,而其随时间轴的延伸就是四维的投影数据组,它最少彩票数学组合

x=3)注。你很巧妙地隐藏了四维存在于三维的数据组。所以说你赢啦!你赢在其他人找不到这一四维映射在三维的数据组。尽管我多年前就明白了道理,但我不懂编程,遗憾至今。

=<25. 彩票博弈为零。
  
大数据研究的是概率;

彩票研究的就是概率,进一步拓展的是数据组合;三维的数字组合隐含了中奖几率。

彩票的数学表达式就是三维的数据(学)组合。

彩票是有概率的,但并非是传统的数学概率。而是彩票数学组合概率,这一彩票概率困扰了我多年,最终用彩票数学组合的PPLU“四则运算”及其拉霍亚的数学表得以验证,加以证实完全正确

。每种彩票都会有各自的独一无二的彩票概率(规律),这里不加论述。只有(唯一)充分利用这一数学组合在时间轴上的1+N(0=<N>=10)倍投,才会盈利。而“风哥”的博彩四维领先于世界水平(世界彩民还处于混沌状态),并可高调的声称:我破解了彩票规律;若投资N元(10-10000元),则在一个工作日内回报30%-100%的纯盈利。

  此时此刻,我有一想法:若用四维过滤有限彩票动态数据组,会不会浓缩下期出奖号在最少数组组合内!?

  这里需要指出的是目前所有彩票的参数过滤指标的数组组合都不能正确有效的含有下期出奖奖号,都是忽悠彩民,几乎所有彩软都将寿终就寝,而仅蓝精灵例外。

 高科技惊人!在金融市场上,西方人领先;而独在彩票博弈上,中国人弯道超车领跑在先。

在世界客观事物规律而用数学模式反映的唯一破解的彩票规律上是中国人贡献。

以广东彩票115为例。具体操作操作如下。

 

一、              彩票历史数据、彩软及周边程序的应用

  打开 115大底在线实时监控软件 

全选-复制历史数据带入 中,整理数据

写入 ,如图:

一、              彩票历史数据在彩软中应用及提取

    

中心思想:利用彩票软件预测下期开奖数组号码

打开 ,用 填入本码并激活,导入广东彩票115历史数据。

键,得到


 实战例一:

经过对大量的220~226注动态底的验证,任何220+的底,无论你是打静态还是动态,最佳新欧洲不是平刷,而是阶段性3期计划(建议打计划的话,最低也要取3期计划,这样阶段性的成功率很高)。或4期计划(4期最为稳妥)。
而且最佳介入时机是:必须要等6以上的高遗漏中出后,才可以开始3期或4期计划。

实战例二:

这组,5以上高遗漏中出后,可以短吃几轮4期计划。

 

实战例三:

看,5期高遗漏中出后,才吃2轮,再多吃,马上就面临风险了。现在,它的高5中出后,第3波回补,就已经是走到第4期了,这期要是不中的话,岂不就是贪吃被撑死了
等下开奖后看看,是不是被撑死

 

实战例四:

还好,4期计划刚好没超中出了。
因此,为资金安全起见,高5中出后,就吃第1-2波回补最安全。
反正备选底多得是,概率机会点也很多的。
我的实战经验总结是:56178很吃
动态56注,10期应该有


靠,一枪命中!

 

实战例五:

169注动态,6期应该有

靠,又是一枪命中


4
在做排序程序的过程中,通过大数据测试发现一个有趣的现象。

就是在排序上任意一个位置取独胆做的210注底,其动态遗漏远不如取8=4210注底稳定

谁能解释一下这个现象的本质?

排序本来就是不可控的

但是很多人都拼命想要改变 
如果排序可控 彩票就破解了


路过

雷人

握手

鲜花

鸡蛋

发表评论 评论 (2 个评论)

回复 jiliyacui 2018-1-15 23:44
'==========================================================
'【11选5-任选五】150底投注器(实战版)
'===================================================================================================================================================================================================================================================================================================================================================================================
CpParam.Add "统计",0,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}{16}{17}{18}{19}{20}{21}{22}{23}{24}{25}{26}{27}{28}{29}{30}{31}{32}{33}{34}{35}{36}{37}{38}{39}{40}{41}{42}{43}{44}{45}{46}{47}{48}{49}{50}{51}{52}{53}{54}{55}{56}{57}{58}{59}{60}{61}{62}{63}{64}{65}{66}{67}{68}{69}{70}{71}{72}{73}{74}{75}{76}{77}{78}",45
CpParam.Add "概率模型","23码跟随","{23码跟随}",85
CpParam.Add "查询位置",123,"{123}{124}{125}{134}{135}{145}{234}{235}{245}{345}",50
CpParam.Add "开奖位置",123,"{123}{124}{125}{134}{135}{145}{234}{235}{245}{345}",50
CpParam.Add "启动延期",4,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}",42
CpParam.Add "反弹延期",4,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}",42
CpParam.Add "启动延期@",9,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}{16}",42
CpParam.Add "反弹延期@",12,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}{16}{17}{18}",42
CpParam.Add "时间轴",4,"{4}{6}{10}",45

'  181注1倍起打基础参数:【起倍】 1  【收益】0.21  【起点】1元  【增值】0.001元
'  181注包赚1元优化方案:【起倍】 2  【收益】0.49  【起点】1元  【增值】0.001元
'  181注包赚1元优化方案:【起倍】 3  【收益】0.49  【起点】1元  【增值】0.001元
'  181注包赚2元优化方案:【起倍】 5  【收益】0.49  【起点】2元  【增值】0.001元
'  181注包赚3元优化方案:【起倍】 7  【收益】0.49  【起点】3元  【增值】0.001元
'  181注包赚5元优化方案:【起倍】11  【收益】0.49  【起点】5元  【增值】0.001元
'-------------------------------------------------------------------------------------------------------------------

Function Main
  '===============申明或定义变量=============
  set CpSec = CreateObject("BoaoHbsActive.CpSec")
  set CpSec0 = CreateObject("BoaoHbsActive.CpSec")
  set CpSectemp = CreateObject("BoaoHbsActive.CpSec")

  CpRowCount = CpData.RowCount   '开奖期数
  CpColCount = CpData.ColCount   '开奖号码个数
  CpColCountP3 = 3               '任三开奖号码个数
  CpMaxCode = CpData.MaxCode     '最大号码
  CpMinCode = CpData.MinCode     '最小号码
  CpCodeCount = CpData.CodeCount '号码数量

  CpWZCountP3 = CpColCount*(CpColCount-1)/2                 '拆分为任2的总组数
  CpWZCount = CpColCount*(CpColCount-1)*(CpColCount-2)/6    '拆分为任3的总组数
  '分拆位置代码: 0   1   2   3   4   5   6   7   8   9
  '分拆位置:    123 124 125 134 135 145 234 235 245 345

  ReDim WzP3(CpWZCountP3,CpColCountP3)
  ReDim Wz(CpWZCount,CpColCountP3)
  ReDim WzPrint(CpWZCount,CpColCountP3)

  n=0
  For i=0 to CpColCount-2
    For j=i+1 to CpColCount-1
      WzP3(n,0)=i
      WzP3(n,1)=j
      WzP3(n,CpColCountP3)=WzP3(n,CpColCountP3)&(WzP3(n,0)+1)&(WzP3(n,1)+1)
      n=n+1
    Next
  Next

  n=0
  For i=0 to CpColCount-3
    For j=i+1 to CpColCount-2
      For k=j+1 to CpColCount-1
        Wz(n,0)=i
        Wz(n,1)=j
        Wz(n,2)=k
        Wz(n,CpColCountP3)=Wz(n,CpColCountP3)&(Wz(n,0)+1)&(Wz(n,1)+1)&(Wz(n,2)+1)
        n=n+1
      Next
    Next
  Next

  ReDim CpCodeKJ(CpCodeCount)
  CpCodeKJ(1)="①"
  CpCodeKJ(2)="②"
  CpCodeKJ(3)="③"
  CpCodeKJ(4)="④"
  CpCodeKJ(5)="⑤"
  CpCodeKJ(6)="⑥"
  CpCodeKJ(7)="⑦"
  CpCodeKJ(8)="⑧"
  CpCodeKJ(9)="⑨"
  CpCodeKJ(10)="⑩"
  CpCodeKJ(11)="⑾"

  Pub_DispKD=4

  Pub_CpName="体彩"
  Pub_CpZQ=87
  If Left(CpData.Name,2)="四川" Then
     Pub_CpName="四川"
     Pub_CpZQ=65
  End if
  If Left(CpData.Name,2)="山东" Then
     Pub_CpName="山东"
     Pub_CpZQ=87
  End if
  If Left(CpData.Name,2)="广东" Then
     Pub_CpName="广东"
     Pub_CpZQ=84
  End if
  If Left(CpData.Name,2)="江西" Then
     Pub_CpName="江西"
     Pub_CpZQ=84
  End if
  Pub_Record=20       '动静态追号大底默认存盘期数

  Pub_PnDM=87*1
  Pub_CnDM=87*1

  '=================数据预定义=================
  NewDate_OldNum=CpData.Seq(CpRowCount-1) Mod 100
  NewDate_Number=(NewDate_OldNum Mod Pub_CpZQ)+1
  NewDate=CalendarDate(1)
  NewDate_Year=Mid("0000",1,4-Len(Year(NewDate)))&Year(NewDate)
  NewDate_Month=Mid("00",1,2-Len(Month(NewDate)))&Month(NewDate)
  NewDate_Day=Mid("00",1,2-Len(Day(NewDate)))&Day(NewDate)

  Pub_WorkSelect = 5

  If Pub_WorkSelect=3 Then
     Pub_MaxPx=11+10+20+9    '自动大底总数(编号0-Pun_MaxPx)
  End if

  If Pub_WorkSelect=5 Then
     Pub_MaxPx=99+100    '自动大底总数(编号0-Pun_MaxPx)
     Pub_MaxPx_Main=100       '主力自动大底总数(编号0-Pun_MaxPx_Main)
  End if

  If Pub_WorkSelect=4 Then
     Pub_MaxPx=2+4    '自动大底总数(编号0-Pun_MaxPx)
     Pub_WorkSelectQ3=Pub_WorkSelect
     Pub_WorkSelect=Pub_WorkSelect+1
  End if

  If Pub_WorkSelect=2 Then CpNumCode=55
  If Pub_WorkSelect=3 Then CpNumCode=165
  If Pub_WorkSelect=4 Then CpNumCode=330
  If Pub_WorkSelect=5 Then CpNumCode=462
  If Pub_WorkSelect=6 Then CpNumCode=462
  If Pub_WorkSelect=7 Then CpNumCode=330
  If Pub_WorkSelect=8 Then CpNumCode=165

  CpNumCodePn=990
  Pub_MaxPn=0    '直选自动大底总数(编号Pun_MaxPx+1--Pun_MaxPx+Pun_MaxPn)

  Pub_MaxCn=31     '任选5自动大底总数(编号Pun_MaxPx+Pun_MaxPn+1--Pun_MaxPx+Pun_MaxPn+Pub_MaxCn)

  Pub_HxName = Cstr(CpParam.Value("概率模型"))
  Pub_CXWZ_Temp = CInt(CpParam.Value("查询位置"))
  Pub_KJWZ_Temp = CInt(CpParam.Value("开奖位置"))
  if Len(Pub_CXWZ_Temp)<>Len(Pub_KJWZ_Temp) Then
     if Len(Pub_CXWZ_Temp)=3 Then Pub_KJWZ_Temp=123
     if Len(Pub_CXWZ_Temp)=2 Then Pub_KJWZ_Temp=12
  end if

  If Len(Pub_CXWZ_Temp)=3 Then
     For n=0 To CpWZCount-1
       WzPrint(n,CpColCountP3)=WZ(n,CpColCountP3)
     Next
  End if
  If Len(Pub_CXWZ_Temp)=2 Then
     For n=0 To CpWZCount-1
       WzPrint(n,CpColCountP3)=WZP3(n,CpColCountP3)
     Next
  End if

  Pub_KJWZ=0
  if Len(Pub_CXWZ_Temp)=3 Then
     if Pub_CXWZ_Temp=123 Then Pub_CXWZ=0
     if Pub_CXWZ_Temp=124 Then Pub_CXWZ=1
     if Pub_CXWZ_Temp=125 Then Pub_CXWZ=2
     if Pub_CXWZ_Temp=134 Then Pub_CXWZ=3
     if Pub_CXWZ_Temp=135 Then Pub_CXWZ=4
     if Pub_CXWZ_Temp=145 Then Pub_CXWZ=5
     if Pub_CXWZ_Temp=234 Then Pub_CXWZ=6
     if Pub_CXWZ_Temp=235 Then Pub_CXWZ=7
     if Pub_CXWZ_Temp=245 Then Pub_CXWZ=8
     if Pub_CXWZ_Temp=345 Then Pub_CXWZ=9

     if Pub_KJWZ_Temp=123 Then Pub_KJWZ=0
     if Pub_KJWZ_Temp=124 Then Pub_KJWZ=1
     if Pub_KJWZ_Temp=125 Then Pub_KJWZ=2
     if Pub_KJWZ_Temp=134 Then Pub_KJWZ=3
     if Pub_KJWZ_Temp=135 Then Pub_KJWZ=4
     if Pub_KJWZ_Temp=145 Then Pub_KJWZ=5
     if Pub_KJWZ_Temp=234 Then Pub_KJWZ=6
     if Pub_KJWZ_Temp=235 Then Pub_KJWZ=7
     if Pub_KJWZ_Temp=245 Then Pub_KJWZ=8
     if Pub_KJWZ_Temp=345 Then Pub_KJWZ=9
  else
     if Pub_CXWZ_Temp=12 Then Pub_CXWZ=0
     if Pub_CXWZ_Temp=13 Then Pub_CXWZ=1
     if Pub_CXWZ_Temp=14 Then Pub_CXWZ=2
     if Pub_CXWZ_Temp=15 Then Pub_CXWZ=3
     if Pub_CXWZ_Temp=23 Then Pub_CXWZ=4
     if Pub_CXWZ_Temp=24 Then Pub_CXWZ=5
     if Pub_CXWZ_Temp=25 Then Pub_CXWZ=6
     if Pub_CXWZ_Temp=34 Then Pub_CXWZ=7
     if Pub_CXWZ_Temp=35 Then Pub_CXWZ=8
     if Pub_CXWZ_Temp=45 Then Pub_CXWZ=9

     if Pub_KJWZ_Temp=12 Then Pub_KJWZ=0
     if Pub_KJWZ_Temp=13 Then Pub_KJWZ=1
     if Pub_KJWZ_Temp=14 Then Pub_KJWZ=2
     if Pub_KJWZ_Temp=15 Then Pub_KJWZ=3
     if Pub_KJWZ_Temp=23 Then Pub_KJWZ=4
     if Pub_KJWZ_Temp=24 Then Pub_KJWZ=5
     if Pub_KJWZ_Temp=25 Then Pub_KJWZ=6
     if Pub_KJWZ_Temp=34 Then Pub_KJWZ=7
     if Pub_KJWZ_Temp=35 Then Pub_KJWZ=8
     if Pub_KJWZ_Temp=45 Then Pub_KJWZ=9
  end if

  Pub_QS = 1
  Pub_QSGS=Pub_QS

  Pub_SelectDo="否"

  Pub_DmNum = 4
  'if Pub_DmNum<1 or Pub_DmNum>7 Then Pub_DmNum=1

  Pub_DeltaQS = CInt(CpParam.Value("启动延期"))
  if Pub_DeltaQS<0 or Pub_DeltaQS>10 Then Pub_DeltaQS=10

  Pub_DeltaQS_Rebound = CInt(CpParam.Value("反弹延期"))
  if Pub_DeltaQS_Rebound<0 or Pub_DeltaQS_Rebound>10 Then Pub_DeltaQS_Rebound=10

  Pub_DeltaQS153 = CInt(CpParam.Value("启动延期@"))
  if Pub_DeltaQS153<0 or Pub_DeltaQS153>16 Then Pub_DeltaQS153=16

  Pub_DeltaQS153_Rebound = CInt(CpParam.Value("反弹延期@"))
  if Pub_DeltaQS153_Rebound<0 or Pub_DeltaQS153_Rebound>18 Then Pub_DeltaQS153_Rebound=18

  Pub_TimeKey = CInt(CpParam.Value("时间轴"))
  if Pub_TimeKey<>4 and Pub_TimeKey<>10 Then Pub_TimeKey=4

  Pub_TimeKey_YL181=9     '当前时间轴之前最近一次高遗漏中出阀值,缺省9
  Pub_TimeKey_DT181=9     '当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9
  Pub_TimeKey_YLNum181=4  '当前时间轴之前一时段内中奖次数阀值,缺省4
  Pub_TimeKey_YL181A=7    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出阀值,缺省7
  Pub_TimeKey_DT181A=9    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9

  Pub_TimeKey_YL153=10    '当前时间轴之前最近一次高遗漏中出阀值,缺省10
  Pub_TimeKey_DT153=9     '当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9
  Pub_TimeKey_YLNum153=4  '当前时间轴之前一时段内中奖次数阀值,缺省4
  Pub_TimeKey_YL153A=6    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出阀值,缺省8
  Pub_TimeKey_DT153A=9    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9

  Pub_SecondMax = 11
  Pub_CurrentYLRow = 20  '150底全局高反弹>=阀值
  Pub_CurrentYLRow1 =14  '150非主力底全局高反弹=阀值
  Pub_CurrentYLRowA =15  '150主力底全局定值高反弹=阀值
  Pub_CurrentYLRowB =16  '150主力底全局定值高反弹=阀值
  Pub_CurrentYLRowC =17  '150主力底全局定值高反弹=阀值
  Pub_CurrentYLRowD =18  '150主力底全局定值高反弹=阀值

  Pub_CurrentYLRow2 =20  '161系全局高反弹>=阀值
  Pub_CurrentYLRow3 =14  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow4 =15  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow5 =16  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow6 =17  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow7 =18  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow8 =19  '161系全局定值高反弹=阀值

  YLReboundFact0=1.618   '150系主力底高反弹系数
  YLReboundFact1=0.618   '150系普通底高反弹系数
  YLReboundFact2=0.618   '161系高反弹系数

  TJCONT=CInt(CpParam.Value("统计"))   '统计显示运算结果的期数。其决定了参与排序运算的总期数
  If TJCONT<3*Pub_SecondMax Then
     if TJCONT=0 Then
        If NewDate_Number=1 Then
           TJCONT=Pub_CpZQ
        Else
           If NewDate_Number<5*Pub_SecondMax Then
              TJCONT=5*Pub_SecondMax
           Else
              TJCONT=NewDate_Number-1
           End if
        End if
     else
        TJCONT=TJCONT*Pub_CpZQ+NewDate_Number-1
     end if
  End if
  if TJCONT>CpRowCount-Pub_PnDM Then TJCONT=CpRowCount-Pub_PnDM

  Pub_WorkDo = "清存"
  if Left(Pub_WorkDo,2)="验证" Then Pub_Record = CInt(Right(Pub_WorkDo,3))

  Pub_TradeNum=150         '【注数】=150注
  Pub_TradeJJ=900.9
  Pub_TradeTest="投注"
  Pub_TradeKL=1.00         '【返点】
  Pub_TradeStart=17        '【起打】倍数=Pub_TradeStart      (由参数按钮自定义)
  Pub_TradeBL=CDbl(0.25)
  Pub_SSTrade_Start=CDbl(1.00)
  Pub_SSTrade_Start=1000*Pub_SSTrade_Start
  Pub_SSTrade_End=1000*900
  if Pub_SSTrade_End<Pub_SSTrade_Start Then Pub_SSTrade_End=Pub_SSTrade_Start+1000
  Pub_SSTrade_BL=CDbl(0.001)
  Pub_SSTrade_BL=1000*Pub_SSTrade_BL

  '基础倍投表参数定义
  Pub_TradeNum0=Pub_TradeNum              '【注数】=181注
  Pub_TradeStart0=Pub_TradeStart          '【起打】倍数=Pub_TradeStart      (由参数按钮自定义)
  Pub_TradeBL0=Pub_TradeBL                '【收益】率=Pub_TradeBL           (由参数按钮自定义)
  Pub_SSTrade_Start0=Pub_SSTrade_Start    '【起点】控制=Pub_SSTrade_Start   (由参数按钮自定义)
  Pub_SSTrade_BL0=Pub_SSTrade_BL          '【增值】步长=Pub_SSTrade_BL      (由参数按钮自定义)

  '降1期倍投表参数定义
  Pub_TradeNumA=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartA=2                '【起打】倍数=3
  Pub_TradeBLA=CDbl(0.98)          '【收益】率=0.49
  Pub_SSTrade_StartA=CDbl(2000)    '【起点】控制=1元
  Pub_SSTrade_BLA=CDbl(1500)        '【增值】步长=0.001元700

  '降2期倍投表参数定义
  Pub_TradeNumB=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartB=4                '【起打】倍数=5
  Pub_TradeBLB=CDbl(0.98)          '【收益】率=0.49
  Pub_SSTrade_StartB=CDbl(5000)    '【起点】控制=2元
  Pub_SSTrade_BLB=CDbl(2000)       '【增值】步长=0.001元1000

  '降3期倍投表参数定义
  Pub_TradeNumC=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartC=5                '【起打】倍数=7
  Pub_TradeBLC=CDbl(0.52)          '【收益】率=0.49
  Pub_SSTrade_StartC=CDbl(8000)    '【起点】控制=3元
  Pub_SSTrade_BLC=CDbl(2500)       '【增值】步长=0.001元1500

  '降4期倍投表参数定义
  Pub_TradeNumD=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartD=9               '【起打】倍数=11
  Pub_TradeBLD=CDbl(0.52)          '【收益】率=0.49
  Pub_SSTrade_StartD=CDbl(10000)    '【起点】控制=5元
  Pub_SSTrade_BLD=CDbl(3000)       '【增值】步长=0.001元2800


  '161注倍投表参数定义
  Pub_TradeNumK=161                '【注数】=161注
  Pub_TradeStartK=1                '【起打】倍数=1
  Pub_TradeBLK=CDbl(0.49)          '【收益】率=0.49
  Pub_SSTrade_StartK=CDbl(1000)    '【起点】控制=1元
  Pub_SSTrade_BLK=CDbl(1)          '【增值】步长=0.001元

  '121注倍投表参数定义
  Pub_TradeNumL=121                '【注数】=121注
  Pub_TradeStartL=3                '【起打】倍数=3
  Pub_TradeBLL=CDbl(0.25)          '【收益】率=0.25
  Pub_SSTrade_StartL=CDbl(20000)   '【起点】控制=20元
  Pub_SSTrade_BLL=CDbl(1000)       '【增值】步长=1元

  '132注倍投表参数定义
  Pub_TradeNumM=132                '【注数】=132注
  Pub_TradeStartM=1                '【起打】倍数=1
  Pub_TradeBLM=CDbl(0.20)          '【收益】率=0.20
  Pub_SSTrade_StartM=CDbl(20000)   '【起点】控制=20元
  Pub_SSTrade_BLM=CDbl(1000)       '【增值】步长=1元

  '76注倍投表参数定义
  Pub_TradeNumN=76                 '【注数】=76
  Pub_TradeStartN=1                '【起打】倍数=1
  Pub_TradeBLN=CDbl(0.62)          '【收益】率=0.62
  Pub_SSTrade_StartN=CDbl(20000)   '【起点】控制=20元
  Pub_SSTrade_BLN=CDbl(1000)       '【增值】步长=1元


  ReDim Sum(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SortCodes(CpCodeCount)                    '根据sum()排序后的开奖/过滤号码全排序
  ReDim SortSumCount(CpRowCount,CpCodeCount)      '根据sum排序后的各期冷热追踪开奖号码频次

  ReDim SumA(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumB(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumC(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SortCodesA(CpCodeCount)                    '根据sum()排序后的开奖/过滤号码全排序

  ReDim SumSEA(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumSEB(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumSEC(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SortCodesB(CpCodeCount)                    '根据sum()排序后的开奖/过滤号码全排序

  ReDim SortCodesQS(10*CpCodeCount,CpRowCount,CpCodeCount)     '根据sum()排序后的开奖/过滤号码全排序
  ReDim SortCodesGS(CpWZCount,CpWZCount,CpRowCount,CpCodeCount)     '根据sum()排序后的开奖/过滤号码全排序
  ReDim SortSumCountQS(10*CpCodeCount,CpRowCount,CpCodeCount)  '根据sum()排序后的开奖/过滤号码频次
  ReDim NewPnCodeQS(10*CpCodeCount,CpRowCount,CpColCount)        '存储过滤后剩余组合排序中奖位置号(直选排列)
  ReDim NewCnCodeQS(10*CpCodeCount,CpRowCount,CpColCount)        '存储过滤后剩余组合排序中奖位置号(组选组合)

  ReDim SortCodesPX(22*CpCodeCount,CpRowCount,CpCodeCount)
  ReDim SortSumCountPX(22*CpCodeCount,CpRowCount,CpCodeCount)
  ReDim NewPnCode(22*CpCodeCount,CpRowCount,CpColCount)
  ReDim NewCnCode(22*CpCodeCount,CpRowCount,CpColCount)

  ReDim Codes(CpColCount)
  ReDim Codestemp(CpColCount)
  ReDim CodesWzDm(CpColCount)
  ReDim CodesCpRowCount(CpColCount)
  ReDim CodesP3(CpColCountP3)
  ReDim CodesZh(CpColCount)

  ReDim ZhCode(CpNumCode,22*CpCodeCount)

  ReDim ZhCodePn(CpNumCodePn,22*CpCodeCount)

  ReDim ZhHzYsCode(CpNumCode)           
  ReDim ZhYsxtCode(CpNumCode,CpColCount)
  ReDim ZhQdxtCode(CpNumCode,CpColCount)
  ReDim ZhDxxtCode(CpNumCode,CpColCount)
  ReDim ZhJoxtCode(CpNumCode,CpColCount)
  ReDim ZhZsxtCode(CpNumCode,CpColCount)

  ReDim ZhYsxtCodeNum(CpNumCode,CpColCount)
  ReDim ZhQdxtCodeNum(CpNumCode,CpColCount)
  ReDim ZhDxxtCodeNum(CpNumCode)           
  ReDim ZhJoxtCodeNum(CpNumCode)           
  ReDim ZhZsxtCodeNum(CpNumCode)           

  ReDim ZhTongCode(CpNumCode)
  ReDim GLCode(22*CpCodeCount,CpNumCode,CpColCount+2)
  ReDim GLCount(22*CpCodeCount)                     
  ReDim GLPnZj(CpRowCount,22*CpCodeCount)           
  ReDim GLCnZj(CpRowCount,22*CpCodeCount)           
  ReDim CpCnZjNum(22*CpCodeCount)                  
  ReDim CpCnZjNumSQ(22*CpCodeCount)                  

  ReDim GLCodePn(22*CpCodeCount,CpNumCodePn,CpColCount+2)
  
  ReDim TongCode(CpRowCount,CpColCount+1)
  ReDim TongCodeP3(CpRowCount,CpColCountP3)
  
  ReDim WzCodeP3(CpWZCountP3,CpRowCount,CpColCountP3)        '拆分为任二后的原始注
  ReDim WzCodeSortP3(CpWZCountP3,CpRowCount,CpColCountP3)    '拆分为任二的原始注进行排序(由小至大)得到的组选任二

  ReDim WzCode(CpWZCount,CpRowCount,CpColCountP3)        '拆分为任三后的原始注
  ReDim WzCodeSort(CpWZCount,CpRowCount,CpColCountP3)    '拆分为任三的原始注进行排序(由小至大)得到的组选任三

  ReDim HzYsCode(CpRowCount)           
  ReDim YsxtCode(CpRowCount,CpColCount)
  ReDim QdxtCode(CpRowCount,CpColCount)
  ReDim DxxtCode(CpRowCount,CpColCount)
  ReDim JoxtCode(CpRowCount,CpColCount)
  ReDim ZsxtCode(CpRowCount,CpColCount)

  ReDim YsxtCodeNum(CpRowCount,CpColCount)
  ReDim QdxtCodeNum(CpRowCount,CpColCount)
  ReDim DxxtCodeNum(CpRowCount)
  ReDim JoxtCodeNum(CpRowCount)
  ReDim ZsxtCodeNum(CpRowCount)

  ReDim CpYLZj(CpCodeCount)
  ReDim YLDM(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLRow(CpRowCount,Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLSecondCount(50,50)
  ReDim YLSecondValue(55)
  ReDim YLSecondMoney1(20)
  ReDim YLSecondMoney2(20)
  ReDim YLSecondMoneyA1(20)
  ReDim YLSecondMoneyA2(20)
  ReDim YLSecondMoneyB1(20)
  ReDim YLSecondMoneyB2(20)
  ReDim YLSecondMoneyC1(20)
  ReDim YLSecondMoneyC2(20)
  ReDim YLSecondMoneyD1(20)
  ReDim YLSecondMoneyD2(20)

  ReDim YLTradeCount(68,10)
  ReDim YLTradeCount2(98,10)
  ReDim YLTradeCountA(68,10)
  ReDim YLTradeCountB(68,10)
  ReDim YLTradeCountC(68,10)
  ReDim YLTradeCountD(68,10)

  ReDim YLFirstValue(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLReboundValue(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLLimitValue(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn,4*CpCodeCount)

  ReDim YLTradeStyle(5,2)  '投注类型底本期胆码与上期开奖号叠码数标识符
  YLTradeStyle(0,0)="■0"
  YLTradeStyle(1,0)="■1"
  YLTradeStyle(2,0)="■2"
  YLTradeStyle(3,0)="□3"
  YLTradeStyle(4,0)="□4"
  YLTradeStyle(5,0)="□5"

  YLTradeStyle(0,1)="◆0"  '反弹类型底本期胆码与上期开奖号叠码数标识符
  YLTradeStyle(1,1)="◆1"
  YLTradeStyle(2,1)="◆2"
  YLTradeStyle(3,1)="◇3"
  YLTradeStyle(4,1)="◇4"
  YLTradeStyle(5,1)="◇5"

  ReDim YLTradeStyle2(50,2)  '投注类型底通道标识符。□=等待投注;■=正在投注
  YLTradeStyle2(0,0)="□"
  YLTradeStyle2(1,0)="□"
  YLTradeStyle2(2,0)="□"
  YLTradeStyle2(3,0)="□"
  YLTradeStyle2(4,0)="□"
  For n=5 To 50
    YLTradeStyle2(n,0)="■"
  Next

  YLTradeStyle2(0,1)="◇"  '反弹类型底通道标识符。◇=等待投注;◆=正在投注
  YLTradeStyle2(1,1)="◇"
  YLTradeStyle2(2,1)="◇"
  YLTradeStyle2(3,1)="◇"
  For n=4 To 50
    YLTradeStyle2(n,1)="◆"
  Next

  ReDim YLTongDaoStyle(5*CpCodeCount)
  YLTongDaoStyle(0)="●"
  YLTongDaoStyle(1)="①"
  YLTongDaoStyle(2)="②"
  YLTongDaoStyle(3)="③"
  For i=4 To 5*CpCodeCount
    YLTongDaoStyle(i)="④"
  Next

  ReDim YLTongDaoBS(5*CpCodeCount,2)
  YLTongDaoBS(0,1)="〖"
  YLTongDaoBS(0,2)="〗"
  For i=1 To 2
    YLTongDaoBS(i,1)="〈"
    YLTongDaoBS(i,2)="〉"
  Next
  YLTongDaoBS(3,1)="《"
  YLTongDaoBS(3,2)="》"
  For i=4 To 5*CpCodeCount
    YLTongDaoBS(i,1)="【"
    YLTongDaoBS(i,2)="】"
  Next

  ReDim YLTongDaoRebound181(5*CpCodeCount)
  YLTongDaoRebound181(0)="〖等待〗"
  YLTongDaoRebound181(1)="〖等待〗"
  YLTongDaoRebound181(2)="〖等待〗"
  YLTongDaoRebound181(3)="〖等待〗"
  YLTongDaoRebound181(4)="〖等待〗"
  YLTongDaoRebound181(5)="〖等待〗"
  YLTongDaoRebound181(6)="〖等待〗"
  YLTongDaoRebound181(7)="〖预备〗"
  YLTongDaoRebound181(8)="【启投1手】"
  For i=9 To 19
    YLTongDaoRebound181(i)="【第"&i-7&"手】"
  Next
  For i=24 To 5*CpCodeCount
    YLTongDaoRebound181(i)="〖止损〗"
  Next

  ReDim YLTongDaoRebound153(5*CpCodeCount)
  YLTongDaoRebound153(0)="〖等待〗"
  YLTongDaoRebound153(1)="〖等待〗"
  YLTongDaoRebound153(2)="〖等待〗"
  YLTongDaoRebound153(3)="〖等待〗"
  YLTongDaoRebound153(4)="〖等待〗"
  YLTongDaoRebound153(5)="〖等待〗"
  YLTongDaoRebound153(6)="〖等待〗"
  YLTongDaoRebound153(7)="〖等待〗"
  YLTongDaoRebound153(8)="〖预备〗"
  YLTongDaoRebound153(9)="【启投1手】"
  For i=10 To 23
    YLTongDaoRebound153(i)="【第"&i-8&"手】"
  Next
  For i=24 To 5*CpCodeCount
    YLTongDaoRebound153(i)="〖止损〗"
  Next

  '==安全极限参数定义(已经21000期测试)==

  '==安全平衡参数定义==
  For mm=0 To Pub_MaxPx
    YLFirstValue(mm)=14+Pub_DeltaQS    '起投阀值最安全值建议14,YL=28
  Next

  If Pub_HxName = "23码跟随" Then
     YLFirstValue(0)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(1)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(2)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(3)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(4)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(5)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20
     YLFirstValue(6)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(7)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(8)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(9)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(10)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(11)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(12)=10+Pub_DeltaQS   '起投阀值最安全值建议5,YL=20(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(13)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(14)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(15)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(16)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(17)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(18)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(19)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(20)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(21)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(22)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(23)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(24)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(25)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(26)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(27)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(28)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(29)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(30)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(31)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(32)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(33)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(34)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(35)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(36)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(37)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(38)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(39)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(40)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(41)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(42)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(43)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(44)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(45)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20
     YLFirstValue(46)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(47)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(48)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(49)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(50)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(51)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(52)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(53)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(54)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(55)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(56)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(57)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(58)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(59)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(60)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(61)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(62)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(63)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(64)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(65)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(66)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(67)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(68)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(69)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(70)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(71)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(72)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(73)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(74)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(75)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(76)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(77)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(78)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(79)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(80)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(81)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(82)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(83)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(84)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(85)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(86)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(87)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(88)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(89)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(90)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(91)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(92)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(93)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(94)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(95)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(96)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(97)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(98)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(99)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22

     YLFirstValue(100)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(101)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(102)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(103)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(104)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(105)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(106)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(107)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(108)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(109)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(110)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(111)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(112)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(113)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(114)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(115)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(116)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(117)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(118)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(119)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(120)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(121)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(122)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(123)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(124)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(125)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(126)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(127)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(128)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(129)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(130)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(131)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(132)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(133)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(134)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(135)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(136)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(137)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(138)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(139)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(140)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(141)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(142)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(143)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(144)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(145)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(146)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(147)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(148)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(149)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(150)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(151)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(152)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(153)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(154)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(155)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(156)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(157)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(158)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(159)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(160)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(161)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(162)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(163)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(164)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(165)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(166)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(167)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(168)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(169)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(170)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(171)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(172)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(173)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(174)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(175)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(176)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(177)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(178)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(179)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(180)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(181)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(182)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(183)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(184)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(185)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(186)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(187)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(188)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(189)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(190)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(191)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(192)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(193)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(194)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(195)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(196)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(197)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(198)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(199)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
  End if

  For mm=0 To Pub_MaxPx_Main-1
    YLReboundValue(mm)=Int(YLFirstValue(mm)*YLReboundFact0)
  Next

  '定义高反弹遗漏值(前次高遗漏值)
  For mm=Pub_MaxPx_Main To Pub_MaxPx
    YLReboundValue(mm)=(20+Pub_DeltaQS-YLFirstValue(mm))+Int(YLFirstValue(mm)*YLReboundFact1)
  Next

  '定义161系
  For n=1 To Pub_MaxCn
    YLFirstValue(Pub_MaxPx+Pub_MaxPn+n)=15+Pub_DeltaQS153  '起投阀值最安全值建议14-15(需准备打12-15手时可设该值)10W期测试通过;
  Next
回复 jiliyacui 2018-1-15 23:50
'==========================================================
'【11选5-任选五】150底投注器(实战版)
'===================================================================================================================================================================================================================================================================================================================================================================================
CpParam.Add "统计",0,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}{16}{17}{18}{19}{20}{21}{22}{23}{24}{25}{26}{27}{28}{29}{30}{31}{32}{33}{34}{35}{36}{37}{38}{39}{40}{41}{42}{43}{44}{45}{46}{47}{48}{49}{50}{51}{52}{53}{54}{55}{56}{57}{58}{59}{60}{61}{62}{63}{64}{65}{66}{67}{68}{69}{70}{71}{72}{73}{74}{75}{76}{77}{78}",45
CpParam.Add "概率模型","23码跟随","{23码跟随}",85
CpParam.Add "查询位置",123,"{123}{124}{125}{134}{135}{145}{234}{235}{245}{345}",50
CpParam.Add "开奖位置",123,"{123}{124}{125}{134}{135}{145}{234}{235}{245}{345}",50
CpParam.Add "启动延期",4,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}",42
CpParam.Add "反弹延期",4,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}",42
CpParam.Add "启动延期@",9,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}{16}",42
CpParam.Add "反弹延期@",12,"{0}{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15}{16}{17}{18}",42
CpParam.Add "时间轴",4,"{4}{6}{10}",45

'  181注1倍起打基础参数:【起倍】 1  【收益】0.21  【起点】1元  【增值】0.001元
'  181注包赚1元优化方案:【起倍】 2  【收益】0.49  【起点】1元  【增值】0.001元
'  181注包赚1元优化方案:【起倍】 3  【收益】0.49  【起点】1元  【增值】0.001元
'  181注包赚2元优化方案:【起倍】 5  【收益】0.49  【起点】2元  【增值】0.001元
'  181注包赚3元优化方案:【起倍】 7  【收益】0.49  【起点】3元  【增值】0.001元
'  181注包赚5元优化方案:【起倍】11  【收益】0.49  【起点】5元  【增值】0.001元
'-------------------------------------------------------------------------------------------------------------------

Function Main
  '===============申明或定义变量=============
  set CpSec = CreateObject("BoaoHbsActive.CpSec")
  set CpSec0 = CreateObject("BoaoHbsActive.CpSec")
  set CpSectemp = CreateObject("BoaoHbsActive.CpSec")

  CpRowCount = CpData.RowCount   '开奖期数
  CpColCount = CpData.ColCount   '开奖号码个数
  CpColCountP3 = 3               '任三开奖号码个数
  CpMaxCode = CpData.MaxCode     '最大号码
  CpMinCode = CpData.MinCode     '最小号码
  CpCodeCount = CpData.CodeCount '号码数量

  CpWZCountP3 = CpColCount*(CpColCount-1)/2                 '拆分为任2的总组数
  CpWZCount = CpColCount*(CpColCount-1)*(CpColCount-2)/6    '拆分为任3的总组数
  '分拆位置代码: 0   1   2   3   4   5   6   7   8   9
  '分拆位置:    123 124 125 134 135 145 234 235 245 345

  ReDim WzP3(CpWZCountP3,CpColCountP3)
  ReDim Wz(CpWZCount,CpColCountP3)
  ReDim WzPrint(CpWZCount,CpColCountP3)

  n=0
  For i=0 to CpColCount-2
    For j=i+1 to CpColCount-1
      WzP3(n,0)=i
      WzP3(n,1)=j
      WzP3(n,CpColCountP3)=WzP3(n,CpColCountP3)&(WzP3(n,0)+1)&(WzP3(n,1)+1)
      n=n+1
    Next
  Next

  n=0
  For i=0 to CpColCount-3
    For j=i+1 to CpColCount-2
      For k=j+1 to CpColCount-1
        Wz(n,0)=i
        Wz(n,1)=j
        Wz(n,2)=k
        Wz(n,CpColCountP3)=Wz(n,CpColCountP3)&(Wz(n,0)+1)&(Wz(n,1)+1)&(Wz(n,2)+1)
        n=n+1
      Next
    Next
  Next

  ReDim CpCodeKJ(CpCodeCount)
  CpCodeKJ(1)="①"
  CpCodeKJ(2)="②"
  CpCodeKJ(3)="③"
  CpCodeKJ(4)="④"
  CpCodeKJ(5)="⑤"
  CpCodeKJ(6)="⑥"
  CpCodeKJ(7)="⑦"
  CpCodeKJ(8)="⑧"
  CpCodeKJ(9)="⑨"
  CpCodeKJ(10)="⑩"
  CpCodeKJ(11)="⑾"

  Pub_DispKD=4

  Pub_CpName="体彩"
  Pub_CpZQ=87
  If Left(CpData.Name,2)="四川" Then
     Pub_CpName="四川"
     Pub_CpZQ=65
  End if
  If Left(CpData.Name,2)="山东" Then
     Pub_CpName="山东"
     Pub_CpZQ=87
  End if
  If Left(CpData.Name,2)="广东" Then
     Pub_CpName="广东"
     Pub_CpZQ=84
  End if
  If Left(CpData.Name,2)="江西" Then
     Pub_CpName="江西"
     Pub_CpZQ=84
  End if
  Pub_Record=20       '动静态追号大底默认存盘期数

  Pub_PnDM=87*1
  Pub_CnDM=87*1

  '=================数据预定义=================
  NewDate_OldNum=CpData.Seq(CpRowCount-1) Mod 100
  NewDate_Number=(NewDate_OldNum Mod Pub_CpZQ)+1
  NewDate=CalendarDate(1)
  NewDate_Year=Mid("0000",1,4-Len(Year(NewDate)))&Year(NewDate)
  NewDate_Month=Mid("00",1,2-Len(Month(NewDate)))&Month(NewDate)
  NewDate_Day=Mid("00",1,2-Len(Day(NewDate)))&Day(NewDate)

  Pub_WorkSelect = 5

  If Pub_WorkSelect=3 Then
     Pub_MaxPx=11+10+20+9    '自动大底总数(编号0-Pun_MaxPx)
  End if

  If Pub_WorkSelect=5 Then
     Pub_MaxPx=99+100    '自动大底总数(编号0-Pun_MaxPx)
     Pub_MaxPx_Main=100       '主力自动大底总数(编号0-Pun_MaxPx_Main)
  End if

  If Pub_WorkSelect=4 Then
     Pub_MaxPx=2+4    '自动大底总数(编号0-Pun_MaxPx)
     Pub_WorkSelectQ3=Pub_WorkSelect
     Pub_WorkSelect=Pub_WorkSelect+1
  End if

  If Pub_WorkSelect=2 Then CpNumCode=55
  If Pub_WorkSelect=3 Then CpNumCode=165
  If Pub_WorkSelect=4 Then CpNumCode=330
  If Pub_WorkSelect=5 Then CpNumCode=462
  If Pub_WorkSelect=6 Then CpNumCode=462
  If Pub_WorkSelect=7 Then CpNumCode=330
  If Pub_WorkSelect=8 Then CpNumCode=165

  CpNumCodePn=990
  Pub_MaxPn=0    '直选自动大底总数(编号Pun_MaxPx+1--Pun_MaxPx+Pun_MaxPn)

  Pub_MaxCn=31     '任选5自动大底总数(编号Pun_MaxPx+Pun_MaxPn+1--Pun_MaxPx+Pun_MaxPn+Pub_MaxCn)

  Pub_HxName = Cstr(CpParam.Value("概率模型"))
  Pub_CXWZ_Temp = CInt(CpParam.Value("查询位置"))
  Pub_KJWZ_Temp = CInt(CpParam.Value("开奖位置"))
  if Len(Pub_CXWZ_Temp)<>Len(Pub_KJWZ_Temp) Then
     if Len(Pub_CXWZ_Temp)=3 Then Pub_KJWZ_Temp=123
     if Len(Pub_CXWZ_Temp)=2 Then Pub_KJWZ_Temp=12
  end if

  If Len(Pub_CXWZ_Temp)=3 Then
     For n=0 To CpWZCount-1
       WzPrint(n,CpColCountP3)=WZ(n,CpColCountP3)
     Next
  End if
  If Len(Pub_CXWZ_Temp)=2 Then
     For n=0 To CpWZCount-1
       WzPrint(n,CpColCountP3)=WZP3(n,CpColCountP3)
     Next
  End if

  Pub_KJWZ=0
  if Len(Pub_CXWZ_Temp)=3 Then
     if Pub_CXWZ_Temp=123 Then Pub_CXWZ=0
     if Pub_CXWZ_Temp=124 Then Pub_CXWZ=1
     if Pub_CXWZ_Temp=125 Then Pub_CXWZ=2
     if Pub_CXWZ_Temp=134 Then Pub_CXWZ=3
     if Pub_CXWZ_Temp=135 Then Pub_CXWZ=4
     if Pub_CXWZ_Temp=145 Then Pub_CXWZ=5
     if Pub_CXWZ_Temp=234 Then Pub_CXWZ=6
     if Pub_CXWZ_Temp=235 Then Pub_CXWZ=7
     if Pub_CXWZ_Temp=245 Then Pub_CXWZ=8
     if Pub_CXWZ_Temp=345 Then Pub_CXWZ=9

     if Pub_KJWZ_Temp=123 Then Pub_KJWZ=0
     if Pub_KJWZ_Temp=124 Then Pub_KJWZ=1
     if Pub_KJWZ_Temp=125 Then Pub_KJWZ=2
     if Pub_KJWZ_Temp=134 Then Pub_KJWZ=3
     if Pub_KJWZ_Temp=135 Then Pub_KJWZ=4
     if Pub_KJWZ_Temp=145 Then Pub_KJWZ=5
     if Pub_KJWZ_Temp=234 Then Pub_KJWZ=6
     if Pub_KJWZ_Temp=235 Then Pub_KJWZ=7
     if Pub_KJWZ_Temp=245 Then Pub_KJWZ=8
     if Pub_KJWZ_Temp=345 Then Pub_KJWZ=9
  else
     if Pub_CXWZ_Temp=12 Then Pub_CXWZ=0
     if Pub_CXWZ_Temp=13 Then Pub_CXWZ=1
     if Pub_CXWZ_Temp=14 Then Pub_CXWZ=2
     if Pub_CXWZ_Temp=15 Then Pub_CXWZ=3
     if Pub_CXWZ_Temp=23 Then Pub_CXWZ=4
     if Pub_CXWZ_Temp=24 Then Pub_CXWZ=5
     if Pub_CXWZ_Temp=25 Then Pub_CXWZ=6
     if Pub_CXWZ_Temp=34 Then Pub_CXWZ=7
     if Pub_CXWZ_Temp=35 Then Pub_CXWZ=8
     if Pub_CXWZ_Temp=45 Then Pub_CXWZ=9

     if Pub_KJWZ_Temp=12 Then Pub_KJWZ=0
     if Pub_KJWZ_Temp=13 Then Pub_KJWZ=1
     if Pub_KJWZ_Temp=14 Then Pub_KJWZ=2
     if Pub_KJWZ_Temp=15 Then Pub_KJWZ=3
     if Pub_KJWZ_Temp=23 Then Pub_KJWZ=4
     if Pub_KJWZ_Temp=24 Then Pub_KJWZ=5
     if Pub_KJWZ_Temp=25 Then Pub_KJWZ=6
     if Pub_KJWZ_Temp=34 Then Pub_KJWZ=7
     if Pub_KJWZ_Temp=35 Then Pub_KJWZ=8
     if Pub_KJWZ_Temp=45 Then Pub_KJWZ=9
  end if

  Pub_QS = 1
  Pub_QSGS=Pub_QS

  Pub_SelectDo="否"

  Pub_DmNum = 4
  'if Pub_DmNum<1 or Pub_DmNum>7 Then Pub_DmNum=1

  Pub_DeltaQS = CInt(CpParam.Value("启动延期"))
  if Pub_DeltaQS<0 or Pub_DeltaQS>10 Then Pub_DeltaQS=10

  Pub_DeltaQS_Rebound = CInt(CpParam.Value("反弹延期"))
  if Pub_DeltaQS_Rebound<0 or Pub_DeltaQS_Rebound>10 Then Pub_DeltaQS_Rebound=10

  Pub_DeltaQS153 = CInt(CpParam.Value("启动延期@"))
  if Pub_DeltaQS153<0 or Pub_DeltaQS153>16 Then Pub_DeltaQS153=16

  Pub_DeltaQS153_Rebound = CInt(CpParam.Value("反弹延期@"))
  if Pub_DeltaQS153_Rebound<0 or Pub_DeltaQS153_Rebound>18 Then Pub_DeltaQS153_Rebound=18

  Pub_TimeKey = CInt(CpParam.Value("时间轴"))
  if Pub_TimeKey<>4 and Pub_TimeKey<>10 Then Pub_TimeKey=4

  Pub_TimeKey_YL181=9     '当前时间轴之前最近一次高遗漏中出阀值,缺省9
  Pub_TimeKey_DT181=9     '当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9
  Pub_TimeKey_YLNum181=4  '当前时间轴之前一时段内中奖次数阀值,缺省4
  Pub_TimeKey_YL181A=7    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出阀值,缺省7
  Pub_TimeKey_DT181A=9    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9

  Pub_TimeKey_YL153=10    '当前时间轴之前最近一次高遗漏中出阀值,缺省10
  Pub_TimeKey_DT153=9     '当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9
  Pub_TimeKey_YLNum153=4  '当前时间轴之前一时段内中奖次数阀值,缺省4
  Pub_TimeKey_YL153A=6    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出阀值,缺省8
  Pub_TimeKey_DT153A=9    '(用于中出3次以内的优化)当前时间轴之前最近一次高遗漏中出时,它离当前时间轴的最远距离(期数),缺省9

  Pub_SecondMax = 11
  Pub_CurrentYLRow = 20  '150底全局高反弹>=阀值
  Pub_CurrentYLRow1 =14  '150非主力底全局高反弹=阀值
  Pub_CurrentYLRowA =15  '150主力底全局定值高反弹=阀值
  Pub_CurrentYLRowB =16  '150主力底全局定值高反弹=阀值
  Pub_CurrentYLRowC =17  '150主力底全局定值高反弹=阀值
  Pub_CurrentYLRowD =18  '150主力底全局定值高反弹=阀值

  Pub_CurrentYLRow2 =20  '161系全局高反弹>=阀值
  Pub_CurrentYLRow3 =14  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow4 =15  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow5 =16  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow6 =17  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow7 =18  '161系全局定值高反弹=阀值
  Pub_CurrentYLRow8 =19  '161系全局定值高反弹=阀值

  YLReboundFact0=1.618   '150系主力底高反弹系数
  YLReboundFact1=0.618   '150系普通底高反弹系数
  YLReboundFact2=0.618   '161系高反弹系数

  TJCONT=CInt(CpParam.Value("统计"))   '统计显示运算结果的期数。其决定了参与排序运算的总期数
  If TJCONT<3*Pub_SecondMax Then
     if TJCONT=0 Then
        If NewDate_Number=1 Then
           TJCONT=Pub_CpZQ
        Else
           If NewDate_Number<5*Pub_SecondMax Then
              TJCONT=5*Pub_SecondMax
           Else
              TJCONT=NewDate_Number-1
           End if
        End if
     else
        TJCONT=TJCONT*Pub_CpZQ+NewDate_Number-1
     end if
  End if
  if TJCONT>CpRowCount-Pub_PnDM Then TJCONT=CpRowCount-Pub_PnDM

  Pub_WorkDo = "清存"
  if Left(Pub_WorkDo,2)="验证" Then Pub_Record = CInt(Right(Pub_WorkDo,3))

  Pub_TradeNum=150         '【注数】=150注
  Pub_TradeJJ=900.9
  Pub_TradeTest="投注"
  Pub_TradeKL=1.00         '【返点】
  Pub_TradeStart=17        '【起打】倍数=Pub_TradeStart      (由参数按钮自定义)
  Pub_TradeBL=CDbl(0.25)
  Pub_SSTrade_Start=CDbl(1.00)
  Pub_SSTrade_Start=1000*Pub_SSTrade_Start
  Pub_SSTrade_End=1000*900
  if Pub_SSTrade_End<Pub_SSTrade_Start Then Pub_SSTrade_End=Pub_SSTrade_Start+1000
  Pub_SSTrade_BL=CDbl(0.001)
  Pub_SSTrade_BL=1000*Pub_SSTrade_BL

  '基础倍投表参数定义
  Pub_TradeNum0=Pub_TradeNum              '【注数】=181注
  Pub_TradeStart0=Pub_TradeStart          '【起打】倍数=Pub_TradeStart      (由参数按钮自定义)
  Pub_TradeBL0=Pub_TradeBL                '【收益】率=Pub_TradeBL           (由参数按钮自定义)
  Pub_SSTrade_Start0=Pub_SSTrade_Start    '【起点】控制=Pub_SSTrade_Start   (由参数按钮自定义)
  Pub_SSTrade_BL0=Pub_SSTrade_BL          '【增值】步长=Pub_SSTrade_BL      (由参数按钮自定义)

  '降1期倍投表参数定义
  Pub_TradeNumA=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartA=2                '【起打】倍数=3
  Pub_TradeBLA=CDbl(0.98)          '【收益】率=0.49
  Pub_SSTrade_StartA=CDbl(2000)    '【起点】控制=1元
  Pub_SSTrade_BLA=CDbl(1500)        '【增值】步长=0.001元700

  '降2期倍投表参数定义
  Pub_TradeNumB=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartB=4                '【起打】倍数=5
  Pub_TradeBLB=CDbl(0.98)          '【收益】率=0.49
  Pub_SSTrade_StartB=CDbl(5000)    '【起点】控制=2元
  Pub_SSTrade_BLB=CDbl(2000)       '【增值】步长=0.001元1000

  '降3期倍投表参数定义
  Pub_TradeNumC=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartC=5                '【起打】倍数=7
  Pub_TradeBLC=CDbl(0.52)          '【收益】率=0.49
  Pub_SSTrade_StartC=CDbl(8000)    '【起点】控制=3元
  Pub_SSTrade_BLC=CDbl(2500)       '【增值】步长=0.001元1500

  '降4期倍投表参数定义
  Pub_TradeNumD=Pub_TradeNum       '【注数】=181注
  Pub_TradeStartD=9               '【起打】倍数=11
  Pub_TradeBLD=CDbl(0.52)          '【收益】率=0.49
  Pub_SSTrade_StartD=CDbl(10000)    '【起点】控制=5元
  Pub_SSTrade_BLD=CDbl(3000)       '【增值】步长=0.001元2800


  '161注倍投表参数定义
  Pub_TradeNumK=161                '【注数】=161注
  Pub_TradeStartK=1                '【起打】倍数=1
  Pub_TradeBLK=CDbl(0.49)          '【收益】率=0.49
  Pub_SSTrade_StartK=CDbl(1000)    '【起点】控制=1元
  Pub_SSTrade_BLK=CDbl(1)          '【增值】步长=0.001元

  '121注倍投表参数定义
  Pub_TradeNumL=121                '【注数】=121注
  Pub_TradeStartL=3                '【起打】倍数=3
  Pub_TradeBLL=CDbl(0.25)          '【收益】率=0.25
  Pub_SSTrade_StartL=CDbl(20000)   '【起点】控制=20元
  Pub_SSTrade_BLL=CDbl(1000)       '【增值】步长=1元

  '132注倍投表参数定义
  Pub_TradeNumM=132                '【注数】=132注
  Pub_TradeStartM=1                '【起打】倍数=1
  Pub_TradeBLM=CDbl(0.20)          '【收益】率=0.20
  Pub_SSTrade_StartM=CDbl(20000)   '【起点】控制=20元
  Pub_SSTrade_BLM=CDbl(1000)       '【增值】步长=1元

  '76注倍投表参数定义
  Pub_TradeNumN=76                 '【注数】=76
  Pub_TradeStartN=1                '【起打】倍数=1
  Pub_TradeBLN=CDbl(0.62)          '【收益】率=0.62
  Pub_SSTrade_StartN=CDbl(20000)   '【起点】控制=20元
  Pub_SSTrade_BLN=CDbl(1000)       '【增值】步长=1元


  ReDim Sum(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SortCodes(CpCodeCount)                    '根据sum()排序后的开奖/过滤号码全排序
  ReDim SortSumCount(CpRowCount,CpCodeCount)      '根据sum排序后的各期冷热追踪开奖号码频次

  ReDim SumA(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumB(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumC(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SortCodesA(CpCodeCount)                    '根据sum()排序后的开奖/过滤号码全排序

  ReDim SumSEA(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumSEB(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SumSEC(CpCodeCount)                          '若干组号码组合在Pub_QS期内的出现次数
  ReDim SortCodesB(CpCodeCount)                    '根据sum()排序后的开奖/过滤号码全排序

  ReDim SortCodesQS(10*CpCodeCount,CpRowCount,CpCodeCount)     '根据sum()排序后的开奖/过滤号码全排序
  ReDim SortCodesGS(CpWZCount,CpWZCount,CpRowCount,CpCodeCount)     '根据sum()排序后的开奖/过滤号码全排序
  ReDim SortSumCountQS(10*CpCodeCount,CpRowCount,CpCodeCount)  '根据sum()排序后的开奖/过滤号码频次
  ReDim NewPnCodeQS(10*CpCodeCount,CpRowCount,CpColCount)        '存储过滤后剩余组合排序中奖位置号(直选排列)
  ReDim NewCnCodeQS(10*CpCodeCount,CpRowCount,CpColCount)        '存储过滤后剩余组合排序中奖位置号(组选组合)

  ReDim SortCodesPX(22*CpCodeCount,CpRowCount,CpCodeCount)
  ReDim SortSumCountPX(22*CpCodeCount,CpRowCount,CpCodeCount)
  ReDim NewPnCode(22*CpCodeCount,CpRowCount,CpColCount)
  ReDim NewCnCode(22*CpCodeCount,CpRowCount,CpColCount)

  ReDim Codes(CpColCount)
  ReDim Codestemp(CpColCount)
  ReDim CodesWzDm(CpColCount)
  ReDim CodesCpRowCount(CpColCount)
  ReDim CodesP3(CpColCountP3)
  ReDim CodesZh(CpColCount)

  ReDim ZhCode(CpNumCode,22*CpCodeCount)

  ReDim ZhCodePn(CpNumCodePn,22*CpCodeCount)

  ReDim ZhHzYsCode(CpNumCode)           
  ReDim ZhYsxtCode(CpNumCode,CpColCount)
  ReDim ZhQdxtCode(CpNumCode,CpColCount)
  ReDim ZhDxxtCode(CpNumCode,CpColCount)
  ReDim ZhJoxtCode(CpNumCode,CpColCount)
  ReDim ZhZsxtCode(CpNumCode,CpColCount)

  ReDim ZhYsxtCodeNum(CpNumCode,CpColCount)
  ReDim ZhQdxtCodeNum(CpNumCode,CpColCount)
  ReDim ZhDxxtCodeNum(CpNumCode)           
  ReDim ZhJoxtCodeNum(CpNumCode)           
  ReDim ZhZsxtCodeNum(CpNumCode)           

  ReDim ZhTongCode(CpNumCode)
  ReDim GLCode(22*CpCodeCount,CpNumCode,CpColCount+2)
  ReDim GLCount(22*CpCodeCount)                     
  ReDim GLPnZj(CpRowCount,22*CpCodeCount)           
  ReDim GLCnZj(CpRowCount,22*CpCodeCount)           
  ReDim CpCnZjNum(22*CpCodeCount)                  
  ReDim CpCnZjNumSQ(22*CpCodeCount)                  

  ReDim GLCodePn(22*CpCodeCount,CpNumCodePn,CpColCount+2)
  
  ReDim TongCode(CpRowCount,CpColCount+1)
  ReDim TongCodeP3(CpRowCount,CpColCountP3)
  
  ReDim WzCodeP3(CpWZCountP3,CpRowCount,CpColCountP3)        '拆分为任二后的原始注
  ReDim WzCodeSortP3(CpWZCountP3,CpRowCount,CpColCountP3)    '拆分为任二的原始注进行排序(由小至大)得到的组选任二

  ReDim WzCode(CpWZCount,CpRowCount,CpColCountP3)        '拆分为任三后的原始注
  ReDim WzCodeSort(CpWZCount,CpRowCount,CpColCountP3)    '拆分为任三的原始注进行排序(由小至大)得到的组选任三

  ReDim HzYsCode(CpRowCount)           
  ReDim YsxtCode(CpRowCount,CpColCount)
  ReDim QdxtCode(CpRowCount,CpColCount)
  ReDim DxxtCode(CpRowCount,CpColCount)
  ReDim JoxtCode(CpRowCount,CpColCount)
  ReDim ZsxtCode(CpRowCount,CpColCount)

  ReDim YsxtCodeNum(CpRowCount,CpColCount)
  ReDim QdxtCodeNum(CpRowCount,CpColCount)
  ReDim DxxtCodeNum(CpRowCount)
  ReDim JoxtCodeNum(CpRowCount)
  ReDim ZsxtCodeNum(CpRowCount)

  ReDim CpYLZj(CpCodeCount)
  ReDim YLDM(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLRow(CpRowCount,Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLSecondCount(50,50)
  ReDim YLSecondValue(55)
  ReDim YLSecondMoney1(20)
  ReDim YLSecondMoney2(20)
  ReDim YLSecondMoneyA1(20)
  ReDim YLSecondMoneyA2(20)
  ReDim YLSecondMoneyB1(20)
  ReDim YLSecondMoneyB2(20)
  ReDim YLSecondMoneyC1(20)
  ReDim YLSecondMoneyC2(20)
  ReDim YLSecondMoneyD1(20)
  ReDim YLSecondMoneyD2(20)

  ReDim YLTradeCount(68,10)
  ReDim YLTradeCount2(98,10)
  ReDim YLTradeCountA(68,10)
  ReDim YLTradeCountB(68,10)
  ReDim YLTradeCountC(68,10)
  ReDim YLTradeCountD(68,10)

  ReDim YLFirstValue(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLReboundValue(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn)
  ReDim YLLimitValue(Pub_MaxPx+Pub_MaxPn+Pub_MaxCn,4*CpCodeCount)

  ReDim YLTradeStyle(5,2)  '投注类型底本期胆码与上期开奖号叠码数标识符
  YLTradeStyle(0,0)="■0"
  YLTradeStyle(1,0)="■1"
  YLTradeStyle(2,0)="■2"
  YLTradeStyle(3,0)="□3"
  YLTradeStyle(4,0)="□4"
  YLTradeStyle(5,0)="□5"

  YLTradeStyle(0,1)="◆0"  '反弹类型底本期胆码与上期开奖号叠码数标识符
  YLTradeStyle(1,1)="◆1"
  YLTradeStyle(2,1)="◆2"
  YLTradeStyle(3,1)="◇3"
  YLTradeStyle(4,1)="◇4"
  YLTradeStyle(5,1)="◇5"

  ReDim YLTradeStyle2(50,2)  '投注类型底通道标识符。□=等待投注;■=正在投注
  YLTradeStyle2(0,0)="□"
  YLTradeStyle2(1,0)="□"
  YLTradeStyle2(2,0)="□"
  YLTradeStyle2(3,0)="□"
  YLTradeStyle2(4,0)="□"
  For n=5 To 50
    YLTradeStyle2(n,0)="■"
  Next

  YLTradeStyle2(0,1)="◇"  '反弹类型底通道标识符。◇=等待投注;◆=正在投注
  YLTradeStyle2(1,1)="◇"
  YLTradeStyle2(2,1)="◇"
  YLTradeStyle2(3,1)="◇"
  For n=4 To 50
    YLTradeStyle2(n,1)="◆"
  Next

  ReDim YLTongDaoStyle(5*CpCodeCount)
  YLTongDaoStyle(0)="●"
  YLTongDaoStyle(1)="①"
  YLTongDaoStyle(2)="②"
  YLTongDaoStyle(3)="③"
  For i=4 To 5*CpCodeCount
    YLTongDaoStyle(i)="④"
  Next

  ReDim YLTongDaoBS(5*CpCodeCount,2)
  YLTongDaoBS(0,1)="〖"
  YLTongDaoBS(0,2)="〗"
  For i=1 To 2
    YLTongDaoBS(i,1)="〈"
    YLTongDaoBS(i,2)="〉"
  Next
  YLTongDaoBS(3,1)="《"
  YLTongDaoBS(3,2)="》"
  For i=4 To 5*CpCodeCount
    YLTongDaoBS(i,1)="【"
    YLTongDaoBS(i,2)="】"
  Next

  ReDim YLTongDaoRebound181(5*CpCodeCount)
  YLTongDaoRebound181(0)="〖等待〗"
  YLTongDaoRebound181(1)="〖等待〗"
  YLTongDaoRebound181(2)="〖等待〗"
  YLTongDaoRebound181(3)="〖等待〗"
  YLTongDaoRebound181(4)="〖等待〗"
  YLTongDaoRebound181(5)="〖等待〗"
  YLTongDaoRebound181(6)="〖等待〗"
  YLTongDaoRebound181(7)="〖预备〗"
  YLTongDaoRebound181(8)="【启投1手】"
  For i=9 To 19
    YLTongDaoRebound181(i)="【第"&i-7&"手】"
  Next
  For i=24 To 5*CpCodeCount
    YLTongDaoRebound181(i)="〖止损〗"
  Next

  ReDim YLTongDaoRebound153(5*CpCodeCount)
  YLTongDaoRebound153(0)="〖等待〗"
  YLTongDaoRebound153(1)="〖等待〗"
  YLTongDaoRebound153(2)="〖等待〗"
  YLTongDaoRebound153(3)="〖等待〗"
  YLTongDaoRebound153(4)="〖等待〗"
  YLTongDaoRebound153(5)="〖等待〗"
  YLTongDaoRebound153(6)="〖等待〗"
  YLTongDaoRebound153(7)="〖等待〗"
  YLTongDaoRebound153(8)="〖预备〗"
  YLTongDaoRebound153(9)="【启投1手】"
  For i=10 To 23
    YLTongDaoRebound153(i)="【第"&i-8&"手】"
  Next
  For i=24 To 5*CpCodeCount
    YLTongDaoRebound153(i)="〖止损〗"
  Next

  '==安全极限参数定义(已经21000期测试)==

  '==安全平衡参数定义==
  For mm=0 To Pub_MaxPx
    YLFirstValue(mm)=14+Pub_DeltaQS    '起投阀值最安全值建议14,YL=28
  Next

  If Pub_HxName = "23码跟随" Then
     YLFirstValue(0)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(1)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(2)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(3)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(4)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(5)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20
     YLFirstValue(6)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(7)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(8)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(9)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(10)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(11)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(12)=10+Pub_DeltaQS   '起投阀值最安全值建议5,YL=20(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(13)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(14)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(15)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(16)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(17)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(18)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(19)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(20)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(21)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(22)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(23)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(24)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(25)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(26)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(27)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(28)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(29)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(30)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(31)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(32)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(33)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(34)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(35)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(36)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(37)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(38)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(39)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(40)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(41)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(42)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(43)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(44)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(45)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20
     YLFirstValue(46)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(47)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(48)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(49)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(50)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(51)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(52)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(53)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(54)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(55)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(56)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(57)=10+Pub_DeltaQS   '起投阀值最安全值建议6,YL=20(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(58)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(59)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(60)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(61)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(62)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(63)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(64)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(65)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(66)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(67)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(68)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(69)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(70)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(71)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(72)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(73)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(74)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(75)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(76)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(77)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(78)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(79)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(80)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(81)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(82)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(83)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(84)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(85)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(86)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(87)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(88)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(89)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(90)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(91)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(92)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(93)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(94)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(95)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(96)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(97)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(98)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(99)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22

     YLFirstValue(100)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(101)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(102)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(103)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(104)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(105)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(106)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(107)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)10W期测试通过;
     YLFirstValue(108)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(109)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(110)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(111)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(112)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(113)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(114)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(115)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(116)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(117)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(118)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(119)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过
     YLFirstValue(120)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(121)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(122)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(123)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(124)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(125)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(126)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(127)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(128)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(129)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(130)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21
     YLFirstValue(131)=11+Pub_DeltaQS   '起投阀值最安全值建议4,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(132)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(133)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(134)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(135)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(136)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(137)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(138)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(139)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(140)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(141)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(142)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(143)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(144)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(145)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(146)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(147)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(148)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(149)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(150)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(151)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(152)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(153)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(154)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(155)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(156)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(157)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(158)=11+Pub_DeltaQS   '起投阀值最安全值建议5,YL=21
     YLFirstValue(159)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(160)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(161)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(162)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(163)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(164)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(165)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(166)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(167)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(168)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(169)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(170)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(171)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(172)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(173)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(174)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(175)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(176)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(177)=11+Pub_DeltaQS   '起投阀值最安全值建议6,YL=21(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(178)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(179)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(180)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(181)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(182)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(183)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(184)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(185)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(186)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(187)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(188)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(189)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(190)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(191)=12+Pub_DeltaQS   '起投阀值最安全值建议4,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(192)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(193)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(194)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(195)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(196)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
     YLFirstValue(197)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22(需准备打10-11手时可设该值)21000期测试通过;
     YLFirstValue(198)=12+Pub_DeltaQS   '起投阀值最安全值建议5,YL=22
     YLFirstValue(199)=12+Pub_DeltaQS   '起投阀值最安全值建议6,YL=22
  End if

  For mm=0 To Pub_MaxPx_Main-1
    YLReboundValue(mm)=Int(YLFirstValue(mm)*YLReboundFact0)
  Next

  '定义高反弹遗漏值(前次高遗漏值)
  For mm=Pub_MaxPx_Main To Pub_MaxPx
    YLReboundValue(mm)=(20+Pub_DeltaQS-YLFirstValue(mm))+Int(YLFirstValue(mm)*YLReboundFact1)
  Next

  '定义161系
  For n=1 To Pub_MaxCn
    YLFirstValue(Pub_MaxPx+Pub_MaxPn+n)=15+Pub_DeltaQS153  '起投阀值最安全值建议14-15(需准备打12-15手时可设该值)10W期测试通过;
  Next

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 快速注册

CopyRights © 2007-2016 华通信息Sinocom SARL 版权所有 | 法律顾问: 林亚松 | 会计顾问: 捷顺会计事务所 | 意大利法律顾问: 郑帆律师事务所

QQ|Archiver|手机版|华人街 huarenjie.com

GMT+2, 2024-5-5 11:56 , Processed in 0.023604 second(s), Total 10, Slave 8 queries , Gzip On, MemCache On.

管理COOKIES