http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=130&authorid=0&page=0&star=1

没有定义N_SS，没有输出，没有定义逐K线模式还是序列模式

PT:=HIGH;

FOR I=0 TO BARPOS DO
BEGIN
 PointCond:=1;
 FOR J=0 TO N_SS-1 DO
 BEGIN
  PointCond:=PT[BARPOS-(I+N_SS)]>PT[BARPOS-(I+J) ];  
 END

 TmpPrice:=PT[BARPOS-(I+N_SS)];

END

下面自己改动   定义为序列模式

PT:=HIGH;

N_SS:=10; //没有定义N_SS 

FOR I=0 TO BARPOS DO

BEGIN

 PointCond:=1;

 FOR J=0 TO N_SS-1 DO

 BEGIN

  PointCond:=PT[BARPOS-(I+N_SS)]>PT[BARPOS-(I+J) ];  

 END

 TmpPrice:=PT[BARPOS-(I+N_SS)];

END

sss:TmpPrice;//没有输出 自己加的

看不懂公式求的是什么 

作为教学帖 不严谨哦