通达信今年红裤衩 资金动能

资金动能：
VOLUME:VOL/2.9,VOLSTICK;
N:=5;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:10000*IF(((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000)>0,
((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000),
-((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000)),COLORRED,NODRAW;
AABB:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000);
STICKLINE(((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000)>0,0,DDX,1.5,0),COLORLIRED;
STICKLINE((AABB*10000/VOLUME)>0.6,0,DDX,1.5,0),COLORRED;
STICKLINE(((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000)<0,0,DDX,1.5,0),COLOR00CC00;
STICKLINE(((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000)<0,0,DDX,1,0),COLOR00EE00;
三十天红:COUNT(AABB>=0,30),COLORRED,NODRAW;
六十天红:COUNT(AABB>=0,60),COLORRED,NODRAW;
V5:MA(VOLUME,5),COLORWHITE;
V35:MA(VOLUME,35),COLORYELLOW;
V135:MA(VOLUME,135),COLORFF00FF;
{}
TTT:=CONST(HHV(VOLUME,60));
DRAWTEXT(CURRBARSCOUNT=40,TTT,'DDX大单进红色'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=30,TTT,'DDX大单出绿色'),COLORGREEN;
低量:DRAWTEXT(VOL<LLV(REF(VOL,1),45) AND VOL>LLV(REF(VOL,1),135),V35,'低'),COLORYELLOW;
地量:DRAWTEXT(VOL<LLV(REF(VOL,1),135),V5,'地'),COLORGREEN;
{}
D:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,20);
J:= EMA((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,5) ;
BIAS1W :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
BIAS2W :=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
BIAS3W :=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
MM:=(BIAS1W+2*BIAS2W+3*BIAS3W)/6;
MN:=MA(MM,3);
VAR1:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100;
VAR2:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
VAR3:=(2*CLOSE+HIGH+LOW)/4;
VAR4:=LLV(LOW,26);
VAR5:=HHV(HIGH,34);
VAR6:=EMA((VAR3-VAR4)/(VAR5-VAR4)*100,16);
VAR7:=SMA((SMA(VAR2,3,1)+3),3,1),LINETHICK3;
VAR8:=EMA(VAR6,7);
VAR9:=SMA(VAR1,3,1);
VAR10:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR11:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR12:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR13:=(VAR10+VAR11+VAR12)/3;
VAR14:=IF(VAR13<=-20,10,0);
VAR15:=HHV(VAR14,10);
VAR24:=LLV(LOW,36);
VAR25:=HHV(HIGH,30);
VAR26:=EMA((CLOSE-VAR24)/(VAR25-VAR24)*4,4)*25;
底背离: IF((VAR26<10),V135*1.1,0), COLORRED,LINETHICK2;
顶背离: IF((VAR26>90),V135,0), COLORGREEN,LINETHICK2;
地量1:IF(CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0),V5,0),COLORYELLOW,LINETHICK2;
{}
股价趋势:= 3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
底部警戒:=10,COLORRED,LINETHICK2;
底1:=CROSS(股价趋势,底部警戒);
A1:=(2*CLOSE+HIGH+LOW)/4;
A2:=LLV(LOW,27);
A3:=HHV(HIGH,27);
A4:=EMA((A1-A2)/(A3-A2)*100,13);
A5:=EMA(0.618*REF(A4,1)+0.382*A4,3);
底2:=CROSS(A4,A5) AND A4<16;
波底:=底1 AND 底2;
{牛年奔牛}
VARC2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VARC3:=SMA(SMA(VARC2,3,1),3,1)/28.57;
VARC4:=EMA(VARC3,5);
VARC5:=3*VARC3-2*VARC4;
牛:=CROSS(VARC5,VARC3) AND VARC3<2.1 AND C>O;
{突破与破位}
VARB1:=HHV(HIGH,19);
VARB2:=LLV(LOW,19);
阻力线:=EMA((CLOSE-VARB2)/(VARB1-VARB2),21)-0.5;
操作线:=EMA((CLOSE-VARB2)/(VARB1-VARB2),5)-0.5;
突破:=CROSS(操作线,阻力线) AND 阻力线<0.1;
破位:=CROSS(阻力线,操作线) AND 阻力线>0.25;
{立桩成立判断}
V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
T12:=V2>=1;
T0:=BARSLAST(T12);
L1:=REF(L,T0);
H1:=REF(H,T0);
L11:=MIN(REF(L,1),L);
L10:=MIN(L11,REF(L,2));
L21:=MAX(REF(L,1),L);
L20:=MAX(L21,REF(L,2));
T111:=(REF(V2>=1,3) OR REF(V2>=1,2) OR REF(V2>=1,1)) AND
((L10>L1 AND L20>H1) OR (L11>L1 AND L21>H1) OR (L>H1));
T11:=T111 AND REF(T111,1)=0;
{彩色成交量柱线}
STICKLINE(V2>=1,0,VOLUME*0.5,1,0),COLORYELLOW;
STICKLINE(波底,0,VOLUME,1,0),COLORMAGENTA;
DRAWTEXT(波底,VOLUME*0.8,'底'),COLORWHITE;
DRAWICON(波底,VOLUME*1.1,5);
STICKLINE(牛,0,VOLUME,1,0),COLORRED;
DRAWTEXT(牛,VOLUME*1.15,'牛'),COLORWHITE;
STICKLINE(突破,0,VOLUME,1,0),COLORBLUE;
DRAWTEXT(突破,VOLUME*0.5,'突破'),COLORWHITE;
DRAWICON(突破,VOLUME*1.2,1);
STICKLINE(破位,0,VOLUME,0.5,0),COLORBROWN;
DRAWTEXT(破位,VOLUME*0.5,'破位'),COLORBLUE;
DRAWICON(破位,VOLUME*1.05,2);
{}
BNB:=EMA(IF(L<= LLV(L,30),SMA(ABS(L-REF(L,1)),30,1)/SMA(MAX(L-REF(L,1),0),30,1),0),3);
AAAA:=IF(ABS(BNB*15000)/TTT>0.6,0.01,0.6)*30000;
BGB:=SUM(TTT-BNB*AAAA,3)/3;
动态底部:STICKLINE(1,TTT,BGB,1,0),COLORYELLOW;
STICKLINE(BNB>0.2 AND BGB<REF(BGB,1),TTT,BGB,1,0),COLORBLUE;