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(\FFL.Vardata(\FFL.Vardata(\FFL.Vardata(\FFL.Vardata(\FFL.Vardata(\FFL.Vardata(\FFL.Vardata(\FFL.Vardata(\%>
FOXWEI:=LING;
FOXBUYSELL:=LING; <%
vbdatanumber3 = FFL.VarData(\ vbbicount=FFL.Vardata(\ vbweibi=FFL.Vardata(\
vbquekou=FFL.VarData(\
vbfennumber=FFL.VarData(\ vbfennumxian=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(\ vbteg=FFL.Vardata(\vbted=FFL.Vardata(\vbtegx=FFL.Vardata(\vbteg1=FFL.Vardata(\vbted1=FFL.Vardata(\
vbtegx1=FFL.Vardata(\ nlast = UBound( vbh ) i=0
for m = 0 to nlast
if (vbxian(m)<>0) then i=i+1
vbfennumxian(m)=i end if next
'vbfennumxian(nlast)=0 x1=0 x2=0 x3=0 x4=0 x5=0 x6=0 x7=0 bi=0 maxbi=0 zhsh=0
'先取三个分型数据,然后进入循环处理 a=0
'Do While (vbxian(a) = 0 and a <= nlast) Do While ( a < nlast) if ( vbxian(a) <> 0) then exit do end if a = a + 1 Loop x1=a a=x1+1
Do While ( a < nlast) if ( vbxian(a) <> 0) then exit do end if a = a + 1 Loop x2=a a=x2+1
Do While ( a < nlast) if ( vbxian(a) <> 0) then exit do end if a = a + 1
Loop x3=a a=x3+1 bi=0
zhshbegin=x1 zzg=0 zzd=0 zgg=0 zdd=0 zg=0 zd=0 gg=0 dd=0
'vbbicount=FFL.Vardata(\ 'vbweibi=FFL.Vardata(\FOR m=a TO nlast
'(1)开始 按照找出不能形成线段(中枢)的连续三笔中的中间那笔是两个线段(中枢)的分界标志
'其它则是不同级别的中枢和线段的思路设计
'在大盘和指数中分笔与1分中1分级别要大一些,在个股中1分要大一些因有的个股1分钟内可能无成交 if (vbxian(m)<>0) then
'(2) begin 只在分型不为0时进行处理,即:是分型时处理 bi=bi+1 x4=m
if (zhshbegin=0) then zhshbegin=x4 end if
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 (zd>zg ) then
'(3)中枢低点大于高点,即未形成中枢,要将x2,x3的位置记录出来 vbwei(x2)=1 vbwei(x3)=2
'还要计算上一个中枢的级别和中枢区间及波动区间,计算中枢的级别根据bi记数器的值,中枢计算完毕后笔记数器bi清零
'bi记数器的值小于等于6时为本级别中枢,值为7或8时可能为本级别两个中枢,大于或等于9时为上一级别的中枢 maxbi=max(maxbi,bi) vbbicount(x2)=bi bi=-1
zhshbegin=0 else
'(3)中枢低点小于等于高点,即形成中枢,不用记录位置 end if
'(3)结束,将x1,x2,x3的值分别换成x2,x3,x4的值,