软件名称：[B]董军送大家㊣ - 选股公式[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2008-11-28 19:11:38
软件简介:

{公式名称：董军送大家㊣}
VAR1:=MA(CLOSE,80)-MA(CLOSE,10)/3;
VAR2:=CLOSE<VAR1 AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3;
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
VAR5:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR6:=REF(CLOSE,1);
VAR7:=(SMA(MAX(CLOSE-VAR6,0),5,1))/(SMA(ABS(CLOSE-VAR6),5,1))*100;
VAR8:=(HIGH+LOW+CLOSE)/3;
VAR9:=(VAR8-MA(VAR8,14))/(0.015*AVEDEV(VAR8,14));
VARA:=VAR3>=-15.8 AND VAR3<=-12.2 AND VAR4<=-20.8 AND VAR5<=-27.5 AND VAR7<=11.7 AND VAR9<=-145;
VARB:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100<-8 AND REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)<REF(CLOSE,2) AND (ABS(REF(OPEN,1)-REF(CLOSE,1)))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
VARC:=REF(CLOSE,1);
VARD:=(SMA(MAX(CLOSE-VARC,0),6,1))/(SMA(ABS(CLOSE-VARC),6,1))*100;
VARE:=(SMA(MAX(CLOSE-VARC,0),12,1))/(SMA(ABS(CLOSE-VARC),12,1))*100;
VARF:=(BARSLAST(VARE<20))<=3 AND CROSS(VARD,VARE);
VAR10:=(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100<-12.5;
VAR11:=LLV(LOW,5);
VAR12:=HHV(HIGH,5);
VAR13:=EMA((CLOSE-VAR11)/(VAR12-VAR11)*100,4);
VAR14:=EMA(0.667*REF(VAR13,1)+0.333*VAR13,2);
VAR15:=VARF AND VAR10 AND CROSS(VAR13,VAR14) AND VAR13<=25;
VAR16:=(REF(CLOSE,1)+REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5))/5;
VAR17:=(REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6))/5;
VAR18:=(REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6)+REF(CLOSE,7))/5;
VAR19:=(REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6)+REF(CLOSE,7)+REF(CLOSE,8))/5;
VAR1A:=(REF(CLOSE,5)+REF(CLOSE,6)+REF(CLOSE,7)+REF(CLOSE,8)+REF(CLOSE,9))/5;
VAR1B:=(VAR16/CLOSE>1.112 OR VAR17/CLOSE>1.123 OR VAR18/CLOSE>1.135 OR VAR19/CLOSE>1.145 OR VAR1A/CLOSE>1.156) AND (CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100<=-20 AND COST(25)/CLOSE>=1.5;
MID:=(OPEN+CLOSE)/2;
HSL:=IF(CAPITAL=0,VOL/SUM(VOL,100),VOL/CAPITAL);
IF CAPITAL=0 THEN BEGIN
HSL:=VOL/SUM(VOL,100);
I:=SETLBOUND(HSL,1);
FOR LJHS=1 TO MIN(100-1,DATACOUNT) DO BEGIN
HSL[LJHS]:=0;
END;
END;
CYC1[1]:=HSL[1];
DD[1]:=MID[1];
C11:=MID[1]*(BARPOS<100);
FOR LJHS=LBOUND(HSL)+1 TO DATACOUNT DO BEGIN
CYC1[LJHS]:=(CYC1[LJHS-1])*(1-HSL[LJHS])*(2-1)/2+HSL[LJHS];
DD[LJHS]:=(MID[LJHS]*HSL[LJHS]+(DD[LJHS-1])*(CYC1[LJHS-1])*(1-HSL[LJHS])*(2-1)/2)/CYC1[LJHS]+C11[LJHS];
END;
A1:=DD;
A2:=EMA((EMA(A1,20)+EMA(A1,21)+EMA(A1,22))/3,2);
A3:=EMA((EMA(A1,30)+EMA(A1,31)+EMA(A1,32))/3,2);
A4:=(A1-LLV(A1,5))/(HHV(A1,5)-LLV(A1,5))*100;
VARQS1:=DATE<1051001 AND DATE>1050805;
BB1:CLOSE>A3 AND A4=0 AND CLOSE>REF(CLOSE,1) AND A2>REF(A2,1) AND VARQS1;

[url=http://www.70822.com/soft/sort013/sort02/down-4697.html]董军送大家㊣ - 选股公式[/url]