DH:=CONST(REF(HHV(H,周期),1));
DL:=CONST(REF(LLV(L,周期),1));
DC:=(DH+DL)/2;
DK:CONST((DH+DL+DC)/3);
多空平衡點(diǎn):CONST(DK),DOTLINE,COLORMAGENTA;
第一支撐:CONST(2*DK-DH),DOTLINE,COLORGREEN;
第二支撐:CONST(DK-(DH-DL)),DOTLINE,COLORGREEN;
第三支撐:CONST(DL-(DH-DK)*2),DOTLINE,COLORGREEN;
第一阻力:CONST(DK*2-DL),DOTLINE,COLORRED;
第二阻力:CONST(DK+(DH-DL)),DOTLINE,COLORRED;
第三阻力:CONST((DK*2-DL)+(DH-DL)),DOTLINE,COLORRED;
DRAWTEXT(CURRBARSCOUNT=文字位置,多空平衡點(diǎn),STRCAT('平衡點(diǎn)',CON2STR(多空平衡點(diǎn),2))),DRAWABOVE,COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=文字位置,第一支撐,STRCAT('第1支撐',CON2STR(第一支撐,2))),DRAWABOVE,COLORLIBLUE;
DRAWTEXT(CURRBARSCOUNT=文字位置,第二支撐,STRCAT('第2支撐',CON2STR(第二支撐,2))),DRAWABOVE,COLORLIBLUE;
DRAWTEXT(CURRBARSCOUNT=文字位置,第三支撐,STRCAT('第3支撐',CON2STR(第三支撐,2))),DRAWABOVE,COLORLIBLUE;
DRAWTEXT(CURRBARSCOUNT=文字位置,第一阻力,STRCAT('第1阻力',CON2STR(第一阻力,2))),DRAWABOVE,COLORRED;
DRAWTEXT(CURRBARSCOUNT=文字位置,第二阻力,STRCAT('第2阻力',CON2STR(第二阻力,2))),DRAWABOVE,COLORRED;
DRAWTEXT(CURRBARSCOUNT=文字位置,第三阻力,STRCAT('第3阻力',CON2STR(第三阻力,2))),DRAWABOVE,COLORRED;
CG:WMA(C,N),LINETHICK2,COLORRED;
FL:=HHV(CG,5);
FS:=CG-(FL-CG);
IF(CG<>FS,CG,DRAWNULL),COLORGREEN,LINETHICK2;
AMV0:=VOL*(O+C+H+L)/4;
NOTEXT勢(shì):EMA(AMV0,21)/EMA(VOL,21),LINETHICK1,COLORLIGREEN;
NOTEXT壓:6*HHV(NOTEXT勢(shì),2)-5*NOTEXT勢(shì),LINETHICK1,COLORYELLOW;
NOTEXT托:2*NOTEXT勢(shì)-NOTEXT壓,COLORMAGENTA,LINETHICK1;
IF(NOTEXT勢(shì)<>NOTEXT托,NOTEXT托,DRAWNULL),COLORLICYAN,LINETHICK1;
{NOTEXT壓=NOTEXT托 AND REF(NOTEXT壓,1)>REF(NOTEXT托,1);}
A1:=EMA(AMV0,21)/EMA(VOL,21);
A2:=6*HHV(A1,2)-5*A1;
A3:=2*A1-A2;
A4:=A1=A3;
XD:REF(A3>C AND A2>A3,1) AND C>O AND A4,NODRAW;
支撐線:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,DOTLINE,COLORLIGRAY LINETHICK1;
VAR6:=(( ABS((OPEN-CLOSE))/(HIGH-LOW))*VOL);
VAR7:=(( (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN))/(HIGH-LOW))*VOL);
VAR8:=(( (IF((CLOSE>OPEN),OPEN,CLOSE)-LOW)/(HIGH-LOW))*VOL);
NOTEXT加倉(cāng):VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE>OPEN,NODRAW,COLORRED;
NOTEXT減倉(cāng):VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE<OPEN,NODRAW,COLORBLUE;
NOTEXT洗盤(pán):VAR8>VAR6 AND VAR8>VAR7,NODRAW,COLORWHITE;
NOTEXT高拋:VAR7>VAR6 AND VAR7>VAR8,NODRAW,COLORMAGENTA;
NOTEXT地量:{VAR9>2 AND }VOL<MA(VOL,5)/2,NODRAW,COLORGREEN;
STICKLINE(NOTEXT加倉(cāng),O,C,1,0),COLORRED;
STICKLINE(NOTEXT洗盤(pán),O,C,1,0),COLORWHITE;
STICKLINE(NOTEXT減倉(cāng),O,C,1,0),COLORCC6666;
STICKLINE(NOTEXT高拋,O,C,1,0),COLORMAGENTA;
STICKLINE(NOTEXT地量,O,C,1,0),COLORGREEN;
JJ:=(3*C+H+L+O)/6;
VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
DRAWTEXT_FIX(1,0.0,0.0,0,'藍(lán)芯-低位深度洗盤(pán)或高位出貨'),COLORCC6666,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.04,0,'白芯-輕度洗盤(pán)'),COLORWHITE,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.10,0,'綠芯-出現(xiàn)相對(duì)地量'),COLORGREEN,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.16,0,'粉芯-在調(diào)倉(cāng)做差價(jià)'),COLORFF00FF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.22,0,'紅芯-積極吸籌'),COLORRED,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.28,0,'黃芯-主力掃貨'),COLORYELLOW,LINETHICK1;
漲停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
HD:=COUNT(漲停,13)>=1;
STICKLINE(漲停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(漲停,OPEN,CLOSE,3,0),COLORYELLOW;
DRAWTEXT(XD,LOW*0.95,' 粘合上漲'),COLORYELLOW;
DRAWICON(XD,(L * 0.97),11);
STICKLINE(XD,C,O,3,0 ),COLOR00AAFF;
STICKLINE(XD,C,O,2.1,0 ),COLOR00BBFF;
STICKLINE(XD,C,O,1.5,0 ),COLOR00CCFF;
STICKLINE(XD,C,O,1,0 ),COLOR00DDFF;
STICKLINE(XD,C,O,0.6,0 ),COLOR00EEFF;
STICKLINE(XD,C,O,0.2,0 ),COLOR00FFFF;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
平空開(kāi)多:CROSS(MACD,0),COLORRED,NODRAW;
平多開(kāi)空:CROSS(0,MACD),COLORGREEN,NODRAW;
DRAWICON(平空開(kāi)多,L,34);
SELL_SELLSHORT(平多開(kāi)空,H);
聯(lián)系客服