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));