牛股主图（占大牛股 补充源码）

自用的通达信主图指标，多年心血而成！只为能得到些金币，以便与大家共享论坛资源。本指标有密码，送我十个金币，我就告诉你密码，绝不欺人！
 这个指标绝不告诉你什么时候买进最好，卖出最佳，但如果你仔细观察与揣摩图中所内含的意义，一定会有大的收获的！

占大牛股
 

N:1,100,6

JJX:=ABS(OPEN+HIGH+LOW+CLOSE)/4;

生命:MA(JJX,5),COLORYELLOW;

VL:=REF(LOW,1); VH:=REF(H,1);

VAR1:=SMA(ABS(H-VH),13,1)/SMA(MAX(H-VH,0),13,1)*100;

VAR2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;

VAR3:=MA(VAR1,13);

VAR4:=MA(VAR2,13);VAR5:=LLV(L,34);VAR6:=HHV(H,34);

VAR7:=EMA(IF(H>=VAR6,VAR3,0),3);

VAR8:=EMA(IF(L<=VAR5,VAR4,0),3);

VAR9:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));

VAR10:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (VAR9* 10.9);

VAR11:=FILTER(IF(VAR10<=VAR9 AND VAR8>REF(VAR8,1),VAR8*8,0),55);

VAR21:=LLV(LOW,60);VAR31:=HHV(HIGH,60);

VAR41:=EMA((CLOSE-VAR21)/(VAR31-VAR21)*100,13);

VAR51:=EMA(0.667*REF(VAR41,1)+0.333*VAR41,21);

VARL2:=FILTER(CROSS(VAR51,VAR41) AND VAR41>84,13);

持股线:MA(C,26),LINETHICK2,COLOR6600FF;

DRAWTEXT(VAR11,L*0.98,'铁底'),COLORFFFF00;

STICKLINE(VAR11,H,L,1,1),COLORRED;

STICKLINE(VAR11,OPEN,CLOSE,4.5,0),COLOR000099;

STICKLINE(VAR11,OPEN,CLOSE,3,0),COLOR0000BB;

STICKLINE(VAR11,OPEN,CLOSE,2,0),COLOR0000FF;

DRAWTEXT(VARL2,H*1.04,'顶否？'),COLORYELLOW;

STICKLINE(VARL2,H,L,1,1),COLORYELLOW;

STICKLINE(VARL2,OPEN,CLOSE,4.5,0),COLOR00CCCC;

STICKLINE(VARL2,OPEN,CLOSE,3,0),COLOR33FFCC;

STICKLINE(VARL2,OPEN,CLOSE,2,0),COLOR00FFFF;

STICKLINE(C,REF(L,BARSLAST(VAR11)),REF(L,BARSLAST(VAR11)),5,0),COLORGREEN;

STICKLINE(C,REF(L,BARSLAST(VARL2)),REF(L,BARSLAST(VARL2)),5,0),COLORYELLOW;

STICKLINE(C,REF(H,BARSLAST(VAR11)),REF(H,BARSLAST(VAR11)),1,0),COLORGREEN;

STICKLINE(C,REF(H,BARSLAST(VARL2)),REF(H,BARSLAST(VARL2)),1,0),COLORYELLOW;

VAR1B:=REF(CLOSE,2);

会员专用:=SMA(MAX(CLOSE-VAR1B,0),7,1)/SMA(ABS(CLOSE-VAR1B),7,1)*100,COLORFFAA66;

VAR2B:=REF(CLOSE,1);

VAR3B:=SMA(MAX(CLOSE-VAR2B,0),7,1)/SMA(ABS(CLOSE-VAR2B),7,1)*100;

极品逃亡:=IF(会员专用< REF(会员专用,1) AND 会员专用>79,会员专用,0);

Q2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100;

Q3:=SMA(Q2, 9, 1);

Q4:=SMA(Q3, 3, 1);

特殊会员专用:=3*Q3-2*Q4,COLORWHITE,LINETHICK2;

Q8:=HHVBARS(HIGH, 50); 

Q10:=(CLOSE-REF(OPEN, Q8))/REF(OPEN, Q8)*100;

跨越:=EMA(Q3, 3),COLORRED,LINETHICK3;

VAR12:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;

机构做空能量线:=SMA(VAR12,3,1),COLORGREEN,LINETHICK2;

准备:=CROSS(特殊会员专用,机构做空能量线);

DRAWTEXT(准备,L*0.98,'←准备'),COLORYELLOW;

L1:=机构做空能量线 > 80;

L2:=CROSS(会员专用,特殊会员专用);

L3:=L1 AND L2;

DRAWTEXT(L3,L*0.98,'←极品底'),COLORWHITE;

STICKLINE(C,REF(L,BARSLAST(L3)),REF(L,BARSLAST(L3)),2,0),COLORWHITE;

STICKLINE(L3,C,O,2,0),COLORWHITE;

趋势观察:=会员专用< REF(会员专用,1) AND 会员专用>79;

DRAWTEXT(趋势观察,L*0.98,'←观察'),COLORRED;

VAR61:=(2*CLOSE+HIGH+LOW+OPEN)/5;

VAR52:=EMA(EMA(EMA(VAR61,4),4),4);

SJ:=(VAR52-REF(VAR52,1))/REF(VAR52,1)*100;

SD:=MA(SJ,2);

SK:=MA(SJ,1);

VAR53:=CROSS(SK,SD) AND SK<0;

VAR54:=CROSS(SK,0);

VAR55:=CROSS(SK,SD) AND SK>0;

买一:=VAR53;

买二:=VAR54 OR VAR55;

VAR56:=(CLOSE-MA(CLOSE,N))/MA(CLOSE,N)*100;

VAR57:=(EMA(VAR56,3)+EMA(VAR56,6)+EMA(VAR56,12)+EMA(VAR56,24))/4;

A1:=EMA(VAR57,2);

A2:=EMA(A1,2);

A3:=EMA(A2,2);

A4:=EMA(A3,2);

A5:=EMA(A4,2);

买进:=CROSS(A1,A5);

杀入:=VAR53 AND 买进;

DRAWTEXT(杀入,L*0.98,'←杀入'),COLORRED;

STICKLINE(杀入,C,O,2,0),COLORDA11F7;

ZT:=C/REF(C,1)>1.097;

STICKLINE(ZT,C,O,1.5,0),COLORYELLOW;

M1:=5;M2:=10;M3:=20;M4:=60;M5:=120;M6:=250;

MA1:=MA(CLOSE,M1);

MA2:=MA(CLOSE,M2);

MA3:=MA(CLOSE,M3);

MA4:=MA(CLOSE,M4);

MA5:=MA(CLOSE,M5);

N1:=7;

VAR1G:=REF(C,1);

VAR2G:=SMA(MAX(C-VAR1G,0),N1,1)/SMA(ABS(C-VAR1G),N1,1)*1000;

VAR3G:=DRAWLINE(VAR2G>=HHV(VAR2G,N1),VAR2G,VAR2G<=LLV(VAR2G,N1),VAR2G,1);

VAR4G:=VAR2G=VAR3G;

VAR5G:=VAR2G<REF(VAR2G,1);

RSV:=(C-LLV(L,25))/(HHV(HIGH,25)-LLV(L,25))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

VAR6G:=(2*C+H+L)/3;{可将3该为4，信号少点}

VAR7G:=EMA(EMA(EMA(VAR6G,4),4),4);{可将3该为4，信号少点}

VAR8G:=(VAR7G-REF(VAR7G,1))/REF(VAR7G,1)*100;

VAR9G:=MA(VAR8G,3)+0.03;

VAR10G:=MA(VAR8G,1);

KB:=EMA(C,3)-EMA(C,18);

DB:=EMA(KB,3);

AA:=BARSCOUNT(C);

AH:=HHV(H,120);

AL:=LLV(L,120);

A0:=(AH-AL)/30;

VAR2S:=(2*CLOSE+HIGH+LOW)/4;

VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1);

VAR4S:=LLV(LOW,5); VAR5S:=HHV(HIGH,4);

散户:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S;

庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3S;

STICKLINE((AA+0)/34=FLOOR((AA+0)/34),L,OPEN,3.15,1),COLORFFFFFF;

DRAWTEXT((AA+0)/34=FLOOR((AA+0)/34),L*1,'←时间窗'),COLORFFFFFF;

DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L*1,'←吸'),COLORFF00FF;

放量突破:=LAST((H-L)/REF(C,1)<0.1,20,0) AND VOL>REF(VOL,1)*2 AND C>REF(C,1)*1.03

AND "DMI.PDI">"DMI.MDI" AND CROSS("DMI.ADX","DMI.ADXR")

AND"DMI.ADXR">"DMI.MDI" AND "DMI.PDI">"DMI.ADX" AND"KDJ.D">REF("KDJ.D",1);

STICKLINE(放量突破,C,O,1.5,0),COLORWHITE;

DRAWTEXT(放量突破,L*1.05,'←放量突破'),COLORWHITE;

STICKLINE(C,REF(L,BARSLAST(放量突破)),REF(L,BARSLAST(放量突破)),1,0),COLORCA2F1E;

STICKLINE(C,REF(H,BARSLAST(放量突破)),REF(H,BARSLAST(放量突破)),1,0),COLORCA2F1E;

VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

VAR10C:=(HIGH+LOW+CLOSE)/3;

VAR11C:=(VAR10C-MA(VAR10C,14))/(0.015*AVEDEV(VAR10C,14));

VAR12C:=(VAR10C-MA(VAR10C,70))/(0.015*AVEDEV(VAR10C,70));

VAR13C:=IF(VAR11C>=150 AND VAR11C<200 AND VAR12C>=150 AND VAR12C<200,10,0);

VAR14C:=IF(VAR11C<=-150 AND VAR11C>-200 AND VAR12C<=-150 AND VAR12C>-200,-10,VAR13C);

VAR15C:=(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100;

VAR16C:=100-ABS(VAR15C);

VAR17C:=IF(VAR16C<90,VAR16C,100);

VAR1A:=IF(VARE>0,VARE,0);

VAR1BB:=IF(VAR12C>=200 AND VAR11C>=150,15,IF(VAR12C<=-200 AND VAR11C<=-150,-15,VAR14C))+60;

VAR1C:=VAR1A>48 AND VAR1BB>60 AND VAR17C<100;

出现必大涨:=(VAR1C AND COUNT(VAR1C,30)=1);

STICKLINE(出现必大涨,C,O,1.5,0),COLORDA11F7;

DRAWTEXT(出现必大涨,L*1.1,'←出现大涨'),COLORYELLOW;

STICKLINE(出现必大涨,H,L,1,1),COLORDA11F7;

STICKLINE(出现必大涨,OPEN,CLOSE,4.5,0),COLORDA11F7;

STICKLINE(出现必大涨,OPEN,CLOSE,3,0),COLORDA11F7;

STICKLINE(出现必大涨,OPEN,CLOSE,2,0),COLORDA11F7;

YX1:=MA(C,13);

STICKLINE(ABS(C-YX1)/YX1<0.003,C,O,3,0),COLORB469FF;

丁丁1:=EMA(C,3),COLORWHITE;

丁丁2:=EMA(C,5),COLORYELLOW;

丁丁3:=EMA(C,7),COLORBROWN;

丁丁4:=EMA(C,12),COLORLIGREEN;

丁丁5:=EMA(C,20),COLORRED;

SS:=CROSS(丁丁1,丁丁2) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018

OR CROSS(丁丁1,丁丁4) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018

OR CROSS(丁丁2,丁丁3) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018

OR CROSS(丁丁1,丁丁3) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 AND CROSS(丁丁1,丁丁4);

DRAWICON(SS,L-0.5,6);

DD:=CROSS(丁丁2,丁丁3) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018

OR CROSS(丁丁2,丁丁5) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018

OR CROSS(丁丁3,丁丁4) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018

OR CROSS(丁丁2,丁丁4) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 AND CROSS(丁丁1,丁丁5);

DRAWICON(DD,L-0.5,5);

N:=IF(TOTALBARSCOUNT>=120,120,TOTALBARSCOUNT);

HH0:=HHV(H,N);

LL0:=LLV(L,N);

MM0:=CONST((HH0+LL0)*0.5);

T1:=IF(FINDSTR(EXTERNSTR(0,13),'万元'),STRCAT('敢死队席位：',EXTERNSTR(0,13)),'');

T2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),STRCAT('智能诊断：',EXTERNSTR(0,12)),'');

T3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),STRCAT('年报业绩：',EXTERNSTR(0,8)),'');

T4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),STRCAT('主题投资：',EXTERNSTR(0,10)),'');

T5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),STRCAT('解禁日期：',EXTERNSTR(0,15)),'');

T6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),STRCAT('千股千评：',EXTERNSTR(0,1)),'');

T7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),STRCAT('业绩预报：',EXTERNSTR(0,14)),'');

T8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),STRCAT('机构评级：',EXTERNSTR(0,11)),'');

T9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),STRCAT('中报业绩：',EXTERNSTR(0,9)),'');

S01:=CONST(IF(REF(C,N-15)>MM0,1.00,-0.08));

S02:=CONST(IF(REF(C,N-15)>MM0,-1,1));

S1:=IF(FINDSTR(EXTERNSTR(0,13),'万元'),S01+(0.08*S02),S01);

S2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),S1+(0.08*S02),S1);

S3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),S2+(0.08*S02),S2);

S4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),S3+(0.08*S02),S3);

S5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),S4+(0.08*S02),S4);

S6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),S5+(0.08*S02),S5);

S7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),S6+(0.08*S02),S6);

S8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),S7+(0.08*S02),S7);

S9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),S8+(0.08*S02),S8);

KK:=IF(S1<=0,0.06,IF(S1>=0,-0.05,0));

DRAWTEXT_FIX(1,0,S1+KK,0,T1)COLOR00FFFF;

DRAWTEXT_FIX(1,0,S2+KK,0,T2)COLORFFFFFF;

DRAWTEXT_FIX(1,0,S3+KK,0,T3)COLORFF00FF;

DRAWTEXT_FIX(1,0,S4+KK,0,T4)COLOR0088FF;

DRAWTEXT_FIX(1,0,S5+KK,0,T5)COLOR00FF00;

DRAWTEXT_FIX(1,0,S6+KK,0,T6)COLOR0000FF;

DRAWTEXT_FIX(1,0,S7+KK,0,T7)COLOR00CCFF;

DRAWTEXT_FIX(1,0,S8+KK,0,T8)COLORFF88FF;

DRAWTEXT_FIX(1,0,S9+KK,0,T9)COLORBBFFFF;