牛马熊

DRAWGBK(c>0,colorrgb(241,241,103),colorrgb(40,200,163),1);//背景
A股家数:ESTDATA(1),linethick0,color0000ff;
牛:ESTDATA(115),linethick0,color9900ff;{牛股数量}
马:ESTDATA(116),linethick0,colorff0000;{马股数量}
熊:A股家数-牛-马,linethick0,color666666;{熊股数量}
牛比:牛/A股家数*100,linethick,color9900ff;
马比:马/A股家数*100,linethick,colorff0000;
熊比:熊/A股家数*100,linethick,color666666;
{以下显示历史各时期 " 牛马熊 " 的分布态势 "我把它做成了山形 方便观察'}
FILLRGN(牛比>0,0,牛比),Color9900FF;
FILLRGN(马比>0,-100,马比-100),ColorFF9900;
FILLRGN(熊比>0,-200,熊比-200),Color666666;
FILLRGN(c>0,-200,-210),COLOR99CC66;
//{以下显示可移动柱图}
tt:=Backset(BARPOS=SYSPARAM(1),1);
P:=SYSPARAM(1);
STICKLINE(tt,-100,牛比[P]-100,4,0),COLOR9900ff,shift2,align0,PXUP30;
STICKLINE(tt,-100,马比[P]-100,4,0),COLORff0000,shift1,align0,PXUP30;
STICKLINE(tt,-100,熊比[P]-100,4,0),COLOR666666,shift0,align0,PXUP30;
DRAWTEXT(tt AND 牛比,牛比[P],'牛'),COLOR9900ff,shift2,align0,PXup1;
DRAWTEXT(tt AND 马比,马比[P],'马'),COLORff0000,shift1,align0,PXup1;
DRAWTEXT(tt AND 熊比,熊比[P],'熊'),COLOR666666,shift0,align0,PXup1;
//
DRAWTEXTEX(sysparam(3)=BARPOS,1,500,0,'牛比='+NUMTOSTR(牛比[SYSPARAM(1)],1)+'%'),Color9900FF;
DRAWTEXTEX(sysparam(3)=BARPOS,1,500,300,'马比='+NUMTOSTR(马比[SYSPARAM(1)],1)+'%'),Colorff0000;
DRAWTEXTEX(sysparam(3)=BARPOS,1,500,600,'熊比='+NUMTOSTR(熊比[SYSPARAM(1)],1)+'%'),Color666666;
//
{=========================================}