【原】资金进出副图源码

T:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);

HD :=HIGH-REF(HIGH,1);

LD :=REF(LOW,1)-LOW;

MP:=SUM(IF(HD>0&&HD>LD,HD,0),14);

MM:=SUM(IF(LD>0&&LD>HD,LD,0),14);

PD:=MP*100/T;

MD:=MM*100/T;

A:=PD-MD>=0;

B:=PD-MD<0;

D:=(PD-MD);

DD:=D>=0;

STICKLINE(DD,0,D,3,0),COLOR000055;

 STICKLINE(DD,0,D,2.8,0),COLOR000066;

 STICKLINE(DD,0,D,2.5,0),COLOR000077;

 STICKLINE(DD,0,D,2.2,0),COLOR000088;

 STICKLINE(DD,0,D,1.7,0),COLOR000099;

 STICKLINE(DD,0,D,1.2,0),COLOR0000AA;

 STICKLINE(DD,0,D,0.7,0),COLOR0000CC;

 STICKLINE(DD,0,D,0.2,0),COLOR0000FF;

F:=(PD-MD);

FF:=F<0;

 STICKLINE(FF,0,F,3,0),COLOR009900;

 STICKLINE(FF,0,F,2,0),COLOR00BB00;

 STICKLINE(FF,0,F,1,0),COLOR00DD00;

 STICKLINE(FF,0,F,0.3,0),COLOR00FF00;