天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

天机股票网 争做最牛的股票资讯集散地 注册 - 常见问题 - 联系方式

你有好料 就来分享 你可以将手中的好料分享赚取金币。 如何获得金币 - 金币回购计划

天天来访问 天天有收获 高端信息区区几个金币就可查看 立即注册 - QQ快速登陆

查看: 1703|回复: 0

[通达信] 集体共振(副图 源码 贴图 通达信 飞狐)

[复制链接]
发表于 2011-7-13 09:40:38 | 显示全部楼层 |阅读模式
本帖最后由 股票王 于 2011-7-13 09:40 编辑

这个指标原来是大智慧指标,我将它改为通达信和飞狐指标和大家共享。出现底背离准备进场,集体出现顶背离准备离场。

通达信源码,
参数:n1 (6) n2 (12) n3 (24 )
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;
D:SMA(K,3,1),LINETHICK2,COLORYELLOW;
J:3*K-2*D,LINETHICK2,COLORRED;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK2,COLORGREEN;
DEA :EMA(DIFF,9),LINETHICK2,COLORBLUE;
MACD:2*(DIFF-DEA),LINETHICK2,COLORRED;
RSV1:=(HHV(H,9.8)-C)/(HHV(H,9.8)-LLV(L,9.8))*101;   
KK:=SMA(RSV1,3,1);   
DD:=SMA(KK,3,1);   
JJ:=3*KK-2*DD;   
买卖:=IF(JJ>=100,100,IF(JJ<=0,0,JJ));   
明天买:IF(买卖=100,0-10,0),COLOR00CCCC;   
明天卖:IF(买卖=0,90,100),COLOR00FF00;   
TYP:=(HIGH+LOW+CLOSE)/3;   
STICKLINE(DIFF>REF(DIFF,1),20,20,2,0),COLORRED;   
STICKLINE(DIFF<REF(DIFF,1),20,20,2,0),COLORGREEN;   
STICKLINE(K>=REF(K,1) OR K>D AND DIFF>REF(DIFF,1),80,80,2,1),COLORRED;   
STICKLINE(K<REF(K,1),80,80,2,1),COLORGREEN;   
MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;
DRAWTEXT(MACD金叉,40,▲MACD金叉),COLORRED;
XX:=EMA(MA(LOW,3)*0.96,30);
DIFF金叉:=IF(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);
DRAWTEXT(DIFF金叉=1,35,▲DIFF金叉),COLORRED;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低位金叉,25,▲低位金叉),COLORRED;
DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1;
DRAWTEXT(二次金叉,20,▲二次金叉),COLORRED;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
MACD底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWTEXT(MACD底背离,30,▲MACD底背离),COLORRED;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
MACD顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(MACD顶背离,5),100,▼MACD顶背离) ;

周DIFF:=MACD.DIFF#WEEK;
周DEA:=MACD.DEA#WEEK;
周MACD:=MACD.MACD#WEEK;
DIF周金叉:=CROSS(周DIFF,周DEA);
DRAWTEXT(DIF周金叉,45,▲DIFF周金叉),COLORRED;
DRAWTEXT(CROSS(周DEA,周DIFF),110,▼DIFF周死叉) ;
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;
DRAWTEXT(MACD周金叉,50,▲MACD周金叉),COLORRED;

月DIFF:=MACD.DIFF#MONTH;
月DEA:=MACD.DEA#MONTH;
月MACD:=MACD.MACD#MONTH;
DIF月金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(DIF月金叉,55,▲DIFF月金叉),COLORRED ;
DRAWTEXT(CROSS(月DEA,月DIFF),105,▼DIFF月死叉) ;
MACD月金叉:=CROSS(月MACD,月DIFF) AND 月MACD>=(0-0.05) AND 月MACD<=0.02;
DRAWTEXT(MACD月金叉,60,▲MACD月金叉),COLORRED;
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
KD月金叉:=CROSS(月K,月D);
KD周金叉:=CROSS(周K,周D);
KD日金叉:=FILTER(CROSS(K,D) AND D<50,4);
KD低位金叉:=FILTER(CROSS(K,D) AND D<20,4);
DRAWTEXT(KD月金叉,0,▲KD月金叉),COLORRED;
DRAWTEXT(KD周金叉,-5,▲KD周金叉),COLORRED ;
DRAWTEXT(KD日金叉,-10,▲KD日金叉),COLORRED ;
DRAWTEXT(KD低位金叉,5,▲KD低位金叉),COLORRED;
KD1:=COUNT(CROSS(K,D),BARSLAST(D>=50));
KD二次金叉:=CROSS(K,D) AND D<50 AND COUNT(KD1=2,21)=1;
DRAWTEXT(KD二次金叉,10,▲KD二次金叉),COLORRED ;
KD2:=COUNT(CROSS(D,K),BARSLAST(D<=50));
KD二次死叉:=CROSS(D,K) AND D>50 AND COUNT(KD2=2,21)=1;
DRAWTEXT(KD二次死叉,95,▼KD二次死叉) ;

KD日死叉:=FILTER(CROSS(D,K) AND D>80,4);
DRAWTEXT(KD日死叉,80,▼KD日死叉) ;
DRAWTEXT(CROSS(周D,周K),85,KD周死叉) ;
DRAWTEXT(CROSS(月D,月K),90,KD月死叉) ;
KDB:=BARSLAST(REF(CROSS(K,D),1));
KDDB:=REF(CLOSE,KDB+1)>CLOSE AND REF(K,KDB+1)<K AND CROSS(K,D);
KDJ底背离:=IF(FILTER(KDDB>0,5),1,0);
DRAWTEXT(KDJ底背离=1,15,▲KDJ底背离),COLORRED;
KDD:=BARSLAST(REF(CROSS(D,K),1));
KDJ顶背离:=REF(CLOSE,KDD+1)<CLOSE AND REF(K,KDD+1)>K AND CROSS(D,K);
DRAWTEXT(FILTER(KDJ顶背离>0,5),120,▼KDJ顶背离) ;


RSI周金:DRAWTEXT(CROSS("RSI.RSI1#WEEK"(N1,N2,N3),"RSI.RSI2#WEEK"(N1,N2,N3)) ,65,▲RSI周金),COLORRED;
RSI周死:DRAWTEXT(CROSS("RSI.RSI2#WEEK"(N1,N2,N3),"RSI.RSI1#WEEK"(N1,N2,N3)) ,130,▼RSI周死) ;
RSI月金:DRAWTEXT(CROSS("RSI.RSI1#MONTH"(N1,N2,N3),"RSI.RSI2#MONTH"(N1,N2,N3)) ,70,▲RSI月金),COLORRED;
RSI月死:DRAWTEXT(CROSS("RSI.RSI2#MONTH"(N1,N2,N3),"RSI.RSI1#MONTH"(N1,N2,N3)) ,115,▼RSI月死) ;
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
RSI底背离:=FILTER(B3>0,5);
DRAWTEXT(RSI底背离,75,▲RSI底背离),COLORRED;
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
RSI顶背离:=FILTER(D3>0,5);
DRAWTEXT(RSI顶背离,125,▼RSI顶背离) ;

{预涨}   
AZ:=DYNAINFO(7);   
AC1:=REF(C,1);   
Z,1:=(AZ-AC1)/AC1*100;   
BZ:=DYNAINFO(8);   
BV1:=REF(VOL,1);   
Z,2:=BZ/BV1*100;   
DZ:=REF(CLOSE,1)-REF(OPEN,1);   
EZ:=DYNAINFO(23)-DYNAINFO(22);   
FZ:=REF(VOL,1)-REF(VOL,2);   
预涨:=Z,1>1 AND Z,1<5 AND Z,2>30 AND DZ>0 AND EZ>0 AND FZ>0 AND D>REF(D,1);   
DRAWTEXT(预涨,D*0.6,预\N涨),COLOR00CC00;

KX:=250;   
KH:=HHV(K,KX);   
DH:=HHV(D,KX);   
JH:=HHV(J,KX);   
KL:=LLV(K,KX);   
DL:=LLV(D,KX);   
JL:=LLV(J,KX);   
HKMAX:=MAX(KH,MAX(DH,JH));   
LKMIN:=MIN(KL,MIN(DL,JL));   
KHLB:=(HKMAX+LKMIN)/2;   
KHLC:=HKMAX-LKMIN;   
MHF:=HHV(DIFF,KX);   
MHD:=HHV(DEA,KX);   
MHM:=HHV(MACD,KX);   
MLF:=LLV(DIFF,KX);   
MLD:=LLV(DEA,KX);   
MLM:=LLV(MACD,KX);   
HMAX:=MAX(MHF,MAX(MHD,MHM));   
LMIN:=MIN(MLF,MIN(MLD,MLM));   
FHLB:=(HMAX-LMIN)/100;   
FHLC:=HMAX-LMIN;   
SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;   

DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;   
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;   
MACDA:=(MACD-FHLB)*(KHLC/FHLC)+KHLB;   
   
MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3;   
MD2:=MA((CLOSE-MD1)/MD1,3);   
买点1:=CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 AND J<75 AND J>REF(J,1);   
MA12:=MA(CLOSE,12);   
佳点:=IF(FILTER(MACD>=REF(MACD,5) AND OPEN<=REF(CLOSE,1) AND XX-REF(XX,1)>0 AND MACD<=0 AND MA12-REF(MA12,1)>=0,3) AND J<80 AND J>REF(J,1) AND D>REF(D,1) AND (DIFF>=REF(DIFF,1) OR DEA>=REF(DEA,1)),1,0);   
DRAWTEXT(佳点=1,MACDA*0.98,佳点),COLOR00CC00;   
DX0:=EMA(CLOSE,2)-EMA(OPEN,5);   
DX1:=IF(CROSS(DX0,MACD) AND LOW<=XX AND MACD<=(0-0.11) AND (J<20 OR K<20),1,0);   
DRAWTEXT(FILTER(DX1,3),0,短10%),COLOR00CC00;{短线}   

MA10:=MA(CLOSE,10);   SS:=EMA(MA(HIGH,3)*1.05,30);   
LQS:=IF(FILTER(0.7*(CROSS(DIFF,DEA) AND CLOSE<SS AND XX-REF(XX,1)>0 AND CROSS(MACD,0) AND MACD>=0 AND DIFF>0 AND MA10-REF(MA10,1)>0 AND VOL>REF(VOL,1))>=0.7 AND (CLOSE<SS AND XX-REF(XX,1)>0),5) AND J<80,1,0);   
DRAWTEXT(LQS=1,MACDA*0.98,量价齐上),COLOR00CC00;{量价齐上}   
最佳点:=IF(COUNT(MD2>REF(MD2,1),3)=3 AND COUNT(MD2<0,10)=10 AND REF(MD2,3)=LLV(MD2,10) AND J<80 AND J>REF(J,1),1,0);   
DRAWTEXT(最佳点=1,J,最佳点),COLOR00CC00;   
买点2:=REF(MD2,2)=LLV(MD2,20) AND REF(MD2,2)<0.071 AND REF(MD2,2)<REF(MD2,1) AND     
NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1) AND J<75 AND J>REF(J,1);   
DRAWTEXT(买点1 OR 买点2,D-1,买),COLOR00CC00;   


飞狐源码:
input:n1(6),n2(12),n3(24);   
   
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;   
D:SMA(K,3,1),LINETHICK2,COLORyellow;     
J:3*K-2*D,LINETHICK2,COLORred;   
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),linethick2,COLORgreen;   
DEA :EMA(DIFF,9),linethick2,COLORblue;   
MACD:2*(DIFF-DEA),linethick2,COLORred;   
rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;   
kk:=sma(rsv1,3,1);   
dd:=sma(kk,3,1);   
jj:=3*kk-2*dd;   
买卖:=if(jj>=100,100,if(jj<=0,0,jj));   
明天买:if(买卖=100,0-10,0),color00cccc;   
明天卖:if(买卖=0,90,100),color00ff00;   
LC := REF(CLOSE,1);   
SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,LINETHICK1,Colorred;   
SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100,LINETHICK1,COLORgreen;   
SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100,LINETHICK1,COLORblue;  
KX:=250;   
KH:=HHV(K,KX);   
DH:=HHV(D,KX);   
JH:=HHV(J,KX);   
KL:=LLV(K,KX);   
DL:=LLV(D,KX);   
JL:=LLV(J,KX);   
HKMAX:=MAX(KH,MAX(DH,JH));   
LKMIN:=MIN(KL,MIN(DL,JL));   
KHLB:=(HKMAX+LKMIN)/2;   
KHLC:=HKMAX-LKMIN;   
MHF:=HHV(DIFF,KX);   
MHD:=HHV(DEA,KX);   
MHM:=HHV(MACD,KX);   
MLF:=LLV(DIFF,KX);   
MLD:=LLV(DEA,KX);   
MLM:=LLV(MACD,KX);   
HMAX:=MAX(MHF,MAX(MHD,MHM));   
LMIN:=MIN(MLF,MIN(MLD,MLM));   
FHLB:=(HMAX-LMIN)/100;   
FHLC:=HMAX-LMIN;   
SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;   
DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;   
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;   
MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;   
CDA:=MACD<ref(MACD,1) and MACD>0;   
CDB:=MACD>=ref(MACD,1) and MACD>0;   
CDC:=MACD>ref(MACD,1) and MACD<0;   
CDD:=MACD<=ref(MACD,1) and MACD<0;   
STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黄色段}   
STICKLINE(CDA,SH,macda,6.6,0),COLOR00BBFF;   
STICKLINE(CDA,SH,macda,4.4,0),COLOR00CCFF;   
STICKLINE(CDA,SH,macda,3.3,0),COLOR00DDFF;   
STICKLINE(CDA,SH,macda,2.2,0),COLOR00EEFF;   
STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;   
STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {红色段}   
STICKLINE(CDB,SH,macda,6.6,0),COLOR0011BB;     
STICKLINE(CDB,SH,macda,4.4,0),COLOr0022CC;   
STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;     
STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;     
STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;   
STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{向上粉红}   
STICKLINE(CDC,SH,macda,6.6,0),COLORBB11BB;   
STICKLINE(CDC,SH,macda,4.4,0),COLORCC22BB;   
STICKLINE(CDC,SH,macda,3.3,0),COLORDD33BB;     
STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;     
STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;   
STICKLINE(CDD,SH,macda,6,0),COLORFF7700;   
STICKLINE(CDD,SH,macda,6.6,0),COLORFF8811;     
STICKLINE(CDD,SH,macda,4.4,0),COLORFFAA22;   
STICKLINE(CDD,SH,macda,3.3,0),COLORFFBB33;     
STICKLINE(CDD,SH,macda,2.2,0),COLORFFDD44;     
STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;   
TYP:=(HIGH+LOW+CLOSE)/3;   
STICKLINE(diff>ref(diff,1),20,20,8,0),COLORRED;   
STICKLINE(diff<ref(diff,1),20,20,8,0),COLORGREEN;   
STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),80,80,8,1),COLORRED;   
STICKLINE(K<ref(K,1),80,80,8,1),COLORGREEN;   
MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;   
DRAWTEXT(MACD金叉,40,▲MACD金叉),colorRED;   
XX:=ema(MA(LOW,3)*0.96,30);   
DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);   
DRAWTEXT(DIFF金叉=1,35,▲DIFF金叉),colorRED;   
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;   
DRAWTEXT(低位金叉,25,▲低位金叉),colorRED;   
DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));   
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1;   
DRAWTEXT(二次金叉,20,▲二次金叉),colorRED;   
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));   
MACD底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);   
DRAWTEXT(MACD底背离,30,▲MACD底背离),colorRED;   
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));   
MACD顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);   
DRAWTEXT(FILTER(MACD顶背离,5),100,▼MACD顶背离),COLORBLUE;   
{周金叉,死叉}   
周DIFF:="MACD.DIFF#WEEK";   
周DEA:="MACD.DEA#WEEK";   
周MACD:="MACD.MACD#WEEK";   
DIF周金叉:=CROSS(周DIFF,周DEA);   
DRAWTEXT(DIF周金叉,45,▲DIFF周金叉),colorRED;   
DRAWTEXT(CROSS(周DEA,周DIFF),110,▼DIFF周死叉),align0,colorBLUE;   
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;   
DRAWTEXT(MACD周金叉,50,▲MACD周金叉),colorRED;   
{月金叉,死叉}   
月DIFF:="MACD.DIFF#MONTH";   
月DEA:="MACD.DEA#MONTH";   
月MACD:="MACD.MACD#MONTH";   
DIF月金叉:=CROSS(月DIFF,月DEA);   
DRAWTEXT(DIF月金叉,55,▲DIFF月金叉),colorRED;   
DRAWTEXT(CROSS(月DEA,月DIFF),105,▼DIFF月死叉),align0,colorBLUE;   
MACD月金叉:=CROSS(月MACD,月DIFF) AND 月MACD>=(0-0.05) AND 月MACD<=0.02;   
DRAWTEXT(MACD月金叉,60,▲MACD月金叉),colorRED;   
周K:="KDJ.K#WEEK"(9,3,3);   
周D:="KDJ.D#WEEK"(9,3,3);   
周J:="KDJ.J#WEEK"(9,3,3);   
月K:="KDJ.K#MONTH"(9,3,3);   
月D:="KDJ.D#MONTH"(9,3,3);   
月J:="KDJ.J#MONTH"(9,3,3);   
KD月金叉:=cross(月K,月D);   
KD周金叉:=cross(周K,周D);   
KD日金叉:=FILTER(cross(K,D) and D<50,4);   
KD低位金叉:=FILTER(cross(K,D) and D<20,4);   
DRAWTEXT(KD月金叉,0,▲KD月金叉),colorRED;   
DRAWTEXT(KD周金叉,-5,▲KD周金叉),colorRED;   
DRAWTEXT(KD日金叉,-10,▲KD日金叉),colorRED;   
DRAWTEXT(KD低位金叉,5,▲KD低位金叉),colorRED;   
KD1:=COUNT(CROSS(K,D),BARSLAST(D>=50));   
KD二次金叉:=CROSS(K,D) AND D<50 AND COUNT(KD1=2,21)=1;   
DRAWTEXT(KD二次金叉,10,▲KD二次金叉),colorRED;   
KD2:=COUNT(CROSS(D,K),BARSLAST(D<=50));   
KD二次死叉:=CROSS(D,K) AND D>50 AND COUNT(KD2=2,21)=1;   
DRAWTEXT(KD二次死叉,95,▼KD二次死叉),ColorBLUE;   
   
KD日死叉:=FILTER(cross(D,K) and D>80,4);   
DRAWTEXT(KD日死叉,80,▼KD日死叉),COLORBLUE;   
DRAWTEXT(CROSS(周D,周K),85,KD周死叉),COLORDDDDDD;   
DRAWTEXT(CROSS(月D,月K),90,KD月死叉),COLORDDDDDD;   
KDB:=BARSLAST(ref(cross(k,d),1));   
KDDB:=ref(close,KDB+1)>close and ref(k,KDB+1)<k and cross(k,d);   
KDJ底背离:=if(FILTER(KDDB>0,5),1,0);   
DRAWTEXT(KDJ底背离=1,15,▲KDJ底背离),colorRED;   
KDD:=BARSLAST(ref(cross(d,k),1));   
KDJ顶背离:=ref(close,KDD+1)<close and ref(k,KDD+1)>k and cross(d,k);   
DRAWTEXT(FILTER(KDJ顶背离>0,5),120,▼kDJ顶背离),COLORBLUE;   
MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3;   
MD2:=MA((CLOSE-MD1)/MD1,3);   
买点1:=CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 AND J<75 AND J>REF(J,1);   
ma12:=MA(CLOSE,12);   
佳点:=if(FILTER(MACD>=REF(MACD,5) AND open<=ref(close,1) and XX-REF(XX,1)>0 AND MACD<=0 AND ma12-REF(ma12,1)>=0,3) and J<80 and J>ref(J,1) and D>ref(D,1) and (diff>=ref(diff,1) or dea>=ref(dea,1)),1,0);   
DRAWTEXT(佳点=1,macda*0.98,佳点),color00CC00;   
DX0:=EMA(CLOSE,2)-EMA(OPEN,5);   
DX1:=if(CROSS(DX0,MACD) AND LOW<=XX AND MACD<=(0-0.11) and (J<20 or K<20),1,0);   
DRAWTEXT(FILTER(DX1,3),0,短10%),color00CC00;{短线}   
MA10:=MA(CLOSE,10);   
SS:=EMA(MA(HIGH,3)*1.05,30);   
LQS:=if(FILTER(0.7*(CROSS(DIFF,DEA) AND CLOSE<SS AND XX-REF(XX,1)>0 AND CROSS(MACD,0) AND MACD>=0 AND DIFF>0 AND ma10-REF(ma10,1)>0 AND VOL>REF(VOL,1))>=0.7 AND (CLOSE<SS AND XX-REF(XX,1)>0),5) AND J<80,1,0);   
DRAWTEXT(LQS=1,macda*0.98,量价齐上),color00CC00;{量价齐上}   
最佳点:=IF(COUNT(MD2>REF(MD2,1),3)=3 AND COUNT(MD2<0,10)=10 AND REF(MD2,3)=LLV(MD2,10) and J<80 and J>ref(J,1),1,0);   
DRAWTEXT(最佳点=1,J,最佳点),color00CC00;   
买点2:=REF(MD2,2)=LLV(MD2,20) AND REF(MD2,2)<0.071 AND REF(MD2,2)<REF(MD2,1) AND     
NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1) AND J<75 AND J>REF(J,1);   
DRAWTEXT(买点1 or 买点2,D-1,买),color00CC00;   
{预涨}   
AZ:=DYNAINFO(7);   
AC1:=REF(C,1);   
Z,1:=(AZ-AC1)/AC1*100;   
BZ:=DYNAINFO(8);   
BV1:=REF(VOL,1);   
Z,2:=BZ/BV1*100;   
DZ:=REF(CLOSE,1)-REF(OPEN,1);   
EZ:=DYNAINFO(23)-DYNAINFO(22);   
FZ:=REF(VOL,1)-REF(VOL,2);   
预涨:=Z,1>1 AND Z,1<5 AND Z,2>30 AND DZ>0 AND EZ>0 AND FZ>0 AND D>REF(D,1);   
DRAWTEXT(预涨,d*0.6,预\n涨),color00CC00;   
RSI周金:DRAWTEXT(CROSS("rsi.rsi1#WEEK"(n1,n2,n3),"rsi.rsi2#WEEK"(n1,n2,n3)) ,65,▲RSI周金),COLORRED;   
RSI周死:DRAWTEXT(CROSS("rsi.rsi2#WEEK"(n1,n2,n3),"rsi.rsi1#WEEK"(n1,n2,n3)) ,130,▼RSI周死),COLORBLUE;   
RSI月金:DRAWTEXT(CROSS("rsi.rsi1#MONTH"(n1,n2,n3),"rsi.rsi2#MONTH"(n1,n2,n3)) ,70,▲RSI月金),COLORRED;   
RSI月死:DRAWTEXT(CROSS("rsi.rsi2#MONTH"(n1,n2,n3),"rsi.rsi1#MONTH"(n1,n2,n3)) ,115,▼RSI月死),COLORBLUE;   
A3:=BARSLAST(ref(cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));   
B3:=ref(c,A3+1)>c and ref("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) and cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));   
RSI底背离:=FILTER(B3>0,5);   
DRAWTEXT(RSI底背离,75,▲RSI底背离),COLORRED;   
C3:=BARSLAST(ref(cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));   
D3:=ref(c,C3+1)<c and ref("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) and cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));   
RSI顶背离:=FILTER(D3>0,5);   
DRAWTEXT(RSI顶背离,125,▼RSI顶背离),COLORBLUE;   
牛股1:二次金叉 and MACD底背离  and  低位金叉  and  kd周金叉  and  月D<20;   
牛股2:二次金叉 and MACD底背离  and  低位金叉  and  kd月金叉  and  周D<20;   
牛股3:KD日金叉 and KD周金叉 and KD月金叉  and  DIF周金叉;   
牛股6:KD周金叉  and KD月金叉  and  DIF周金叉;   
大牛股:FILTER(牛股1  and 牛股2   and 牛股3,18);   
底背离三合一:MACD底背离 and KDJ底背离 and RSI底背离;   
二合一1:MACD底背离 and KDJ底背离 ;   
二合一2:MACD底背离 and RSI底背离;   
二合一3:KDJ底背离 and RSI底背离;   
顶背离:MACD顶背离 or KDJ顶背离 or RSI顶背离;   
DRAWTEXT(牛股3 OR 大牛股  OR 牛股6  OR 底背离三合一,D-8,▲▲▲全仓买),COLORred;


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则