通达信一主图两副图，可以赚钱的源码

黑码:MA(C,5);
 A:=C/REF(C,1)>1.095 AND C=H AND 黑码>REF(黑码,1);
 B:=A AND COUNT(A,BARSLAST(CROSS(黑码,REF(黑码,1)))+1)=1;
 STICKLINE(B,L,L,5,1),COLORGREEN;
 
N1234:=2;N12345:=9;
 CJB:=EMA(EMA(EMA(CLOSE,N1234),N1234),N1234);
ACE:=CJB-REF(CJB,1)+CJB;
VAR123:=EMA(CLOSE,N1234);
 VAR234:=MA(ACE,N12345);
DRAWTEXT(CROSS(VAR123,VAR234),L*0.98,'↑升');
 DRAWTEXT(CROSS(VAR234,VAR123),H,'↓降');
 
短趋势线:MA(CLOSE,13),COLORRED,LINETHICK3;
 中线:=MA(CLOSE,34),COLORYELLOW,LINETHICK1;
 中趋势线:MA(CLOSE,55),LINETHICK1,COLORMAGENTA;
 半年线:=MA(CLOSE,125),LINETHICK1,COLORBLUE;
涨:=IF(短趋势线>REF(短趋势线,1),短趋势线,DRAWNULL),COLORRED,LINETHICK3;
 平:=IF(短趋势线=REF(短趋势线,1),短趋势线,DRAWNULL),COLOR00FFFF,LINETHICK3;
 跌:=IF(短趋势线<REF(短趋势线,1),短趋势线,DRAWNULL),COLORGREEN,LINETHICK3;
 上极限:=((C-REF(MA(CLOSE,20),1))/20+短趋势线)*1.20;
 DRAWTEXT(CROSS(CLOSE,上极限),H*1.02,'减仓'),COLORGREEN;
 DRAWTEXT(CROSS(CLOSE,MA(C,13)) AND 短趋势线<REF(短趋势线 ,1) AND 短趋势线<中趋势线 ,H*1.02,'减仓'),COLORGREEN;
 STICKLINE(CROSS(短趋势线,C) AND 短趋势线>REF(短趋势线 ,1) AND V<REF(V,1) AND 短趋势线>中趋势线 ,L,L*0.99,2,0),COLORYELLOW;
 VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;
 DRAWTEXT(VAR1>9 AND V<REF(V,1) AND FILTER(VAR1<REF(VAR1,1),5),H*1.02,'洗盘'),COLORYELLOW;
 DRAWTEXT(VAR1>9 AND V>REF(V,1) AND FILTER(VAR1<REF(VAR1,1),5),H*1.02,'减仓'),COLORGREEN;
 DRAWTEXT(VAR1>20 AND FILTER(VAR1<REF(VAR1,1),5),H*1.06,'卖出'),COLORYELLOW;
 VAR2:=HHV(VAR1>20,10);
DRAWTEXT(FILTER(VAR1<-9 AND VAR1>REF(VAR1,1),18) AND V>REF(V,1),H,'反弹'),COLORRED;
 DRAWTEXT(VAR1<-20 AND FILTER(VAR1> REF(VAR1,1),5),L*0.95,'抄底'),COLORYELLOW;
 DRAWTEXT(VAR2 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),H*1.1,'危险'),COLORYELLOW;
 VAR12:=(HIGH - LOW);
 VAR3:=ABS((OPEN - CLOSE));
 VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
 VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
 VAR6:=((VAR3 / VAR12) * VOL);
 VAR7:=((VAR4 / VAR12) * VOL);
 VAR8:=((VAR5 / VAR12) * VOL);
 VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
 VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
 DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND 短趋势线>REF(短趋势线 ,1) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)) ,L*0.7,'主力介入'),COLORMAGENTA;
 AVAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
 AVAR2:=REF(AVAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR3:=REF(AVAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR4:=REF(AVAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR5:=REF(AVAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR6:=REF(AVAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR7:=REF(AVAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR8:=REF(AVAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR9:=REF(AVAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVARA:=REF(AVAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVARB:=REF(AVARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVARC:=REF(AVARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
 AVARE:=REF(AVARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVARF:=REF(AVARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR10:=REF(AVARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR11:=REF(AVAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR12:=REF(AVAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR13:=REF(AVAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR14:=REF(AVAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR15:=REF(AVAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR16:=REF(AVAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR17:=REF(AVAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 AVAR18:=REF(AVAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 AVAR19:=REF(AVARD OR AVARE OR AVARF OR AVAR10 OR AVAR11 OR AVAR12 OR AVAR13 OR AVAR14 OR AVAR15 OR AVAR16 OR AVAR17 OR AVAR18,1) AND AVAR1;
 DRAWTEXT(AVAR19,LOW*0.97,'★'),COLORRED;
 AVAR1A:=REF(AVAR1 OR AVAR2 OR AVAR3 OR AVAR4 OR AVAR5 OR AVAR6 OR AVAR7 OR AVAR8 OR AVAR9 OR AVARA OR AVARB OR AVARC,1) AND AVARD;
 DRAWTEXT(AVAR1A,H*1.03,'★'),COLORYELLOW;
 LOWV:=LLV(LOW,9);
 HIGHV:=HHV(HIGH,9);
 RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
 K:=EMA(RSV,3)COLORRED;
 D:=MA(K,3);
 AB:=C>O;
 AB1:=O>C AND C/REF(C,1)>1.015;
 AAA:=AB OR AB1;
 AA:=C>REF(C,1)AND C>REF(O,1)AND VOL>=REF(VOL,1)/1.04 AND K<80 AND K>50 AND CROSS(K,D) AND AAA ;
 AA1:=C>REF(C,1)AND C>REF(O,1)AND VOL>=REF(VOL,1)/1.04 AND K<50 AND CROSS(K,D) AND AAA ;
 DRAWICON(AA1,L*0.9,26);
 买点:=MA(C,5)<MA(C,10) AND CROSS(C,MA(C,10)) AND V>MA(V,10) AND MA(C,5)>REF(MA(C,5),1);
 加仓:=MA(C,10)>REF(MA(C,10),1) AND MA(C,5)>MA(C,10) AND V>MA(V,5) AND CROSS(C,MA(C,5));
 DRAWTEXT(买点=1,L*0.8,'买点'),COLORYELLOW;
 DRAWTEXT(加仓=1 OR AA,L*0.85,'加仓'),COLORRED;
 N1:=13;N2:=34;N3:=55;N4:=125;
 MA1:=MA(C,N1),COLORWHITE;
 MA2:=MA(C,N2),COLORYELLOW;
 MA3:=MA(C,N3),COLORMAGENTA;
 MA4:=MA(C,N4),COLORBLUE;
 短:N1*REF(MA1,1)-REF(SUM(C,N1-1),1),COLORWHITE,NODRAW;
 中:N2*REF(MA2,1)-REF(SUM(C,N2-1),1),COLORYELLOW,NODRAW;
 长:N3*REF(MA3,1)-REF(SUM(C,N3-1),1),COLORMAGENTA,NODRAW;
 超长:N4*REF(MA4,1)-REF(SUM(C,N4-1),1),COLORMAGENTA,NODRAW;
 DRAWTEXT(CROSS(C,短),短,VAR2STR(短,2)),COLORWHITE;
 DRAWTEXT(CROSS(C,中),中,VAR2STR(中,2)),COLORYELLOW;
 DRAWTEXT(CROSS(C,长),长,VAR2STR(长,2)),COLORMAGENTA;
 DRAWTEXT(CROSS(C,超长),超长,VAR2STR(超长,2)),COLORBLUE;
 A8:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4;
 B8:=A8*(1+ ((C+O+H+L)/4-SMA(C,10,1))/SMA(C,21,1));
 D8:=A8+3*STD(A8,10);
 DRAWICON(CROSS(B8,A8) AND A8>REF(A8,1) AND D8>REF(D8,1),L*0.75,1);
 AA2:=AMOUNT/VOL;
 BB3:=L<AA2*0.9;
 CC2:=(C-REF(C,1))/REF(C,1)*100>1.2;
 DD2:=L<MA(C,6)*0.921;
 DD1:=L<MA(C,5)*0.921;
 EE2:=VOL<MA(V,5)*1.5;
 FF2:=BB3 AND CC2 AND DD2 AND EE2;
 老鼠仓:=BB3 AND CC2 AND DD1 AND EE2,LINETHICK0,COLOR0099FF;
 DRAWTEXT(老鼠仓,L*0.93,'老鼠仓'),COLOR0099FF;
 A1A:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*1,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*1,5,1),COLOR330066;
 A5A:=(HHV(H,60)-C)/(HHV(H,60)-LLV(L,60))*1;
 DRAWTEXT(CROSS(A1A,EMA(A1A,5))AND EMA(A1A,5)<A5A,L*0.92,'黑码'),COLORYELLOW;
 VAR1A:=LLV(LOW,21);
 VAR2A:=HHV(HIGH,21);
 AK1:=EMA((((CLOSE - VAR1A) / (VAR2A - VAR1A)) * 100),5);
 AK:=EMA((((CLOSE - VAR1A) / (VAR2A - VAR1A)) * 50),13);
 AB11:=CROSS(AK1,AK);
 DRAWTEXT((AB11 = 1),(LOW * 0.95),'○牛窝'),COLORYELLOW;
 VAR66:=REF(C,1);{股海网提供 www.guhai.com.cn}
 VAR77:=SMA(MAX(C-VAR66,0),6,1)/SMA(ABS(C-VAR66),6,1)*100;
 DRAWTEXT(CROSS(82,VAR77),H*1.04,'逃顶'),COLORYELLOW;
 VAR9:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);
 VAR101:=SMA(VAR9,3,1);
 VAR111:=SMA(VAR101,3,1);
 VAR121:=SMA(VAR111,3,1);
 主力出现:=CROSS(VAR111,VAR121) AND VAR111<40;
 DRAWTEXT(主力出现,L*0.88,'主力插手');