高量柱、精准线、单阳不破、止损线、主题投资主图(主图，源码，附图)

dfbb2015

STICKLINE(ISLASTBAR,HHV(C,5),HHV(C,5),218,1)COLORBLUE;
STICKLINE(ISLASTBAR,HHV(C,5)*0.95,HHV(C,5)*0.95,218,1)COLORRED;

TJ:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01;
DRAWTEXT(TJ,LOW*0.986,'↖高量柱'),COLORYELLOW;
STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORYELLOW;
K1:=SUMBARS(TJ,1);{传说A神}
STICKLINE(K1,REF(C,K1-1),REF(C,K1-1),10,0),COLORYELLOW;
DRAWTEXT_FIX(C>0,0.004,1,0,DYBLOCK),COLORYELLOW,LINETHICK2;
DRAWTEXT_FIX(C>0,0.06,1,0,HYBLOCK),COLORRED,LINETHICK2;
DRAWTEXT_FIX(C>0,0.12,1,0,EXTERNSTR(0,1)),COLORWHITE,LINETHICK2;
DRAWTEXT(HIGH>=REF(CLOSE,1)*1.095,HIGH,'涨停'),COLORMAGENTA;
STICKLINE(V/REF(V,1)>2,OPEN,CLOSE,1,0),COLORGREEN;
DRAWTEXT(REF(CLOSE,1)>=LOW*1.095,LOW,'跌停'),COLORGREEN;
DRAWTEXT(REF(CLOSE,1)>=LOW*1.095,LOW,'跌停'),COLORGREEN;
{老舍单阳不破}
阳涨幅:=4;
阳倍量:=2;
单阳:=C>O*(1+阳涨幅/100) AND VOL>REF(VOL,1)*阳倍量;
DRAWTEXT(CURRBARSCOUNT<90 AND 单阳,L*0.98,'阳'),COLOR00FFFF;
高不破价:=REF(C,BARSLAST(单阳));
中不破价:=REF((C+L)/2,BARSLAST(单阳));
低不破价:=REF(L,BARSLAST(单阳));{传说A神}
单阳不破:=CURRBARSCOUNT<90 AND BARSLAST(单阳)<11 AND (LLV(L,BARSLAST(单阳))>低不破价 OR LLV(L,BARSLAST(单阳))=低不破价);
STICKLINE(单阳不破,低不破价-低不破价*0.003,低不破价,4,0),COLORRED;
DRAWTEXT(BARSLAST(单阳)=1 AND 单阳不破,低不破价*0.98,'1'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=2 AND 单阳不破,低不破价*0.98,'2'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=3 AND 单阳不破,低不破价*0.98,'3'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=4 AND 单阳不破,低不破价*0.98,'4'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=5 AND 单阳不破,低不破价*0.98,'5'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=6 AND 单阳不破,低不破价*0.98,'6'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=7 AND 单阳不破,低不破价*0.98,'7'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=8 AND 单阳不破,低不破价*0.98,'8'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=9 AND 单阳不破,低不破价*0.98,'9'),COLORGREEN;
DRAWTEXT(BARSLAST(单阳)=10 AND 单阳不破,低不破价*0.98,'10'),COLORGREEN;

DRAWTEXT_FIX(C>0,0.004,1,0,DYBLOCK),COLORYELLOW,LINETHICK2;
DRAWTEXT_FIX(C>0,0.06,1,0,HYBLOCK),COLORRED,LINETHICK2;
DRAWTEXT_FIX(C>0,0.12,1,0,EXTERNSTR(0,1)),COLORWHITE,LINETHICK2;
ZT:=(C-REF(C,1))/REF(C,1)*100>9.5 AND C=H;
DRAWLINE(ZT,H,REF(ZT,1),REF(H,1),1);
{通用条件}
LAST3K:=CURRBARSCOUNT>4;
上涨:=REF(CLOSE,3)>REF(CLOSE,4);
未跌破:=REF(CLOSE,2)>REF(LOW,3) AND REF(CLOSE,1)>REF(LOW,3) AND CLOSE>REF(LOW,3);
缩量:=REF(VOL,3)>0.35*(REF(VOL,1)+REF(VOL,2)+VOL) AND REF(VOL,3)>REF(VOL,2);{1.05/3,5%}
逐级缩量:=REF(VOL,3)>=REF(VOL,2) AND REF(VOL,2)>=REF(VOL,1) AND REF(VOL,1)>=VOL;{平量也看成缩量}
逐级价升:=REF(CLOSE,3)<REF(CLOSE,2) AND REF(CLOSE,2)<=REF(CLOSE,1) AND REF(CLOSE,1)<=CLOSE;
{倍量柱}
倍量柱1:=(REF(VOL,3)>=REF(VOL,4)*1.8),NODRAW;{实际给1.8倍}
倍量柱:VOL>REF(VOL,1)*1.8,NODRAW,COLORWHITE;
{高量柱}
高量柱1:=REF(VOL,3)>0.25*(REF(SUM(VOL,3),4)+SUM(VOL,3)) AND REF(VOL,3)>REF(VOL,4) AND REF(VOL,3)>REF(VOL,2),NODRAW,COLORWHITE;{1.5/6,1.5倍}
TEMP1:=BACKSET(高量柱1,4);
高量柱:FILTER(TEMP1,3),NODRAW,COLORWHITE;
{平量柱}
平量柱1:=REF(VOL,3)>REF(VOL,2)*0.97 AND REF(VOL,3)<REF(VOL,2)*1.03 AND REF(VOL,3)>=1.5*REF(VOL,4),NODRAW,COLORWHITE;{平量柱取前一K线，到底是取前还是取后，你自己选}
TEMP2:=BACKSET(平量柱1,4);
平量柱:FILTER(TEMP2,3),NODRAW,COLORWHITE;
{梯量柱}
梯量柱1:=REF(VOL,3)>REF(VOL,4) AND REF(VOL,4)>REF(VOL,5) AND REF(CLOSE,3)>=REF(CLOSE,4) AND REF(CLOSE,4)>=REF(CLOSE,5),NODRAW,COLORWHITE;{虽然是梯量柱，但也不能太小}
梯量柱:VOL>REF(VOL,1) AND REF(VOL,1)>=REF(VOL,2) AND CLOSE>REF(CLOSE,1),NODRAW,COLORWHITE;
{将军柱}
将军柱1:=上涨 AND 未跌破 AND (倍量柱1 OR 高量柱1 OR 平量柱1 OR 梯量柱1),NODRAW,COLORYELLOW;
{黄金柱}
黄金柱1:=将军柱1 AND 缩量,NODRAW,COLORYELLOW;
{标准黄金柱}
标准黄金柱1:=黄金柱1 AND 逐级缩量 AND 逐级价升,NODRAW,COLORRED;
将军柱2:=将军柱1 AND 黄金柱1=0 AND BARSLAST(REF(将军柱1,1))>1;
黄金柱2:=黄金柱1 AND 标准黄金柱1=0 AND BARSLAST(REF(将军柱1,1))>1;
将军柱3:=BACKSET(将军柱2,4);
将军柱:FILTER(将军柱3,3),NODRAW,COLORWHITE;
黄金柱3:=BACKSET(黄金柱2,4);
黄金柱:FILTER(黄金柱3,3),NODRAW,COLORYELLOW;
标准黄金柱2:=BACKSET(标准黄金柱1,4);
标准黄金柱:FILTER(标准黄金柱2,3),NODRAW,COLORRED;
{输出,规则是连续都满足条件则取第一个}
DRAWICON(LAST3K AND 将军柱,HIGH*1.01,24),COLORRED;
DRAWICON(LAST3K AND 标准黄金柱,HIGH*1.01,26),COLORRED;
DRAWICON(LAST3K AND 黄金柱,HIGH*1.01,25),COLORRED;
N:=3;
BL:=4;
BN:=20;
C2:=REF(C,1);
L0:=0.00;
L1:=ABS(L-REF(L,1))<=L0;
L2:=ABS(L-REF(L,2))<=L0;
L3:=ABS(L-REF(L,3))<=L0;
L4:=ABS(L-REF(L,4))<=L0;
L5:=ABS(L-REF(L,5))<=L0;
首次:=L1 OR L2 OR L3 {OR L4 OR L5};
中点:=(H+L)/2;
本日跌率:=(O-C)*100/O;
比前跌率:=(REF(C,1)-C)*100/REF(C,1);
左大阴K:=FILTER(比前跌率>BL,N) ;
天数:=BARSLAST(左大阴K);
JC:=REF(C,天数);
下:=HHV(中点,天数)<REF(中点,天数);
MAVOL1:=MA(V,5);
JJ:=(3*C+H+L+O)/6;
VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(HIGH,3),1,0)));
TP:=TJ2=1;
STICKLINE(CLOSE,REF(LOW,BARSLAST(LJL)),REF(LOW,BARSLAST(LJL)),6,0),COLORYELLOW;
TJ3:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(LOW,3),1,0)));
STFZ:=TJ3=1;
CL:=STFZ AND TP;
TJCL:=FILTER(CL,3);
STICKLINE(LJL,OPEN,CLOSE,5,0),COLORYELLOW;
DRAWTEXT(LJL,L*0.99,'黄金柱'),COLORF00FF0;
涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORRED;
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;
DRAWTEXT(HIGH>=REF(CLOSE,1)*1.095,HIGH,'涨停'),COLORMAGENTA;
STICKLINE(V/REF(V,1)>2,OPEN,CLOSE,1,0),COLORGREEN;
DRAWTEXT(REF(CLOSE,1)>=LOW*1.095,LOW,'跌停'),COLORGREEN;

VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);{传说A神}

VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);