

参考:
pc:="1A0001$CLOSE";
q:=datacount;
ph:=hhv(pc,q);
pL:=LLv(pc,q);
kh:=hhv(h,q);
kL:=LLv(L,q);
b:=(kh-kL)/(ph-pL)/1.2;
y:=(kh+kL-b*(ph+pL))/2;
a:=(0+y[q]+b[q]*pc)COLORGREEN;
fc:=c;
x:=if(abs((fc[1]/DYNAINFO(3)-1)*100)>10,c,DYNAINFO(3));
a*(x[1]/a[2])COLORMAGENTA;
[ 本帖最后由 cwy 于 2006-9-1 21:16 编辑 ]
附件: 您所在的用户组无法下载或查看附件