通达信水月洞天指标(源码)

{DRAWGBK(1,0,0,0,"CSF1",0);}
VAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
BP:=IF((CLOSE > OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)))/CAPITAL*100;
SP:=IF((CLOSE > OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))))/CAPITAL*100;
BP10:=SUM(BP,10);
BP5:=SUM(BP,5);
BP2:=SUM(BP,2);
SP10:=SUM(SP,10);
SP5:=SUM(SP,5);
SP2:=SUM(SP,2);
STICKLINE(1,0,BP10,4,1),COLOR007733;
STICKLINE(1,BP10-BP5,BP10-BP2,2,0),COLOR00AAAA;
STICKLINE(1,BP10-BP2,BP10,1,0),COLOR0000FF;
STICKLINE(1,0,SP10,4,1),COLOR337700;
STICKLINE(1,SP10-SP5,SP10-SP2,2,0),COLORAAAA00;
STICKLINE(1,SP10-SP2,SP10,1,0),COLORFF0000;
L1:=5*EMA(BP+SP,20),COLORWHITE,LINETHICK2;
DRAWBAND(L1,RGB(240,220,0),0,RGB(220,0,240));
NOTEXTL2:IF(PERIOD<4,1,IF(PERIOD>6,200,10)),COLORMAGENTA;
NOTEXTL3:IF(PERIOD<4,-1,IF(PERIOD>6,-200,-10)),COLORMAGENTA;
量比:VOL/REF(MA(VOL,5),1),COLORGREEN,NODRAW;
前五日平均量比:REF(MA(量比,5),1),NODRAW,COLOR00AA00;
距上次换手一百:SUMBARS(VOL,CAPITAL),NODRAW;
三百:SUMBARS(VOL,3*CAPITAL),NODRAW;
上市天数:BARSSINCE(C),NODRAW;
DRAWTEXT_FIX(1,0,0.5,0,"20日指数平均资金净流入"),COLORLIGRAY;