放弃抄底 努力追涨 源码

DRAWGBK(1,RGB(0,0,0),RGB(0,0,0),0,'9C7',0); DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 SJ:=WMA(((2*C+H+L)/4-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);
 ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2);
 ENTERLONG:CROSS(SJ,ZJ) AND SJ<30,COLORRED;
 EXITLONG:CROSS(ZJ,SJ) AND SJ>70,COLORGREEN;

N:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y:=STRCAT(CON2STR(MONTH,0),' 月 ');
R:=STRCAT(CON2STR(DAY,0),' 日 ');

DRAWTEXT_FIX(C>0,0.88,0,0,SJ);

 MA1:EMA(EMA(C,21),3);
 MA2:EMA(EMA(C,34),3);
 TT1:=C>MA1 AND C>MA2;
 TT2:=TT1 AND REF(TT1,1)=0;
 DRAWICON(TT2,L*0.99,6);
 EMA10:MA(C,10),COLORRED LINETHICK2;
 EMA5:MA(C,5),COLORYELLOW LINETHICK1;
 EMA30:MA(C,30),COLORBLUE LINETHICK1;
 TY:=DYNAINFO(8)>0;
 GG:=V=LLV(V,100) AND TY;
 DRAWICON(GG,LOW*0.96,1);
 DRAWICON(GG,LOW*0.95,17);
阻力价:HHV(HIGH,19),COLORBLUE, LINETHICK2;
 VAR4:EMA(C,3), LINETHICK2;
七天线:MA(C,7),COLORGRAY;
工作线:(EMA(C,14)),POINTDOT,LINETHICK4,COLORYELLOW;
生命线:(MA(C,25)),LINETHICK2,COLORMAGENTA;
 {不惑线:(MA(C,40)),COLORCYAN; }
姊妹线:(EMA(C,56)),POINTDOT,COLORWHITE;
 A3:=EMA((((SLOPE(C,21)) * 20) + C),68);
 A4:=EMA(C,10);
 A5:=REF(C,2);
 A6:=((SMA((MAX((C - A5),0)),6,1)) / (SMA(ABS((C - A5)),6,1))) * 100;
 A7:=IF(((A6 < (REF(A6,1))) AND (A6 > 79)),A6,0);
 A8:=LLV(L,21);
 A9:=HHV(H,21);
 A10:=EMA((((CLOSE - A8) / (A9 - A8)) * 100),5);
 A11:=EMA((((CLOSE - A8) / (A9 - A8)) * 50),13);
 A12:=EMA(((0.667 * (REF(A10,1))) + (0.333 * A10)),2);
 A13:=LLV(L,55);
 A14:=HHV(H,34);
 A15:=EMA((((C - A13) / (A14 - A13)) * 100),3);
 A16:=(A11 + A15) / 2;
 A17:=EMA(((0.667 * (REF(A15,1))) + (0.333 * A10)),2);
 A18:=EMA(A16,5);
 A19:=EMA(((0.667 * (REF(A18,1))) + (0.333 * A18)),2);
 A20:=CROSS(A10,A11);
 A21:=(CROSS(A10,A19)) AND (A19 < 30);
 A22:=A21 * 0.6;
 A23:=((C + L) + H) / 3;
 A24:=EMA(A23,6);
 A25:=EMA(A24,5);
 A26:=CROSS(A24,A25);
 DRAWICON(A26,(LOW / 1.015),1),LINETHICK2,COLORMAGENTA;
 STICKLINE(((C >= 工作线) AND (C >= O)),H,L,0,1),COLORRED;
 STICKLINE(((C >= 工作线) AND (C >= O)),O,C,2,1),COLORRED;
 STICKLINE(((C >= 工作线) AND (C <= O)),H,L,0,0),COLORRED;
 STICKLINE(((C >= 工作线) AND (C <= O)),O,C,2,0),COLORRED;
 STICKLINE(((C < 工作线) AND (C >= O)),H,L,0,1),COLORGREEN;
 STICKLINE(((C < 工作线) AND (C >= O)),O,C,2,1),COLORGREEN;
 STICKLINE(((C < 工作线) AND (C <= O)),H,L,0,0),COLORGREEN;
 STICKLINE(((C < 工作线) AND (C <= O)),O,C,2,0),COLORGREEN;

VARA:=IF(CLOSE>150,91.3,0.913);
箱下沿:INTPART(CLOSE/VARA )*VARA,POINTDOT,COLORGREEN;
箱上沿:箱下沿+VARA,POINTDOT,COLORYELLOW;
箱中线:(箱下沿+箱上沿)/2,POINTDOT,COLORWHITE;
 STICKLINE(C,箱下沿,箱下沿,5,0),COLORGREEN;
 STICKLINE(C,箱上沿,箱上沿,5,0),COLORMAGENTA;
 STICKLINE(C,箱中线,箱中线,5,0),COLORWHITE;
 CC:IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLOR000000,LINETHICK3;
止赢价位:1.05*CC,COLORYELLOW,LINETHICK3;
 DRAWTEXT(ISLASTBAR,HHV(C,5)*1.05,'止赢价位'),COLORRED,LINETHICK3;
多:BBI,COLORWHITE;DRAWTEXT(C=H AND C/REF(C,1)>1.01,L,'F'),COLORRED,LINETHICK2;
 STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,50,0),COLORWHITE,LINETHICK4;
 DRAWTEXT(ISLASTBAR,HHV(C,5)*0.95,'止损价位'),COLORRED,LINETHICK4;

高1:=REF(HHV(H,120),3);
低1:=REF(LLV(L,120),3);
 H1:=高1-(高1-低1)*0.191;
 H2:=高1-(高1-低1)*0.382;
 H3:=高1-(高1-低1)*0.5;
 H4:=高1-(高1-低1)*0.618;
 H5:=高1-(高1-低1)*0.809;
突破:=REF(EMA(C,14),1);
 A1X:=(EMA(C,10)-突破)/突破*100;
 JZ:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1)),COLORFFFF00,LINETHICK2;
 N1:=100;
 KD:=BARSLAST(CURRBARSCOUNT=N1);
 GD:=CONST(IF(ISLASTBAR=1,HHV(H,KD),0));
 DD:=CONST(IF(ISLASTBAR=1,LLV(L,KD),0));
 KJ:=GD-DD;
 GD4:=IF(CURRBARSCOUNT<=N1/2,GD,DRAWNULL);
 ND:=IF(BARSCOUNT(C)>=8,8,BARSCOUNT(C));
 AMOV:=VOL*(C+L+H)/3;
 MN:=SUM(AMOV,ND)/SUM(VOL,ND);
 AAC:=CROSS(A1X,0),LINETHICK0;
 BBC:=CROSS(0,A1X),LINETHICK0;
 (AAC,JZ*0.98,34);
 (BBC,JZ*1.015,35);
 LC:= REF(CLOSE,1);
 RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
逃顶:=CROSS(82,RSI);
 ( 逃顶,H*1.01,15);
 DRAWTEXT( 逃顶,H*1.01,' ←快跑'),COLORFFFFFF;
平衡:=IF(CURRBARSCOUNT<=N1,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
压力:=IF(CURRBARSCOUNT<=N1,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
支撑:=IF(CURRBARSCOUNT<=N1,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
高区:IF(CURRBARSCOUNT<=N1,GD,DRAWNULL),COLORRED,DOTLINE;
低区:IF(CURRBARSCOUNT<=N1,DD,DRAWNULL),COLOR00FF00,DOTLINE,LINETHICK4;
 A1:=BARSLAST(MONTH!=REF(MONTH,1))+1;
月±%:(CLOSE/REF(CLOSE,A1)-1)*100,COLOR00FFFF,NODRAW;
 DRAWKLINE(H,O,L,C);
 DRAWTEXT(CURRBARSCOUNT=1,压力,'0.809'),COLOR0000FF;