FGH:=REF(H,BARSLAST(FG0));
FGL:=REF(L,BARSLAST(FG0));
FGH1:=REF(H,BARSLAST(FG0)+1);
FGL1:=REF(L,BARSLAST(FG0)+1);
FGH2:=REF(H,BARSLAST(FG0)+2);
FGL2:=REF(L,BARSLAST(FG0)+2);
FDH:=REF(H,BARSLAST(FD0));
FDL:=REF(L,BARSLAST(FD0));
FDH1:=REF(H,BARSLAST(FD0)+1);
FDL1:=REF(L,BARSLAST(FD0)+1);
FDH2:=REF(H,BARSLAST(FD0)+2);
FDL2:=REF(L,BARSLAST(FD0)+2);
FGZH:=IF(FGL<=FGL1,FGH2,FGH1);
FGZL:=IF(FGH1<FGL,FGL,IF(FGL<=FGL1,FGL2,FGL1));
FDZH:=IF(FDL1>FDH,FDH,IF(FDH>=FDH1,FDH2,FDH1));
FDZL:=IF(FDH>=FDH1,FDL2,FDL1);
FG1:=FGH>FDZH AND FG0;
FD1:=FDL<FGZL AND FD0;
FG:=FG1 AND FGH>FDH AND FGL>FDL AND FGL1>FDL;
FD:=FD1 AND FDL<FGL AND FDH<FGH AND FDH1<FGH;
BH0:=(H<=REF(H,1) AND L>=REF(L,1)) OR (H>=REF(H,1) AND L<=REF(L,1));
BHG:=COUNT(BH0,BARSLAST(FD0));
BHD:=COUNT(BH0,BARSLAST(FG0));
BGQ:=COUNT(GQ,BARSLAST(FD0));
BDQ:=COUNT(DQ,BARSLAST(FG0));
BK0:=IF(BHG>0,BHG+2,IF(BHD,BHD+2,3));
BK:=IF(BGQ,BK0-BGQ,IF(BDQ,BK0-BDQ,BK0));
G1X:=(FG AND BARSLAST(FD)>BK);
D1X:=(FD AND BARSLAST(FG)>BK);
G1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X))
OR (FG1 AND COUNT(GQ,BARSLAST(FD1))>0 AND REF(H,BARSLAST(FG1))>REF(H,BARSLAST(G1X)));
D1:=(FD0 AND REF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D1X)) AND BARSLAST(G1X)>BARSLAST(D1X))
OR (FD1 AND COUNT(DQ,BARSLAST(FG1))>0 AND REF(L,BARSLAST(FD1))<REF(H,BARSLAST(D1X)));
G1H:=IF(BARSLAST(D1)>BARSLAST(G1),REF(H,BARSLAST(G1)),REF(H,BARSLAST(D1)));
D1L:=IF(BARSLAST(G1)>BARSLAST(D1),REF(L,BARSLAST(D1)),REF(L,BARSLAST(G1)));
G2:=G1 AND H=HHV(G1H,BARSLAST(D1)+1) AND H>REF(H,1) AND BARSLAST(D1)>BARSLAST(G1);
D2:=D1 AND L=LLV(D1L,BARSLAST(G1)+1) AND L<REF(L,1) AND BARSLAST(G1)>BARSLAST(D1);
G3:=G2 OR (FG0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(G2)) AND BARSLAST(D2)>BARSLAST(G2));
D3:=D2 OR (FD0 AND REF(L,BARSLAST(FD0))<REF(L,BARSLAST(D2)) AND BARSLAST(G2)>BARSLAST(D2));
NOTEXTGPB:IF(G1X,H,DRAWNULL),CIRCLEDOT,COLORYELLOW;
NOTEXTDPB:IF(D1X,L,DRAWNULL),CIRCLEDOT,COLORYELLOW;
{画线}
NN:=G3;UU:=D3;
DRAWLINE(UU,L,NN, H,0),COLORWHITE;DRAWLINE(NN,H,UU, L,0),COLORWHITE;
AO:=WMA((REF(O,1)+REF(C,1))/2,3);
AC:=WMA((H+C+O+L)/4,3);
AH:=WMA(MAX(H,MAX(O,C)),3);
AL:=WMA(MIN(L,MIN(O,C)),3);
{K线}
{STICKLINE(AC>=AO,AL,AH,0.00001,0),COLORRED;
STICKLINE(AC>AO,AO,AC,2.5,0),COLORRED;
STICKLINE(AC>AO,O+(C-O)/4,C-(C-O)/2,2,0),COLORCC66FF;
STICKLINE(AC<AO,AO,AC,2.5,0),COLORFF6600;
STICKLINE(AC<AO,O+(C-O)/4,C-(C-O)/2,2,0),COLORFF9900;
{STICKLINE(AC<AO,AL,AH,0.00001,0),COLORFF9900;}
HHA:=HHV(HIGH,5);
LLA:=LLV(LOW,5);
HH1:=BARSLAST((HHA > REF(HHA,1)));
LL1:=BARSLAST((LLA < REF(LLA,1)));
STICKLINE(HH1 < LL1,O+(C-O)/4,C-(C-O)/2,2,0),COLORYELLOW;
STICKLINE(HH1 > LL1,O+(C-O)/4,C-(C-O)/2,2,0),COLORWHITE;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA60:=MA(CLOSE,60);
X1:=(C+L+H)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
XG:=CROSS(X2,X3);
STICKLINE(X2>=X3,C-(C-O)/4,O+(C-O)/2,2,0),COLORRED;
STICKLINE(X2<X3,C-(C-O)/4,O+(C-O)/2,2,0),COLORGREEN;
上一页 [1] [2] [3]
|
