通达信资金进出副图源码

{资金进出-通达信版} N:=3; K1:=IF(CLOSE = REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW); K2:=IF(CLOSE = REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE); DT:=VOL*K1/(K1+K2); KT:=(VOL-DT); 买量:SUM(DT,N),COLOR0000FF; 卖量:-SUM(KT,N),COLORFFFF00; DRAWBAND(买量,RGB(0,120,0),0,DRAWNULL); DRAWBAND(0,RGB(0,80,0),卖量,DRAWNULL); 进出量:买量+卖量,POINTDOT,COLOR00FFFF; 净量换手:100*进出量/CAPITAL,POINTDOT,COLOR00FF33; STICKLINE(进出量 = 0,0,进出量,3,1),COLOR0000FF; STICKLINE(进出量 0,0,进出量,3,1),COLORFFFF00; D3:=100*SUM(DT,3)/CAPITAL; K3:=100*SUM(KT,3)/CAPITAL; J3:=D3-K3; D6:=100*SUM(DT,6)/CAPITAL; K6:=100*SUM(KT,6)/CAPITAL; J6:=D6-K6; D9:=100*SUM(DT,9)/CAPITAL; K9:=100*SUM(KT,9)/CAPITAL; J9:=D9-K9; 画:=CONST(FINDLOW(卖量,0,90,1)); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,66,44),ABS(画),DRAWNULL),RGB(50,50,50),画,DRAWNULL); BL3:=ABS(画)/CONST(FINDHIGH(MAX(D3,K3),0,65,1)); BL6:=ABS(画)/CONST(FINDHIGH(MAX(D6,K6),0,65,1)); BL9:=ABS(画)/CONST(FINDHIGH(MAX(D9,K9),0,65,1)); D3B:=(D3*BL3); K3B:=(K3*BL3); J3B:=(ABS(J3)*BL3); D6B:=(D6*BL6); K6B:=(K6*BL6); J6B:=(ABS(J6)*BL6); D9B:=(D9*BL9); K9B:=(K9*BL9); J9B:=(ABS(J9)*BL9); {画直方图} DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,63,62),CONST(D3B),DRAWNULL),RGB(150,0,0),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,62,61),CONST(K3B),DRAWNULL),RGB(0,150,150),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,61,60),CONST(J3B),DRAWNULL),RGB(150,150,0),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,56,55),CONST(D6B),DRAWNULL),RGB(150,0,0),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,55,54),CONST(K6B),DRAWNULL),RGB(0,150,150),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,54,53),CONST(J6B),DRAWNULL),RGB(150,150,0),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,49,48),CONST(D9B),DRAWNULL),RGB(150,0,0),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,48,47),CONST(K9B),DRAWNULL),RGB(0,150,150),0,DRAWNULL); DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,47,46),CONST(J9B),DRAWNULL),RGB(150,150,0),0,DRAWNULL); DRAWTEXT(CURRBARSCOUNT=60,0,'买量'), COLORDDFFFF; DRAWTEXT(CURRBARSCOUNT=55,0,'卖量'), COLORDDFFFF; DRAWTEXT(CURRBARSCOUNT=50,0,'进出量'), COLORDDFFFF; DRAWTEXT(CURRBARSCOUNT=65,画*0.2,'今日'), COLOR33FFFF; DRAWNUMBER(CURRBARSCOUNT=60,画*0.2,CONST(100*DT/CAPITAL)), COLOR33FFFF; DRAWNUMBER(CURRBARSCOUNT=55,画*0.2,CONST(100*KT/CAPITAL)), COLOR33FFFF; DRAWNUMBER(CURRBARSCOUNT=50,画*0.2,CONST(100*DT/CAPITAL-100*KT/CAPITAL)), COLOR33FFFF; DRAWTEXT(CURRBARSCOUNT=65,画*0.4,'3日'), COLORDDFFFF; DRAWNUMBER(CURRBARSCOUNT=60,画*0.4,CONST(D3)), COLORDDFFFF; DRAWNUMBER(CURRBARSCOUNT=55,画*0.4,CONST(K3)), COLORDDFFFF; DRAWNUMBER(CURRBARSCOUNT=50,画*0.4,CONST(J3)), COLORDDFFFF; DRAWTEXT(CURRBARSCOUNT=65,画*0.6,'6日'), COLOR33FFFF; DRAWNUMBER(CURRBARSCOUNT=60,画*0.6,CONST(D6)), COLOR33FFFF; DRAWNUMBER(CURRBARSCOUNT=55,画*0.6,CONST(K6)), COLOR33FFFF; DRAWNUMBER(CURRBARSCOUNT=50,画*0.6,CONST(J6)), COLOR33FFFF; DRAWTEXT(CURRBARSCOUNT=65,画*0.8,'9日'), COLORDDFFFF; DRAWNUMBER(CURRBARSCOUNT=60,画*0.8,CONST(D9)), COLORDDFFFF; DRAWNUMBER(CURRBARSCOUNT=55,画*0.8,CONST(K9)), COLORDDFFFF; DRAWNUMBER(CURRBARSCOUNT=50,画*0.8,CONST(J9)), COLORDDFFFF; DRAWTEXT(CURRBARSCOUNT=65,ABS(画)*0.6,'3'), COLORBBFFFF; DRAWTEXT(CURRBARSCOUNT=58,ABS(画)*0.6,'6'), COLORBBFFFF; DRAWTEXT(CURRBARSCOUNT=51,ABS(画)*0.6,'9'), COLORBBFFFF; DRAWTEXT(CURRBARSCOUNT=65 OR CURRBARSCOUNT=58 OR CURRBARSCOUNT=51,ABS(画)*0.4,'日'), COLORBBFFFF;