[PEL] 复制代码
RSI:"RSI.RSI1"(6);
LEN:=if(DATACOUNT-BARPOS<2,DATACOUNT-BARPOS,2);
HCD:=RSI>REF(HHV(RSI,2),1) AND RSI>REFX(HHV(RSI,LEN),LEN);
LCD:=RSI<REF(LLV(RSI,2),1) AND RSI<REFX(LLV(RSI,LEN),LEN);
H1:=IF(HCD,RSI,0);
L1:=IF(LCD,RSI,0);
temp:=IF(LCD,RSI,10000);
HCT:=COUNT(HCD,200);//200周期内高点的个数
LCT:=COUNT(LCD,200);//200周期内低点的个数
H_MA:0;
L_MA:0;
if hct<5 then H_MA:=SUM(H1,200)/HCT;//不足五个,有几个取几个
else if then
begin
H_MA:=(LARGE(H1,200,1)+LARGE(H1,200,2)+LARGE(H1,200,3)+LARGE(H1,200,4)+LARGE(H1,200,5))/5;
end
if lct<5 then L_MA:=SUM(L1,200)/LCT;else if then
begin
L_MA:=(SMALL(temp,200,1)+SMALL(temp,200,2)+SMALL(temp,200,3)+SMALL(temp,200,4)+SMALL(temp,200,5))/5;//五个最小的RIS求均值
end
DRAWICON(HCD,H,1);
DRAWICON(LCD,L,2);