网1:=EXPMA(C,5),COLORYELLOW;
网2:=EXPMA(网1,2);
网3:=EXPMA(网2,2);
网13:EXPMA(CLOSE,13),COLORGRAY,LINETHICK3;
网33:EXPMA(CLOSE,33),COLORFF00FF,LINETHICK4;
TJ1A:IF(网1>网2,网1,网2),COLORLICYAN;
TJ2A:IF(网1>网3,网1,网3),COLORGREEN;
TJ3A:网1,COLORYELLOW,LINETHICK2;
网A:=EXPMA(CLOSE,5),COLORWHITE;
网B:=EXPMA(CLOSE,33),COLORFF00FF,LINETHICK3;
IF(网B<REF(网B,1),网B,DRAWNULL),COLOR00FF00,LINETHICK3;
IF(网B<REF(网A,1),网A,DRAWNULL),COLORWHITE,LINETHICK1;
IF(网1<REF(网B,1),网A,DRAWNULL),COLORGREEN,LINETHICK1;
M:=250;
顶1:=REFDATE(HHV(H,M),DATE);
底1:=REFDATE(LLV(L,M),DATE);
H1:=顶1-(顶1-底1)*0.191;
H2:=顶1-(顶1-底1)*0.382;
H3:=顶1-(顶1-底1)*0.5;
H4:=顶1-(顶1-底1)*0.618;
H5:=顶1-(顶1-底1)*0.809;
顶部:REFDATE(顶1,DATE),COLOR666666;
黄金分割19:REFDATE(H1,DATE),COLOR666666;
黄金分割38:REFDATE(H2,DATE),COLOR666666;
黄金分割50:REFDATE(H3,DATE),COLOR666666;
黄金分割61:REFDATE(H4,DATE),COLOR666666;
黄金分割80:REFDATE(H5,DATE),COLOR666666;
底部:REFDATE(底1,DATE),COLOR666666;
DRAWTEXT(ISLASTBAR,顶部,' 顶部'),COLORGREEN;
DRAWTEXT(ISLASTBAR,黄金分割19,' 19.8％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,黄金分割38,' 38.2％'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,黄金分割50,' 50％'),COLORWHITE;
DRAWTEXT(ISLASTBAR,黄金分割61,' 61.8％'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,黄金分割80,' 80.9％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,底部,' 底部'),COLORRED;
DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,7);
DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.02,8);
HH:=CONST(HHV(H,160));
LL:=CONST(LLV(L,160));
HL1:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.76,0.04));
HL2:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.80,0.08));
HL3:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.84,0.12));
HL4:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.88,0.16));
HL5:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.92,0.20));
HL6:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.96,0.24));
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：'),COLOR0080FF;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK),COLOR0080FF;
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：'),COLOR00FFFF;
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK),COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.04,0,'主题投资：'),COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.04,0,EXTERNSTR(0,1)),COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：'),COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2)),COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.12,0,'出千概念：'),COLORFF88FF;
DRAWTEXT_FIX(1,0.07,0.12,0,EXTERNSTR(0,3)),COLORFF88FF;
总额:=AMOUNT;
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
买百分比:=买/AMOUNT*100;
流入:=AMOUNT*买百分比/10000000000;
流出:=AMOUNT/100000000-流入;
净流:=(流入-流出);
总额3:=SUM(AMOUNT,3);
流入3:=SUM(流入,3);
流出3:=SUM(流出,3);
净流3:=SUM(流入-流出,3);
总额5:=SUM(AMOUNT,5);
流入5:=SUM(流入,5);
流出5:=SUM(流出,5);
净流5:=SUM(流入-流出,5);
总额10:=SUM(AMOUNT,10);
流入10:=SUM(流入,10);
流出10:=SUM(流出,10);
净流10:=SUM(流入-流出,10);
画:=CONST(FINDHIGH(总额10,0,190,1));
DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST(净流)),COLORYELLOW;
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST(净流3)),COLORYELLOW;
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST(净流5)),COLORYELLOW;
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST(净流10)),COLORYELLOW;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
MA5:=MA(C,5);
MA10:=MA(C,10);
MA30:=MA(C,30);
FA:=BARSLAST(CROSS(MA10,MA5)) AND CROSS(MA5,MA10);
FB:=FA AND MA5>MA30 AND MA10>MA30 AND MA10>REF(MA10,1);
DRAWTEXT(FB,L-0.58,'★红牛'),COLORRED;
V1:=EMA(CLOSE,5);
V2:=EMA(EMA(CLOSE,90)*1.01,10);
DRAWTEXT(CROSS(V1,V2),V1+0.05,'牛起步'),COLOR00FF00;
VAR121:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR141:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR161:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR181:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
卖:=(VAR121+VAR141+VAR161+VAR181),LINETHICK2;
SQ:DRAWLINE(卖=1,H,BARSLAST(卖=1)>=1,REF(H,BARSLAST(卖=1)),1),COLORWHITE,LINETHICK2;
过峰:=C>SQ AND REF(C,1)<SQ;
VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
预量:=VVOL/REF(V,1)>1.8;
现量:=V/REF(V,1)>1.5;
过峰1:STICKLINE(过峰,C,O,5,0),COLORFF00FF;
预量1:DRAWICON(过峰 AND 预量, H*1.01,14);
现量1:DRAWICON(过峰 AND 现量,(O+C)/2,23);
前次低点:LLV(L*1,250),POINTDOT,COLORFF00FF,LINETHICK4;
