通达信大单动向 涨跌动因 大单分差 动力线指标

 通达信大单动向 涨跌动因 大单分差 动力线指标

{牛牛指标网提供：www.tdx001.com}

复制内容到剪贴板

1. 副图    
2. 大单动向    
3. {DDX}    
4. JJ:=(OPEN+HIGH+LOW+CLOSE)/4;    
5. AA:=IF(BETWEEN(C,JJ,H) OR C=O,VOL,0);    
6. BB:=IF(BETWEEN(C,JJ,L),VOL,0);    
7. CC:=IF(AA AND BB,0,VOL/3);    
8. DDX:10*(AA-(BB+CC))/IF(CAPITAL<1,SUM(VOL,13),CAPITAL),LINETHICK0;    
9. STICKLINE(DDX>0,0,DDX,2.5,0 ),COLOR0022FF;    
10. {STICKLINE(DDX>0,0,DDX,2,0 ),COLORBB22CC;}    
11. STICKLINE(DDX<0,0,DDX,2.5,0 ),COLORFFFF00;    
12. DDX1:EMA(DDX,60)*60,COLOR00FFFF;    
13. DDX2:MA(DDX1,5),COLORFF00FF;    
14. DDX3:MA(DDX2,10),COLOR00FF00;    
15. 预警:DDX>0 AND CROSS(DDX1,DDX2) AND (CLOSE/REF(CLOSE,1)-1)*100>=3,LINETHICK0;    
16. DRAWTEXT(预警,0,'★'),LINETHICK3,COLOR00FFFF;    
17. {DRAWTEXT(C,1,'大单动向'),COLORFFFFFF;}    
18. 大单动向:0.5.POINTDOT,COLORBLUE;    

 

复制内容到剪贴板

1. 涨跌动因    
2. {DDY}    
3. AA:=IF(BETWEEN(C,REF(C,1),H),VOL,0);    
4. BB:=IF(BETWEEN(C,REF(C,1),L),VOL,0);    
5. CC:=IF(AA AND BB,0,VOL/3);    
6. DDY:3*(AA-(BB+CC))/IF(CAPITAL<1,SUM(INDEXV,71),CAPITAL),LINETHICK0;    
7. STICKLINE(DDY>0,0,DDY,2.5,0 ),COLORRED;    
8. STICKLINE(DDY<0,0,DDY,2.5,0 ),COLORGREEN;    
9. DDY1:EMA(DDY,60)*60,COLOR00FFFF;    
10. DDY2:MA(DDY1,5),COLORFF00FF;    
11. DDY3:MA(DDY1,10),COLOR00FF00;    
12. 预警:DDY>0 AND CROSS(DDY1,DDY3) AND (CLOSE/REF(CLOSE,1)-1)    
13. *100>3,LINETHICK0;    
14. DRAWTEXT(预警,0,'★'),LINETHICK3,COLOR00FFFF;    
15. {DRAWTEXT(C>0,0,'涨跌动因'),COLORFFFFFF;}    
16. 涨跌动因:0.5,POINTDOT,COLORBLUE;    

 

复制内容到剪贴板

1. 大单分差'   
2. {DDZ   
3. INPUT:P1(170),P2(200);}   
4. CC:=IF(CAPITAL<1,INDEXV*0.618,VOL/3);   
5. H1:=VOL/CAPITAL*100;   
6. H2:=INDEXV/SUM(INDEXV,71)*100;   
7. HS:=IF(CAPITAL<1,H2,H1);   
8. JJ:=IF(CAPITAL<1,INDEXA/INDEXV/100,(OPEN+HIGH+LOW+CLOSE)/4);   
9. AA:=IF(BETWEEN(CLOSE,JJ,HIGH) OR CLOSE=OPEN,VOL,0);   
10. BB:=IF(BETWEEN(CLOSE,JJ,LOW) OR CLOSE<OPEN,VOL,0);   
11. DDZ:HS*(BB-(AA+CC))/(CC-(AA-BB))*P2/100,LINETHICK0;   
12. DDZ1:HS*(BB-(AA+CC))/(CC-(AA-BB))*P1/100,LINETHICK0;   
13. {FILLRGN}   
14. DRAWKLINE(DDZ>DDZ1,1,DDZ,DDZ1),COLOR0000FF;   
15. {FILLRGN}   
16. DRAWKLINE(DDZ<DDZ1,3,DDZ,DDZ1),COLOR00FF00;   
17. {DRAWTEXT(CLOSE>0,1,'大单分差'),COLORFFFFFF;};    

 

复制内容到剪贴板

1. 动力线指标 原码   
2. 量:=V;   
3. 换手:V/CAPITAL*100,LINETHICK0;   
4. VAR1:=VOL/((H-L)*2-ABS(C-O));   
5. 买盘:=IF(C>O,VAR1*(H-L),IF(C<O,VAR1*((H-O)+(C-L)),VOL/2));   
6. 卖盘:=IF(C>O,0-VAR1*((H-C)+(O-L)),IF(C<O,0-VAR1*(H-L),0-VOL/2));   
7. DLX:(买盘-(-卖盘))/量*换手,COLORAAFF3D,LINETHICK0;   
8. STICKLINE((买盘-(-卖盘))/量*换手,DLX,0,2,0),VOLSTICK;   
9. DLX1:SUM(DLX,6),COLORYELLOW;   
10. DLX2:MA(DLX1,5);   
11. DLX3:MA(DLX1,10);