收阳:=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;

 

很多时候，你需要检查很多种情况，你可以使用子句ElseIf来将一些If条件结合在一起。使用If…Then…ElseIf语句，你可以比用前面章节中的If…Then…Else语句评估更多的条件。这里是If…Then…ElseIf语句的语法：

If 条件1 Then

条件1为真时要执行的语句

ElseIf 条件2 Then

条件2为真时要执行的语句

ElseIf 条件3 Then

条件3为真时要执行的语句

ElseIf 条件N Then

条件N为真时要执行的语句

Else

所有条件都为假时要执行的语句

End If

Else子句是可选的；如果当所有条件为假时，没有要执行的操作，那么你就可以忽略它。