源码
M1:=55;
HR:=HHV(HIGH,M1);
HRY:=LLV(LOW,M1);
HRY11:=HR*HRY;
HRY33:SQRT(HRY11),COLORGREEN,LINETHICK2;
IF(C>HRY33 AND HRY33 >=REF(HRY33 ,1), HRY33 ,DRAWNULL),LINETHICK2,COLORRED;
TEND:EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42),
POINTDOT,COLORFF00FF,LINETHICK2;
WLT1:=EMA(C,3),COLORBLUE,LINETHICK1;
WLT2:=EMA(C,5),COLORWHITE,LINETHICK1;
WLT3:=EMA(WLT2,5),COLOR00FF00,LINETHICK1;
DRAWBAND(WLT1,RGB(255,255,0),WLT2,RGB(256,200,0));
QQ:= C
MM:=WLT1>REF(WLT1,1) AND REF(WLT1,1)
MM0:=WLT1REF(WLT1,2) ;
WL:=CROSS(WLT1,WLT2);
WL1:=CROSS(WLT2,WLT1);
WL2:=CROSS(WLT1,TEND);
WL3:=LLV(LOW,55);
WL6:=HHV(HIGH,21);
WL8:=LLV(LOW,34);
DRAWICON(WL AND MM AND CWL6*0.6,LOW*0.97,23);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
DIFF:= EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
生命:MA(C,24),COLOR00FFFF;
做多:=IF(K>D AND MACD>0 AND V>1,2,0),COLORRED;
做空:=IF(K<0 AND V>1,-2,0),COLOR00FF00;
强洗:=IF(MACD>0 AND K1,1,0),COLOR0099FF;
弱升:=IF(MACD<0 AND K>D AND V>1,-1,0),COLORFFFF00;
STICKLINE(做多,L,H,0,0),COLORRED;
STICKLINE(做多 AND C
STICKLINE(做多 AND C>=O,C,O,3,1),COLORRED;
STICKLINE(做多 AND C
STICKLINE(做多 AND C
STICKLINE(做多 AND C
STICKLINE(做空 AND C>=O,L,H,0.1,0),COLOR0000FF;
STICKLINE(做空 AND C>=O,C,O,3,1),COLOR00FF00;
STICKLINE(做空 AND C
STICKLINE(做空 AND C
STICKLINE(做空 AND C
STICKLINE(强洗 AND C>=O,L,H,0.1,0),COLOR0000FF;
STICKLINE(强洗 AND C>=O,C,O,3,1),COLORFFFF00;
STICKLINE(强洗 AND C
STICKLINE(强洗 AND C
STICKLINE(强洗 AND C
STICKLINE(弱升 AND C>=O,L,H,0,0),COLOR0000FF;
STICKLINE(弱升 AND C>=O,C,O,3,1),COLOR00FFFF;
STICKLINE(弱升 AND C
STICKLINE(弱升 AND C
STICKLINE(弱升 AND C
SAL:=FILTER(CROSS(TEND,C) AND C
WLT1WL8*1.2,13);
DRAWICON(SAL,HIGH*1.03,15);
TJ1:=WL AND MM AND CWL6*0.8;
TJ2:=WL2 AND C>TEND;
TJ3:=TJ1 OR TJ2;
TJ4:=COUNT(TJ3,3)=2;
DRAWICON(FILTER(TJ4,3),LOW*0.95,23);
STICKLINE(WL AND MM AND CWL6*0.8,C,O,4,0),COLOR009999;
STICKLINE(WL AND MM AND CWL6*0.8,C,O,2.5,0),COLOR00BBBB;
STICKLINE(WL AND MM AND CWL6*0.8,C,O,1,0),COLOR00DDDD;
STICKLINE(WL AND MM AND CWL6*0.8,C,O,0.3,0),COLOR00FFFF;
STICKLINE(WL2 AND C>TEND,C,O,4,0),COLOR000099;
STICKLINE(WL2 AND C>TEND,C,O,2.5,0),COLOR0000BB;
STICKLINE(WL2 AND C>TEND,C,O,1,0),COLOR0000DD;
STICKLINE(WL2 AND C>TEND,C,O,0.3,0),COLOR0000FF;
STICKLINE(MM0 AND C>WL8*1.2,C,O,1,0),COLORFF0000;
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
{HIGHN日前的最高价=2*HIGHN+1日内最高价的最高值}
QY:=BACKSET(AA,HIGHN+1);{若AA则将最近HIGHN+1周期置为1}
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
{QY的HIGHN日过滤 AND 最高价=HIGHN+1日内最高价的最高值}
DRAWICON(CC,H*1.02,2);
DDD:=BARSLAST(CC);{上次CC距今天数}
GDTS:=IF(CC,CURRBARSCOUNT,0);{如果CC,返回到最后交易日的周,否则返回0}
DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MMM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,
CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK1;
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT;
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORYELLOW,POINTDOT;
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
{DRAWICON(CC1,L*0.98,1);}
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,
CURRBARSCOUNT=DDCS1,L,1) COLORRED,LINETHICK1;
ZGSTAR:=(高点压力+低点支撑)/2;
ZGEND:=CONST((高点压力+低点支撑)/2);
STARDAY:=IF(DDCS2
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),
COLORFFBBFF,LINETHICK1;
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,
REF(L,DDCS1-1),1),COLORFF00FF,POINTDOT,;
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,
REF(L,DDCS2-1),1),COLORCYAN,POINTDOT;
DRAWICON(WL2 AND C>TEND AND C
DRAWTEXT(WL2 AND C>TEND AND C
N8:=89;
HH:=CONST(HHV(H,N8));
LL:=CONST(LLV(L,N8));
M:=CONST(HH/2+LL/2);
CCC:=CONST(C);
YYY:=CONST(IF(CCC>=M,LL-(HH-LL)*0.2,HH+(HH-LL)*0.2));
V11:=(C+H+L)/3;
MA33:=MA(V11,2);
MA55:=MA(V11,5);
N18:=BARSLAST(CROSS(MA33,MA55));
N28:=BARSLAST(CROSS(MA55,MA33));
N88:=IF(N18
STICKLINE(N88>0,YYY,YYY+0.1,3,0),COLOR0000FF;
STICKLINE(N88<0,YYY,YYY+0.1,3,0),COLOR00FF00;
