通达信资金共振主图+月周共振副图指标 需要L2支持 源码
通达信资金共振主图+月周共振副图指标 需要L2支持 源码
{资金共振R主图源码如下}
N1:=3;N2:=5;N3:=8;N4:=13;
RSV:=-(HHV(HIGH,N4)-CLOSE)/(HHV(HIGH,N4)-LLV(LOW,N4))*100;
LWR1:=SMA(RSV,N1,1);
LWR2:=SMA(LWR1,N1,1);
A1:=LWR1>LWR2;
Z1:=LWR1<LWR2;
RSV1:=(CLOSE-LLV(LOW,N3))/(HHV(HIGH,N3)-LLV(LOW,N3))*100;
K:=SMA(RSV1,N1,1);
DDU:=SMA(K,N1,1);
A2:=K>DDU;
Z2:=K<DDU;
LC:=REF(CLOSE,1);
RSI1:=(SMA(MAX(CLOSE-LC,0),N2,1))/(SMA(ABS(CLOSE-LC),N2,1))*100;
RSI2:=(SMA(MAX(CLOSE-LC,0),N4,1))/(SMA(ABS(CLOSE-LC),N4,1))*100;
A3:=RSI1>RSI2;
Z3:=RSI1<RSI2;
DIFF:=EMA(CLOSE,N3)-EMA(CLOSE,N4);
DEA:=EMA(DIFF,N2);
A4:=DIFF>DEA;
Z4:=DIFF<DEA;
BBI:=(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4;
A5:=C>BBI;
Z5:=C<BBI;
MTM:=CLOSE-REF(CLOSE,1);
MMS:=100*EMA(EMA(MTM,N2),N1)/EMA(EMA(ABS(MTM),N2),N1);
MMM:=100*EMA(EMA(MTM,N4),N3)/EMA(EMA(ABS(MTM),N4),N3);
A6:=MMS>MMM;
Z6:=MMS<MMM;
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘:=(V9+V8);
卖盘:=(V6+V7);
买卖差:=买盘-卖盘;
DDX:=买卖差;
DX:=MA(买卖差,5)*20;
DDX1:=SMA(DX,3,1);
DDX2:=SMA(DDX1,3,1);
DDX3:=(5*DDX2+4*REF(DDX2,1)+3*REF(DDX2,2)+2*REF(DDX2,3)+REF(DDX2,4))/15;
A7:=DDX1>DDX2;
Z7:=DDX1<DDX2;
量:=V;
换手:=V/CAPITAL*100;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘1:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖盘1:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
DLX:=(买盘1-(-卖盘1))/量*换手;
DLX1:=SUM(DLX,6);
DLX2:=MA(DLX1,5);
A8:=DLX1>DLX2;
Z8:=DLX1<DLX2;
VARR1:=(2*CLOSE+HIGH+LOW)/4;
VARR2:=EMA(EMA(EMA(VARR1,4),4),4);
JE:=(VARR2-REF(VARR2,1))/REF(VARR2,1)*100;
DD:=MA(JE,3);
KK:=MA(JE,1);
A9:=KK>DD;
Z9:=KK<DD;
MTR:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LDK :=REF(LOW,1)-LOW;
DMP:=SUM(IF(HD>0&&HD>LDK,HD,0),14);
DMM:=SUM(IF(LDK>0&&LDK>HD,LDK,0),14);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
A10:=PDI>MDI;
Z10:=PDI<MDI;
T:=(A1 AND A2 AND A3 AND A4 AND A5 AND A6 AND A7 AND A8 AND A9 AND A10);
T1:=T AND REF(T,1)=0;
TT:=Z1 AND Z2 AND Z3 AND Z4 AND Z5 AND Z6 AND Z7 AND Z8 AND Z9 AND Z10;
TT1:=TT AND REF(TT,1)=0;
十指红柱:=IF(T1,10.4,DRAWNULL);
K1K:=IF(CLOSE>=REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW);
K2K:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE);
DT:=VOL*K1K/(K1K+K2K);
KT:=VOL-DT;
买量:=SUM(DT,1);
卖量:=SUM(KT,1);
DDXX:=EMA(买量-卖量,5)*VOL/CAPITAL*100;
DDXX1:=SMA(DDXX,3,1);
DDXX2:=SMA(DDXX1,3,1);
DDXX3:=EMA(DDXX2,5);
大单净量:=DDXX>0 AND MA(V,5)>MA(MA(V,5),5) AND CROSS(DDXX1,DDXX2);
DIFFX:=( EMA(CLOSE,12) - EMA(CLOSE,26))*100;
DEAX:=EMA(DIFFX,9);
MACD:=2*(DIFFX-DEAX);
绿柱消失买入:=STICKLINE(DIFFX<0,0,DIFFX,2,0);
红柱消失卖出:=STICKLINE(DIFFX>=0,0,DIFFX,2,0);
顺势红柱:=IF(DIFFX>DEAX,DIFFX,DRAWNULL);
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MAOBV:=MA(OBV,30);
KM:=OBV>MAOBV;
TTA1:=顺势红柱 AND 十指红柱 AND KM;
TTA2:=顺势红柱 AND 大单净量 AND 十指红柱 AND KM;
{STICKLINE(TTA1,H,L,0.1,0),COLORYELLOW;
STICKLINE(TTA1,O,C,3,1),LINETHICK2,COLORYELLOW;
DRAWTEXT(TTA1 OR TTA2,L*0.97,' 共振'),COLORRED;
DRAWICON(TTA1 OR TTA2,L*0.99,11);
STICKLINE(TTA2,O,C,1,0),COLORYELLOW;
STICKLINE(TTA2,O,C,1.2,0),COLORYELLOW;}
X_1S:=POW(10,6)+241230-DATE;
X_2S:=IF(X_1S>0,1,0);
X_3S:=IF(X_1S>0,1,0);
X_4S:=HHV(CLOSE,10);
起爆线:EMA(X_4S,30),COLORMAGENTA,LINETHICK2;
IF(起爆线<=REF(起爆线,1),起爆线,DRAWNULL),COLORCYAN,LINETHICK2;
X_5S:=EMA(X_4S,120);
X_6S:=MA(CLOSE*VOL,20);
X_7S:=MA(CLOSE*VOL,60);
X_8S:=1000*(X_6S-REF(X_6S,1))/REF(X_6S,1)*2;
X_9S:=1000*(X_7S-REF(X_7S,1))/REF(X_7S,1)*2;
X_10S:=(X_8S-X_9S)*VOL*CLOSE/MA(REF(VOL*CLOSE,1),5);
X_11S:=LLV(LOW,200);
X_12S:=EMA((CLOSE-X_11S)/X_11S,30)*100+200;
X_13S:=FILTER(CLOSE>=REF(CLOSE,1)*1.05 AND X_10S>=X_12S/2 AND CLOSE>=OPEN AND (CROSS(CLOSE,起爆线) OR (CLOSE>起爆线 AND REF(LOW,1)<起爆线)),20);
X_14S:=SUMBARS(X_13S,1)*X_2S;
STICKLINE(X_13S,CLOSE,OPEN,2,0),COLORYELLOW;
STICKLINE(X_14S,REF(CLOSE,X_14S-1),REF(CLOSE,X_14S-1),2,0),COLORYELLOW;
STICKLINE(X_14S,REF(CLOSE,X_14S+1),REF(CLOSE,X_14S+1),2,0),COLORCYAN;
STICKLINE(X_13S,LOW-0.46,LOW-0.65,3.8,0),COLORCYAN;
STICKLINE(X_13S,LOW-0.44,LOW-0.65,3.6,0),COLORCYAN;
STICKLINE(X_13S,LOW-0.42,LOW-0.65,3.4,0),COLORCYAN;
STICKLINE(X_13S,LOW-0.4,LOW-0.65,3.2,0),COLOR444444;
STICKLINE(X_13S,LOW-0.38,LOW-0.65,3,0),COLOR555555;
STICKLINE(X_13S,LOW-0.36,LOW-0.65,2.8,0),COLOR666666;
STICKLINE(X_13S,LOW-0.34,LOW-0.65,2.6,0),COLOR777777;
STICKLINE(X_13S,LOW-0.32,LOW-0.65,2.4,0),COLOR888888;
STICKLINE(X_13S,LOW-0.3,LOW-0.65,2.2,0),COLOR999999;
STICKLINE(X_13S,LOW-0.28,LOW-0.55,2,0),COLOR003300;
STICKLINE(X_13S,LOW-0.26,LOW-0.55,1.8,0),COLOR004400;
STICKLINE(X_13S,LOW-0.24,LOW-0.55,1.6,0),COLOR005500;
STICKLINE(X_13S,LOW-0.22,LOW-0.55,1.4,0),COLOR006600;
STICKLINE(X_13S,LOW-0.2,LOW-0.55,1.2,0),COLOR007700;
STICKLINE(X_13S,LOW-0.18,LOW-0.55,1,0),COLOR008800;
STICKLINE(X_13S,LOW-0.16,LOW-0.55,0.8,0),COLOR009900;
STICKLINE(X_13S,LOW-0.14,LOW-0.55,0.6,0),COLOR00BB00;
STICKLINE(X_13S,LOW-0.12,LOW-0.55,0.4,0),COLOR00DD00;
STICKLINE(X_13S,LOW-0.1,LOW-0.55,0.2,0),COLORRED;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,2,0),COLORCYAN;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,1.8,0),COLORCYAN;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,1.6,0),COLOR000055;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,1.4,0),COLOR000066;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,1.2,0),COLOR000077;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,1,0),COLOR000088;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,0.8,0),COLOR000099;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,0.6,0),COLOR0000AA;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,0.4,0),COLOR0000CC;
STICKLINE(X_13S,LOW-0.48,LOW-0.3,0.2,0),COLOR0000EE;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,2,0),COLOR005566;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,1.8,0),COLOR006677;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,1.6,0),COLOR007788;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,1.4,0),COLOR008899;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,1.2,0),COLOR0099AA;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,1,0),COLOR00AABB;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,0.8,0),COLOR00BBCC;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,0.6,0),COLOR00CCDD;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,0.4,0),COLOR00DDEE;
STICKLINE(X_13S,LOW-0.38,LOW-0.3,0.2,0),COLOR00EEFF;
STICKLINE(X_13S,LOW-0.68,LOW-0.75,4,0),COLOR111188;
STICKLINE(X_13S,LOW-0.66,LOW-0.74,3.6,0),COLOR332299;
STICKLINE(X_13S,LOW-0.64,LOW-0.73,3.2,0),COLOR5533AA;
STICKLINE(X_13S,LOW-0.62,LOW-0.72,2.8,0),COLOR8844BB;
STICKLINE(X_13S,LOW-0.6,LOW-0.71,2.4,0),COLORAA55CC;
STICKLINE(X_13S,LOW-0.58,LOW-0.7,2,0),COLORCC66DD;
STICKLINE(X_13S,LOW-0.56,LOW-0.69,1.6,0),COLORYELLOW;
STICKLINE(X_13S,LOW-0.54,LOW-0.68,1.2,0),COLORYELLOW;
MM1:=TTA1 OR TTA2;
STICKLINE(TTA1 AND X_13S,H,L,0.1,0),COLORYELLOW;
STICKLINE(TTA1 AND X_13S,O,C,3,1),LINETHICK2,COLORYELLOW;
DRAWTEXT(MM1 AND X_13S,L*0.97,' 共振'),COLORRED;
DRAWICON(MM1 AND X_13S,L*0.99,11);
资金X向:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7);
LK1:=资金X向>=2;
主力净额:=(L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1))/10000.0;
成交额:=AMOUNT/10000;
主力占比:=主力净额*100/成交额;
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=-L2_AMO(0,3)/10000.0;
大S:=-L2_AMO(1,3)/10000.0;
中S:=-L2_AMO(2,3)/10000.0;
小S:=-L2_AMO(3,3)/10000.0;
主买净额:=(超B+大B+中B+小B)+(超S+大S+中S+小S);
主买占比:=主买净额*100/成交额;
LK2:=(主力占比>=8 AND 主力净额>1500){ OR (主买占比>=8 AND 主买净额>3000)};
TMP:=LARGEINTRDVOL-LARGEOUTTRDVOL;
活跃度:=(LARGEINTRDVOL+LARGEOUTTRDVOL)*10000/(2*FINANCE(7));
LK3:=活跃度>=6;
竞量比:=DYNAINFO(15)/OPEN/(REF(SUM(VOL,5),1)/12);
竞额W:=DYNAINFO(15)/10000;
DRAWICON(LK1 AND LK2 AND LK3,L,30);
十大股东占比:(FINVALUE(244)/FINVALUE(239))*100,NODRAW,COLORYELLOW;
筹码衰减系数:100/(100-十大股东占比),NODRAW,COLORCYAN;
{十大股东占比小于65%时，无需修改衰减系数};
{①月周共振T副图源码如下}
DD11:0.9,COLORFF33FF;
DD22:1.2,COLORGREEN;
{黄金柱}
M:=30;
N:=15;
AJ:=HHV(H,M)=H;
AJT:=BARSLAST(AJ);
AJ1:=LLV(L,N)=L;
AJ1T:=BARSLAST(AJ1);
TJ:=HHV(H,M)=H;
TJT:BARSLAST(TJ)NODRAW;
TJ1T:=BARSLAST(AJ1);
{STICKLINE((TJT=0,H,TJ1T=0) AND AJ1 AND FILTERX(AJ1,TJT+1) ,REF(L,TJ1T)
,REF(H,TJT),0,0)COLORBLUE,LINETHICK3;}
OUT:=STICKLINE((TJT=0,H,TJ1T=0) AND AJ1 AND FILTERX(AJ1,TJT+1) ,REF(L,TJ1T)
,REF(H,TJT),0,0)COLORBLUE,LINETHICK3;
{STICKLINE(OUT>0,0,0.89,4,0),COLORYELLOW,LINETHICK2;}{黄色柱}
{DRAWTEXT(OUT,0.95,'底'),COLORYELLOW;}
{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);
日D:="KDJ.D#DAY"(9,3,3);
{DRAWICON(日K>日D,0.1,32);
DRAWICON(日K<日D,0.1,2);}
{DRAWTEXT(ISLASTBAR=1,0.1,'日K');}
{MACD日金}
日DIF:="MACD.DIF#DAY"(12,26,9);
日DEA:="MACD.DEA#DAY"(12,26,9);
{DRAWICON(日DIF>日DEA,0.2.1,32);
DRAWICON(日DIF<日DEA,0.2,2);}
{DRAWTEXT(ISLASTBAR=1,0.2,'日M');}
{RSI日}
日RSI:="RSI.RSI1#DAY"(9);
{DRAWICON(日RSI>50,0.3,32);
DRAWICON(日RSI<50,0.3,2);}
{DRAWTEXT(ISLASTBAR=1,0.3,'日R');}
{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
{DRAWICON(周K>周D,0.4,13);
DRAWICON(周K<周D,0.4,2);}
{DRAWTEXT(ISLASTBAR=1,0.4,'周K');}
{MACD周金}
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
{DRAWICON(周DIF>周DEA,0.5,13);
DRAWICON(周DIF<周DEA,0.5,2);}
{DRAWTEXT(ISLASTBAR=1,0.5,'周M');}
{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);
{DRAWICON(周RSI>50,0.6,13);
DRAWICON(周RSI<50,0.6,2);}
{DRAWTEXT(ISLASTBAR=1,0.6,'周R');}
{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
{DRAWICON(月K>月D,0.7,33);
DRAWICON(月K<月D,0.7,2);}
{DRAWTEXT(ISLASTBAR=1,0.7,'月K');}
{MACD月金}
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
{DRAWICON(月DIF>月DEA,0.8,33);
DRAWICON(月DIF<月DEA,0.8,2);}
{DRAWTEXT(ISLASTBAR=1,0.8,'月M');}
{RSI月}
月RSI:="RSI.RSI1#MONTH"(9);
{DRAWICON(月RSI>50,0.9,33);
DRAWICON(月RSI<50,0.9,2);}
{DRAWTEXT(ISLASTBAR=1,0.9,'月R');}
X1:=日K>日D;
X2:=日DIF>日DEA;
X3:=日RSI>50;
X4:=周K>周D;
X5:=周DIF>周DEA;
X6:=周RSI>50;
X7:=月K>月D;
X8:=月DIF>月DEA;
X9:=月RSI>50;
黑马初显:=X1 AND X2 AND X3 AND X4 AND X5 AND X6 AND X7 AND X8 AND X9;
{STICKLINE(黑马初显,0.05,0.91,0.12,0),COLORRED;
STICKLINE(黑马初显 AND C/REF(C,1)>1.095,0.05,0.91,0.66,0),COLORYELLOW;
STICKLINE(黑马初显 AND C/REF(C,1)>1.095,0.05,0.91,0.06,0),COLORRED;}
月RSI1:="RSI.RSI1#MONTH"(9),COLORWHITE;
A:=月RSI1>50;
首月R:CROSS(A>REF(A,1),0.5),COLORWHITE,LINETHICK3;
STICKLINE(首月R,1.2,1.12,5,0),COLORWHITE,LINETHICK3;
DRAWTEXT(首月R,1.11,'&JD: --月共振'),COLORWHITE;
月DIF1:="MACD.DIF#MONTH"(12,26,9)COLORYELLOW;
月DEA1:="MACD.DEA#MONTH"(12,26,9)COLORYELLOW;
AA:=月DIF1>月DEA1;
首月M:CROSS(AA>REF(AA,1),0.5)COLORYELLOW;
STICKLINE(首月M,1.15,1.1,5,0),COLORYELLOW;
月K1:="KDJ.K#MONTH"(9,3,3),COLORMAGENTA;
月D1:="KDJ.D#MONTH"(9,3,3),COLORMAGENTA;
AAA:=月K1>月D1;
首月K:CROSS(AAA>REF(AAA,1),0.5),COLORMAGENTA,LINETHICK3;
STICKLINE(首月K,1.1,1.05,5,0),COLORMAGENTA,LINETHICK3;
周RSI1:="RSI.RSI1#WEEK"(9),COLORGREEN;
AAAA:=周RSI1>50;
首周R:CROSS(AAAA>REF(AAAA,1),0.5),COLORRED,LINETHICK4;
STICKLINE(首周R,1.05,1,5,0),COLORRED,LINETHICK4;
DRAWTEXT(首周R,1.03,' --周共振'),COLORRED;
周DIF1:="MACD.DIF#WEEK"(12,26,9),COLORCYAN;
周DEA1:="MACD.DEA#WEEK"(12,26,9),COLORCYAN;
AAAAA:=周DIF1>周DEA1;
首周M:CROSS(AAAAA>REF(AAAAA,1),0.5),COLORCYAN;
STICKLINE(首周M,1,0.95,5,0),COLORCYAN;
周K1:="KDJ.K#WEEK"(9,3,3){,COLORBLUE};
周D1:="KDJ.D#WEEK"(9,3,3){,COLORBLUE};
AAAAAA:=周K1>周D1;
首周K:CROSS(AAAAAA>REF(AAAAAA,1),0.5),COLORBLUE;
STICKLINE(首周K,1.05,1,0,0),COLORBLUE,LINETHICK1;
STICKLINE(首周K,0.95,0.91,5,0),COLORBLUE;
DRAWTEXT(首周K,0.935,' --黄金坑'),COLORYELLOW;
{DRAWTEXT(黑马初显,0.935,'-飚'),COLORYELLOW;};
