谢谢！我贴出来：

XK:=O;

XD:=L;

XG:=H;

XS:=C;

MA(XS,5);

我的想法是：想从系统提供的（或者系统自动生成的）原始k线数据（假设此为数列集合a），选择今日低价小于n周期的低价的k线和今日高价高于n周期前的k线出来组成新的k线数据组（假设此为新的行情数据集合b），ref（xd，1）要判断的数列b中的前一根k线的低价而不是a中的前一根k线的低价，只有满足条件后才生成新的k线和提取数据，否则过滤掉a数列中不符合条件的数据，有可能后面每根k线都要，有可能只要其中一根，也有可能连续很多根k线的数据都不要。MA(XS,5)是对数据列b中新的数据按照时间顺序排列进行ma（不含过滤掉的数据），特别的说明的是它一般不应该和主图中ma（c，5）等值。

感觉要参考这个公式：

VARIABLE:hh=high,ll=low,n=0,qs=low;
qs[1]:=0;
FOR i=2 TO DATACOUNT DO
begin
qs:=0;
IF HH>HH[i-1] AND LL>LL[i-1] THEn qs:=1 ;
IF HH<HH[i-1] AND LL<LL[i-1] THEN qs:=-1 ;
IF (HH>=HH[i-1] AND LL<=LL[i-1]) or (HH<=HH[i-1] AND LL>=LL[i-1]) THEN
    BEGIN
      IF qs[i-1]=1 THEN
        BEGIN
          HH:=MAX(HH,HH[i-1]);
          LL:=MAX(LL,LL[i-1]);
      END;
      IF qs[i-1]=-1 THEN
        BEGIN
          HH:=MIN(HH,HH[i-1]);
          LL:=MIN(LL,LL[i-1]);
         END;
     n:=n+1;
     HH[i-1]:=0;
     LL[i-1]:=0;
     qs:=qs[i-1];
    END;
END;

就是在末尾加Ma（xs，m）；

Xs:收盘价的曲线

这两个线。

有哪位大爷是程序和思路的高手作一个