N:=3;
EMA25:EMA(C,25),COLORRED,LINETHICK2;
EMA70:EMA(C,70),COLORGREEN,LINETHICK2;
EMA250:EMA(C,250),COLORYELLOW,LINETHICK2;

EMA50:EMA(C,50),COLORWHITE,LINETHICK2;

EMA250上方+EMA25和EMA70金叉+EMA70在EMA250上方++创前7根K线最高

EMA25>EMA250&&EMA25>EMA70&&C>HV(H,7)&&C>EMA250;

DRAWTEXT(EMA25>EMA250&&EMA25>EMA70&&C>HV(H,7)&&C>EMA250,H,' 1');

EMA25<EMA250&&EMA25<EMA70&&C<LV(L,7)&&C<EMA250;

DRAWTEXT(EMA25<EMA250&&EMA25<EMA70&&C<LV(L,7)&&C<EMA250,L,' 0'),VALIGN0;

DD:=EMA25>EMA250&&EMA25>EMA70&&C>HV(H,7)&&C>EMA250;
KK:=EMA25<EMA250&&EMA25<EMA70&&C<LV(L,7)&&C<EMA250;
(DD)&&H>HV(H,3),NOTICE(' 4高');
(DD)&&H>HV(H,2)&&NOT(H>HV(H,3)),NOTICE(' 3高');
(DD)&&H>HV(H,1)&&NOT(H>HV(H,3))&&NOT(H>HV(H,2)),NOTICE(' 2高');
(DD)&&H<HV(H,1)&&NOT(H>HV(H,3))&&NOT(H>HV(H,2))&&NOT(H>HV(H,1)),NOTICE(' 1高');

(KK)&&L<LV(L,3),NOTICE(' 4低');
(KK)&&L<LV(L,2)&&NOT(L<LV(L,3)),NOTICE(' 3低');
(KK)&&L<LV(L,1)&&NOT(L<LV(L,3))&&NOT(L<LV(L,2)),NOTICE(' 2低');
(KK)&&L>LV(L,1)&&NOT(L<LV(L,3))&&NOT(L<LV(L,2))&&NOT(L<LV(L,1)),NOTICE(' 1低');