YF_BD20:=20;
YF_BD15:=15;
YF_BD10:=10;
YF_BD05:=5;
YF_BD00:=0;
YF_BDF5:=-5;
YF_DMR:=0;
YF_DMC:=0;
YF_DCG:=1;
YF_DSY:=0;
YF_DCB:=0;
YF_DKS:=0;
YF_DCB1:=0;
YF_DKS1:=0;
YF_TDMR:=0;
YF_TDMC:=0;
YF_TDCG:=0;
YF_ZFD:=0;
YF_YZFZ:=0;
YF_DDI:=0;
YF_JJ:=AMOUNT/VOL;
YF_PJJ:=(OPEN+CLOSE)/2;
YF_DDING:=0;
YF_MMD:=EMA(CLOSE,6);
YF_XXD:=MA(YF_MMD,1);
YF_YYZ:=EMA(CLOSE,18);
YF_XXD1:=REF(YF_XXD,1);
YF_YYZ1:=REF(YF_YYZ,1);
A:=BARSCOUNT(CLOSE);
YF_ZFD:=IF(A=1,0,(YF_XXD-YF_XXD1)/YF_XXD1*100);
YF_YZFZ:=IF(A=1,0,(YF_YYZ-YF_YYZ1)/YF_YYZ1*100);
YF_DDI:=0;
YF_JJ:=AMOUNT/VOL;
YF_PJJ:=(OPEN+CLOSE)/2;
YF_DDING:=0;
YF_JSD1:=0;
YF_JSD2:=0;
CLOSE1:=REF(CLOSE,1);
YF_JZDF:=IF(A=1,0,(CLOSE-CLOSE1)/CLOSE1*100);
YF_DCGJ:=IF(A=1,(CLOSE+OPEN)/2,YF_XXD1);
YF_DCB1:=IF(A=1,1,REF(YF_DCB,1));
YF_DKS1:=IF(A=1,1,REF(YF_DKS,1));
JJ0:=YF_XXD;
JJ1:=YF_XXD1;
JJ2:=REF(YF_XXD,2);
JJ02:=(JJ0+JJ1+JJ2)/3;
SS:=(ABS(JJ0-JJ02)+ABS(JJ1-JJ02)+ABS(JJ2-JJ02))/3;
YF_ZFD1:=REF(YF_ZFD,1);
YF_ZFD2:=REF(YF_ZFD,2);
YF_DHPXS:=IF(A<3,0,SS/JJ0*100);
YF_DHPFH:=IF(A<3,0,IF(YF_ZFD<0 AND YF_ZFD1<0 AND YF_ZFD2<0,-1,1));
YF_ZFD1:=REF(YF_ZFD,1);
YF_JSD21:=REF(YF_JSD2,1);
YF_DDI:=IF(A>11 AND YF_ZFD1<0 AND YF_ZFD>0,1,0);
YF_JSD:=BARSLAST(YF_DDI=1);
YF_JSD11:=REF(YF_JSD,1);
YF_JSD1:=IF(A>11 AND YF_ZFD1<0 AND YF_ZFD>0,YF_JSD11+1,YF_JSD11);
YF_DDING:=IF(A>11 AND YF_ZFD1>0 AND YF_ZFD<0,1,0);
YF_JSD2:=IF(A>11 AND YF_ZFD1>0 AND YF_ZFD<0,YF_JSD21+1,YF_JSD21);
DMRJ:=YF_DCGJ;
DMCJ:=YF_DCGJ;
YF_DMRJ:=IF(A>11 AND DMRJ<OPEN,OPEN,YF_DCGJ);
YF_DMCJ:=IF(A>11 AND DMCJ>OPEN,OPEN,YF_DCGJ);
YF_DCG1:=0;
YF_DCB1:=REF(YF_DCB,1);
YF_DCGJ1:=REF(YF_DCGJ,1);
YF_DMR:=IF(YF_ZFD>0.5 AND (YF_DHPXS>0.215 OR LOW>YF_DCGJ) AND CLOSE>=OPEN AND (CLOSE>=200 OR CLOSE<200 AND YF_JZDF<11),1,0);
YF_DMC:=IF(YF_ZFD<-0.3 AND (YF_DHPXS>0.2 OR HIGH<YF_DCGJ) AND (OPEN>=CLOSE OR YF_JZDF<-1),1,0);
YF_TDMR:=BARSSINCE(YF_DMR);
YF_TDMC:=BARSSINCE(YF_DMC);
IF YF_DMC[DATACOUNT]<YF_DMR[DATACOUNT] THEN BEGIN
B:=SETLBOUND(7,1);
YF_DMC:=YF_DMC OR BARPOS=1;
END;
YF_DMRBUY:=COUNT(YF_DMR,BARSLAST(YF_DMC))=1 AND YF_DMR;
YF_DMCSELL:=COUNT(YF_DMC,BARSLAST(YF_DMR))=1 AND YF_DMC;
YF_DCG10:=BARSLAST(YF_DMCSELL);
YF_DCG11:=BARSLAST(YF_DMRBUY);
YF_DCGREAL:=(SUM(YF_DMCSELL,YF_DCG11)=0)*YF_DCG11;
YF_TDMR:=BARSSINCE(YF_DMR);
YF_TDMC:=BARSSINCE(YF_DMC);
IF YF_DMR[DATACOUNT]<YF_DMC[DATACOUNT] THEN BEGIN
B:=SETLBOUND(6,1);
YF_DMR:=YF_DMR OR BARPOS=1;
END;
YF_DMRBUY:=COUNT(YF_DMR,BARSLAST(YF_DMC))=1 AND YF_DMR;
YF_DMCSELL:=COUNT(YF_DMC,BARSLAST(YF_DMR))=1 AND YF_DMC;
YF_DCG10:=BARSLAST(YF_DMCSELL);
YF_DCG11:=BARSLAST(YF_DMRBUY);
YF_DKC:=(SUM(YF_DMRBUY,YF_DCG11)=0)*YF_DCG11;
YF_DMRJ11:=REF(YF_DMRJ,YF_DCGREAL);
YF_DMRJ1:=REF(YF_DMRJ11,1);
YF_DSY1:=IF(YF_DMRBUY=1,(CLOSE-YF_DMRJ)/YF_DMRJ*100,(YF_DMCJ-YF_DMRJ1)/YF_DMRJ1*100);
YF_DSY:=IF(YF_DCGREAL=0 AND YF_DMRBUY=0 AND YF_DMCSELL=0,0,YF_DSY1);
YF_DKS:=IF(YF_DCB1>0 AND YF_DMR=0,(CLOSE-YF_DCGJ1)/YF_DCGJ1*100,0);
限制天数:=DAYS1970;
五域股龄1:=BARSCOUNT(CLOSE);
五域股龄:=IF(限制天数>14500,0,五域股龄1);
短买入1:=YF_DMRBUY;
短买入:=IF(限制天数>14500,0,短买入1);
短卖出1:=YF_DMCSELL;
短卖出:=IF(限制天数>14500,0,短卖出1);
短持股1:=YF_DCGREAL;
短持股:=IF(限制天数>14500,0,短持股1);
本次收益1:=YF_DSY;
本次收益:=IF(限制天数>14500,0,本次收益1);
短买价1:=IF(短买入=1,YF_DMRJ11,IF(短持股<>0 OR 短卖出=1,YF_DMRJ1,0));
短买价:=IF(限制天数>14500,0,短买价1);
短卖价1:=IF(短卖出=1,YF_DMCJ,0);
短卖价:=IF(限制天数>14500,0,短卖价1);
YF_下限:=COST(0.0001);
YF_主流成本:=COST(10);
YF_平均成本:=COST(50);
YF_浮动成本:=COST(90);
YF_上限:=COST(99.9999);
YF_SVOL:=SMA(VOL/1000,10,1);
YF_HYZJ:=YF_SVOL*CLOSE;
LC:=REF(CLOSE,1);
YF_SCQR:=(SMA(MAX(CLOSE-LC,0),12,1))/(SMA(ABS(CLOSE-LC),12,1))*100;
A:=BARSCOUNT(CLOSE);
YF_DSYLJ:=0;
YF_DCSLJ:=0;
YF_GLDSY:=0;
YF_MAXDSY:=0;
YF_DCSLY:=COUNT(YF_DMC=1 AND YF_DSY<>0,0);
YF_MAXDSY:=HHV(YF_DSY,0);
YF_GLDSY:=BARSSINCE(YF_DMC=1 AND YF_DSY<>0);
YF_DSYLJ1:=IF(YF_DMC=1,YF_DSY,0);
YF_DSYLJ:=SUM(YF_DSYLJ1,0)-YF_DCSLY;
总收益1:=YF_DSYLJ;
总收益:=IF(限制天数>14500,0,总收益1);
总次数1:=YF_DCSLY;
总次数:=IF(限制天数>14500,0,总次数1);
D:=IF(A<240,A,240);
年收益1:=SUM(YF_DSYLJ1,0)-YF_DCSLY-(REF(SUM(YF_DSYLJ1,0)-YF_DCSLY,D));
年收益:=IF(限制天数>14500,0,年收益1);
年次数1:=(COUNT(YF_DMC=1 AND YF_DSY<>0,0))-(REF(COUNT(YF_DMC=1 AND YF_DSY<>0,0),D));
年次数:=IF(限制天数>14500,0,年次数1);
DZMM:=IF(短买入=1,1,IF(短持股>0,2,IF(短卖出=1,9,0)));
短操盘状态1:=DZMM;
短操盘状态:=IF(限制天数>14500,0,短操盘状态1);
明日空间买卖点1:=EMA(CLOSE,6);
明日空间买卖点:=IF(限制天数>14500,0,明日空间买卖点1);
收盘:CLOSE,colorFF0000;
HSL:=VOL/CAPITAL*100;
N:=IF(短买入=1,1,IF(短持股>0,短持股+1,IF(短卖出=1,REF(短持股,1)+2,0)));
高价:=HHV(HIGH,N);
HNT:=HHVBARS(高价,N);
HN:=IF(HNT<1,1,HNT);
HSLN:=SUM(HSL,N);
HSLHN:=SUM(HSL,HN);
LONGT:=HSLHN/HSLN*N;
LONG1:=IF(LONGT<1,1,LONGT);
LONG:=INTPART(LONG1);
过滤:=FILTERX(HN=1,N);
VN:=SUM(VOL,HN);
AN:=SUM(AMOUNT,HN);
利润成本1:=AN/VN/100;
相反价:=利润成本1-高价+利润成本1;
STICKLINE(短卖出=1,高价,短卖价,1.5,0),colorFF00;
STICKLINE(短卖出=1,相反价,高价,1.5,0),colorFF00;
DRAWSL(短卖出=1,利润成本1,0,LONG,1),colorFF0000;
DRAWSL(短卖出=1,高价,(高价-利润成本1)/LONG,LONG,1),colorFF00;
DRAWSL(短卖出=1,相反价,-(利润成本1-相反价)/LONG,LONG,1),colorFF00;
DRAWICON(短卖出=1,短卖价,13);
损失利润:=IF(短卖出=1,(高价-短买价)/短买价*100-本次收益,0);
损失利润率1:=损失利润/本次收益*100;
利润基点1:=高价;
利润目标1:=相反价;
M:=BARSLAST(短卖出);
低价:=LLV(LOW,M);
LNT:=LLVBARS(低价,M);
LM:=IF(LNT<1,1,LNT);
HSLM:=SUM(HSL,M);
HSLLM:=SUM(HSL,LM);
LONGTT:=HSLLM/HSLM*M;
LONGG:=IF(LONGTT<1,1,LONGTT);
长度:=INTPART(LONGG);
过滤1:=FILTERX(LM=1,M);
VN1:=SUM(VOL,LM);
AN1:=SUM(AMOUNT,LM);
利润成本2:=AN1/VN1/100;
相反价1:=利润成本2-低价+利润成本2;
STICKLINE(短买入=1,低价,短买价,1.5,0),colorFF;
STICKLINE(短买入=1,相反价1,低价,1.5,0),colorFF;
DRAWSL(短买入=1,利润成本2,0,长度,1),colorFF0000;
DRAWSL(短买入=1,相反价1,(相反价1-利润成本2)/长度,长度,1),colorFF;
DRAWSL(短买入1,低价,-(利润成本2-低价)/长度,长度,1),colorFF;
DRAWICON(短买入=1,短买价,13),colorFF00;
损失利润1:=IF(短买入=1,(短买价-低价)/低价*100,0);
位置:=BARSLAST(短卖出=1);
短卖价1:=REF(短卖价,位置);
损失利润率2:=损失利润1/((短卖价1-短买价)/短卖价1);
利润目标2:=相反价1;
利润基点2:=低价;
利润产出1:=IF(短买入=0 AND 短卖出=0 AND 短持股=0,REF(利润目标1,M),IF(短持股>0,REF(利润目标2,短持股),IF(短买入=1,利润目标2,IF(短卖出=1,利润目标1,0))));
利润投入1:=IF(短买入=0 AND 短卖出=0 AND 短持股=0,REF(利润基点1,M),IF(短持股>0,REF(利润基点2,短持股),IF(短买入=1,利润基点2,IF(短卖出=1,利润基点1,0))));
利润成本1:=IF(短买入=0 AND 短卖出=0 AND 短持股=0,REF(利润成本1,M),IF(短持股>0,REF(利润成本2,短持股),IF(短买入=1,利润成本2,IF(短卖出=1,利润成本1,0))));
利润损失率1:=IF(短买入=0 AND 短卖出=0 AND 短持股=0,REF(损失利润率1,M),IF(短持股>0,REF(损失利润率2,短持股),IF(短买入=1,损失利润率2,IF(短卖出=1,损失利润率1,0))));
利润产出:IF(限制天数>14200,0,利润产出1),LINETHICK0;
利润投入:IF(限制天数>14200,0,利润投入1),LINETHICK0;
利润成本:IF(限制天数>14200,0,利润成本1),LINETHICK0;
利润损失率:IF(限制天数>14200,0,利润损失率1),LINETHICK0;
DRAWICON(损失利润率1<0 OR 损失利润率1>50,SYSPARAM(5),6);
DRAWICON(损失利润率2<0 OR 损失利润率2>50,SYSPARAM(5),6);
红旗:=IF(损失利润率1<0 OR 损失利润率1>50 OR 损失利润率2<0 OR 损失利润率2>50,1,0);
红旗总数:=SUM(红旗,60);
DRAWICON(红旗=1 AND 红旗总数>=3 AND (HHV(HIGH,40)-LLV(LOW,40))/LLV(LOW,40)<=0.2,SYSPARAM(5)-0.3,7);
绿旗:=IF(红旗=1 AND 红旗总数>=3 AND (HHV(HIGH,40)-LLV(LOW,40))/LLV(LOW,40)<=0.2,1,0);
绿旗总数:=SUM(绿旗,0);
VARIABLE:PV[21]=1;
N:=SYSPARAM(3)-SYSPARAM(1)+1;
NH1:=HHV(HIGH,N);
NL1:=LLV(LOW,N);
NH:=NH1[SYSPARAM(3)]-NL1[SYSPARAM(3)];
NLLV:=NL1[SYSPARAM(3)];
DP:=NH/20;
HSL:=VOL/CAPITAL*100;
FH:=HIGH;
FL:=LOW;
FOR I=SYSPARAM(3) DOWNTO SYSPARAM(1) DO BEGIN
KH:=FH[I]-FL[I];
KMS:=INTPART((FL[I]-NLLV)/DP)+1;
KME:=INTPART((FH[I]-NLLV)/DP)+1;
FOR J=KMS TO KME DO BEGIN
IF NLLV+(J-1)*DP<FL[I] THEN BEGIN
IF NLLV+J*DP>FH[I] THEN
PV[J]:=PV[J]+HSL[I];ELSE
PV[J]:=PV[J]+HSL[I]*(NLLV+J*DP-FL[I])/KH;
END;ELSE
IF NLLV+J*DP<FH[I] THEN
PV[J]:=PV[J]+HSL[I]*(DP/KH);ELSE
PV[J]:=PV[J]+HSL[I]*(FH[I]-NLLV-(J-1)*DP)/KH;
END;
END;
STICKLINE(BARPOS=SYSPARAM(3),HHV(HIGH,N),LLV(LOW,N),2,0),SHIFT1;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N),0,N,1),SHIFT1;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+0.5*DP,0,PV[1],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+1.5*DP,0,PV[2],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+2.5*DP,0,PV[3],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+3.5*DP,0,PV[4],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+4.5*DP,0,PV[5],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+5.5*DP,0,PV[6],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+6.5*DP,0,PV[7],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+7.5*DP,0,PV[8],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+8.5*DP,0,PV[9],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+9.5*DP,0,PV[10],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+10.5*DP,0,PV[11],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+11.5*DP,0,PV[12],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+12.5*DP,0,PV[13],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+13.5*DP,0,PV[14],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+14.5*DP,0,PV[15],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+15.5*DP,0,PV[16],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+16.5*DP,0,PV[17],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+17.5*DP,0,PV[18],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+18.5*DP,0,PV[19],1),SHIFT1,color808080;
DRAWSL(BARPOS=SYSPARAM(3),LLV(LOW,N)+19.5*DP,0,PV[20],1),SHIFT1,color808080;
 |
