TYP:= (HIGH + LOW + CLOSE)/3;
V1:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),N)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),N);
MFI:100-(100/(1+V1));
MAMFI:MA(MFI,M);
B1:=MFI;
B2:=COUNT(MFI>80,2)=2;
//DRAWTEXT(B2,B1-2,'见顶');
//DRAWTEXT(B1<10,B1,'极限买点'),colorblue;
//DRAWTEXT(B1>90,B1-2,'极限卖点'),coloryellow;
B5:=BARSLAST(REF(B1<20,1));
B6:=REF(C,B5+1)>LLV( L,3 ) AND REF(B1,B2+1)<B1 AND B1<M1;
B3:=B1>80 AND B1<REF(B1,1) AND C>REF(C,1);
B4:=B1<20 AND B1>REF(B1,1) AND C<REF(C,1);
DRAWTEXT(B3,B1-2,'顶背离'),colorgreen;
DRAWTEXT(B6 AND FILTER(B6>0,3),B1*1.25,'底背离'),colorred;
J底背:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MFI,N)=LLV(MFI,2*N+1),N+1),N) AND MFI=LLV(MFI,N+1),1))+1)>C AND
REF(MFI,BARSLAST(REF(FILTER(BACKSET(REF(MFI,N)=LLV(MFI,2*N+1),N+1),N) AND MFI=LLV(MFI,N+1),1))+1)<MFI AND
FILTER(BACKSET(REF(MFI,N)=LLV(MFI,2*N+1),N+1),N) AND MFI=LLV(MFI,N+1),colorwhite;
DRAWLINE(FILTER(BACKSET(REF(MFI,N)=LLV(MFI,2*N+1),N+1),N) AND MFI=LLV(MFI,N+1),MFI,FILTER(J底背>0,3),MFI,0);
//M底:=J底背 OR B6;
DRAWTEXT(J底背,MFI,'底背离'),colorblue;
J顶背:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MFI,N)=HHV(MFI,2*N+1),N+1),N) AND MFI=HHV(MFI,N+1),1))+1)<C AND
REF(MFI,BARSLAST(REF(FILTER(BACKSET(REF(MFI,N)=HHV(MFI,2*N+1),N+1),N) AND MFI=HHV(MFI,N+1),1))+1)>MFI AND
FILTER(BACKSET(REF(MFI,N)=HHV(MFI,2*N+1),N+1),N) AND MFI=HHV(MFI,N+1),colorgreen;
DRAWLINE(FILTER(BACKSET(REF(MFI,N)=HHV(MFI,2*N+1),N+1),N) AND MFI=HHV(MFI,N+1),MFI,FILTER(J顶背>0,3),MFI,0);
//M顶:=J顶背 OR B3;
DRAWTEXT(J顶背,MFI,'顶背离'),coloryellow;
顶:80;
中:50;
底:20;