成本周期:=26;
趋势周期:=21;
量能周期:=13;
动量周期:=8;
TYP:=(H+L+C)/3;
机构成本:=SUM(vol*TYP,成本周期)/SUM(VOL,成本周期);
成本达标:=C>机构成本 AND 机构成本>REF(机构成本,2);
成本恶化:=C< 机构成本 OR 机构成本< REF(机构成本,2);
EMA快:=EMA(C,趋势周期/2);
EMA慢:=EMA(C,趋势周期);
趋势达标:=EMA快>EMA慢 AND EMA慢>REF(EMA慢,3);
趋势恶化:=EMA快< EMA慢 OR EMA慢< REF(EMA慢,3);
量能均值:=MA(V,量能周期);
量能达标:=V>量能均值*0.95 AND V>REF(V,1)*0.8;
量能恶化:=V< 量能均值*0.7;
动量线:=EMA(C/REF(C,1)-1,动量周期)*100;
动量达标:=动量线>0 AND 动量线>REF(动量线,1);
动量恶化:=动量线< 0 OR 动量线< REF(动量线,2);
筹码抬升:=EMA(C,5)-EMA(C,13);
抬升达标:=筹码抬升>0 AND 筹码抬升>REF(筹码抬升,1);
抬升恶化:=筹码抬升< 0;
成交额均值:=MA(AMOUNT,11);
资金达标:=AMOUNT>成交额均值 AND C>REF(C,1);
资金恶化:=AMOUNT< 成交额均值 AND C< REF(C,1);
rsi6:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(Abs(C-REF(C,1)),6,1)*100;
背离恶化:=C>REF(C,1) AND RSI6< REF(RSI6,1);
Y1:=70;
Y2:=60;
Y3:=50;
Y4:=40;
Y5:=30;
Y6:=20;
Y7:=10;
DRAWTEXT(成本达标,Y1,'■'),COLORRED;
DRAWTEXT(成本恶化,Y1,'■'),COLORGREEN;
DRAWTEXT(NOT(成本达标) AND NOT(成本恶化),Y1,'-'),COLORGRAY;
DRAWTEXT(趋势达标,Y2,'■'),COLORRED;
DRAWTEXT(趋势恶化,Y2,'■'),COLORGREEN;
DRAWTEXT(NOT(趋势达标) AND NOT(趋势恶化),Y2,'-'),COLORGRAY;
DRAWTEXT(量能达标,Y3,'■'),COLORRED;
DRAWTEXT(量能恶化,Y3,'■'),COLORGREEN;
DRAWTEXT(NOT(量能达标) AND NOT(量能恶化),Y3,'-'),COLORGRAY;
DRAWTEXT(动量达标,Y4,'■'),COLORRED;
DRAWTEXT(动量恶化,Y4,'■'),COLORGREEN;
DRAWTEXT(NOT(动量达标) AND NOT(动量恶化),Y4,'-'),COLORGRAY;
DRAWTEXT(抬升达标,Y5,'■'),COLORRED;
DRAWTEXT(抬升恶化,Y5,'■'),COLORGREEN;
DRAWTEXT(NOT(抬升达标) AND NOT(抬升恶化),Y5,'-'),COLORGRAY;
DRAWTEXT(资金达标,Y6,'■'),COLORRED;
DRAWTEXT(资金恶化,Y6,'■'),COLORGREEN;
DRAWTEXT(NOT(资金达标) AND NOT(资金恶化),Y6,'-'),COLORGRAY;
DRAWTEXT(背离恶化,Y7,'■'),COLORGREEN;
DRAWTEXT(NOT(背离恶化),Y7,'-'),COLORGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.08,0,'风险背离'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.18,0,'资金斜率'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.28,0,'筹码抬升'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.38,0,'动量强度'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.48,0,'量能活跃'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.58,0,'趋势结构'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.68,0,'机构成本'),COLORWHITE;
红箭头总数:=IF(成本达标,1,0)+IF(趋势达标,1,0)+IF(量能达标,1,0)+IF(动量达标,1,0)+IF(抬升达标,1,0)+IF(资金达标,1,0);
综合得分:红箭头总数,NODRAW;
DRAWTEXT_FIX(ISLASTBAR,0.22,0.01,0,'综合得分：'),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.32,0.01,0,CON2STR(综合得分,0)),COLORYELLOW;
STICKLINE(1,10,70,0,0),COLORGRAY;
STICKLINE(1,20,20,0,0),COLORGRAY;
STICKLINE(1,30,30,0,0),COLORGRAY;
STICKLINE(1,40,40,0,0),COLORGRAY;
STICKLINE(1,50,50,0,0),COLORGRAY;
STICKLINE(1,60,60,0,0),COLORGRAY;
STICKLINE(1,70,70,0,0),COLORGRAY;
