编写要求：
股票网解答：
网友求助：
收阳:=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);
放量:=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<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;
- 0
- 顶一下