最牛主图回调预测撑压线黄金分割线板块信息

公式源码

N:=72;
 M:=1357;
 P1:=151;
 P2:=14;
 {回调预测-M=200-1000-738}
高:=REF(HHV(H,N),3);
顶:REFDATE(高,DATE),COLORWHITE;
 Z1:REFDATE(高/1.0809,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
 Z2:REFDATE(高/1.1618,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
 Z3:REFDATE(高/1.2558,DATE),POINTDOT,LINETHICK1,COLORMAGENTA;
 Z4:REFDATE(高/1.4589,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
 Z5:REFDATE(高/1.5770,DATE),POINTDOT,LINETHICK1,COLORRED;
 {Z6:REFDATE(高/1.8322,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
 Z7:REFDATE(高/1.9804,DATE),POINTDOT,LINETHICK1,COLORGREEN;
 Z8:REFDATE(高/2.3008,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
 Z9:REFDATE(高/2.4870,DATE),POINTDOT,LINETHICK1,COLORWHITE;}
 Z:REFDATE(高/(M/1000),DATE),LINETHICK4,COLORYELLOW;
支:REFDATE(高/(M/1000),DATE),LINETHICK2,COLORRED;
 DRAWTEXT(ISLASTBAR,顶,'顶'),COLORWHITE;
 DRAWTEXT(ISLASTBAR,Z1,'8.09'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z2,'16.18'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z3,'25.58'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z4,'45.98'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z5,'57.7'),COLORGREEN;
 {DRAWTEXT(ISLASTBAR,Z6,'83.22'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z7,'98.04'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z8,'130.08'),COLORGREEN;
 DRAWTEXT(ISLASTBAR,Z9,'148.7'),COLORGREEN;}
 DRAWKLINE(H,O,L,C);
 {龙抬头Ⅲ}
PL5:=ZIG(3,5);
 EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
 EX1:=ZIG(3,5)=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
 PL10:=ZIG(3,10);
 EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
 EX2:=ZIG(3,10)=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
 PL20:=ZIG(3,20);
 EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
 EX3:=ZIG(3,20)=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
 PL40:=ZIG(3,40);
走强1:=BARSLAST(PL5 走弱1:=BARSLAST(PL5>REF(PL5,1));
走强2:=BARSLAST(PL10 走弱2:=BARSLAST(PL10>REF(PL10,1));
走强3:=BARSLAST(PL20 走弱3:=BARSLAST(PL20>REF(PL20,1));
 ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);
 ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);
 DTJZ5:=IF(PL10  DTJD5:=IF(PL10  ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);
 ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
 DTJZ10:=IF(PL20  DTJD10:=IF(PL20  DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'★龙抬头Ⅲ'),COLOR00FFFF LINETHICK2;
 {自动画线}
A1:=REF(H,N)=HHV(H,2*N+1);
 B1:=FILTER(A1,N);
 C1:=BACKSET(B1,N+1);
 D1:=FILTER(C1,N);{高点}
A2:=REF(L,N)=LLV(L,2*N+1);
 B2:=FILTER(A2,N);
 C2:=BACKSET(B2,N+1);
 D2:=FILTER(C2,N);{低点}
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
 E2:=(H+L)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
 L1:=(D2 AND NOT(D1 AND E1  H2:=D1 AND NOT(D2 AND E1>=E2);X1:=REF(BARSLAST(H1),1)+1;
 F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
 G1:=F1>REF(F1,1); I1:=BACKSET(G1,2);
 LD:=I1>REF(I1,1),LINETHICK0;{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
 X2:=REF(BARSLAST(L2),1)+1;
 F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
 G2