a:=v*c; CYC5:=ema(a,5)/EMA(VOL,5); 5日浮盈:(C-CYC5)/CYC5*100; SZBI:BARSLAST(5日浮盈<0),DRAWNULL,COLORMAGENTA;{上涨笔数} XDBI:BARSLAST(5日浮盈>0),DRAWNULL,COLORGREEN ;{下跌笔数} FILLRGN(5日浮盈,0,5日浮盈>0,RGB(255,0,0),5日浮盈<0,RGB(0,255,0)); a:=v*c; CYC13:=ema(a,13)/ema(vol,13); 13日浮盈:(C-CYC13)/CYC13*100; SZBI:BARSLAST(13日浮盈<0),DRAWNULL,COLORMAGENTA;{上涨笔数} XDBI:BARSLAST(13日浮盈>0),DRAWNULL,COLORGREEN ;{下跌笔数} FILLRGN(13日浮盈,0,13日浮盈>0,RGB(255,0,0),13日浮盈<0,RGB(0,255,0)); a:=v*c; CYC34:=ema(a,34)/ema(vol,34); 34日浮盈:(C-CYC34)/CYC34*100; SZBI:BARSLAST(34日浮盈<0),DRAWNULL,COLORMAGENTA;{上涨笔数} XDBI:BARSLAST(34日浮盈>0),DRAWNULL,COLORGREEN ;{下跌笔数} FILLRGN(34日浮盈,0,34日浮盈>0,RGB(255,0,0),34日浮盈<0,RGB(0,255,0)); aa:=V/CAPITAL/100; CYC∞:=DMA(C,if(aa<0.5,aa,0.5));{牛熊分界线} 浮动赢利:-log(cyc∞/c)/log(1.1),LINETHICK2; SZBI:BARSLAST(浮动赢利<0),DRAWNULL,COLORMAGENTA;{上涨笔数} XDBI:BARSLAST(浮动赢利>0),DRAWNULL,COLORGREEN ;{下跌笔数} {STICKLINE(浮动赢利>0,浮动赢利,0,8,0),colorred; STICKLINE(浮动赢利<0,浮动赢利,0,8,0),colorgreen;} FILLRGN(浮动赢利,0,浮动赢利>0,RGB(255,0,0),浮动赢利<0,RGB(0,255,0)); |
|