【图】高抛低吸(直方图) 源码 原创者

高抛低吸(直方图) 源码                               原创者

DRAWGBK(CLOSE>0, COLORRGB(136,300,200) ,COLORRGB(10,10,10),1);
VERTLINE(HHV(HIGH,5)>=REF(HHV(HIGH,5),1)),POINTDOT,color808080;

{高抛低吸}
{量能}
量:=EMA(100*(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)),3)/4,;
量能:STICKLINE(量>0,量+0.2,-0.25,6.6,0),COLORYELLOW;
生命:EMA(100*(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)),3)/4,COLORYELLOW,linethick0;
PEI:=COUNT(CLOSE>REF(CLOSE,1),2)/7*100;
PEIA:=COUNT((h+l+c)/3>REF((h+l+c)/3,1),4)/5*100;
da:=REF(DATE,BARSLAST( h=hhv(h,89))) ;
db:=REF(DATE,BARSLAST( L=LLv(L,89)));
dc:=IF(MA(C,5)=HHV(MA(C,5),20) AND MA(C,5)>MA(C,10) AND MA(V,5)>MA(V,40)*1.01 AND COUNT(MA(C,1)>REF(C,1),2)=2,90,0);
dd:=EMA(IF(L<= LLV(l,10),SMA(ABS(L-REF(L,1)),10,1)/SMA(MAX(L-REF(l,1),0),10,1),0),3)*2;
lp:=(EMA((((CLOSE - LLV(LOW,38)) / (HHV(HIGH,30) - LLV(LOW,38))) * 4),4) * 25);

{主升浪}
Varu1:=WINNER(CLOSE*0.900)*100;
Varu2:=VOL/CAPITAL*100;
Varu3:=(Varu1-Varu2);
Varu4:=(Varu3<1);
Varu5:=(Varu3>=1 AND Varu3<5);
Varu6:=(Varu3>=5 AND Varu3<10);
Varu7:=(Varu3>=10 AND Varu3<25);
Varu8:=(Varu3>=25);
极弱:STICKLINE(Varu4, -6,-5,4,0),color009900;
弱势:STICKLINE(Varu5, -5.5,-5,4,0),coloryellow;
转势:STICKLINE(Varu6, -4,-5,4,0),colormagenta;
强势:STICKLINE(Varu7, -3.5,-5,4,0),COLORCYAN;
主升:STICKLINE(Varu8, -3,-5,4,0),ColorA40CFE;

Zb:=(CLOSE-LLV(CLOSE,5))/(HHV(CLOSE,5)-LLV(CLOSE,5))*100;
Zb1:=(CLOSE-LLV(CLOSE,10))/(HHV(CLOSE,10)-LLV(CLOSE,10))*100;
Zb2:=(CLOSE-LLV(CLOSE,89))/(HHV(CLOSE,89)-LLV(CLOSE,89))*100;
Zb3:=(CLOSE-LLV(CLOSE,144))/(HHV(CLOSE,144)-LLV(CLOSE,144))*100;
Zb4:=(CLOSE-LLV(CLOSE,26))/(HHV(CLOSE,26)-LLV(CLOSE,26))*100;

mms:=ma(sma((l+h+2*c)/4-ref((l+h+2*c)/4,1),5,1)/sma(abs((l+h+2*c)/4-ref((l+h+2*c)/4,1)),6,1)*100,1)+50;
ww:=mms<20;
g:=if(WW,-12,10);
x:=Zb and g;
A01:=SMA(ABS((LOW - REF(LOW,1))),3,1) / SMA(MAX((LOW - REF(LOW,1)),0),3,1) *100;
A02:=EMA(IF(CLOSE *1.3,A01 *10,A01 /10),3);
A03:=LLV(LOW, 30);
A04:=HHV(A02, 30);
A05:=EMA(IF((LOW <= A03),(A02 + A04*2)/2,0),3) /6180 *2.5;
A06:=IF((A05 >15),15,A05);
Kx:=if(A06>=1.7,-20,0);

w:=if(Zb1<1,-20,0);
Zy:=MA(((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+2*(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100+3*(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100)/6,3);
Zy1:=IF(Zy<-6,-20,0);
a1a:=REF(CLOSE,2);
a2a:=SMA(MAX(CLOSE-a1a,0),7,1)/SMA(ABS(CLOSE-a1a),7,1)*100;
a1p:=REF(CLOSE,2);
a2p:=SMA(MAX(CLOSE-a1p,0),7,1)/SMA(ABS(CLOSE-a1p),7,1)*100;
波段介入点:=IF(a2a<13,19,0);

a3:=sma(max(c-ref(c,1),0),6,1)/sma(abs(c-ref(c,1)),6,1)*100;
a4:=sma(max(c-ref(c,1),0),24,1)/sma(abs(c-ref(c,1)),24,1)*100;

Var1u:=IF(MA(VOL,5)/CAPITAL/(MA(VOL,20)/CAPITAL)>1.618,2,1);
Var2u:=IF(MA(VOL,10)/CAPITAL/(MA(VOL,30)/CAPITAL)>1.618,2,1);
Var3u:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,60)/CAPITAL)>2.618,2,1);
Var4u:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,90)/CAPITAL)>3.191,2,1);
Var5u:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,120)/CAPITAL)>3.618,2,1);
Var6u:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,250)/CAPITAL)>4.382,2,1);
VarCu:=Var1u*Var2u*Var3u*Var4u*Var5u*Var6u;
VarDu:=IF(CLOSE=HHV(CLOSE,10),2,1);
VarEu:=IF(HHV(CLOSE,5)=HHV(CLOSE,20),2,1);
VarFu:=IF(HHV(CLOSE,5)=HHV(CLOSE,40),2,1);
Var10u:=IF(HHV(CLOSE,5)=HHV(CLOSE,60),2,1);
Var11u:=IF(HHV(CLOSE,5)=HHV(CLOSE,120),2,1);
Var12u:=IF(HHV(CLOSE,5)=HHV(CLOSE,250),2,1);
Var13u:=VarDu*VarEu*VarFu*Var10u*Var11u*Var12u;
Var14u:=IF(CLOSE>MA(CLOSE,5),2,1);
Var1Au:=IF(CLOSE>MA(CLOSE,20),2,1);
Var1Bu:=IF(CLOSE>MA(CLOSE,40),2,1);
Var1Cu:=IF(CLOSE>MA(CLOSE,60),2,1);
Var1Du:=IF(CLOSE>MA(CLOSE,120),2,1);
Var1Eu:=IF(CLOSE>MA(CLOSE,250),2,1);
Var15u:=Var14u*Var1Au*Var1Bu*Var1Cu*Var1Du*Var1Eu;
Lp:=IF(VarCu*Var13u*Var15u/100>=10,1,0);

Var1w:=IF(MA(VOL,5)/CAPITAL/(MA(VOL,20)/CAPITAL)>1.618,2,1);
Var2w:=IF(MA(VOL,10)/CAPITAL/(MA(VOL,30)/CAPITAL)>1.618,2,1);
Var3w:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,60)/CAPITAL)>2.618,2,1);
Var4w:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,90)/CAPITAL)>3.191,2,1);
Var5w:=IF(MA(VOL,20)/CAPITAL/(MA(VOL,120)/CAPITAL)>3.618,2,1);
Varas:=Var1w*Var2w*Var3w*Var4w*Var5w;
VarDw:=IF(CLOSE=HHV(CLOSE,10),2,1);
VarEw:=IF(HHV(CLOSE,5)=HHV(CLOSE,20),2,1);
VarFw:=IF(HHV(CLOSE,5)=HHV(CLOSE,40),2,1);
Var10w:=IF(HHV(CLOSE,5)=HHV(CLOSE,60),2,1);
Var11w:=IF(HHV(CLOSE,5)=HHV(CLOSE,120),2,1);
Varad:=VarDw*VarEw*VarFw*Var10w*Var11w;
Var19w:=IF(CLOSE>MA(CLOSE,5),2,1);
Var1Aw:=IF(CLOSE>MA(CLOSE,20),2,1);
Var1Bw:=IF(CLOSE>MA(CLOSE,40),2,1);
Var1Cw:=IF(CLOSE>MA(CLOSE,60),2,1);
Var1Dw:=IF(CLOSE>MA(CLOSE,120),2,1);
Varaf:=Var19w*Var1Aw*Var1Bw*Var1Cw*Var1Dw;
Lp1:=IF(Varas*Varad*Varaf/100>=10,1,0);

VarBq:=AMOUNT/VOL/100;
VarCq:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VarDq:=SUM(AMOUNT,13)/VarBq/100;
VarEq:=DMA(VarCq,VOL/VarDq);
VarFq:=(CLOSE-VarEq)/VarEq*100;
Var1q:=IF(HHV(VarFq,8)<12 AND LLV(VarFq,8)>4,1,0);
Var8q:=IF(HHV(VarFq,7)<12 AND LLV(VarFq,7)>4,1,0);
Var2q:=IF(HHV(VarFq,6)<12 AND LLV(VarFq,6)>4,1,0);
Var3q:=IF(HHV(VarFq,5)<12 AND LLV(VarFq,5)>4,1,0);
Var4q:=IF(HHV(VarFq,4)<12 AND LLV(VarFq,4)>4,1,0);
Var5q:=IF(HHV(VarFq,3)<12 AND LLV(VarFq,3)>4,1,0);
Var6q:=IF(HHV(VarFq,2)<12 AND LLV(VarFq,2)>4,1,0);
Var7q:=IF(VarFq<12 AND VarFq>4,1,0);
Lp2:=IF(Var1q OR Var8q OR Var2q OR Var3q OR Var4q OR Var5q OR Var6q OR Var7q,1,0),colormagenta;

gr1:=BARSLAST(BETWEEN("bias.bias2"(6,13,24),0,5) );
gr2:=ema(c,13)>ema(c,34) and ema(c,34)>ema(c,55)and ema(c,13)>ref(ema(c,13),1);
gr3:=count("bias.bias2"(6,13,24)>10 and h=hhv(h,gr1),gr1);
gr4:=h=hhv(h,gr1);
gr5:="macd.macd"(12,26,9)<ref("macd.macd"(12,26,9),1);
gr6:=gr2 and gr3 and gr4;
gr7:=gr2 and gr3 and gr4 and gr5;
XL:=gr6 and gr7;

{顶部}
顶1:STICKLINE(Zb>99.9,生命,0,6,0),ColorFF77BB;
顶2:STICKLINE( PEI>=28,生命,0,6,0 ),ColorFF77BB;

动力线:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*109;
STICKLINE(CROSS(动力线,70),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,71),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,72),生命,0,6,0),Color8080FF;                     
STICKLINE(CROSS(动力线,73),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,73.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,74),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,74.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,75),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,75.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,76),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,76.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,77),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,77.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,78),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,78.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,79),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,79.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,80),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,81),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,82),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,83),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,84),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,84.5),生命,0,6,0),Color8080FF;                 
STICKLINE(CROSS(动力线,85),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,86),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,87),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,88),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,89),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,90),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,91),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,92),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,93),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,93.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,94),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,95),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,96),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,97),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,98),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,99),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,100),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,100.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,101),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,101.5),生命,0,6,0),Color8080FF;                 
STICKLINE(CROSS(动力线,102),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,102.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,103),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,103.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,104),生命,0,6,0),Color8080FF;                 
STICKLINE(CROSS(动力线,104.2),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,104.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,104.8),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,105),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,105.5),生命,0,6,0),Color8080FF;                 
STICKLINE(CROSS(动力线,106),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,106.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,107),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(动力线,107.5),生命,0,6,0),Color8080FF;                 
STICKLINE(CROSS(动力线,108),生命,0,6,0),Color8080FF;

CC:=CLOSE;XX:=UBOUND(CC);C1:=CC[XX];{取最后价}C2:=CC[XX-1];
GM:=STKNAME;
ST:=STRLEFT(GM,2)='ST' OR STRLEFT(GM,3)='*ST';{确定ST股}
N:=IF(ST,20,110);
昨收:=REF(CC,1);
ZTJ:=昨收*N;
涨停价:=ROUND(ZTJ);
今收:=CLOSE;
今日涨停:=ROUND(C1*100)=ROUND(C2*N);
涨停:=ROUND(今收*100)=涨停价;
STICKLINE(涨停,生命,0,6,0),COLORRED;

{底部}
底1:STICKLINE( dd>=4, 生命,0,6,0 ),Color84C1FF;
底2:STICKLINE( date=db,生命,0,6,0 ),ColorFF9797;
底3:STICKLINE(x<=0,生命,0,6,0),ColorFFFF84;
底4:STICKLINE(Zb2<=0,生命,0,6,0),ColorD5D500;
底5:STICKLINE(波段介入点,生命,0,6,0),Color5BB700;
底6:STICKLINE(IF(Kx and w and Zy1 ,-16,10)<0,生命,0,6,0),Color494925{Color408000};

{买卖点}
{卖点}
g1:=if(-mms>90,0,20);
uo:=((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 and g1;
STICKLINE(uo>0,26,25,5,0),COLORYELLOW;
g2:=IF(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)>=85,1,0);
STICKLINE(Zb1>99.9,26,25,5,0),Color8000ff;
STICKLINE((((XL or a3>=80 or dc>50) and Zb>99.9) or (PEI>=28 and Zb2>99.9)) and g2 and 生命>=22.8,25.8,25.2,3.2,0),Color80FF00;
STICKLINE(Zb>99.9 and 生命>=23,25.8,25.2,3.2,0),Color80FF00;

{买点}
STICKLINE(mms<20,-2.5,-1.5,4,0),COLORYELLOW;
STICKLINE(x<=0,-2.5,-1.5,4,0),ColorFF3399;
STICKLINE(IF(Zb1<1,-16,10)<0,-2.5,-1.5,4,0),colorgreen;
STICKLINE((CLOSE-LLV(CLOSE,26))/(HHV(CLOSE,26)-LLV(CLOSE,26))*100=0,-2.5,-1.5,4,0),COLORCYAN ;
STICKLINE(Zb2*100=0,-2.5,-1.5,4,0),ColorFCA300;

{ZIG点}
DRAWTEXT(((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3))=1),-1.5,'ΦZ'),ALIGN1,COLORCYAN;
DRAWTEXT(((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3))=1),26,'ΦZ'),ALIGN1,colorffcc66;



高位线:STICKLINE(C>0,23,23,5,0),COLORRED;
强势线:STICKLINE(C>0,18,18,5,0),COLORCYAN;
中间线1:STICKLINE(C>0,12.5,12.5,5,0),COLORYELLOW;
超跌线:STICKLINE(C>0,7,7,5,0),Color8080FF;
抄底线:STICKLINE(C>0,2,2,5,0),color00ff00;

[ 本帖最后由 蝶恋花 于 2006-1-18 19:43 编辑 ]股票论坛 www.55188.com