红灯报喜(飞狐)

DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'版块:'+BLKNAME),ALIGN4,colorA3F8FF;
tj:=(WEEKDAY-REF(WEEKDAY,1)<>DATEDIFF(REF(DATE,1),DATE)) or BARPOS=1;
IF DATACOUNT>1 then for i=1 to DATACOUNT-1 do tj1:=tj[i+1];
tj1[DATACOUNT]:=1;
fc:=CLOSE;fh:=HIGH;fl:=LOW;
fo:=OPEN;pos:=0*CLOSE;
for i=1 to DATACOUNT do begin
IF tj then begin
hh:=fh; ll:=fl; oo:=fo; p:=i;
  end
    else begin
    fo:=oo;
    hh:=MAX(hh,fh);
    ll:=MIN(ll,fl);
  end;
  IF tj1 then begin
    pos[(i+p)/2]:=1;
    IF i>1 then begin
      for j=i downto 1 do begin
        fc[j]:=fc; fh[j]:=hh; fl[j]:=ll;
        IF tj[j] then break;
      end;
    end;
  end;
end;
tj2:=fc>fo;
STICKLINE(tj2,fc,fo,10,0),Color6F6194;
STICKLINE(NOT(tj2),fc,fo,10,0),ColorA15200;
MA30:=EMA(CLOSE,30);
MA60:=EMA(CLOSE,60);
MA125:=EMA(CLOSE,125);
MA250:=EMA(CLOSE,250);
A1:=MA30[SYSPARAM(1)];
RA1:=MA30[SYSPARAM(1)-1];
jt1:=IF(A1>RA1,'↑','↓');
SZ1:='\n  \nMA30: '+NUMTOSTR(MA30[SYSPARAM(1)],2)+jt1;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ1),align4,COLORRED;
A2:=MA60[SYSPARAM(1)];
RA2:=MA60[SYSPARAM(1)-1];
jt2:=IF(A2>RA2,'↑','↓');
SZ2:='\n  \n  \nMA60: '+NUMTOSTR(MA60[SYSPARAM(1)],2)+jt2;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ2),align4,COLORRED;
A3:=MA125[SYSPARAM(1)];
RA3:=MA125[SYSPARAM(1)-1];
jt3:=IF(A3>RA3,'↑','↓');
SZ3:='\n  \n  \n  \nMA125:'+NUMTOSTR(MA125[SYSPARAM(1)],2)+jt3;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ3),align4,Colorred;
A4:=MA250[SYSPARAM(1)];
RA4:=MA250[SYSPARAM(1)-1];
jt4:=IF(A4>RA4,'↑','↓');
SZ4:='\n  \n  \n   \n  \nMA250:'+NUMTOSTR(MA250[SYSPARAM(1)],2)+jt4;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ4),align4,COLORRED;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),COLOR1d0286;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),COLOR2804b7;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),COLOR2f05d6;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,5,0),COLOR3405ef;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),COLOR4518fa;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),COLOR643efb;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,2,0),COLOR714ffb;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,1,0),COLOR886bfc;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR886bfc;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),COLOR762401;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,7,0),COLOR962e01;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),COLORb93902;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,5,0),COLORdd4402;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),COLORfd530b;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,3,0),COLORfd7135;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),COLORfd8c5b;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,1,0),COLORfea883;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORfea883;
k5:EMA(CLOSE,5);
k10:EMA(CLOSE,10);
k20:=EMA(CLOSE,20) ;
k25:=EMA(CLOSE,25) ;
k30:=EMA(CLOSE,30) ;
PARTLINE(k5>REF(k5,1),k5),colorf00ff0,linethick1;
PARTLINE(k5<REF(k5,1),k5),colorgreen,POINTDOT,linethick1;
PARTLINE(k10>REF(k10,1),k10),colorred,linethick2;
PARTLINE(k10<REF(k10,1),k10),color99cc33,POINTDOT,linethick2;
QQ:=barpos<=SYSPARAM(1);
PARTLINE(k20>REF(k20,1) and QQ,k20),colorred;
PARTLINE(k20<REF(k20,1) and QQ,k20),color99cc33,POINTDOT;
PARTLINE(k25>REF(k25,1) and QQ,k25),colorred;
PARTLINE(k25<REF(k25,1) and QQ,k25),color99cc33,POINTDOT;
PARTLINE(k30>REF(k30,1) and QQ,k30),colorred;
PARTLINE(k30<REF(k30,1) and QQ,k30),color99cc33,POINTDOT;
PARTLINE(ma60>REF(ma60,1) and QQ,ma60),colorred;
PARTLINE(ma60<REF(ma60,1) and QQ,ma60),color99cc33,POINTDOT;
BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORYELLOW,CIRCLEDOT,LINETHICK1;
多:BBI+3*STD(BBI,10),COLOR00FFFF,POINTDOT,LINETHICK3;
空:BBI-3*STD(BBI,10),COLOR00ffff,POINTDOT,LINETHICK3;
a1:=EMA(CLOSE,3);
a2:=EMA(CLOSE,46);
a3:=(a1 - a2)*3;
a4:=EMA(a3,5);
DRAWICON(a4<REF(a4,1) and qq,MA30,11);
DRAWICON(a4>=REF(a4,1) and qq,MA30,10);