DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,HYBLOCK),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.07,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.13,0,GNBLOCK),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.2,0,FGBLOCK),COLOR0080FF;
DRAWTEXT_FIX(1,0,70,0,'~★~乐淘公式网~★~'),COLOR222222;
X_1:=MA((-100)*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19);
X_2:=(-100)*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
X_3:=EMA((-100)*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4);
X_4:=X_2+100;
X_5:=IF(CLOSE>REF(CLOSE,1),VOL,0);
X_6:=IF(CLOSE<REF(CLOSE,1),VOL,0);
X_7:=SUM(X_5,13);
X_8:=SUM(X_6,13);
X_9:=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);
X_10:=MA(X_9,2);
X_11:=X_4<10 OR REF(X_4,1)<10 OR REF(X_4,2)<10 OR REF(X_4,3)<10;
X_12:=X_4<10 OR REF(X_4,1)<10 OR REF(X_4,2)<10 OR REF(X_4,3)<10 AND (X_10<10 OR REF(X_10,1)<10 OR REF(X_10,2)<10 OR REF(X_10,3)<10);
X_13:=(CLOSE+LOW+HIGH)/1.5;
X_14:=EMA(X_13,3);
X_15:=EMA(X_14,2.5);
DRAWICON(CROSS(X_14,X_15) AND X_11>0.1 AND C>MA(C,60),LOW*0.985,9),COLORRED;
DRAWICON(CROSS(X_14,X_15) AND X_12>0.1 AND C>MA(C,60),LOW*0.9398,1),COLORRED;
H1:EMA(CLOSE,8),COLORWHITE;
H2:EMA(H1,20),COLORYELLOW;
X_16:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;
X_17:=SMA(X_16,5,1);
X_18:=SMA(X_17,8,1);
X_19:=CROSS(X_17,X_18) AND X_18<20;
X_20:=CLOSE>LLV(CLOSE,60)*1.13 AND X_19;
X_21:=IF(CLOSE>200,X_19,X_20);
STICKLINE(H1>H2,H1,H2,0,1),COLORRED;
STICKLINE(H1<H2,H1,H2,0,1),COLORGREEN;
AZ1:=C>REF(C,4);
NT:=BARSLASTCOUNT(AZ1);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1.002,VAR2STR(AY,0)),COLORFF00FF;
DRAWTEXT(NT=9,H*1.002,'9'),COLORGREEN;
BZ1:=C<REF(C,4);
NT0:=BARSLASTCOUNT(BZ1);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*0.998,VAR2STR(AY1,0)),COLORFF00FF;
DRAWTEXT(NT0=9,L*0.998,'9'),COLORGREEN;
MA3:MA(C,60),LINETHICK2,COLORFF00FF;
MA5:=MA(CLOSE,5),COLOR00FFFF;
JJ:=(CLOSE+HIGH+LOW)/3;
开拓线:EMA(JJ,10),COLORRED,LINETHICK3;
IF(开拓线<REF(开拓线,1),开拓线,DRAWNULL),COLOR08FF16,LINETHICK3;
MA2:=MA(CLOSE,20),COLORFFFF80,LINETHICK1;
MA12:=MA(CLOSE,120),COLORFF00FF;
GQ := LOW>REF(HIGH,1);
DQR := DATE-1000000;
SV := -1;
EV := IF(WEEKDAY=1,3,2);
YGS := FINVALUE(285);
YGX := FINVALUE(286);
YGZ := (YGS+YGX)/2;
YGR := FINVALUE(313);
YGRC := (DQR-YGR>SV) AND (DQR-YGR<EV);
YGDC := (YGZ>0) AND GQ AND YGRC;
BJLR := FINVALUE(287);
KBRQ := FINVALUE(315);
KBRQC := (DQR-KBRQ>SV) AND (DQR-KBRQ<EV);
KBDC := (BJLR>0) AND GQ AND KBRQC;
CBJLR := FINVALUE(95);
EPSRATE := FINVALUE(184);
CBRQ := FINVALUE(314);
CBRQC := (DQR-CBRQ>SV) AND (DQR-CBRQ<EV);
CBDC := CBJLR > 0 AND EPSRATE > 0 AND GQ AND CBRQC;
ZJRQDC := YGDC OR KBDC OR CBDC;
ZDRQ1 := 1;
YGS1 := FINONE(285,0,ZDRQ1);
YGX1 := FINONE(286,0,ZDRQ1);
YGZ1 := (YGS1+YGX1)/2;
YGRQ1 := FINONE(313,0,ZDRQ1);
YGRQC1 := (DQR-YGRQ1>SV) AND (DQR-YGRQ1<EV);
YGDC1 := (YGZ1>0) AND GQ AND YGRQC1;
KBJL1 := FINONE(287,0,ZDRQ1);
KBRQ1 := FINONE(315,0,ZDRQ1);
KBRQC1 := (DQR-KBRQ1>SV) AND (DQR-KBRQ1<EV);
KBDC1 := (KBJL1>0) AND GQ AND KBRQC1;
CBJL1 := FINONE(95,0,ZDRQ1);
指EPSRATE1 := FINONE(184,0,ZDRQ1);
CBRQ1 := FINONE(314,0,ZDRQ1);
CBRQC1 := (DQR-CBRQ1>SV) AND (DQR-CBRQ1<EV);
CBDC1 := CBJL1 > 0 AND 指EPSRATE1 > 0 AND GQ AND CBRQC1;
ZDRQDC1 := YGDC1 OR KBDC1 OR CBDC1;
ZDRQ2 := 2;
YGS2 := FINONE(285,0,ZDRQ2);
YGX2 := FINONE(286,0,ZDRQ2);
YGZ2 := (YGS2+YGX2)/2;
YGRQ2 := FINONE(313,0,ZDRQ2);
YGRQC2 := (DQR-YGRQ2>SV) AND (DQR-YGRQ2<EV);
YGDC2 := (YGZ2>0) AND GQ AND YGRQC2;
KBJL2 := FINONE(287,0,ZDRQ2);
KBRQ2 := FINONE(315,0,ZDRQ2);
KBRQC2 := (DQR-KBRQ2>SV) AND (DQR-KBRQ2<EV);
KBDC2 := (KBJL2>0) AND GQ AND KBRQC2;
CBJL2 := FINONE(95,0,ZDRQ2);
指EPSRATE2 := FINONE(184,0,ZDRQ2);
CBRQ2 := FINONE(314,0,ZDRQ2);
CBRQC2 := (DQR-CBRQ2>SV) AND (DQR-CBRQ2<EV);
CBDC2 := CBJL2 > 0 AND 指EPSRATE2 > 0 AND GQ AND CBRQC2;
ZDRQDC2 := YGDC2 OR KBDC2 OR CBDC2;
ZDRQ3 := 3;
YGS3 := FINONE(285,0,ZDRQ3);
YGX3 := FINONE(286,0,ZDRQ3);
YGZ3 := (YGS3+YGX3)/2;
YGRQ3 := FINONE(313,0,ZDRQ3);
YGRQC3 := (DQR-YGRQ3>SV) AND (DQR-YGRQ3<EV);
YGDC3 := (YGZ3>0) AND GQ AND YGRQC3;
KBJL3 := FINONE(287,0,ZDRQ3);
KBRQ3 := FINONE(315,0,ZDRQ3);
KBRQC3 := (DQR-KBRQ3>SV) AND (DQR-KBRQ3<EV);
KBDC3 := (KBJL3>0) AND GQ AND KBRQC3;
CBJL3 := FINONE(95,0,ZDRQ3);
指EPSRATE3 := FINONE(184,0,ZDRQ3);
CBRQ3 := FINONE(314,0,ZDRQ3);
CBRQC3 := (DQR-CBRQ3>SV) AND (DQR-CBRQ3<EV);
CBDC3 := CBJL3 > 0 AND 指EPSRATE3 > 0 AND GQ AND CBRQC3;
ZDRQDC3 := YGDC3 OR KBDC3 OR CBDC3;
ZDRQ4 := 4;
YGS4 := FINONE(285,0,ZDRQ4);
YGX4 := FINONE(286,0,ZDRQ4);
YGZ4 := (YGS4+YGX4)/2;
YGRQ4 := FINONE(313,0,ZDRQ4);
YGRQC4 := (DQR-YGRQ4>SV) AND (DQR-YGRQ4<EV);
YGDC4 := (YGZ4>0) AND GQ AND YGRQC4;
KBJL4 := FINONE(287,0,ZDRQ4);
KBRQ4 := FINONE(315,0,ZDRQ4);
KBRQC4 := (DQR-KBRQ4>SV) AND (DQR-KBRQ4<EV);
KBDC4 := (KBJL4>0) AND GQ AND KBRQC4;
CBJL4 := FINONE(95,0,ZDRQ4);
指EPSRATE4 := FINONE(184,0,ZDRQ4);
CBRQ4 := FINONE(314,0,ZDRQ4);
CBRQC4 := (DQR-CBRQ4>SV) AND (DQR-CBRQ4<EV);
CBDC4 := CBJL4 > 0 AND 指EPSRATE4 > 0 AND GQ AND CBRQC4;
ZDRQDC4 := YGDC4 OR KBDC4 OR CBDC4;
TKQK :=ZJRQDC OR ZDRQDC1 OR ZDRQDC2 OR ZDRQDC3 OR ZDRQDC4;
DRAWICON(BARSSINCEN(TKQK,5)=0 AND DATE<=1501218,L,11);{金手指2050年}
PSY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
PSYMA:=MA(PSY,5);
T1:=REF(TKQK,2) AND REF(L,1)>REF(H,3) AND L>REF(H,3);
R1:=BARSLAST(T1);
T2:=COUNT(T1,R1+1)>0 AND COUNT(L<=REF(H,R1+3),R1)=0 AND L<REF(L,R1+2)*1.05;
T3:=REF(TKQK,2) AND REF(L,1)>REF(H,2) AND L>REF(H,2);
R2:=BARSLAST(T3);
T4:=COUNT(T3,R2+1)>0 AND COUNT(L<=REF(H,R2+2),R2)=0 AND L<REF(L,R2+1)*1.03;
T5:=COUNT(T3,R2+1)>0 AND COUNT(L<=REF(H,R2+3),R2)=0 AND L<REF(L,R2+2)*1.05;
T6:=(T2 AND R1>=0 AND R1<125) OR ((T4 OR T5) AND R2>=0 AND R2<125);
T:=PSY<=50 AND C>开拓线 AND (开拓线>REF(开拓线,1) OR MA2>REF(MA2,1)) AND DATE<=1501218 AND C>O;
DRAWICON(T AND T6,L*0.96,5); {笑脸}
十大股东占比:(FINVALUE(244)/FINVALUE(239))*100,NODRAW,COLORYELLOW;
筹码衰减系数:100/(100-十大股东占比),NODRAW,COLORCYAN;
{十大股东占比小于65%时，无需修改衰减系数};
{ZT:=C/REF(C,1)>1.0982 AND C=H;
STICKLINE(ZT,O,C,2,0),COLORRED;
DT:=C/REF(C,1)<0.913 AND C=L;
STICKLINE(DT,O,C,2,0),COLORLIGREEN;
MA5:=MA(C,5);MA10:=MA(C,10);MA20:=MA(C,20);MA30:=MA(C,30);
G5:=(C-MA5)/MA5*100;BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
EW:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1);GY:=EMA((EW-REF(EW,1)),3);
G3:=(C-MA30)/MA30*100;BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416;
TTBV:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
TTYH:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);MV:=(TTBV+TTYH)/AMOUNT*VOL*100*50;
龙脉:MA(REF(HHV(C,30),1),2),COLORYELLOW,LINETHICK4;}
{DRAWTEXT_FIX(1,0.35,0,0,'关键：主图出现“钱袋”信号后的最近10日内，收阳线比率大于70%的红肥绿瘦，判断该股即将大涨，可提前介入。'),COLORYELLOW;
DRAWTEXT_FIX(1,0.35,0.1,0,'1：主图出现“钱袋”信号后几日内，观察是否出现“H1白色线上穿H2黄色线”情形，如有，即为第一买点；'),COLORCYAN;
DRAWTEXT_FIX(1,0.35,0.2,0,'2：K线继续往后运行，当某日K线贯穿主图MA3粉色粗线时，则为第二买点；'),COLORCYAN;
DRAWTEXT_FIX(1,0.35,0.3,0,'3：主图出现“钱袋”信号后几日内，副图也叠加出现“筹爆”三角或“加速爆发点”信号和“手指”三角、'),COLORCYAN;
DRAWTEXT_FIX(1,0.35,0.4,0,'“决策线”三角信号，如主图也出现低位转9情形为最佳，均视为加强信号。'),COLORCYAN;};
