三种★鬼变脸(主图)原码★

一，分析家专用鬼变脸(主图)原码

input: N(9, 1, 100);        {JUNXIAN}

VARIABLE: X=0;             {1,真阳；2,假阳(阳平)；3,阳转阴；4,真阴；5,假阴(阴平)；6,阴转阳}
VARIABLE: mid=0;           {红绿分界点}
VARIABLE: BTL=0;           {起点}
VARIABLE: BTH=0;           {终点}

C1 := C;
Xo := REF(X, 1);
Lo := BTL;                  {前期底点}
Ho := BTH;                  {前期高点}
MAn := MA(C, n);

if BARSCOUNT(C)=1 then begin      {上市首日}
  if C<O then begin
    X := 4;
    mid := 0; BTL := C; BTH := O;
  end else begin
    X := 1;
    mid := 0; BTL := O; BTH := C;
  end
end

if BARSCOUNT(C)>1 then begin      {上市1日以后}
  if Xo=1 or Xo=2 or Xo=6 then begin
    if C1>Ho then begin
            X := 1;
            mid := 0; BTL := Ho; BTH := C;
    end else begin
            if C1<Lo then begin
                    X := 3;
                    mid := Lo; BTL := C; BTH := Ho;
      end else begin
              X := 2;
        mid := 0; BTL := C; BTH := Ho;
     end
    end
  end

  if Xo=3 or Xo=4 or Xo=5 then begin
    if C1<Lo then begin
            X := 4;
            mid := 0; BTL := C; BTH := Lo;
    end else begin
            if C1<Ho then begin
                    X := 5;
                    mid := 0; BTL := Lo; BTH := C;
      end else begin
              X := 6;
        mid := Ho; BTL := Lo; BTH := C;
     end
    end
  end
end

if X=1 or X=2 then begin
  STICKLINE(1, BTL, BTH, 6, 0),colorred;
end
if X=3 then begin
  if BTL>=MAn then begin
    STICKLINE(1, BTL, mid, 6, 0),coloryellow;
  end else begin
    STICKLINE(1, BTL, mid, 6, 0),colorgreen;
  end
  STICKLINE(1, mid, BTH, 6, 0),colorred;
end
if X=4 or X=5 then begin
  if BTL>=MAn then begin
    STICKLINE(1, BTL, BTH, 6, 0),coloryellow;
  end else begin
    STICKLINE(1, BTL, BTH, 6, 0),colorgreen;
  end
end
if X=6 then begin
  if BTL>=MAn or BTH>=MAn then begin
    STICKLINE(1, BTL, mid, 6, 0),coloryellow;
  end else begin
    STICKLINE(1, BTL, mid, 6, 0),colorgreen;
  end
  STICKLINE(1, mid, BTH, 6, 0),colorred;
end

X: X, linethick0, colorwhite;
MAn: MAn, coloryellow;

二，{鬼变脸 飞狐用  股市骑兵00}

复制内容到剪贴板

代码:

Var1:=(CLOSE*2+HIGH+LOW)/4;
Var2:=EMA(Var1,3);
Var3:=EMA(Var2,6);
var4:=ema(var3,12);
L1: EMA(Var1,3);
L2: EMA(Var2,4);
L3: EMA(Var3,5);
l4: ema(var4,6);
c1:=c;o1:=o;
ss1:max(c1,o1),LINETHICK0;
xx1:min(c1,o1),LINETHICK0;
//zz1:0*c,LINETHICK0;
y:=if(c>o,1,0)+if(c<o,4,0),LINETHICK0;
for i=2 to datacount do begin
  if y[i-1]=1 or y[i-1]=0 then begin
     if c1>ss1[i-1] then begin
         ss1:=c1;
         xx1:=ss1[i-1];
         zz1:=0;
         y:=1;
      end;else
     if c1<xx1[i-1] then begin//=
         ss1:=xx1[i-1];
         xx1:=c1;
         zz1:=ss1[i-1];
         y:=4;
      end;else begin
         ss1:=ss1[i-1];
         xx1:=c1;
         zz1:=0;
         y:=1;
      end;end;
  if y[i-1]=4 or y[i-1]=0 then begin
     if c1<xx1[i-1] then begin
         ss1:=xx1[i-1];
         xx1:=c1;
         zz1:=0;
         y:=4;
      end;else
     if c1>ss1[i-1] then begin//=
         ss1:=c1;
         xx1:=ss1[i-1];
         zz1:=xx1[i-1];
         y:=1;  
      end;else begin
         ss1:=c1;
         xx1:=xx1[i-1];
         zz1:=0;
         y:=4;
      end;
   end;
end;
k1:=(y=1 and ref(y=1,1) and c>ref(ss1,1))*1;
k2:=(y=1 and ref(y=1,1) and c<=ref(ss1,1) and
c>=ref(xx1,1))*2;
k3:=(y=4 and ref(y=1,1) and c<ref(xx1,1))*3;
k4:=(y=4 and ref(y=4,1) and c<ref(xx1,1))*4;
k5:=(y=4 and ref(y=4,1) and c<=ref(ss1,1) and
c>=ref(xx1,1))*5;
k6:=(y=1 and ref(y=4,1) and c>ref(ss1,1))*6;
k7:=(y=1 and ref(y=0,1))*1;//6
k8:=(y=4 and ref(y=0,1))*4;
kk:if(barpos=1,y,k1+k2+k3+k4+k5+k6+k7+k8),LINETHICK0;
maxg:=max(max(ss1,xx1),zz1);ming:=min(min(ss1,xx1),zz1);
zxng:=(ss1<>maxg and ss1<>ming)*ss1+(xx1<>maxg and xx1<>ming)*xx1+(zz1<>maxg and zz1<>ming)*zz1;
p1:=(ss1=xx1)*ss1;p2:=(ss1=zz1)*zz1;p3:=(xx1=zz1)*xx1;
pp:=if(p1=0 and p2=0,p3,if(p1,p1,p2));
STICKLINE(zz1=0 and
y=1,ss1,xx1,7,1),COLORYELLOW;
STICKLINE(zz1=0 and y=4,ss1,xx1,7,0),COLORBLUE;
STICKLINE(zz1>0 and pp=0,maxg,zxng,7,1),COLORYELLOW;
STICKLINE(zz1>0 and pp=0,ming,zxng,7,0),COLORBLUE;
STICKLINE(zz1>0 and pp and y=1,maxg,ming,7,1),COLORYELLOW;
STICKLINE(zz1>0 and pp and y=4,maxg,ming,7,0),COLORBLUE;
STICKLINE(zz1>0 and pp and (y=1 or (ref(y,1)=1 and y=4)),pp,pp,7,1),COLORYELLOW;
STICKLINE(zz1>0 and pp and (y=4 or (ref(y,1)=4 and y=1)),pp,pp,7,0),COLORBLUE;

三，分折家、飞狐、大智慧通用鬼变脸(主图)原码

"K线作图部份"大智慧最好用下面的{大智慧用K线作图}

复制内容到剪贴板

代码:

Var1:=(CLOSE*2+HIGH+LOW)/4;
Var2:=EMA(Var1,3);
Var3:=EMA(Var2,6);
var4:=ema(var3,12);
L1: EMA(Var1,3);
L2: EMA(Var2,4);
L3: EMA(Var3,5);
l4: ema(var4,6);
c1:=ref(c,1);
c2:=hhv(c1,2);
c3:=llv(c1,1);
et:=hhv(c1,2);
et1:=ref(et,1);
xb:=llv(c1,1);
xb1:=ref(xb,1);

m:=BARSLAST(c<xb and c1>=xb1);
m1:=ref(m,1);
n:=BARSLAST(c>et and c1<=et1);
n1:=ref(n,1);

m2:=BARSLAST(m-n>0 and m1<=n1)+1;
n2:=BARSLAST(n-m>0 and n1<=m1)+1;
et2:=hhv(et,m2);
xb2:=llv(xb,n2);
a:=if(m-n>0 and m1<=n1,1,if(n-m>0 and n1<=m1,0,2));


{K线作图}
STICKLINE(m-n>0,c,et2,6,0),COLORRED;
STICKLINE(m-n>0,c,et2,3,0),COLORYELLOW;
STICKLINE(m-n>0,c,et2,1,0),COLOR00ff00;

STICKLINE(m-n<0,c,xb2,6,0),COLORBLUE;
STICKLINE(m-n<0,c,xb2,3,0),COLORf0f000;
STICKLINE(m-n<0,c,xb2,1,0),COLORWHITE;

STICKLINE(a=1,c,c2,6,0),COLORRED;
STICKLINE(a=1,c,c2,3,0),COLORYELLOW;
STICKLINE(a=1,c,c2,1,0),COLOR00ff00;

STICKLINE(a=1,c2,xb2,6,0),COLORBLUE;
STICKLINE(a=1,c2,xb2,3,0),COLORf0f000;
STICKLINE(a=1,c2,xb2,1,0),COLORWHITE;

STICKLINE(a=0,c3,c,6,0),COLORBLUE;
STICKLINE(a=0,c3,c,3,0),COLORf0f000;
STICKLINE(a=0,c3,c,1,0),COLORWHITE;

=====================================
{大智慧用K线作图}
{STICKLINE(m-n>0,c,et2,3,0),COLORRED;
STICKLINE(m-n>0,c,et2,2,0),COLORYELLOW;
STICKLINE(m-n>0,c,et2,1,0),COLOR00ff00;

STICKLINE(m-n<0,c,xb2,3,0),COLORBLUE;
STICKLINE(m-n<0,c,xb2,2,0),COLORf0f000;
STICKLINE(m-n<0,c,xb2,1,0),COLORWHITE;

STICKLINE(a=1,c,c2,3,0),COLORRED;
STICKLINE(a=1,c,c2,2,0),COLORYELLOW;
STICKLINE(a=1,c,c2,1,0),COLOR00ff00;

STICKLINE(a=1,c2,xb2,3,0),COLORBLUE;
STICKLINE(a=1,c2,xb2,2,0),COLORf0f000;
STICKLINE(a=1,c2,xb2,1,0),COLORWHITE;

STICKLINE(a=0,c3,c,3,0),COLORBLUE;
STICKLINE(a=0,c3,c,2,0),COLORf0f000;
STICKLINE(a=0,c3,c,1,0),COLORWHITE;

STICKLINE(a=0,c3,et2,3,0),COLORRED;
STICKLINE(a=0,c3,et2,2,0),COLORYELLOW;
STICKLINE(a=0,c3,et2,1,0),COLOR00ff00;}

STICKLINE(a=0,c3,et2,6,0),COLORRED;
STICKLINE(a=0,c3,et2,2,0),COLORYELLOW;
STICKLINE(a=0,c3,et2,1,0),COLOR00ff00;