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