不回中枢区间则要看下面走势的发展若其后走势不回到波动区间则构成趋势,若其后走势回到波动区间是中枢振荡 ',回中枢区间也是振荡.新中枢自当下M的分型开始,原中枢自zhshend(上一个M)处结束.此处与教材不同,比教材要早确认一个分型 if (vbxian(m)>0) then
'(6)顶分型,要比较三种情况即:vbxiang(m)是否大于等于GG,ZG,ZD,大于等于ZD为延伸,大于等于ZG,大于等于GG,若下一个(即:zhshhoubi Mod 2 =0)底回到中枢(即:vbxiand(m)<=ZG)则为延伸否则为三卖 if (vbxiang(m)>=zd) then
'(7) begin中枢后的单数笔回到中枢区间内则为中枢延伸,要记录下来, vbxiang(m)肯定于大于等于dd,因是相邻伐肯定要大于底,在计算笔时已有保证,要计算延伸中枢四个数据 yanshen=1
yanshenbi=yanshenbi+1
maxyanbi=max(maxyanbi,yanshenbi) vbyanwei(m)=m
vbyanbicount(m)=yanshenbi
if (yanshenbi<6) then zhshend=m else
'延伸超过6笔构成级别扩展,上一级别中枢结束,新的本级别中枢开始 vbzhsh(zhshend)=2 vbzhshg(zhshend)=zg vbzhshd(zhshend)=zd vbzhshgg(zhshend)=gg vbzhshdd(zhshend)=dd vbzhsh(zhshbegin)=1 vbzhshg(zhshbegin)=zg vbzhshd(zhshbegin)=zd vbzhshgg(zhshbegin)=gg vbzhshdd(zhshbegin)=dd yanshen=0 yanshenbi=0 zhshxing=0 vbzhsh5(m)=2
vbzhsh5(zhshbegin)=1 a=m+1
if (a <= nlast) then
Do While ( vbxian(a) = 0 and a <= nlast) a = a + 1
if (a = nlast) then exit do end if Loop end if x1=a
zhshbegin=x1 a=x1+1
if (a <= nlast) then
Do While ( vbxian(a) = 0 and a <= nlast) a = a + 1
if (a = nlast) then exit do end if Loop end if x2=a a=x2+1
if (a <= nlast) then
Do While ( vbxian(a) = 0 and a <= nlast) a = a + 1
if (a = nlast) then exit do end if Loop end if x3=a m=x3+1 zhshhoubi=0
end if else
'(7) else 单数笔不回到中枢区间内,形成第三类卖点,应标记出来,同时老中枢结束新中枢开始,老中枢在zhshend处结束新中枢在当下m处理开始,形成中枢振荡 yanshen=0 yanshenbi=0
vbzhshmm(m)=-1
'-1为卖与分型数正好相反 ,1为买,将中枢结束信息记录到zhsheng位置 ,再取两个分型进行比较,因第一个分型即是m所以x1的值的为m,x1不用计算只取x2和x3 zhshxing=0
vbzhsh(zhshend)=2 vbzhshg(zhshend)=zg vbzhshd(zhshend)=zd vbzhshgg(zhshend)=gg vbzhshdd(zhshend)=dd vbzhsh(zhshbegin)=1 vbzhshg(zhshbegin)=zg vbzhshd(zhshbegin)=zd vbzhshgg(zhshbegin)=gg vbzhshdd(zhshbegin)=dd if (yanshenbi>=6) then
'(12)begin 延伸超过6笔构成级别扩展,计算上一级别(5分)中枢的中枢区间及波动区间,ygg,yzg,yzd,ydd已经计算 vbzhsh5(zhshbegin)=1 vbzhsh5(m)=2 end if '(12)结束
zhshbegin=m x1=m a=x1+1
if (a <= nlast) then
Do While ( vbxian(a) = 0 and a <= nlast) a = a + 1
if (a = nlast) then exit do
end if Loop end if x2=a a=x2+1
if (a <= nlast) then
Do While ( vbxian(a) = 0 and a <= nlast) a = a + 1
if (a = nlast) then exit do end if Loop end if x3=a m=x3+1 zhshhoubi=0 end if '(7)结束 else
'(6) else底分型,要比较三种情况即:vbxiand(m)是否小于等于ZG,ZD,DD,小于等于ZG为延伸,小于等于ZG,小于等于DD,若下一个(即:zhshhoubi Mod 2 =0)顶回到中枢(即:vbxiang(m)>=ZD)则为延伸否则为三买 if (vbxiand(m)<=zg) then
'(8) begin中枢后的单数笔回到中枢区间内则为中枢延伸,要记录下来, vbxiand(m)肯定于小于等于gg,因是相邻伐肯定要大于底,在计算笔时已有保证 yanshen=1
yanshenbi=yanshenbi+1
maxyanbi=max(maxyanbi,yanshenbi) vbyanwei(m)=m
vbyanbicount(m)=yanshenbi if (yanshenbi<6) then zhshend=m else
'延伸超过6笔构成级别扩展,上一级别中枢结束