通达信自用6年多一直在用~~回调追牛源码
RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
K1:=SMA(RSV,10,1);
D1:=SMA(K1,5,1);
KK:=INTPART(K1);
DD0:=INTPART(D1);
TFXXS:=KK+DD0;
TGLD:=MOD(TFXXS,10);
TGLXS:=(TFXXS-REF(TFXXS,1))*10;
TYCFX:=TFXXS+TGLXS;
乖离系数:TGLXS,LINETHICK0,COLORGREEN,NODRAW;
DRAWTEXT_FIX(ISLASTBAR,0,0.92,0,'提示：1、乖离系数大于40关注，大于60可以买入，买入时看股价运行的情况而定。2、乖离系数小于-50不要进场。3、乖离系数大于20，可以酌情做个小波段。')COLOR4080FF;
安全线: EMA(CLOSE,55),COLORLIGREEN,DOTLINE;
EMA30:EMA(CLOSE,30),NODRAW;
EMA5:=EMA(CLOSE,5);
X2:=EMA5;
X3:=EMA30;
主升:=C>X2 AND C>X3;
主跌:=C<X3;
回调:=C<X2 AND C>X3;
反弹:=C>X2 AND C<X3;
STICKLINE(主升,CLOSE,O,4.8,0),COLOR0000BB;
STICKLINE(主升,CLOSE,O,3,0),COLOR0000CC;
STICKLINE(主升,CLOSE,O,1.5,0),COLOR0000DD;
STICKLINE(主升,CLOSE,O,1,0),COLOR0000EE;
STICKLINE(主升,CLOSE,O,0.5,0),COLOR0000FF;
STICKLINE(主升,H,L,0,0),COLOR0000FF;
STICKLINE(主跌,CLOSE,O,4.8,0),COLOR555500;
STICKLINE(主跌,CLOSE,O,3,0),COLOR888800;
STICKLINE(主跌,CLOSE,O,1.5,0),COLORAAAA00;
STICKLINE(主跌,CLOSE,O,1,0),COLORCCCC00;
STICKLINE(主跌,CLOSE,O,0.5,0),COLOREEEE00;
STICKLINE(主跌,H,L,0,0),COLOREEEE00;
STICKLINE(回调,O,C,4.8,0),COLORBB4400;
STICKLINE(回调,O,C,3,0),COLORCC5500;
STICKLINE(回调,O,C,1.5,0),COLORDD6600;
STICKLINE(回调,O,C,1,0),COLOREE7700;
STICKLINE(回调,O,C,0.5,0),COLORFF8800;
STICKLINE(回调,H,L,0,0),COLORFF8800;
STICKLINE(反弹,O,C,4.8,0),COLOR0077BB;
STICKLINE(反弹,O,C,3,0),COLOR0099CC;
STICKLINE(反弹,O,C,1.5,0),COLOR00BBDD;
STICKLINE(反弹,O,C,1,0),COLOR00DDEE;
STICKLINE(反弹,O,C,0.5,0),COLOR00FFFF;
STICKLINE(反弹,H,L,0,0),COLOR00FFFF;
DRAWTEXT_FIX(C>0,0,0,0,'【█】涨势'),COLOR0000AA;
DRAWTEXT_FIX(C>0,0,0.05,0,'【█】回调'),COLORDD6600;
DRAWTEXT_FIX(C>0,0,0.10,0,'【█】跌势'),COLORAAAA00;
DRAWTEXT_FIX(C>0,0,0.15,0,'【█】反弹'),COLOR00BBDD;
均价线:=AMOUNT/V/100;
C2:=REF(C,1);
AA1:MA(C,4),COLORRED,LINETHICK4;
卖出:IF(AA1<=REF(AA1,1),AA1,DRAWNULL),LINETHICK4,COLORGREEN;
涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,4.6,0),COLORRED;
STICKLINE(涨停,OPEN,CLOSE,3.5,0),COLORYELLOW;
STICKLINE(涨停,H,L,0,0),COLORYELLOW;
B1:='┄┄┄┄';
DRAWTEXT(均价线 AND 涨停,均价线,B1),COLORGREEN;
B3:='┄┄┄┄';
DRAWTEXT((O+C)/2 AND 涨停,(O+C)/2 ,B3),COLORMAGENTA;
B2:='┄┄┄┄';
DRAWTEXT(涨停,L,B2),COLORGRAY;
DRAWTEXT(涨停,H*0.988,'---涨停'),COLORYELLOW;
买进:DRAWTEXT(CROSS(AA1,X3*0.998-0.018),L*0.97,'★-买进 '),COLORFFFF00,COLORYELLOW;
买进1:DRAWTEXT(CROSS(L,X3*0.9998+0.018) AND C>REF(C,1),L*0.97,'★-买进 '),COLORFFFF00,COLORYELLOW;
HH:=COUNT(涨停,15)>=1;
LC:=REF(CLOSE,1);
操作线:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
趋势线:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
震仓线:=45;
震仓线2:=50;
逃命线:=80;
抄底线:=20;
绝底线:=5;
PP2:=操作线<震仓线2 AND REF(操作线,1)>震仓线2 ;
PP:=操作线<震仓线 AND REF(操作线,1)>震仓线 ;
PP3:=操作线<抄底线 AND REF(操作线,1)>抄底线;
A:=SMA(L,4,3) ;
STICKLINE(A AND REF(PP,1) AND HH ,A*0.998,A*0.996,5,0);
DRAWICON(A AND REF(PP,1) AND HH,L*0.98,1);
DRAWICON(A AND REF(PP,1) AND HH,L*0.96,23);
STICKLINE(A AND REF(PP3,1) AND HH ,A*0.998,A*0.996,5,0);
DRAWICON(A AND REF(PP3,1) AND HH,L*0.98,1);
牛:DRAWICON(A AND REF(PP3,1) AND HH,L*0.97,23);
追牛:DRAWTEXT(牛,L*0.96,' ★--追牛 '),COLORFF00FF;
理想通:=EMA((C-LLV(L,5))/(HHV(H,6)-LLV(L,6)),2)*100,COLORYELLOW,LINETHICK1;
VARB1:=SMA(SMA(理想通,2,1),2,1);
VARB2:=(VARB1/2+36.8)*1;
VARB3:=SMA(VARB2,2,1)+2.2,COLORFFFF00;
VARB4:=SMA(VARB2,2,1)-35.08,COLOR00FF00,LINETHICK1;
卖出1:DRAWTEXT(CROSS(VARB3,理想通*0.9998+0.0018) AND VARB3>67 ,H*1.0012,'--卖出 '),COLOR00FF00;
卖出2:DRAWTEXT(CROSS(VARB3,理想通*0.9998+0.0018) AND VARB3>67 ,H*1.0112,' '),COLOR00FF00;
加仓:DRAWTEXT(CROSS(理想通,VARB4*0.9998+0.0018),L*0.988,'★--加仓 '),COLOR0000FF;
VAR6S:=REF(C,1);
VAR7S:=SMA(MAX(C-VAR6S,0),6,1)/SMA(ABS(C-VAR6S),6,1)*100;
DRAWTEXT(CROSS(82,VAR7S),H*1.02568,'↙做空'),COLORMAGENTA;
AAOO:=CROSS(MA(C,5),MA(C,20)) AND CROSS(MA(C,5),MA(C,30)) AND CROSS(MA(C,5),MA(C,60));
BBBO:=MA(C,60)>MA(C,10) AND CROSS(MA(C,10),MA(C,30)) AND MA(C,30)>MA(C,20) AND ABS(MA(C,60)-MA(C,20))/MA(C,20)<0.05;
CCCO:=MA(C,30)>MA(C,5) AND CROSS(MA(C,5),MA(C,20)) AND MA(C,20)>MA(C,10);
DD:=ABS((MA(C,5)-MA(C,10))+(MA(C,10)-MA(C,20))+(MA(C,20)-MA(C,30)))<0.02 AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1);
EE:=MA(C,20)>MA(C,5) AND CROSS(MA(C,5),MA(C,10)) AND MA(C,10)>MA(C,60) AND ABS(MA(C,20)-MA(C,60))/MA(C,60)<0.05;
FF:=AAOO OR BBBO OR CCCO OR DD OR EE ;
探测:=FF AND FILTER( FF,8);
STICKLINE(探测,H,L,0.3,0),COLORRED;
STICKLINE(探测,O,C,5,0),LINETHICK2,COLORRED;
AA1P:=AMOUNT/VOL;
BB1:=L<AA1P*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1O:=L<MA(C,5)*0.921;
EE1:=VOL<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1O AND EE1 ,COLORRED,LINETHICK0;
DRAWTEXT(FF1,L*0.94,'★(潜伏)'),COLORYELLOW;
STICKLINE(FF1,H,L,0.3,0),COLORYELLOW;
STICKLINE(FF1,O,C,5,0),LINETHICK2,COLORYELLOW;
DRAWTEXT(CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),
HIGH*1.00032,'---警'),COLORGREEN;
LCP:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LCP,0),4.1,1)/SMA(ABS(CLOSE-LCP),4.1,1)*100;
DRAWICON(CROSS(RSI,11) ,L*0.9996,4);
VAR28K:=SMA(MAX(CLOSE-LCP,0),5.5,1)/SMA(ABS(CLOSE-LCP),6,1)*100;
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'☆'),COLORFF00FF;
VARAK:=((AMOUNT)/(VOL))/(100);
VARBK:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARCK:=((SUM(AMOUNT,7))/(VARAK))/(100);
VARDK:=DMA(VARBK,(VOL)/(VARCK));
VAREK:=((CLOSE-VARDK)/(VARDK))*(100);
VARFK:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJK:=MA(VAREK,20)+STD(VAREK,20);
BIAS18K:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AAK:=SMA(VARFK,3,1);
SSK:=(REF(BIAS18K,1)>=5) AND CROSS(VARJK,VAREK) AND (AAK>79);
DRAWTEXT((REF(BIAS18K,1)>=5) AND CROSS(VARJK,VAREK) AND (AAK>SSK) AND CROSS(84,RSI),H*1.0001,'☆'),LINETHICK7,COLORYELLOW;
DRAWTEXT(CROSS(84,RSI) AND CROSS(76,VAR28K),H*1.05,'--逃顶'),LINETHICK2,COLOR00FF00;
G1:=REF(O,1)>REF(C,1);
GSD:=C/REF(C,1)>=1.095 AND L<>H;
FH:=GSD AND G1 AND V<REF(V,1);
DRAWTEXT(FH,L*0.98,'←一指千金'),COLORYELLOW;
VAR2L:=(2*CLOSE+HIGH+LOW)/4;
VAR3L:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4L:=LLV(LOW,5);
VAR5L:=HHV(HIGH,4);
散户:=EMA((VAR2L-VAR4L)/(VAR5L-VAR4L)*100,4)*VAR3L;
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3L;
DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.16,'←低吸'),COLORYELLOW;
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H+0.08,'←高抛'),COLORGREEN;
M1:MA(CLOSE,13),NODRAW;
M2:MA(CLOSE,34),NODRAW;
M3:MA(CLOSE,55),NODRAW;
AP:MA(C,5),NODRAW;
BP:=AP<REF(AP,1);
IF(BP-1,AP,DRAWNULL),NODRAW;
DRAWTEXT(LAST(C<O,3,0) AND LAST(VOL<REF(VOL,1),3,0),L*0.975,'↖三阳');
DRAWTEXT(CROSS("DMI.PDI","DMI.MDI") AND CROSS("DMI.PDI","DMI.ADX") AND CROSS("DMI.PDI","DMI.ADXR") AND C>REF(C,1)*1.05 AND VOL>REF(VOL,1),L*0.975,'↖涨');
DRAWTEXT(LAST(MA(C,5)<MA(C,10),5,0) AND "CCI.CCI">REF("CCI.CCI",1) AND CROSS("CCI.CCI",-100),L*0.975,'↖背离底');
X1:=(C+L+H)/3;
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;
EMA8:=EMA(C,8);
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'★∠45升'),COLORLIBLUE;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.99000001),'--★加仓'),COLOR00FFFF;
AA1Y:=AMOUNT/V;
BB1Y:=L<AA1Y*0.9;
CC1Y:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1Y:=L<MA(C,5)*0.921;
EE1Y:=V<MA(V,5)*1.5;
FF1Y:=BB1Y AND CC1Y AND DD1Y AND EE1Y;
DRAWTEXT(FF1Y,(LOW* 0.90),'↖老鼠仓'),COLOR4080FF;
A001:=CLOSE-REF(CLOSE,6);
A002:=MA(A001,6);
A003:=((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*100;
A004:=SMA(A003,3,1);
A005:=SMA(A004,3,1);
A006:=EMA((3*A004-2*A005),2);
A007:=(HIGH+LOW+CLOSE)/3;
A008:=((A007-MA(A007,14))/(0.015*AVEDEV(A007,14)))/2;
A009:=(A008+(EMA(((0-(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))))+100)/100,3)*200-100))/2;
A010:=A009-REF(A009,14);
A011:=A009-REF(A009,26);
A012:=(A009+A010+A011)/3;
KKM:=EMA(A012,4);
A013:=HHV(HIGH,34);
A014:=(2*CLOSE+HIGH+LOW)/4;
A015:=LLV(LOW,34);
A016:=EMA(((A014-A015)/(A013-A015))*100,13);
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
KKMD:=A016-A017>1 AND A016<30 AND A017<30;
KKML:=A016-A017<0 AND A016>80 AND A017>80 AND REF(A016-A017,1)>0;
KKMQ:=COUNT(A016-A017>0,2)=2;
KKAL:=(A016-A017)<0;
生命线:MA(CLOSE,3),NODRAW;
成本:MA(CLOSE,7),NODRAW;
DRAWTEXT(FILTER(KKMD,30),L,'最佳买入时机'),COLOR00FFFF;
DRAWTEXT(FILTER(KKML,30),H,'最佳卖出时机'),COLORFFFF00;
DRAWTEXT(FILTER(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),30),L*0.93,'↖该股强于大盘'),COLORFF00FF;
M20:MA(C,20),COLORLIRED,DOTLINE;
T1:=BARSLAST(CROSS(C>=M20,0.5));
T2:=BARSLAST(CROSS(C<M20,0.5));
T3:=SUMBARS(T1=0,2);
ZF:=(C-REF(C,T1+1))/REF(C,T1+1)*100;
HZF:=REF(HHV(ZF,T1+1),T2);
DF:=(C-REF(C,T2+1))/REF(C,T2+1)*100;
LDF:=LLV(DF,T2+1);
L1:=LLV(L,T2+1);
L2:=REF(L1,T3-1);
AC:=COUNT(T2=0,T3)=1;
AC1:=O<M20 AND C>=M20 AND HZF<15 AND LDF>-25 AND LDF<-10;
AC2:=REF(T1,T2)>1 AND T2>1 AND MACD.DIF>MACD.DEA AND MACD.MACD>REF(HHV(MACD.DIF,2),1);
AC3:=HSL<REF(HSL,T2) AND LLV(L,T2+1)>BOLL.LB*0.9 AND HHV(L,T2+1)<M20;
AC4:=AMOUNT>REF(AMOUNT,1);
XG:=AC AND AC1 AND AC2 AND AC3 AND AC4;
DRAWICON(XG,L,1);
