优化BS决策主图

MA2:=MA(C,2);
MA5:=MA(C,5),LINETHICK2;
MA10:MA(C,10),LINETHICK2;
MA20:=MA(C,20),COLORGREEN,LINETHICK2;
MA30:=MA(C,30),COLORRED,LINETHICK2;
MA60:MA(CLOSE,60),COLORGREEN,DOTLINE;
MA120:MA(CLOSE,120),COLORMAGENTA,DOTLINE;
MA250:MA(CLOSE,250),COLORYELLOW,DOTLINE;
A:=(3*C+H+L+O)/6;
XJ:=(A+0.618*REF(A,1)+0.382*REF(A,2)+0.236*REF(A,3)+0.146*REF(A,4))/2.382;
YCZXH:=(MA(HHV(A,2),5)+MA(HHV(A,2),13)+MA(HHV(A,2),21)+MA(HHV(A,2),32))/4;
YCZXL:=(MA(LLV(A,2),5)+MA(LLV(A,2),13)+MA(LLV(A,2),21)+MA(LLV(A,2),32))/4;
SMH:EMA(YCZXH,21),COLORBROWN;
SML:EMA(YCZXL,21),COLORBROWN;
SMJ:(SML+SMH)/2,COLORBROWN;

PJ:=(10*A+9*REF(A,1)+8*REF(A,2)+7*REF(A,3)+6*REF(A,4)+5*REF(A,5)+4*REF(A,6)+3*REF(A,7)+2*REF(A,8)+REF(A,9))/55;
A1:EMA(PJ,3),COLOR004000;
A2:EMA(PJ,5),COLOR004000;
A3:EMA(PJ,7),COLOR004000;
A4:EMA(PJ,9),COLOR004000;
A5:EMA(PJ,11),COLOR004000;

IF(A5<REF(A5,1),A5,DRAWNULL),COLOR006600,LINETHICK4;
IF(A5>REF(A5,1),A5,DRAWNULL),COLOR00009B,LINETHICK4;
IF(A4<REF(A4,1),A4,DRAWNULL),COLOR006600,LINETHICK1;
IF(A4>REF(A4,1),A4,DRAWNULL),COLOR000055,LINETHICK1;
IF(A3<REF(A3,1),A3,DRAWNULL),COLOR006600,LINETHICK2;
IF(A3>REF(A3,1),A3,DRAWNULL),COLOR00006C,LINETHICK2;
IF(A2<REF(A2,1),A2,DRAWNULL),COLOR006600,LINETHICK1;
IF(A2>REF(A2,1),A2,DRAWNULL),COLOR00006C,LINETHICK1;
IF(A1<REF(A1,1),A1,DRAWNULL),COLOR006600,LINETHICK2;
IF(A1>REF(A1,1),A1,DRAWNULL),COLOR00005B,LINETHICK2;
DRAWICON((A3>REF(A3,1) AND REF(A3,1)<REF(A3,2)) ,LOW*0.96,7);

Q2:=REF(CLOSE,4)>REF(CLOSE,3);
Q3:=REF(CLOSE,3)>REF(CLOSE,2);
Q4:=REF(CLOSE,2)>REF(CLOSE,1);
Q5:=CLOSE>REF(HIGH,1) AND V>REF(V,1)*1.3;
Q:=Q2 AND Q3 AND Q4 AND Q5;
DRAWICON(Q=1,H*1.03,3);

STICKLINE(C>=O,H,L,0,0),COLORRED;
STICKLINE(C<O,H,L,0,0),COLORFFFF52;
STICKLINE(C>=O,C,O,3.5,1),COLORRED;
STICKLINE(C<O,C,O,3.5,0),COLORFFFF52;

DRAWTEXT_FIX(1,0,0,0,'地区：'),COLOR99CC32;
DRAWTEXT_FIX(1,0.05,0,0,DYBLOCK),COLOR99CC32;
DRAWTEXT_FIX(1,0.14,0,0,'行业：'),COLORGREEN;
DRAWTEXT_FIX(1,0.19,0,0,HYBLOCK),COLORGREEN;
DRAWTEXT_FIX(1,0.28,0,0,'概念:'),COLORFF00FF;
DRAWTEXT_FIX(1,0.33,0,0,GNBLOCK),COLORFF00FF;
DRAWTEXT_FIX(1,0.5,1,0,'要买5日线上的股!'),COLORGREEN;
市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(毛利率,主营利润率),净利润率),净资收益率),市盈率),市净率),市销率));
{}
DRAWTEXT_FIX(ISLASTBAR,0.005,0.99,0,当前业绩),COLOR888888;

YC0X:=MA5>=REF(MA5,1);
H01:=MAX(MAX(MA5,MA10),MA30);
L01:=MIN(MIN(MA5,MA10),MA30);
一穿三线:=H01<C AND O<L01 AND YC0X AND MA2>REF(MA2,1);
STICKLINE(一穿三线,O,C,2,0),COLORYELLOW;
DRAWTEXT(一穿三线,L-0.1, '穿三线'),COLORGREEN;

价:=MA(C,5)>=MA(C,10) AND MA(C,10)>=MA(C,20);
价多头:=价=1 AND REF(价,1)=0 AND H/MA(C,20)<1.15 AND C>MA(C,20);
DRAWICON(价多头,H*1.02,12);