软件名称：[B]白K买进，黄K加码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2011-04-26 05:47:34
软件简介:

{白K买进，黄K加码}
INPUT:N(10,1,100);
DRAWGBK(EMA(INDEXL, 10)<REF(EMA(INDEXL, 10),1), COLORRGB(100,100,100),COLORRGB(50,50,50),0);
DRAWGBK(EMA(INDEXL, 10)>=REF(EMA(INDEXL, 10),1),COLORRGB(260,50,260),COLORRGB(100,0,180),1);
fc:=c;fo:=o;cc:0*c,LINETHICK0;oo:0*c,LINETHICK0;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin
if i=1 and fc[i]>fo[i] then
cc[i]:=fc[i];
oo[i]:=fc[i];
if i=1 and fc[i]<fo[i] then
cc[i]:=fc[i];
oo[i]:=fc[i];
if i>1 then
cc[i]:=cc[i-1];
oo[i]:=oo[i-1];
if i>1 and fc[i]>cc[i]*(1+n/100) then begin
cc[i]:=cc[i-1]*(1+n/100);
oo[i]:=cc[i-1];
end;
if i>1 and fc[i]<oo[i]/(1+n/100) then begin
oo[i]:=oo[i-1]/(1+n/100);
cc[i]:=oo[i-1];
end;
if oo[i]=oo[i-1] then
t1[i]:=t1[i-1]+1;
if cc[i]=cc[i-1] then
t2[i]:=t2[i-1]+1;
end;
o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1);
STICKLINE(c1=oo,cc,oo,0,0)COLORbrown;
STICKLINE(o1=cc,cc,oo,0,0)COLORgray;
VAR2:=EMA(CLOSE,5);
VAR3:=EMA(CLOSE,10);
VAR4:=EMA(CLOSE,20);
VAR5:=EMA(CLOSE,30);
VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;
VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
VAR9:=EMA(VAR7,8);
STICKLINE(VAR7<1*REF(VAR7,1),HIGH,LOW,0,0),COLORGREEN;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,8, 0),COLOR006000;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,7, 0),COLOR007500;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,6, 0),COLOR009100;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,5, 0),COLOR00A600;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,4, 0),COLOR00BB00;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,3, 0),COLOR00CC00;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,2, 0),COLORGREEN;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,1, 0),COLORGREEN;
STICKLINE(VAR7>1*REF(VAR7,1),HIGH,LOW,0,0),COLORRED;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,8, 0),COLOR000055;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,7, 0),COLOR000077;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,6, 0),COLOR000099;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,5, 0),COLOR0000DD;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,4, 0),COLOR0000FF;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,3, 0),COLOR0000FF;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,2, 0),COLOR0000FF;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,1, 0),COLOR0000FF;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),HIGH,LOW,0,0),COLORBLUE;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,8, 0),COLORA12100;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,7, 0),COLORB72100;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,6, 0),COLORC32100;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,5, 0),COLORCF2100;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,4, 0),COLORDB2100;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,3, 0),COLORFF5E00;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,2, 0),COLORFF6E00;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,1, 0),COLORFF6E00;
买进价:=((CLOSE-REF(MA(CLOSE,6),1))/6+MA(CLOSE,6))*1.004;
买进条件:=CROSS(CLOSE,买进价) AND 买进价>REF(买进价,1);
STICKLINE(买进条件,HIGH,LOW,0,1),COLORWHITE,LINETHICK2;
STICKLINE(买进条件,OPEN,CLOSE,8,0),COLOR808080;
STICKLINE(买进条件,OPEN,CLOSE,7,0),COLOR919890;
STICKLINE(买进条件,OPEN,CLOSE,6,0),COLORB4B5AF;
STICKLINE(买进条件,OPEN,CLOSE,5,0),COLORCCCCCC;
STICKLINE(买进条件,OPEN,CLOSE,4,0),COLORDDDDDD;
STICKLINE(买进条件,OPEN,CLOSE,3,0),COLOREEEEEE;
STICKLINE(买进条件,OPEN,CLOSE,2,0),COLORF5F1F1;
STICKLINE(买进条件,OPEN,CLOSE,1,0),COLORFFFAFA;
加码价:=((CLOSE-REF(MA(CLOSE,18),1))/18+MA(CLOSE,18))*1.004;
加码条件:=CROSS(CLOSE,加码价) AND 加码价>REF(加码价,1);
STICKLINE(加码条件,HIGH,LOW,0,1),COLORYELLOW,LINETHICK2;
STICKLINE(加码条件,OPEN,CLOSE,8,0),COLOR0033FF;
STICKLINE(加码条件,OPEN,CLOSE,7,0),COLOR00BEFF;
STICKLINE(加码条件,OPEN,CLOSE,6,0),COLOR13BCFF;
STICKLINE(加码条件,OPEN,CLOSE,5,0),COLOR13D1FF;
STICKLINE(加码条件,OPEN,CLOSE,4,0),COLOR00D6FF;
STICKLINE(加码条件,OPEN,CLOSE,3,0),COLOR13E5FF;
STICKLINE(加码条件,OPEN,CLOSE,2,0),COLOR00F6FC;
STICKLINE(加码条件,OPEN,CLOSE,1,0),COLOR00F6FC;
AA:=IF(CLOSE>200,182.60001,1.826);
BB:=IF(CLOSE>200,91.3,0.913);
大下箱:INTPART(CLOSE/AA)*AA,CIRCLEDOT,LINETHICK3,colorFFFF00;
大上箱:大下箱+AA,CIRCLEDOT,LINETHICK3,colorFF;
小下箱:INTPART(CLOSE/BB)*BB,CIRCLEDOT,LINETHICK1,colorFF00FF;
小上箱:小下箱+BB,CIRCLEDOT,LINETHICK1,colorFFFF;
a1:=count(c>0,0);
a2:ma(c,a1),LINETHICK2,colorblue;
区域上限:REF(H,BARSCOUNT(C)-1),COLORRED;
区域下限:REF(L,BARSCOUNT(C)-1),COLORGREEN;
区域中限:(区域上限+区域下限)/2,COLORYELLOW;
JJJ3:EMA(LOW, 30),LINETHICK2;
JJJ1:EMA(LOW, 5),LINETHICK2;
JJJ2:EMA(LOW, 10),LINETHICK2;
 

[url=http://www.70822.com/soft/sort013/sort02/down-33098.html]白K买进，黄K加码[/url]