Heikin Ashi烛图较日本K线更能显示出趋向，但公开的只有飞狐版的源码，特修改成大智慧能用的，需要的股友拿去！
Ac:=(H+L+C+O)/4;
ao:=ref(ac,1);
qd:=BARSLAST(DISPSTATUS=1)+1;
for i=1 to qd do
ao:=(ref(ao,qd-i+1)+ref(ac,qd-i+1))/2;AH:=max(H,Max(Ao,Ac));
AL:=min(L,min(Ao,Ac));STICKLINE(AC>=AO,AH,AC,1,0),color225588;
STICKLINE(AC>=AO,AH,AC,0,0),color66ccff;
STICKLINE(AC>=AO,AO,AL,1,0),color225588;
STICKLINE(AC>=AO,AO,AL,0,0),color66ccff;STICKLINE(AC>AO,AC,AO,8,0),COLOR225588;
STICKLINE(AC>AO,AC,AO,7,0),COLOR226699;
STICKLINE(AC>AO,AC,AO,6,0),COLOR3377aa;
STICKLINE(AC>AO,AC,AO,5,0),COLOR3388bb;
STICKLINE(AC>AO,AC,AO,4,0),COLOR4499cc;
STICKLINE(AC>AO,AC,AO,3,0),COLOR44aadd;
STICKLINE(AC>AO,AC,AO,2,0),COLOR55bbee;
STICKLINE(AC>AO,AC,AO,1,0),COLOR66ccff;STICKLINE(AC<=AO,AH,AC,1,0),color888800;
STICKLINE(AC<=AO,AH,AC,0,0),colorffff00;
STICKLINE(AC<=AO,AO,AL,1,0),color888800;
STICKLINE(AC<=AO,AO,AL,0,0),colorffff00;STICKLINE(AC<=AO,AC,AO,8,0),COLOR888800;
STICKLINE(AC<=AO,AC,AO,7,0),COLOR999900;
STICKLINE(AC<=AO,AC,AO,6,0),COLORaaaa00;
STICKLINE(AC<=AO,AC,AO,5,0),COLORbbbb00;
STICKLINE(AC<=AO,AC,AO,4,0),COLORcccc00;
STICKLINE(AC<=AO,AC,AO,3,0),COLORdddd00;
STICKLINE(AC<=AO,AC,AO,2,0),COLOReeee00;
STICKLINE(AC<=AO,AC,AO,1,0),COLORffff00; |
