大智慧变色增减主图 背景均线根据趋势一齐变色

大智慧变色增减主图 背景均线根据趋势一齐变色

{变色增减}
DRAWGBKLAST(C>EMA(C,5) ,STRIP(RGB(0,0,80),RGB(80,0,0),1));
DRAWGBKLAST(C<=EMA(C,5),STRIP(RGB(0,0,80),RGB(40,40,0),1));
DRAWGBKLAST(C<=EMA(C,10),STRIP(RGB(0,0,180),RGB(0,80,0),1));
DRAWGBKLAST(C<=EMA(C,20),STRIP(RGB(0,0,80),RGB(0,0,0),1));
DRAWTEXTABS(10,8, '所属板块: '+BKNAME),Color0077FF;
DRAWTEXTABS(10,26,'流通 A股:'+NUMTOSTRN(FINANCE2(37)/10000,2)+'亿股, 市盈率:'+NUMTOSTRn(DYNAINFO(39),1)+'倍'),Color5EFFFF,LINETHICK2;
{以下设置五彩立体K线}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000CC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;

B1:EMA(C,3),COLORFF9900;
B2:EMA(C,5),COLORFF9900,LINETHICK2;
B3:EMA(C,7),COLORFF9900;
B4:EMA(C,10),COLORFF9900;
B5:EMA(C,15),COLORFF9900;
B6:EMA(C,20),COLORFF9900,LINETHICK2;
B7:EMA(C,25),COLORFF9900;
B8:EMA(C,30),COLORFF9900;
B9:EMA(C,35),COLORFF9900;
B10:EMA(C,40),COLORFF9900;
B11:EMA(C,45),COLORFF9900;
B12:EMA(C,50),COLORFF9900;
B13:EMA(C,55),COLORFF9900;
B14:EMA(C,60),COLORFF9900,LINETHICK2;
B15:EMA(C,85),COLORFF9900;
B16:EMA(C,120),COLORFF9900;
B17:EMA(C,180),COLORFF9900;
B18:EMA(C,240),COLORFF9900,LINETHICK2;
partline(B1,B1>REF(B1,1),rgb(255,0,0));
partline(B2,B2>REF(B2,1),rgb(255,0,10)),LINETHICK2;
partline(B3,B3>REF(B3,1),rgb(255,0,20));;
partline(B4,B4>REF(B4,1),rgb(255,0,30));
partline(B5,B5>REF(B5,1),rgb(255,0,40));
partline(B6,B6>REF(B6,1),rgb(255,120,0)),LINETHICK2;
partline(B7,B7>REF(B7,1),rgb(255,0,60));
partline(B8,B8>REF(B8,1),rgb(255,0,70));
partline(B9,B9>REF(B9,1),rgb(255,0,80));
partline(B10,B10>REF(B10,1),rgb(255,0,90));
partline(B11,B11>REF(B11,1),rgb(255,0,100));
partline(B12,B12>REF(B12,1),rgb(255,0,110));
partline(B13,B13>REF(B13,1),rgb(255,0,120));
partline(B14,B14>REF(B14,1),rgb(255,150,0)),LINETHICK2;
partline(B15,B15>REF(B15,1),rgb(255,0,180));
partline(B16,B16>REF(B16,1),rgb(255,0,200));
partline(B17,B17>REF(B17,1),rgb(255,0,220));
partline(B18,B18>REF(B18,1),rgb(255,0,255)),LINETHICK2;
红线1:if(B1>REF(B1,1),1,0),L