ELSE IF THEN 函数的用法

 网友求助：

收阳:=C>=REF(C,1);
收阴:=C<REF(C,1);
放量:=VOL>REF(VOL,1);
缩量:=VOL<REF(VOL,1);
if 收阳 AND 放量 then
得分:=2;
else IF 收阳 AND 缩量 then
得分:=1;
else IF 收阴 AND 放量 then
得分:=-2;
else IF 收阴 AND 缩量 then
得分:=-1;
得分:=得分;
五日得分:sum(得分,5),linethick0,precis0;
STICKLINE(五日得分<0,0,五日得分,4,0),COLORGREEN;
STICKLINE(五日得分>0,0,五日得分,4,0),COLORRED;

解答如下：

收阳:=C>REF(C,1);
收阴:=C<REF(C,1);
放量:=VOL>REF(VOL,1);
缩量:=VOL<REF(VOL,1);

得分:c*0;
for i=2 to datacount do begin
if 收阳[i] AND 放量[i] then
得分[i]:=2;
else IF 收阳[i] AND 缩量[i] then
得分[i]:=1;
else IF 收阴[i] AND 放量[i] then
得分[i]:=-2;
else IF 收阴[i] AND 缩量[i] then
得分[i]:=-1;
end;

五日得分:sum(得分,5),linethick0;
STICKLINE(五日得分<0,0,五日得分,4,0),COLORGREEN;
STICKLINE(五日得分>0,0,五日得分,4,0),COLORRED;