软件名称：[B]多项选股合一[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2009-06-11 03:22:42
软件简介:

////////////多项选股合一///////////////////
INPUT:K1(84,0,9999);
J0:=(H+L+C)/3;
J1:=IF(CLOSE>J0,VOL,0);
J2:=IF(CLOSE<J0,VOL,0);
RV:=(j0-LLV(j0,34))/(HHV(j0,34)-LLV(j0,34))*100;
tj:=sum(J1-J2,5);
c1:=EMA(tj,5)-EMA(tj,24);
c2:=WMA(c1,7);
GZ:=CROSS(c1,c2);
KZ:=CROSS(RV,15);
////////////////////////////////////////////////////
VARIABLE:K2=IF(DATACOUNT>K1,DATACOUNT-K1,1),qj[4]=0,I=0;
HH:=HIGH;
LL:=LOW;
qj[4]:=99999;
FOR I=K2 TO DATACOUNT Do Begin
qj[1]:=IF(HH[I]>qj[2],I,qj[1]);
qj[2]:=IF(HH[I]>qj[2],HH[I],qj[2]);
qj[3]:=IF(LL[I]<QJ[4],I,QJ[3]);
qj[4]:=IF(LL[I]<QJ[4],LL[I],QJ[4]);
End;
K2:=MIN(qj[1],qj[3]);
LL[K2]:=-1.618;
qj[1]:=1;
qj[2]:=1;
qj[3]:=ROUND(SQRT(qj[2])*29.5306+K2);
WHILE qj[3]<=DATACOUNT Do Begin
qj[2]:=qj[2]+qj[1];
qj[1]:=qj[2]-qj[1];
LL[qj[3]]:=-0.618;

HH[qj[3]]:=ROUND(SQRT(qj[2])*29.5306+K2);
qj[3]:=HH[qj[3]];
End;
///////////{上面是公共源码}//////////////////////////////////
{分别选股}
底共振:GZ and KZ;
出现“B”的地方:(LL<0 && MOD(COUNT(LL<0,0),2)=0 && ABS(LDAY-15)<=3) OR (LL<0 && MOD(COUNT(LL<0,0),2)=2 && MOD(LDAY,28)<=3);
出现黄s柱:LL<0 && MOD(COUNT(LL<0,0),2)=0;
出现红色柱:LL<0 && MOD(COUNT(LL<0,0),2)=1;
出现红色的小圆点:LL<-1;

[url=http://www.70822.com/soft/sort013/sort02/down-9888.html]多项选股合一[/url]