| DRAWGBK(O>REF(C,1),COLORRGB(127,0,63) ,COLORRGB(0,0,0),1);
DRAWGBK(O<REF(C,1),COLORRGB(1,1,14) ,COLORRGB(40,40,170),1);
A0:=BARSCOUNT(C);A3:=SYSPARAM(3);A2:=SYSPARAM(2);
A4:=SYSPARAM(4);A5:=SYSPARAM(5);
NN0:=A3-A2;NN:=A0-A2;HH1:=(A4-A5)/10;
HH2:=HH1/4;
LL1:=LLV(L,NN0);LL2:=LL1[A3];
Y0:=A0>=A2;VV0:=IF(Y0=1 AND SYSPARAM(1)>=A0,V,0);
C1:=IF(BETWEEN(C,A4-0*HH1,A4-1*HH1),VV0,0);
C2:=IF(BETWEEN(C,A4-1*HH1,A4-2*HH1),VV0,0);
C3:=IF(BETWEEN(C,A4-2*HH1,A4-3*HH1),VV0,0);
C4:=IF(BETWEEN(C,A4-3*HH1,A4-4*HH1),VV0,0);
C5:=IF(BETWEEN(C,A4-4*HH1,A4-5*HH1),VV0,0);
C6:=IF(BETWEEN(C,A4-5*HH1,A4-6*HH1),VV0,0);
C7:=IF(BETWEEN(C,A4-6*HH1,A4-7*HH1),VV0,0);
C8:=IF(BETWEEN(C,A4-7*HH1,A4-8*HH1),VV0,0);
C9:=IF(BETWEEN(C,A4-8*HH1,A4-9*HH1),VV0,0);
C10:=IF(BETWEEN(C,A4-9*HH1,A4-10*HH1),VV0,0);
V1:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C1,NN0),0),2)),LINETHICK;
V2:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C2,NN0),0),2));
V3:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C3,NN0),0),2));
V4:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C4,NN0),0),2));
V5:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C5,NN0),0),2));
V6:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C6,NN0),0),2));
V7:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C7,NN0),0),2));
V8:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C8,NN0),0),2));
V9:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C9,NN0),0),2));
V10:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C10,NN0),0),2));
AV0:=MAX(V1,MAX(V2,MAX(V3,MAX(V4,MAX(V5,MAX(V6,MAX(V7,MAX(V8,MAX(V9,V10)))))))));
X1:=V1/AV0>=NN/NN0 AND NN>=0;
X2:=V2/AV0>=NN/NN0 AND NN>=0;
X3:=V3/AV0>=NN/NN0 AND NN>=0;
X4:=V4/AV0>=NN/NN0 AND NN>=0;
X5:=V5/AV0>=NN/NN0 AND NN>=0;
X6:=V6/AV0>=NN/NN0 AND NN>=0;
X7:=V7/AV0>=NN/NN0 AND NN>=0;
X8:=V8/AV0>=NN/NN0 AND NN>=0;
X9:=V9/AV0>=NN/NN0 AND NN>=0;
X10:=V10/AV0>=NN/NN0 AND NN>=0;
//东郭运钞专列色彩
FILLRGN(V1/AV0>=NN/NN0 AND NN>=0,A4-0*HH1,A4-1*HH1+HH1*0.5),COLOR660033;
FILLRGN(V2/AV0>=NN/NN0 AND NN>=0,A4-1*HH1,A4-2*HH1+HH1*0.5),COLOR990033;
FILLRGN(V3/AV0>=NN/NN0 AND NN>=0,A4-2*HH1,A4-3*HH1+HH1*0.5),COLORCC0033;
FILLRGN(V4/AV0>=NN/NN0 AND NN>=0,A4-3*HH1,A4-4*HH1+HH1*0.5),COLORFF0033;
FILLRGN(V5/AV0>=NN/NN0 AND NN>=0,A4-4*HH1,A4-5*HH1+HH1*0.5),COLORFF0066;
FILLRGN(V6/AV0>=NN/NN0 AND NN>=0,A4-5*HH1,A4-6*HH1+HH1*0.5),COLORCC0066;
FILLRGN(V7/AV0>=NN/NN0 AND NN>=0,A4-6*HH1,A4-7*HH1+HH1*0.5),COLOR990066;
FILLRGN(V8/AV0>=NN/NN0 AND NN>=0,A4-7*HH1,A4-8*HH1+HH1*0.5),COLOR660066;
FILLRGN(V9/AV0>=NN/NN0 AND NN>=0,A4-8*HH1,A4-9*HH1+HH1*0.5),COLOR330066;
FILLRGN(V10/AV0>=NN/NN0 AND NN>=0,A4-9*HH1,A4-10*HH1+HH1*0.5),COLOR000066;
//东郭运钞专列车次
DRAWNUMBER(FILTER(REFX(X1<REF(X1,1),6) AND V1>0,10),A4-0.05,A4-0*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X2<REF(X2,1),6) AND V2>0,10),(A4-2.25*2*HH2),A4-1*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X3<REF(X3,1),6) AND V3>0,10),(A4-2.85*3*HH2),A4-2*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X4<REF(X4,1),6) AND V4>0,10),(A4-3.12*4*HH2),A4-3*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X5<REF(X5,1),6) AND V5>0,10),(A4-3.32*5*HH2),A4-4*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X6<REF(X6,1),6) AND V6>0,10),(A4-3.42*6*HH2),A4-5*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X7<REF(X7,1),6) AND V7>0,10),(A4-3.52*7*HH2),A4-6*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X8<REF(X8,1),6) AND V8>0,10),(A4-3.55*8*HH2),A4-7*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X9<REF(X9,1),6) AND V9>0,10),(A4-3.61*9*HH2),A4-8*HH1,2),COLORCYAN;
DRAWNUMBER(FILTER(REFX(X10<REF(X10,1),6) AND V10>0,10),(A4-3.65*10*HH2),A4-9*HH1,2),COLORCYAN;
//东郭运钞专列真正的阳线柱
STICKLINE(C>=REF(C,1),L,H,1.4,0) ,COLOR000000;
STICKLINE(C>=REF(C,1),L,H,1,0) ,COLOR0000FF;
STICKLINE(C>=REF(C,1),L,H,0,0) ,COLORCC66FF;
STICKLINE(C>=REF(C,1),O,C,9.4,0) ,COLOR000000;
STICKLINE(C>=REF(C,1),O,C,8.8,0) ,COLOR000033;
STICKLINE(C>=REF(C,1),O,C,8,0) ,COLOR000066;
STICKLINE(C>=REF(C,1),O,C,7,0) ,COLOR000099;
STICKLINE(C>=REF(C,1),O,C,5.8,0) ,COLOR0000CC;
STICKLINE(C>=REF(C,1),O,C,4.4,0) ,COLOR0000FF;
STICKLINE(C>=REF(C,1),O,C,2.8,0) ,COLORCC66FF;
STICKLINE(C>=REF(C,1),O,C,1,0) ,COLORFFBBFF;
//东郭运钞专列真正的阴线柱
STICKLINE(C<REF(C,1),L,H,1.4,0) ,COLOR000000;
STICKLINE(C<REF(C,1),L,H,1,0) ,COLORFF6600;
STICKLINE(C<REF(C,1),L,H,0,0) ,COLORFFCC00;
STICKLINE(C<REF(C,1),O,C,9.4,0) ,COLOR000000;
STICKLINE(C<REF(C,1),O,C,8.8,0) ,COLOR550000;
STICKLINE(C<REF(C,1),O,C,8,0) ,COLOR990000;
STICKLINE(C<REF(C,1),O,C,7,0) ,COLORFF0000;
STICKLINE(C<REF(C,1),O,C,5.8,0) ,COLORFF5500;
STICKLINE(C<REF(C,1),O,C,4.4,0) ,COLORFF8800;
STICKLINE(C<REF(C,1),O,C,2.8,0) ,COLORFFCC00;
STICKLINE(C<REF(C,1),O,C,1,0) ,COLORFFFF33;
//东郭运钞专列轨道
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA30:=MA(CLOSE,30);
红轨道:MA(MA(CLOSE,3),1),LINETHICK2,COLORFF;
绿轨道:MA(MA(CLOSE,3),3),LINETHICK2,COLORFF00;
AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1);
加仓:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0);
波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) -
(2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
减仓:=(CROSS(C,MA5) OR (O<MA5 AND C>MA5)) AND V>REF(V,1) AND MA5>REF(MA5,1) AND MA10>REF(MA10,1);
回头:=(MA10>MA30 AND MA(C,20)>MA30 AND MA30>REF(MA30,1)) AND MA5>MA10 AND NOT(MA5>REF(MA5,1)) AND REF(MA5>REF(MA5,1),1);
DRAWICON(加仓,L*0.97,4);
DRAWICON(CROSS(波段底,3),L*0.97,4);
DRAWICON(减仓>0 ,H*1.03, 5);
DRAWICON(回头>0 ,H*1.03, 5);
//东郭运钞专列说明
DRAWTEXTEX(C,1,0,955, 说明：),COLOR00FFFF;
DRAWTEXTEX(C,1,55,955,红轨道在上涨),COLORFF00FF;
DRAWTEXTEX(C,1,155,955,绿轨道在上跌),COLORFF6600;
DRAWTEXTEX(C,1,255,955,红绿轨道下交叉买),COLOR0000FF;
DRAWTEXTEX(C,1,385,955,红绿轨道上交叉卖),COLOR00FF00;
|
