正解，谢了，现在我就可以继续了，编个sma的函数，还请各位大侠援手

用WORD写出公式及详细说明，上传

[ 本帖最后由 sdta 于 2012-3-16 08:40 编辑 ]

CLOSE TABLES
USE 1a0001.DBF ALIAS A
BLANK ALL FIELDS K
FOR I=1 TO RECCOUNT()-8
SELECT SHLOW FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+8) INTO ARRAY AA
=ACOPY(AA,BB)
=ASORT(BB) && BB(1)为最小值，BB(9)为最大值
SELECT A
REPLACE K WITH BB(1) FOR RECNO()=I+8

SELECT SHhigh FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+8) INTO ARRAY AA
=ACOPY(AA,BB)
=ASORT(BB) && BB(1)为最小值，BB(9)为最大值
SELECT A
REPLACE d WITH BB(9) FOR RECNO()=I+8
ENDFOR
n=9
GO n
DO WHILE !EOF()
rsv=(shclose-k)/(d-k)*100
REPLACE ALL trix WITH rsv  &&怎么都是100还报错
SKIP
n=n+1
ENDDO
 CLOSE ALL

rsv=(shclose-k)/(d-k)*100
100是在分子上，还是在分母中

CLOSE TABLES
USE 1a0001.DBF ALIAS A
BLANK ALL FIELDS K,D
FOR I=1 TO RECCOUNT()-8
    SELECT SHLOW FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+8) INTO ARRAY AA
    =ACOPY(AA,BB)
    =ASORT(BB),BB(1),BB(9) && BB(1)为最小值，BB(3)为最大值
    SELECT A
    REPLACE K WITH BB(1),D WITH BB(9),TRIX WITH (ABS(shclose-k)/ABS(d-k))*100 FOR RECNO()=I+8
ENDFOR

每次运算时间在12秒多点，只有全部做完再改进了。

[ 本帖最后由 sdta 于 2012-3-16 09:43 编辑 ]

供参考

最好能用WORD公式编辑器写公式。

你的程序里有问题，d取的值是shhigh内9天的最大值

不会的，检查一下你的代码，我的程序里始终没出现过SHHIGH，那里来的SHHIGH。

这是你写的代码：
SELECT SHhigh FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+8) INTO ARRAY AA
如果看不懂代码，不要自做主张，随意添加代码。

[ 本帖最后由 sdta 于 2012-3-16 10:18 编辑 ]

你取值都从shlow中取了，shlow取最低值，shhigh中取最大值，我表达的不清楚，应该从2个字段中分别取出9天中shhigh的最大值和9天中shlow中的最低值，所以我分开了，写k和d