也即向前推进一个分型,然后再返回进行比较 x1=x2 x2=x3 x3=x4 end if
'(2) 结束 NEXT
'(1)结束找出所有连续三线段无重叠的位置,即不能形成中枢的候选位置,以下要对这些位置进行筛选并逐个分析,看图时要特别注意这些位置 FFL.Vardata(\FFL.Vardata(\
Function max(a, b) If (a >= b) Then max = a Else
max = b End If
End Function
Function min(a, b) If (a <= b) Then min = a
Else min = b End If
End Function
FFL.Vardata(\
FFL.VarData(\FFL.Vardata(\
FFL.VarData(\%>
FOXZHSH:=LING; FOXZHSHG:=LING; FOXZHSHD:=LING; FOXZHSHGG:=LING; FOXZHSHDD:=LING; FOXZHSH5:=LING; FOXZHSHG5:=LING; FOXZHSHD5:=LING; FOXZHSHGG5:=LING; FOXZHSHDD5:=LING; FOXZHSH15:=LING; FOXZHSHG15:=LING; FOXZHSHD15:=LING; FOXZHSHGG15:=LING; FOXZHSHDD15:=LING; FOXZHSH30:=LING; FOXZHSHG30:=LING; FOXZHSHD30:=LING; FOXZHSHGG30:=LING; FOXZHSHDD30:=LING; FOXZHSH60:=LING; FOXZHSHG60:=LING; FOXZHSHD60:=LING; FOXZHSHGG60:=LING; FOXZHSHDD60:=LING; FOXZHSHR:=LING; FOXZHSHGR:=LING; FOXZHSHDR:=LING; FOXZHSHGGR:=LING; FOXZHSHDDR:=LING; FOXZHSHZ:=LING; FOXZHSHGZ:=LING; FOXZHSHDZ:=LING; FOXZHSHGGZ:=LING; FOXZHSHDDZ:=LING;
FOXZHSHY:=LING; FOXZHSHGY:=LING; FOXZHSHDY:=LING; FOXZHSHGGY:=LING; FOXZHSHDDY:=LING; FOXZHSHN:=LING; FOXZHSHGN:=LING; FOXZHSHDN:=LING; FOXZHSHGGN:=LING; FOXZHSHDDN:=LING; FOXZHSHMM:=LING; FOXZHSHMM5:=LING; FOXZHSHMM15:=LING; FOXZHSHMM30:=LING; FOXZHSHMM60:=LING; FOXZHSHMMR:=LING; FOXZHSHMMZ:=LING; FOXZHSHMMY:=LING; FOXZHSHMMN:=LING; FOXYANWEI:=LING;
DATANUMBER4:=DATATYPE; FOXYANBICOUNT:=LING; <%
vbquekou=FFL.VarData(\
vbfennumber=FFL.VarData(\ vbh = FFL.VarData(\ vbL = FFL.VarData(\ vbh1 = FFL.VarData(\ vbL1 = FFL.VarData(\
vbbaohan = FFL.VarData(\ vbbaohan1 = FFL.VarData(\ vbguanxi = FFL.VarData(\ vbfenxing = FFL.VarData(\ vbfenxing1 = FFL.VarData(\ vbbuysell=FFL.VarData(\ vbwei=FFL.Vardata(\vbxian=FFL.Vardata(\vbxiang=FFL.Vardata(\ vbxiand=FFL.Vardata(\ vbzhsh = FFL.VarData(\ vbzhshg = FFL.VarData(\ vbzhshd = FFL.VarData(\ vbzhshgg = FFL.VarData(\ vbzhshdd = FFL.VarData(\
vbzhsh5 = FFL.VarData(\vbzhshg5 = FFL.VarData(\ vbzhshd5 = FFL.VarData(\ vbzhshgg5 = FFL.VarData(\ vbzhshdd5 = FFL.VarData(\ vbzhsh15 = FFL.VarData(\vbzhshg15 = FFL.VarData(\vbzhshd15 = FFL.VarData(\vbzhshgg15 = FFL.VarData(\ vbzhshdd15 = FFL.VarData(\ vbzhsh30 = FFL.VarData(\vbzhshg30 = FFL.VarData(\vbzhshd30 = FFL.VarData(\vbzhshgg30 = FFL.VarData(\vbzhshdd30 = FFL.VarData(\ vbzhsh60 = FFL.VarData(\vbzhshg60 = FFL.VarData(\vbzhshd60 = FFL.VarData(\vbzhshgg60 = FFL.VarData(\ vbzhshdd60 = FFL.VarData(\ vbzhshr = FFL.VarData(\vbzhshgr = FFL.VarData(\ vbzhshdr = FFL.VarData(\ vbzhshggr = FFL.VarData(\ vbzhshddr = FFL.VarData(\ vbzhshz = FFL.VarData(\ vbzhshgz = FFL.VarData(\ vbzhshdz = FFL.VarData(\vbzhshggz = FFL.VarData(\vbzhshddz = FFL.VarData(\vbzhshy = FFL.VarData(\ vbzhshgy = FFL.VarData(\vbzhshdy = FFL.VarData(\vbzhshggy = FFL.VarData(\ vbzhshddy = FFL.VarData(\vbzhshn = FFL.VarData(\ vbzhshgn = FFL.VarData(\ vbzhshdn = FFL.VarData(\ vbzhshggn = FFL.VarData(\ vbzhshddn = FFL.VarData(\ vbzhshmm=FFL.VarData(\ vbzhshmm5=FFL.VarData(\vbzhshmm15=FFL.VarData(\vbzhshmm30=FFL.VarData(\
vbzhshmm60=FFL.VarData(\vbzhshmmr=FFL.VarData(\ vbzhshmmz=FFL.VarData(\ vbzhshmmy=FFL.VarData(\vbzhshmmn=FFL.VarData(\vbyanwei=FFL.Vardata(\maxyanbi=FFL.VarData(\ vbyanbicount=FFL.Vardata(\ nlast = UBound( vbh ) foxbicount=0 x1=0 x2=0 x3=0 x4=0 x5=0 x6=0 x7=0
'先取三个分型数据,然后进入循环处理 a=0
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 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 a=x3+1 bi=0
zhshbegin=x1 zhshxing=0
'是否已形成中枢 zhshhoubi=0
'形成中枢后笔记数器 yanshen=0 '是否延伸 yanshenbi=0 '延伸的笔数 qushi=0 '趋势
zhshend=0 maxbi=0
FOR m=a TO nlast
'(1)开始 中枢级别为:1分,5分,15分,30分,60分,日,周,月,年,分别用vbdatanumber代表即:1,2,3,4,5,6,7,8,9 if (vbxian(m)<>0) then
'(2) begin 只在分型不为0时进行处理,即:是分型时处理 if (zhshxing=1) then zhshhoubi=zhshhoubi+1 end if x4=m
if (zhshbegin=0) then zhshbegin=x1 end if
if (zhshxing=0) then
'(3)开始 没有中枢形成的情况 if (vbxian(x1)>0) then
'以顶分型开始,x1,x3取高点x2,x4取低点,线段及中枢区间取高点中的低者,低点中的高者
zg=min(vbxiang(x1),vbxiang(x3)) zd=max(vbxiand(x2),vbxiand(x4)) gg=max(vbxiang(x1),vbxiang(x3)) dd=min(vbxiand(x2),vbxiand(x4)) else
'以底分型开始,x2,x4取高点x1,x3取低点 zg=min(vbxiang(x2),vbxiang(x4)) zd=max(vbxiand(x1),vbxiand(x3))
gg=max(vbxiang(x2),vbxiang(x4)) dd=min(vbxiand(x1),vbxiand(x3)) end if
if (zg>=zd) then '(4)开始 形成中枢 if (zhshxing=0) then vbzhsh(zhshbegin)=1 vbzhshg(zhshbegin)=zg vbzhshd(zhshbegin)=zd vbzhshgg(zhshbegin)=gg vbzhshdd(zhshbegin)=dd end if
zhshxing=1 zhshend=m else
'(4)else未形成中枢,下移一笔继续返回分析 zhshbegin=x2 x1=x2 x2=x3 x3=x4 end if '(4)结束 else
'(3)else 有中枢形成的情况 'if (zhshhoubi Mod 2 =1) then
'(5)begin中枢后的单数笔要判断中枢否结束,中枢结束的标志是中枢后的单数笔不回到中枢区间内(可能是震荡或趋势),中枢后的单数笔回到中枢区间内则为中枢延伸 '单数笔肯定回到波动区间,但不一定回中枢区间；