程序一
cc:=c;
for j=61 to DATACOUNT-30 do
begin
VARIABLE: i=-1;
repeat i:=i+1 until
cc[barpos+i-1]>cc[BARPOS+i]&&cc[BARPOS+i]<cc[barpos+i+1];
jl[j]:=i;
end
JL1:jl;
程序二
R:=C;
VARIABLE:J=1;
IF REF(r,1)>r&&r<REFX(r,1) then J:=0;
else
begin
if r>refx(r,1)&&refx(r,1)<refx(r,2) then j:=1;
else
begin
repeat j:=j+1 until
refx(r,j-1)>refx(r,j)&&refx(r,j)<refx(r,j+1) ;
end;
end;
jr:j;
运行周期是什么?
程序1,请参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=30074
程序2,发现你出现的主要问题如下:
1,VARIABLE:J=1;这样声明的全局变量,是个单值变量,无法使用REF这中函数来求的序列变量值
2,你目前对金字塔的逐K线模式和序列模式,意识紊乱,建议你仔细参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=10&Id=29594 第三个描述
3,因为程序陷入了死循环,导致在序列模式下使用REFX不断的分配内存最终导致软件崩溃。 对于使用了IF THEN ,循环控制语句来说,学会使用金字塔的调试功能是不可缺少的一项基本知识,请用户认真的学习 http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=332 常见问题4中的调试技巧,重点看单步跟踪和断点调试