顶:=BBI+3*STD(BBI,13),COLOR004AFF;
底:=BBI-3*STD(BBI,13),COLOR67FF00;
DRAWBAND(BBI,RGB(97,95,00),顶,RGB(97,95,00));
DRAWBAND(BBI,RGB(25,75,150),底,RGB(25,75,250));
{MA1:MA(CLOSE,M1);
MA2:MA(CLOSE,M2),COLORGREEN;
MA3:MA(CLOSE,M3),COLORRED;
MA4:MA(CLOSE,M4),COLORYELLOW;}
KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF(LOW=LLV(LOW,3),1,0);
UL:=IF(REF(KU1,2)=1ANDREF(KU1,1)=0
ANDKU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1
ANDREF(KU1,1)=0ANDKU1=0)));
DL:=IF(REF(KD1,2)=1ANDREF(KD1,1)=0
ANDKD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1
ANDREF(KD1,1)=0ANDKD1=0)));
HV:=H>ULANDH>REF(H,1);
LV:=L<DLANDL<REF(L,1);
GP:=BARSLAST(HV);
DP:=BARSLAST(LV);
IP:=IF(GP=0,DP,GP)>3;
HHV1:=HVANDIPANDH>=HHV(H,BARSLAST(LV));
LV1:=LVANDIPANDL<=LLV(L,BARSLAST(HV));
DRAWLINE(LV1,LOW,HHV1,HIGH,0),COLORYELLOW,LINETHICK2;
DRAWLINE(HHV1,HIGH,LV1,LOW,0),COLORMAGENTA,LINETHICK2;
STICKLINE(CLOSE>REF(CLOSE,1),HIGH,LOW,0,1),COLORRED;
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,3,0),COLOR000055;
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,2.7,0),COLOR000077;
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,2.1,0),COLOR000099;
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,1.5,0),COLOR0000BB;
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,0.9,0),COLOR0000DD;
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,0.3,0),COLOR0000FF;
STICKLINE(CLOSE=REF(CLOSE,1),HIGH,LOW,0,1),COLORWHITE;
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,3,0),COLOR555555;
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,2.7,0),COLOR777777;
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,2.1,0),COLOR999999;
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,1.5,0),COLORBBBBBB;
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,0.9,0),COLORDDDDDD;
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,0.3,0),COLORFFFFFF;
STICKLINE(CLOSE<REF(CLOSE,1),HIGH,LOW,0,1),COLORCYAN;
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,3,0),COLOR990000;
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,2.7,0),COLORCC0000;
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,2.1,0),COLORFF4400;
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,1.5,0),COLORFF8800;
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,0.9,0),COLORFFCC00;
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,0.3,0),COLORCYAN;
{笔底分型选股预警确保向下笔成立后的底分型}
V00:=HIGH<REF(HIGH,1)ANDLOW<REF(LOW,1);
V01:=HIGH<REF(HIGH,1)ANDLOW>REF(LOW,1);
V02:=HIGH>REF(HIGH,1)ANDLOW<REF(LOW,1);
V03:=HIGH>REF(HIGH,1)ANDLOW>REF(LOW,1);
V04:=REF(HIGH,2)<HIGHANDREF(LOW,2)<LOW
ANDREF(HIGH,2)>REF(HIGH,1)ANDREF(LOW,2)<REF(LOW,1);
V1:=COUNT(V00,6)>=3ANDCOUNT(V01ORV02,5)=0ANDLLVBARS(LOW,6)=1ANDHHVBARS(HIGH,6)>=5ANDV03;
V2:=COUNT(V00,7)>=3ANDCOUNT(V01ORV02,6)=1ANDLLVBARS(LOW,7)=2ANDHHVBARS(HIGH,7)>=6ANDV04;
V3:=COUNT(V00,7)>=3ANDCOUNT(V01ORV02,6)=1ANDLLVBARS(LOW,7)=1ANDHHVBARS(HIGH,7)>=6ANDV03;
V4:=COUNT(V00,8)>=3ANDCOUNT(V01ORV02,7)<=2ANDLLVBARS(LOW,8)=2ANDHHVBARS(HIGH,8)>=7ANDV04;
V5:=COUNT(V00,8)>=3ANDCOUNT(V01ORV02,7)<=2ANDLLVBARS(LOW,8)=1ANDHHVBARS(HIGH,8)>=7ANDV03;
V6:=COUNT(V00,9)>=3ANDCOUNT(V01ORV02,8)<=3ANDLLVBARS(LOW,9)=2ANDHHVBARS(HIGH,9)>=8ANDV04;
V7:=COUNT(V00,9)>=3ANDCOUNT(V01ORV02,8)<=3ANDLLVBARS(LOW,9)=1ANDHHVBARS(HIGH,9)>=8ANDV03;
V8:=COUNT(V00,10)>=3ANDCOUNT(V01ORV02,9)<=4ANDLLVBARS(LOW,10)=2ANDHHVBARS(HIGH,10)>=9ANDV04;
V9:=COUNT(V00,10)>=3ANDCOUNT(V01ORV02,9)<=4ANDLLVBARS(LOW,10)=1ANDHHVBARS(HIGH,10)>=9ANDV03;
V10:=COUNT(V00,11)>=3ANDCOUNT(V01ORV02,10)<=5ANDLLVBARS(LOW,11)=2ANDHHVBARS(HIGH,11)>=10ANDV04;
XG:=V1ORV2ORV3ORV4ORV5ORV6ORV7ORV8ORV9ORV10;
DRAWICON(FILTER(XG=1,5),L*0.97,1);
{笔顶分型选股预警确保向上笔成立后的顶分型}
HV00:=HIGH>REF(HIGH,1)ANDLOW>REF(LOW,1);
HV01:=HIGH<REF(HIGH,1)ANDLOW>REF(LOW,1);
HV02:=HIGH>REF(HIGH,1)ANDLOW<REF(LOW,1);
HV03:=HIGH<REF(HIGH,1)ANDLOW<REF(LOW,1);
HV04:=REF(HIGH,2)>HIGHANDREF(LOW,2)>LOWANDREF(HIGH,2)>REF(HIGH,1)ANDREF(LOW,2)<REF(LOW,1);
HV1:=COUNT(HV00,6)>=3ANDCOUNT(HV01ORHV02,5)=0ANDHHVBARS(HIGH,6)=1ANDLLVBARS(LOW,6)>=5ANDHV03;
HV2:=COUNT(HV00,7)>=3ANDCOUNT(HV01ORHV02,6)=1ANDHHVBARS(HIGH,7)=2ANDLLVBARS(LOW,7)>=6ANDHV04;
HV3:=COUNT(HV00,7)>=3ANDCOUNT(HV01ORHV02,6)=1ANDHHVBARS(HIGH,7)=1ANDLLVBARS(LOW,7)>=6ANDHV03;
HV4:=COUNT(HV00,8)>=3ANDCOUNT(HV01ORHV02,7)<=2ANDHHVBARS(HIGH,8)=2ANDLLVBARS(LOW,8)>=7ANDHV04;
HV5:=COUNT(HV00,8)>=3ANDCOUNT(HV01ORHV02,7)<=2ANDHHVBARS(HIGH,8)=1ANDLLVBARS(LOW,8)>=7ANDHV03;
HV6:=COUNT(HV00,9)>=3ANDCOUNT(HV01ORHV02,8)<=3ANDHHVBARS(HIGH,9)=2ANDLLVBARS(LOW,9)>=8ANDHV04;
HV7:=COUNT(HV00,9)>=3ANDCOUNT(HV01ORHV02,8)<=3ANDHHVBARS(HIGH,9)=1ANDLLVBARS(LOW,9)>=8ANDHV03;
HV8:=COUNT(HV00,10)>=3ANDCOUNT(HV01ORHV02,9)<=4ANDHHVBARS(HIGH,10)=2ANDLLVBARS(LOW,10)>=9ANDHV04;
HV9:=COUNT(HV00,10)>=3ANDCOUNT(HV01ORHV02,9)<=4ANDHHVBARS(HIGH,10)=1ANDLLVBARS(LOW,10)>=9ANDHV03;
HV10:=COUNT(HV00,11)>=3ANDCOUNT(HV01ORHV02,10)<=5ANDHHVBARS(HIGH,11)=2ANDLLVBARS(LOW,11)>=10ANDHV04;
HXG:=HV1ORHV2ORHV3ORHV4ORHV5ORHV6ORHV7ORHV8ORHV9ORHV10;
DRAWICON(FILTER(HXG=1,3),H*1.01,2);
N1:=5;N2:=10;
STICKLINE(C>0,0,10,15,0),COLOR781816;
LLC:=REF(CLOSE,1);
RSI15:SMA(MAX(CLOSE-LLC,0),N1,1)/SMA
(ABS(CLOSE-LLC),N1,1)*10,COLORFF00FF,LINETHICK1;
RSI10:SMA(MAX(CLOSE-LLC,0),N2,1)/SMA
(ABS(CLOSE-LLC),N2,1)*10,COLOR00FFFF;
VAR21:=C-REF(C,1);
VAR22:=100*EMA(EMA(VAR21,6),6)/EMA(EMA(ABS(VAR21),6),6);
MA5:=EMA(C,5);
MA13:=EMA(C,13);
UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),0),COLOR0000FF;
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),0),COLOR00FF00;
短牛:(LLV(VAR22,2)=LLV(VAR22,7)ANDCOUNT(VAR22<0,2)
ANDCROSS(VAR22,MA(VAR22,2)))AND
REF(DOWN,1)<REF(DOWN,2)ANDUP>REF(DOWN,1);
STICKLINE(UP,0,0.2,3,0),COLOR0000FF;
STICKLINE(DOWN,0,0.2,3,0),COLOR00FF00;
STICKLINE(短牛,0,8,2,0),COLOR000088;
STICKLINE(短牛,0,8,1,0),COLOR0000CC;
STICKLINE(短牛,0,8,0.22,0),COLOR0000FF;
DRAWTEXT(短牛,8,'←短牛'),COLOR0000FF;
中牛:REF(DOWN,1)<REF(DOWN,2)ANDUP>REF(DOWN,1)ANDC<HHV(H,21)*0.82;
STICKLINE(中牛,0,0.2,3,0),COLOR880088;
STICKLINE(中牛,0,7,1.5,0),COLORAA00AA;
STICKLINE(中牛,0,7,0.8,0),COLORCC00CC;
STICKLINE(中牛,0,7,0.2,0),COLORFF00FF;
DRAWTEXT(中牛,7,'←中牛'),COLORFF00FF;
HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:=SQRT(HRY11);
大牛:REF(DOWN,1)<REF(DOWN,2)ANDUP>REF(DOWN,1)ANDC<HRY33;
STICKLINE(大牛,0,0.2,3,0),COLOR008888;
STICKLINE(大牛,0,6,2,0),COLOR00AAAA;
STICKLINE(大牛,0,6,1,0),COLOR00CCCC;
STICKLINE(大牛,0,6,0.2,0),COLOR00FFFF;
DRAWTEXT(大牛,6,'←大牛'),COLOR00FFFF;
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE-LC),0),5,1)/SMA(ABS((CLOSE-LC)),5,1))*100);
TR1:=SUM(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((LOW-REF(CLOSE,1)))),10);
HD:=(HIGH-REF(HIGH,1));
LD:=(REF(LOW,1)-LOW);
DMP:=SUM(IF(((HD>0)AND(HD>LD)),HD,0),10);
DMM:=SUM(IF(((LD>0)AND(LD>HD)),LD,0),10);
PDI:=((DMP*100)/TR1);
MDI:=((DMM*100)/TR1);
ADX:=MA(((ABS((MDI-PDI))/(MDI+PDI))*100),5);
AV:=(RSI5+ADX);
DXR:=(((ADX+REF(ADX,5))/2)+RSI5);
WR10:=((100*(HHV(HIGH,10)-CLOSE))/(HHV(HIGH,10)-LLV(LOW,10)));
NEWVOL:=(RSI5-WR10);
最佳买入:=(AV+NEWVOL);
最佳买入选股:=IF(CROSS(最佳买入,0),1,0);
VAR1:=SMA(最佳买入选股,3,1);
VAR2:=SMA(VAR1,3,1),COLOR0000FF;
VAR3:=SMA(VAR2,3,1),COLOR00FFFF;
建仓买点:IF(CROSS(VAR2,VAR3)AND(VAR2<40),1,0*10000),COLORWHITE,NODRAW;
STICKLINE(建仓买点,0,2,2,0),COLORLINETHICK0;
STICKLINE(建仓买点,0.2,4.0,2,0),COLORLINETHICK0;
RSV:=(((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*50);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
最佳买入时机:IF(CROSS(J,3),1,0),COLORYELLOW;
STICKLINE(最佳买入时机,0,1,3,0),COLOR009999;
STICKLINE(最佳买入时机,0,1,2,0),COLOR00DDDD;
STICKLINE(最佳买入时机,0,1,1,0),COLOR00FFFF;
机构建仓:IF(最佳买入<5,1,0),STICK,COLORFF00FF,LINETHICK1;
机构建仓日:STICKLINE(机构建仓,0,-0.3,3,0),COLORFF00FF,LINETHICK6;
HIGHN:=5;
RSII:=SMA(MAX(C-LC,0),12,1)/SMA(ABS(C-LC),12,1)*10,COLORCYAN,LINETHICK1;
LOWN:=HIGHN;
AAA:=REF(RSII,HIGHN)=HHV(RSII,2*HIGHN+1);
QY:=BACKSET(AAA,HIGHN+1);
CCC:=FILTER(QY,HIGHN)ANDRSII=HHV(RSII,HIGHN+1);
DRAWICON(CCC,RSII*1.02,2);
DDD:=BARSLAST(CCC);
GDTS:=IF(CCC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(RSII,DDD),RSII);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
AA1:=REF(RSII,LOWN)=LLV(RSII,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN)ANDRSII=LLV(RSII,LOWN+1);
DRAWICON(CC1,RSI*0.098,1);
引用：
通达信——精选指标《缠论画线机构操盘顶底分形版》指标源码 – 知乎
评论(0)