|
|
我的软件通不过,自己试吧。AO AC 是两组指标。
★混沌操作法--标准公式源码★先发AO,AC(有买卖信号)
{AO}
Var1:=(HIGH+LOW)/2;
AO:MA(Var1,5)-MA(Var1,34),LINETHICK0;
STICKLINE(AO>=REF(AO,1),0,AO,6,1),COLORRED;
STICKLINE(AO<REF(AO,1),0,AO,6,1),COLORGREEN;
AO5:MA(AO,5),COLORFF6600;
PARTLINE(AO5>REF(AO5,1),AO5),COLORMAGENTA,LINETHICK1;
s1:=CROSS(0,AO);
DRAWICON(s1,AO,5);
DRAWTEXT(s1,AO,'S'),ALIGN5,COLORWHITE;
{下穿0信号}
s2:=ao<0 and REF(ao,1)>REF(ao,2) and ao<REF(ao,1);
DRAWICON(s2,AO,5);
DRAWTEXT(s2,AO,'S碟'),ALIGN5,COLORWHITE;
{碟型卖出信号}
scount:=BARSLAST(ao<0);
sd:=HHV(ao,scount);
scountd:=HHVBARS(ao,scount);
s3:=ao>0 and REF(ao,1)>REF(ao,2) and ao<REF(ao,1);
s31:=COUNT(s3,scountd);
DRAWICON(s31>=2 and s3,AO,5),ALIGN0;
DRAWTEXT(s31>=2 and s3,AO,'S峰'),ALIGN5,COLORWHITE;
{双峰卖出信号}
b1:=CROSS(AO,0);
DRAWICON(b1,AO,4),ALIGN0;
DRAWTEXT(b1,AO,'B'),ALIGN4,COLORWHITE;
{上穿0信号}
b2:=ao>0 and REF(ao,1)<REF(ao,2) and ao>REF(ao,1) ;
DRAWICON(b2,AO,4),ALIGN0;
DRAWTEXT(b2,AO,'B碟'),ALIGN4,COLORWHITE;
{碟型买入信号}
bcount:=BARSLAST(ao>0);
bd:=LLV(ao,bcount);
bcountd:=LLVBARS(ao,bcount);
b3:=ao<0 and REF(ao,1)<REF(ao,2) and ao>REF(ao,1);
b31:=COUNT(b3,bcountd);
DRAWICON(b31>=2 and b3,AO,4);
DRAWTEXT(b31>=2 and b3,AO,'B峰'),ALIGN4,COLORWHITE;
{双峰买进信号}
{AC}
AO:=MA((HIGH+LOW)/2,5)-MA((HIGH+LOW)/2,34);
AO5:=MA(AO,5);
AC:AO-AO5,LINETHICK0;
STICKLINE(AC>=REF(AC,1),0,AC,6,1),COLORRED;
STICKLINE(AC< REF(AC,1),0,AC,6,1),COLORGREEN;
AC1:=REF(AC,1);
buy1:=REF(AC,3)<REF(ac1,3) and REF(AC,2)<REF(ac1,2) and REF(AC,2)<REF(AC,3) and REF(AC,1)>REF(ac1,1) and AC>ac1 and COUNT(AC>0,4)=4;
DRAWICON(buy1,AC,4)ALIGN0 ;
DRAWTEXT(buy1,AC, 'B'),align4,COLORWHITE;
buy2:=COUNT(AC<0,4)=4 and REF(AC,3)<REF(ac1,3) and COUNT(AC>ac1,3)=3;
DRAWICON(buy2,AC,4);
DRAWTEXT(buy2,AC, 'B'),align4,COLORWHITE;
buy3:=REF(AC,3)<REF(ac1,3) and REF(AC,2)<REF(ac1,2) and REF(AC,2)<REF(AC,3) and COUNT(AC>ac1,2)=2 and REF(AC,1)<0 and AC>0;
DRAWICON(buy3,AC,4)ALIGN0 ;
DRAWTEXT(buy3,AC, 'B'),align4,COLORWHITE;
buy4:=REF(AC,4)<REF(ac1,4) and REF(AC,3)<REF(ac1,3) and REF(AC,3)<REF(AC,4) and COUNT(AC>ac1,3)=3 and REF(AC,1)<0 and AC>0;
DRAWICON(buy4,AC,4)ALIGN0 ;
DRAWTEXT(buy4,AC, 'B'),align4,COLORWHITE;
s1:=REF(AC,3)>REF(ac1,3) and REF(AC,2)>REF(ac1,2) and REF(AC,2)>REF(AC,3) and REF(AC,1)<REF(ac1,1) and AC<ac1 and COUNT(AC<0,4)=4;
DRAWICON(s1,AC,5);
DRAWTEXT(s1,AC, 'S'),align5,COLORWHITE;
s2:=COUNT(AC>0,4)=4 and REF(AC,3)>REF(ac1,3) and COUNT(AC<ac1,3)=3;
DRAWICON(s2,AC,5)ALIGN0;
DRAWTEXT(s2,AC, 'S'),align5,COLORWHITE;
s3:=REF(AC,3)>REF(ac1,3) and REF(AC,2)>REF(ac1,2) and REF(AC,2)>REF(AC,3) and COUNT(AC<ac1,2)=2 and REF(AC,1)>0 and AC<0;
DRAWICON(s3,AC,5);
DRAWTEXT(s3,AC, 'S'),align5,COLORWHITE;
s4:=REF(AC,4)>REF(ac1,4) and REF(AC,3)>REF(ac1,3) and REF(AC,3)>REF(AC,4) and COUNT(AC<ac1,3)=3 and REF(AC,1)>0 and AC<0;
DRAWICON(s4,AC,5);
DRAWTEXT(s4,AC, 'S'),align5,COLORWHITE;
[ 本帖最后由 xtdh 于 2009-2-10 23:46 编辑 ] |
|
|