高拋低吸(直方圖) 源碼 原創(chuàng)者
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;
弱勢(shì):STICKLINE(Varu5, -5.5,-5,4,0),coloryellow;
轉(zhuǎn)勢(shì):STICKLINE(Varu6, -4,-5,4,0),colormagenta;
強(qiáng)勢(shì):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;
波段介入點(diǎn):=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;
動(dòng)力線:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*109;
STICKLINE(CROSS(動(dòng)力線,70),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,71),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,72),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,73),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,73.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,74),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,74.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,75),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,75.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,76),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,76.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,77),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,77.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,78),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,78.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,79),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,79.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,80),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,81),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,82),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,83),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,84),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,84.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,85),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,86),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,87),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,88),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,89),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,90),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,91),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,92),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,93),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,93.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,94),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,95),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,96),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,97),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,98),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,99),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,100),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,100.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,101),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,101.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,102),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,102.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,103),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,103.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,104),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,104.2),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,104.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,104.8),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,105),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,105.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,106),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,106.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,107),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,107.5),生命,0,6,0),Color8080FF;
STICKLINE(CROSS(動(dòng)力線,108),生命,0,6,0),Color8080FF;
CC:=CLOSE;XX:=UBOUND(CC);C1:=CC[XX];{取最后價(jià)}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;
漲停價(jià):=ROUND(ZTJ);
今收:=CLOSE;
今日漲停:=ROUND(C1*100)=ROUND(C2*N);
漲停:=ROUND(今收*100)=漲停價(jià);
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(波段介入點(diǎn),生命,0,6,0),Color5BB700;
底6:STICKLINE(IF(Kx and w and Zy1 ,-16,10)<0,生命,0,6,0),Color494925{Color408000};
{買賣點(diǎn)}
{賣點(diǎn)}
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;
{買點(diǎn)}
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點(diǎn)}
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;
強(qiáng)勢(shì)線: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
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
