 |
MM:=0.1;
筹码顶:REFDATE(CONst(COST(99.999)),DATE),DOTLINE,COLORmaGENTA,LINETHICK2;
筹码底:REFDATE(CONST(COST(0.001)),DATE),DOTLINE,COLORCYAN,LINETHICK2;
{DD:=筹码底;
SD:=(C-DD)/2;
SC:DD+SD,DOTLINE,COLORRED,LINETHICK1;}
W50:=((筹码顶-筹码底)/2)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W:=(筹码顶-筹码底)/10;
W60:=(W*6)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W90:=(W*9)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W100:=筹码顶,DOTLINE,COLORYELLOW,LINETHICK1;
W110:=(W*11)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W80:=(W*8)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W70:=(W*7)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W30:=(W*3)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W40:=(W*4)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W20:=(W*2)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W10:=(W*1)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
WA10:=(W*-1)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W00:=筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=1,W90*0.998,' 90'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W100*0.998,' 100'),COLORWHITE;
{DRAWTEXT(CURRBARSCOUNT=1,W110*0.998,' 110'),COLORWHITE;}
{DRAWTEXT(CURRBARSCOUNT=1,W80*0.998,' 80'),COLORWHITE;}
DRAWTEXT(CURRBARSCOUNT=1,W70*0.998,' 70'),COLORWHITE;
{DRAWTEXT(CURRBARSCOUNT=1,W60*0.998,' 60'),COLORWHITE;}
DRAWTEXT(CURRBARSCOUNT=1,W50*0.998,' 50'),COLORWHITE;
{DRAWTEXT(CURRBARSCOUNT=1,W40*0.998,' 40'),COLORWHITE;}
DRAWTEXT(CURRBARSCOUNT=1,W30*0.998,' 30'),COLORWHITE;
{DRAWTEXT(CURRBARSCOUNT=1,W20*0.998,' 20'),COLORWHITE;}
DRAWTEXT(CURRBARSCOUNT=1,W10*0.998,' 10'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W00*0.998,' 0'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,WA10*0.998,'-10'),COLORWHITE;
VAR2:=5;
VAR3:=3;
VAR4:=(EMA(CLOSE,5)*7+EMA(CLOSE,10)*3)/10;
VAR5:=IF(YEAR>=2025,0,1);
VAR6:=EMA(EMA(LOW,21)+6.8*STD(LOW,2),55);
VAR7:=EMA(CLOSE/VAR6*(1.88*CLOSE+LOW+OPEN)/2.75,3);
VAR8:=(VAR7-VAR6)/VAR6/2;
VAR9:=EMA(VAR7-VAR8*VAR7,5)*VAR5;
VAR10:=EMA(CLOSE,300)-3*STD(CLOSE,300);
漏斗下:IF(VAR4>VAR9,VAR4,VAR9)*VAR5,COLORYELLOW,LINETHICK2;
漏斗上:IF(VAR9<VAR4 AND VAR9<CLOSE*0.15,EMA(CLOSE,300)-3*STD(CLOSE,300),VAR9),COLORYELLOW,LINETHICK2;
漏:IF(VAR9>VAR4,漏斗上,DRAWNULL),COLORGREEN,LINETHICK2;
开口XG:=BArslASTCOUNT(漏斗下!=漏斗上)=1,NODRAW;
{筹码平均成本线}
生命线:IF(CURRBARSCOUNT<13,CONST(COST(67.5)),DRAWNULL),COLORWHITE,DOTLINE;
{DRAWTEXT(CURRBARSCOUNT=1,生命线*0.998,' 生命线'),COLORWHITE;}
漏斗:=漏斗下;
AAA:=crOSS(H,漏斗下);
ZC:=COUNT(AAA,6)>=1;
PP:=H>=漏斗;
PPB:=C<=漏斗;
PPA:=REF(PP,1);
生命:=生命线;
{asr:(WINNER(C*1.1)-WINNER(C*0.9))/WINNER(HHV(H,0))*100,NODRAW;}
{ASRD:=-((WINNER(C*1.1)-WINNER(C*0.9))/WINNER(HHV(H,0))*100);
分:=CONST(LLV(ASRD,90));
百:=CONST(HHV(ASRD,90))-分;
基点:=CONST(LLV(L,90));
基:=CONST(HHV(H,90))-基点;
CC比:=(ASRD-分)/百;
XCX:=CC比*基+基点;
ASRR:XCX,LINETHICK1,COLORWHITE;}
{DRAWICON(ASRR<REF(ASRR,1) AND REF(ASRR,1)>REF(ASRR,2) AND ASRR>C AND C>REF(C,1),ASRR+1,2);}
{IF(ASRR>REF(ASRR,1) AND C>REF(C,1), ASRR,DRAWNULL),LINETHICK1,COLORRED;};
BAAA:=CONST(HHV(H,190));
TS1:=0+0.01;
TS2:=TS1+0.03;
TS3:=TS2+0.07;
TS4:=TS3+0.08;
{DRAWTEXT(CURRBARSCOUNT=60,BAAA-(BAAA*TS1),'<一>.写上自己需要的文字'),COLORFF00FF ;}
DRAWTEXT(CURRBARSCOUNT=100,BAAA-(BAAA*TS2),' 1.紫线为筹码顶, 蓝线为筹码低, 右则为筹码空间比例.80以上为高位,谨慎操作,小心被套'),COLORYELLOW ;
DRAWTEXT(CURRBARSCOUNT=100,BAAA-(BAAA*TS3),' 2.绿线为区域顶, 绿变黄,并成两条黄线, 则为妖.当天股价超过绿线，但绿线未变黄则逢高减仓。'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=100,BAAA-(BAAA*TS4),' 3.如果绿线变黄线后，当天股价远离黄线。则逢高减仓'),COLORYELLOW;