怎么看待黑马王子的《量柱擒涨停》?

ablya

本月为今年的第几个季度:=INTPART((MONTH+2)/3);

ablya

{变色MACD加数字}
MACDA:IF(MACD>REF(MACD,1),MACD,0),STICK,COLORRED;
MACDB:IF(MACD<REF(MACD,1),MACD,0),STICK,COLORCYAN;

DRAWNUMBER(DIF>DEA,MACD,BARSLAST(CROSS(DIF,DEA))+1),COLORRED,DRAWABOVE;
DRAWNUMBER(DIF<DEA,MACD,BARSLAST(CROSS(DEA,DIF))+1),COLORCYAN;
0,COLORWHITE,DOTLINE;

ablya

星期几:=VARCAT(' 星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',''))))));
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT_FIX(ISLASTBAR,0.78,1,0,日期),COLORMAGENTA;
{主图右下角显示日期}

ablya

{月涨停统计}
V1:=IF(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('SST'),(C>=ZTPRICE(REF(CLOSE,1),0.05) AND C=H),IF((CODELIKE('688') OR (CODELIKE('300') AND DATE>=1200824)),(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H)));
V2:=IF(REF(MONTH=12,1),MONTH<REF(MONTH,1),MONTH>REF(MONTH,1));
V3:=BARSLAST(V2);
V0:=COUNT(V1,V3+1);

近一年:COUNT(ZT,250),NODRAW;
今年:COUNT(V1,BARSLAST(V=V#YEAR)+1),NODRAW;

１:V0;
２:REF(V0,SUMBARS(V2,1));
３:REF(V0,SUMBARS(V2,2));
４:REF(V0,SUMBARS(V2,3));
５:REF(V0,SUMBARS(V2,4));
６:REF(V0,SUMBARS(V2,5));
７:REF(V0,SUMBARS(V2,6));
８:REF(V0,SUMBARS(V2,7));
９:REF(V0,SUMBARS(V2,8));
１０:REF(V0,SUMBARS(V2,9));
１１:REF(V0,SUMBARS(V2,10));
１２:REF(V0,SUMBARS(V2,11));
１３:REF(V0,SUMBARS(V2,12));
１４:REF(V0,SUMBARS(V2,13));
１５:REF(V0,SUMBARS(V2,14));
细分行业RAWTEXT(1,0,HYBLOCK);

ablya

{连续12季盈利}
VAR1:=FINVALUE(95);Q:=INTPART((MONTH+2)/3);
VAR2:=Q=1 OR Q=2 OR Q=3 OR Q=4;
VAR3:=SUMBARS(VAR2,Q+7);
季度盈利:COUNT(VAR1>0,VAR3)>=VAR3;
DIF:=EMA(C,12)-EMA(C,26);DEA:=EMA(DIF,9);
转折次数:COUNT((DIF>REF(DIF,1))<>(REF(DIF,1)>REF(DIF,2)),BARSLASTCOUNT(DIF<DEA));
VA3:=CROSS(DIF,DEA);VA4:=BARSLASTCOUNT(DIF<DEA);VA5:=REF(VA4,BARSLAST(VA3)+1);
前死叉:IF(DIF>DEA,-VA5,DRAWNULL);
DIF1:=HHV(DIF,0);DIF2:=ABS(LLV(DIF,0));DIF3:=MAX(DIF1,DIF2);
DEA1:=HHV(DEA,0);DEA2:=ABS(LLV(DEA,0));DEA3:=MAX(DEA1,DEA2);
ZDZ:=MAX(DIF3,DEA3);
MACDA:=100-(ZDZ-DIF)/ZDZ*100;MACDB:=100+(DIF-ZDZ)/ZDZ*100;
MACDC:=100-(ZDZ-DEA)/ZDZ*100;MACDD:=100+(DEA-ZDZ)/ZDZ*100;
DIF离0轴距离:IF(DIF>0,MACDA,MACDB);DIF距离:=IF(DIF>0,MACDA,ABS(MACDB));
DEA离0轴距离:IF(DEA>0,MACDC,MACDD);DEA距离:=IF(DEA>0,MACDC,ABS(MACDD));
斜1率:IF(C<20 AND 季度盈利=1,ATAN(DIF-REF(DIF,1))*100,DRAWNULL);
MACD数:IF(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1,IF(DEA>DIF,-(BARSLAST(CROSS(DEA,DIF))+1),DRAWNULL));
年线1走平:STD(MA(C,250),123);
乘积:IF(斜1率>0 AND ISVALID(斜1率) AND NOT(DIF>0 AND DEA<0),DIF距离*DEA距离*年线1走平,DRAWNULL);
年线距离:=ABS(C/MA(C,250)-1);
筹码集中: (COST(95)-COST(5))/HHV(H,0)*100;
选股:IF(MACD数=1,-(乘积*年线距离*筹码集中),乘积*年线距离*筹码集中);

ablya

{连续12季盈利}
VAR1:=FINVALUE(95);Q:=INTPART((MONTH+2)/3);
VAR2:=Q=1 OR Q=2 OR Q=3 OR Q=4;
VAR3:=SUMBARS(VAR2,Q+7);
季度盈利:COUNT(VAR1>0,VAR3)>=VAR3;
DIF:=EMA(C,12)-EMA(C,26);DEA:=EMA(DIF,9);
转折次数:COUNT((DIF>REF(DIF,1))<>(REF(DIF,1)>REF(DIF,2)),BARSLASTCOUNT(DIF<DEA));
VA3:=CROSS(DIF,DEA);VA4:=BARSLASTCOUNT(DIF<DEA);VA5:=REF(VA4,BARSLAST(VA3)+1);
前死叉:IF(DIF>DEA,-VA5,DRAWNULL);
DIF1:=HHV(DIF,0);DIF2:=ABS(LLV(DIF,0));DIF3:=MAX(DIF1,DIF2);
DEA1:=HHV(DEA,0);DEA2:=ABS(LLV(DEA,0));DEA3:=MAX(DEA1,DEA2);
ZDZ:=MAX(DIF3,DEA3);
MACDA:=100-(ZDZ-DIF)/ZDZ*100;MACDB:=100+(DIF-ZDZ)/ZDZ*100;
MACDC:=100-(ZDZ-DEA)/ZDZ*100;MACDD:=100+(DEA-ZDZ)/ZDZ*100;
DIF离0轴距离:IF(DIF>0,MACDA,MACDB);DIF距离:=IF(DIF>0,MACDA,ABS(MACDB));
DEA离0轴距离:IF(DEA>0,MACDC,MACDD);DEA距离:=IF(DEA>0,MACDC,ABS(MACDD));
斜1率:IF(C<20 AND 季度盈利=1,ATAN(DIF-REF(DIF,1))*100,DRAWNULL);
MACD数:IF(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1,IF(DEA>DIF,-(BARSLAST(CROSS(DEA,DIF))+1),DRAWNULL));
年线1走平:STD(MA(C,250),123);
乘积:IF(斜1率>0 AND ISVALID(斜1率) AND NOT(DIF>0 AND DEA<0),DIF距离*DEA距离*年线1走平,DRAWNULL);
年线距离:=ABS(C/MA(C,250)-1);
筹码集中: (COST(95)-COST(5))/HHV(H,0)*100;
选股:IF(MACD数=1,-(乘积*年线距离*筹码集中),乘积*年线距离*筹码集中);
年线角度:ATAN((MA(C,250)/REF(MA(C,250),1)-1)*100)*180/3.1416;

ablya

{MACD交易系统}
{每一个|死叉|红色MACD最高柱的最低价|绿色MACD最高柱的最高价|向右划线并在线末端标上最低价100元}
{简介:=STRCAT('简介：',EXTERNSTR(1,10010));DRAWTEXT_FIX(1,0,0,0,简介),COLORGREEN;}
VARY1:=EMA(C,12)-EMA(C,26);
VARY2:=EMA(VARY1,9);
VARY3:=2*(VARY1-VARY2);
VARY4:=CROSS(VARY1,VARY2);
VARY5:=CROSS(VARY2,VARY1);
VARY6:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARY7:=CROSS(BACKSET(VARY5 OR (ISLASTBAR AND VARY1>VARY2),VARY6+1),0.1);
VARY8:=BARSLAST(VARY7);
VARY9:=REF(L,VARY8);
DRAWSL(1,VARY9,0,1,0),COLORRED;{STICKLINE(1,VARY9,VARY9,2,1),COLORRED;}
DRAWTEXT(REFX(VARY7,1) OR (ISLASTBAR AND REF(VARY1>VARY2,VARY8)),VARY9,VAR2STR(VARY9,2)),COLORRED,DRAWABOVE;
VARY10:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARY11:=CROSS(BACKSET(VARY4 OR (ISLASTBAR AND VARY1<VARY2),VARY10+1),0.1);
VARY12:=BARSLAST(VARY11);
VARY13:=REF(H,VARY12);
DRAWSL(1,VARY13,0,1,0),COLORCYAN;
DRAWTEXT(REFX(VARY11,1) OR (ISLASTBAR AND REF(VARY1<VARY2,VARY12)),VARY13,VAR2STR(VARY13,2)),COLORCYAN,DRAWABOVE;
SXRAWLINE(VARY5,H,REF(VARY5,1),REF(H,1),1),COLORYELLOW,DOTLINE;
JG1:=REF(H,BARSLAST(VARY5));
DRAWNUMBER(CURRBARSCOUNT=1 OR (SX!=DRAWNULL AND REFX(SX=DRAWNULL,1)),JG1,JG1),COLORYELLOW,DRAWABOVE;
JXRAWLINE(VARY4,L,REF(VARY4,1),REF(L,1),1),COLORMAGENTA,DOTLINE;
JG2:=REF(L,BARSLAST(VARY4));
DRAWNUMBER(CURRBARSCOUNT=1 OR (JX!=DRAWNULL AND REFX(JX=DRAWNULL,1)),JG2,JG2),COLORMAGENTA,DRAWABOVE;
{每一次MACD最大绿柱到最大红柱之间的涨跌幅，分别在最大红绿住最高价最低处标注}
VARI6:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARI7:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARI8:=CROSS(BACKSET(VARY5,VARI7+1) AND VARY1>VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1>VARY2,VARI7+1),0.1);
VARI9:=REF(L,VARI6);
VARI10:=(H-VARI9)/VARI9*100;
VARI11:=CROSS(BACKSET(VARY4,VARI6+1) AND VARY1<VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1<VARY2,VARI6+1),0.1);
VARI12:=REF(H,VARI7);
VARI13:=(L/VARI12-1)*100;
DRAWTEXT(VARI8,H,VARCAT(VAR2STR(VARI10,2),'%')),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VARI11,L*0.99,VARCAT(VAR2STR(VARI13,2),'%')),COLORGREEN;
{ZLRAWTEXT(ISLASTBAR,H,VARCAT(VAR2STR((H-VARI9)/VARI9*100,2),'%')),NODRAW,COLORGREEN;}
涨幅H-VARI9)/VARI9*100,NODRAW,COLORMAGENTA;
{黄金柱}
SPJ:=C<=REFX(C,1) AND C<=REFX(C,2) AND C<=REFX(C,3);
CJL:=V>=REFX(V,1) AND V>=REFX(V,2) AND V>=REFX(V,3);
ZDJ:=O<=REFX(L,1) AND O<=REFX(L,2) AND O<=REFX(L,3);
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,0.1,0),COLORRED;
{画涨停跌停K线}
DT:=IF(NAMEINCLUDE('ST'),(C<=DTPRICE(REF(CLOSE,1),0.05) AND C=L),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C<=DTPRICE(REF(CLOSE,1),0.2) AND C=L),(C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L)));
ZT:=IF(NAMEINCLUDE('ST'),(C>=ZTPRICE(REF(CLOSE,1),0.05) AND C=H),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H)));
STICKLINE(ZT,C,O,-1,0),COLORRED;
STICKLINE(DT,C,O,-1,0),COLORGREEN;
个数:VARY12+1,COLORGREEN,NODRAW;
{涨停价一半划线}
VAR1:=(STR2CON(CODE)>=300000 AND STR2CON(CODE)<=302999 AND DATE>=1200824);
VAR2:=VAR1 OR (STR2CON(CODE)>=688000 AND STR2CON(CODE)<=689999);
VAR3:=(STR2CON(CODE)>=430000 AND STR2CON(CODE)<=439999) OR
(STR2CON(CODE)>=830000 AND STR2CON(CODE)<=879999) OR
(STR2CON(CODE)>=920000 AND STR2CON(CODE)<=929999);
VAR4:=IF(VAR3,ZTPRICE(REF(C,1),0.3),IF(VAR2,ZTPRICE(REF(C,1),0.2),ZTPRICE(REF(C,1),0.1)));
VAR5:=C>=VAR4 AND C=H;
VAR6:=BARSLAST(VAR5);
VAR7:=IF(O>REF(C,1),(REF(C,1)+C)/2,(O+C)/2);
DRAWSL(1,REF(VAR7,VAR6),0,1,0),COLORYELLOW;
DRAWTEXT(REFX(VAR5,1) OR ISLASTBAR,REF(VAR7,VAR6),VAR2STR(REF(VAR7,VAR6),2)),COLORYELLOW,DRAWABOVE;



DRAWSL(DATE<>REF(DATE,1) AND PERIOD=1,REF(C,1),0,48,0),COLORWHITE;
NOTEXTJ:=IF(DAYSTOTODAY=1,REF(C,BARSLAST(DAY!=REF(DAY,1))+1),DRAWNULL);
DRAWTEXT(ISLASTBAR,NOTEXTJ,VAR2STR(NOTEXTJ,2)),COLORYELLOW,DRAWABOVE;

ablya

{每次MACD金叉死叉之间的柱子数}
JX:=CROSS(DIF,DEA);
VER1:=IF(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1,IF(DEA>DIF,-(BARSLAST(CROSS(DEA,DIF))+1),DRAWNULL));
一:REF(VER1,BARSLAST(JX)+1),NODRAW;
二:REF(VER1,SUMBARS(JX,2)),NODRAW;
三:REF(VER1,SUMBARS(JX,3)),NODRAW;

ablya

{分钟周期K线主图显示分时均价线}
B:=CURRBARSCOUNT;
B1:=DAY<>REF(DAY,1);
B2:=BARSLAST(B1)+1;
B3:=MA(C,B2);
B4:=SUM(AMO,B2)/SUM(VOL,B2)/100;
B5:=IF(CAPITAL>0,B4,B3);
均价1:=IF(B<=CONST(B2) AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B5,DRAWNULL),COLORYELLOW,LINETHICK2;
均价:IF(B<=48 AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B4,DRAWNULL),COLORYELLOW,LINETHICK2;

ablya

{MACD零轴上几次金叉死叉}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:= (DIF-DEA)*2;
MACDXGTJ:=PC
AND COUNT(MACD>0,3)>=1 AND COUNT(MACD>0,3)<=3
AND COUNT(MACD<0,3)>=1 AND 前死金叉<= -15
AND MACD>0 AND DIF>DEA AND LLV(MACD,25)=LLV(MACD,90)
AND COUNT(CROSS(DEA,DIF),25)=1 AND COUNT(CROSS(DIF,DEA),3)=1;
VBR4:=CROSS(DIF,DEA);
VBR5:=CROSS(DEA,DIF);
MACD选:IF(MACDXGTJ,离0轴距离,DRAWNULL);
零上N次金叉:IF(VAR1>=0,COUNT(VBR4 AND VAR1>=0,BARSLAST(CROSS(VAR1,0))),DRAWNULL);
零上N次死叉:IF(VAR1>=0,COUNT(VBR5 AND VAR1>=0,BARSLAST(CROSS(VAR1,0))),DRAWNULL);

ablya

{DIF曲线转折次数MACD金叉前死叉后天数}
DIF:=EMA(C,12)-EMA(C,26);DEA:=EMA(DIF,9);
转折次数:COUNT((DIF>REF(DIF,1))<>(REF(DIF,1)>REF(DIF,2)),BARSLASTCOUNT(DIF<DEA));

VA3:=CROSS(DIF,DEA);VA4:=BARSLASTCOUNT(DIF<DEA);VA5:=REF(VA4,BARSLAST(VA3)+1);
前死叉:IF(DIF>DEA,-VA5,DRAWNULL);

ablya

{连续12季盈利}
VAR1:=FINVALUE(95);Q:=INTPART((MONTH+2)/3);
VAR2:=Q=1 OR Q=2 OR Q=3 OR Q=4;
VAR3:=SUMBARS(VAR2,Q+7);
季度盈利:=EVERY(VAR1>0,VAR3);
DIF:=EMA(C,12)-EMA(C,26);DEA:=EMA(DIF,9);
DIF1:=HHV(DIF,0);DIF2:=ABS(LLV(DIF,0));DIF3:=MAX(DIF1,DIF2);
DEA1:=HHV(DEA,0);DEA2:=ABS(LLV(DEA,0));DEA3:=MAX(DEA1,DEA2);
ZDZ:=MAX(DIF3,DEA3);
MACDA:=100-(ZDZ-DIF)/ZDZ*100;MACDB:=100+(DIF-ZDZ)/ZDZ*100;
MACDC:=100-(ZDZ-DEA)/ZDZ*100;MACDD:=100+(DEA-ZDZ)/ZDZ*100;
DIF离0轴距离:IF(DIF>0,MACDA,MACDB);DIF距离:=IF(DIF>0,MACDA,ABS(MACDB));
DEA离0轴距离:IF(DEA>0,MACDC,MACDD);DEA距离:=IF(DEA>0,MACDC,ABS(MACDD));
斜1率:IF(C<20 AND 季度盈利=1,ATAN(DIF-REF(DIF,1))*100,DRAWNULL);
MACD数:IF(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1,IF(DEA>DIF,-(BARSLAST(CROSS(DEA,DIF))+1),DRAWNULL));
年线距离:=ABS(C/MA(C,250)-1);
年线1走平:=STD(MA(C,250),123);
差:=ABS(DIF-DEA)*100;
将金叉:IF(DIF<DEA AND 斜1率>0 AND ISVALID(斜1率),DIF距离*DEA距离*差,DRAWNULL);
排序:IF(将金叉<100 AND ISVALID(将金叉) AND C>=MA(C,55) AND MACD数<= -7,斜1率*(100-将金叉),DRAWNULL);

ablya

{ENE轨道线}
UPPER:IF(PERIOD=5,MA(C,10)*(1+9/100),DRAWNULL);
LOWER:IF(PERIOD=5,MA(C,10)*(1-11/100),DRAWNULL);
ENE:IF(PERIOD=5,(UPPER+LOWER)/2,DRAWNULL);

ablya

{解决了20年MACD困惑}
DIF:=EMA(C,12)-EMA(C,26);DEA:=EMA(DIF,9);
DIF1:=HHV(DIF,0);DIF2:=ABS(LLV(DIF,0));DIF3:=MAX(DIF1,DIF2);
DEA1:=HHV(DEA,0);DEA2:=ABS(LLV(DEA,0));DEA3:=MAX(DEA1,DEA2);
ZDZ:=MAX(DIF3,DEA3);
MACDA:=100-(ZDZ-DIF)/ZDZ*100;MACDB:=100+(DIF-ZDZ)/ZDZ*100;
MACDC:=100-(ZDZ-DEA)/ZDZ*100;MACDD:=100+(DEA-ZDZ)/ZDZ*100;
DIF离0轴距离:IF(DIF>0,MACDA,MACDB);DIF距离:=IF(DIF>0,MACDA,ABS(MACDB));
DEA离0轴距离:IF(DEA>0,MACDC,MACDD);DEA距离:=IF(DEA>0,MACDC,ABS(MACDD));
斜1率:IF(C<20 AND 季度盈利=1,ATAN(DIF-REF(DIF,1))*100,DRAWNULL);

ablya

{K线图显示分时均价线}
B:=CURRBARSCOUNT;
B1:=DAY<>REF(DAY,1);
B2:=BARSLAST(B1)+1;
B3:=MA(C,B2);
B4:=SUM(AMO,B2)/SUM(VOL,B2)/100;
B5:=IF(CAPITAL>0,B4,B3);
均价1:=IF(B<=CONST(B2) AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B5,DRAWNULL),COLORYELLOW,LINETHICK2;
均价:IF(B<=48 AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B4,DRAWNULL),COLORYELLOW,LINETHICK2;