{★芒果价量WR}
{NI  14  1  100
N2   34   1   200
N3   55   1  300
N4   89   1   400}
input:n1(14),n2(34),n3(55),n4(89);

B:=SMA((3*H+2*C+O+L)/7,10,1);
W1:=-100*(HHV(HHV(B,1),N1)-B)/(HHV(HHV(B,1),N1)-LLV(LLV(B,1),N1));
W2:=-100*(HHV(HHV(B,1),N2)-B)/(HHV(HHV(B,1),N2)-LLV(LLV(B,1),N2));
W3:=-100*(HHV(HHV(B,1),N3)-B)/(HHV(HHV(B,1),N3)-LLV(LLV(B,1),N3));
W4:=-100*(HHV(HHV(B,1),N4)-B)/(HHV(HHV(B,1),N4)-LLV(LLV(B,1),N4));
价咯WR:(W1+W2+W3+W4)/4;
A:=SMA(VOL,10,1);
WR1:=-100*(HHV(HHV(A,1),N1)-A)/(HHV(HHV(A,1),N1)-LLV(LLV(A,1),N1));
WR2:=-100*(HHV(HHV(A,1),N2)-A)/(HHV(HHV(A,1),N2)-LLV(LLV(A,1),N2));
WR3:=-100*(HHV(HHV(A,1),N3)-A)/(HHV(HHV(A,1),N3)-LLV(LLV(A,1),N3));
WR4:=-100*(HHV(HHV(A,1),N4)-A)/(HHV(HHV(A,1),N4)-LLV(LLV(A,1),N4));
量WR:(WR1+WR2+WR3+WR4)/4;
-50,POINTDOT;-20,POINTDOT;-80,POINTDOT,COLORCYAN;
EXPLAIN(价咯WR<=-80 AND 价咯WR>-100,'价咯趋势较弱,不会保持太久'),COLORYELLOW;
EXPLAIN(价咯WR>-80 AND 价咯WR<=-50,'价咯趋势有扭转要求,可观察'),COLORYELLOW;
EXPLAIN(价咯WR>-50 AND 价咯WR<=-20,'价咯趋势中线转强'),COLORYELLOW;
EXPLAIN(价咯WR>-20 AND 价咯WR<0,'价咯趋势中长线转强'),COLORYELLOW;
EXPLAIN(价咯WR=0,'如果能量配合,已具备长线走牛的可能'),COLORYELLOW;
EXPLAIN(价咯WR=-100,'趋势很弱,此股不看'),COLORYELLOW;
EXPLAIN(REF(价咯WR,3)>REF(价咯WR,2) AND REF(价咯WR,2)>REF(价咯WR,1)
AND REF(价咯WR,1)>价咯WR,'趋势转空'),COLORYELLOW;
EXPLAIN(REF(价咯WR,3)<REF(价咯WR,2) AND REF(价咯WR,2)<REF(价咯WR,1)
AND REF(价咯WR,1)<价咯WR,'趋势转多'),COLORYELLOW;
EXPLAIN(量WR<=-80 AND 量WR>-100,'介入资金散兵游勇'),COLORGREEN;
EXPLAIN(量WR>-80 AND 量WR<=-50,'部分中线资金介入'),COLORGREEN;
EXPLAIN(量WR>-50 AND 量WR<=-20,'中线资金有进一步介入愿望,关注'),COLORGREEN;
EXPLAIN(量WR>-20 AND 量WR<0,'有大资金愿意做此股'),COLORGREEN;
EXPLAIN(量WR=0,'资金介入在疯狂'),COLORGREEN;
EXPLAIN(量WR=-100,'无资金照看'),COLORGREEN;
EXPLAIN(REF(量WR,3)>REF(量WR,2) AND REF(量WR,2)>REF(量WR,1)
AND REF(量WR,1)>量WR,'资金在撤退'),COLORGREEN;
EXPLAIN(REF(量WR,3)<REF(量WR,2) AND REF(量WR,2)<REF(量WR,1)
AND REF(量WR,1)<量WR,'资金在介入'),COLORGREEN;