N:=150;
高111:=REF(HHV(H,150),3);
低111:=REF(LLV(L,150),3);
H12:=高111-(高111-低111)*0.191;
H22:=高111-(高111-低111)*0.382;
H31:=高111-(高111-低111)*0.5;
H41:=高111-(高111-低111)*0.618;
H51:=高111-(高111-低111)*0.809;
顶:=REFDATE(高111,DATE),COLORWHITE;
低S:=REFDATE(低111,DATE),COLORYELLOW;DRAWBAND(顶,RGB(0,0,250),低S,RGB(0,0,0));
KY:=BARSLAST(CURRBARSCOUNT=N);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,KY),0));
DD:=CONST(IF(ISLASTBAR=1,LLV(L,KY),0));
KJ:=GD-DD;
GD4:=IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL);
{DRAWBAND(GD4,RGB(0,0,250),DD+KJ/2,RGB(0,0,0));}{该行设置背景色}
平衡:=IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
压力:=IF(CURRBARSCOUNT<=N,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
支撑:=IF(CURRBARSCOUNT<=N,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
低吸:=IF(CURRBARSCOUNT<=N/2 AND CROSS(平衡,LOW),1,DRAWNULL),COLORFF8899,NODRAW;
低涨:=IF(CURRBARSCOUNT<=N,(C/LLV(LOW,KY)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;
天:=BARSLAST(L=DD),COLOR00FFFF,NODRAW;
MA5:=MA(CLOSE,5),COLORFFFFFF;
MA10:=MA(CLOSE,10),COLOR00FFFF;
MA20:=MA(C,20),COLORFF00FF;
高11:=IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLOR00FFFF,POINTDOT;
低11:=IF(CURRBARSCOUNT<=N,DD,DRAWNULL),COLOR00FF00,POINTDOT;
{以下设置主图显示方式}
{STICKLINE(CURRBARSCOUNT=N,GD,DD,0,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=N/2,GD,DD,0,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT<=N,平衡,平衡,3,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT<=N/2,压力,压力,3,-1),COLOR00FF00;
STICKLINE(CURRBARSCOUNT<=N/2,支撑,支撑,3,-1),COLORGREEN;}
{以下设置提示文字部分}
{DRAWTEXT(CURRBARSCOUNT=1,压力,'0.809'),COLOR0000FF;
DRAWTEXT(CURRBARSCOUNT=1,平衡,'0.500'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=1,支撑,'0.191'),COLOR00FFFF;}
{DRAWTEXT(CURRBARSCOUNT=N/2+9,GD-KJ/12,'★强势区域--急拉减仓!'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/2+9,GD-KJ/3,'●震荡整理--寻机低吸!'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=N/2+9,DD+KJ/3,'◆反弹中轨--逢高休息!'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=N/2+9,DD+KJ/10,'■弱势区域--暂不参与!'),COLORFFFF00;}
{DRAWTEXT(CURRBARSCOUNT=N,GD-KJ/12,'■目前K线天数:请看参数!'),COLOR0000FF;
DRAWTEXT(CURRBARSCOUNT=N,压力,'■建议查阅K线:短线30天,中长线120天!'),COLORFF8899;}
高1:=REF(HHV(H,150),3);
低1:=REF(LLV(L,150),3);
H3:=高1-(高1-低1)*0.5;
中轴:=REFDATE(H3,DATE),POINTDOT,COLORLIGRAY,LINETHICK3;
B11:=EMA(C,8);
B21:=EMA(C,14);
B31:=B11-B21;
WDIF:=EMA(EMA(EMA(C,3),3),3)+B31,COLORWHITE,LINETHICK2;
WDEA:=EMA(WDIF,7); IF(WDIF<REF(WDIF,1),WDIF,DRAWNULL),,COLORGREEN,LINETHICK5;
IF(WDIF>REF(WDIF,1),WDIF,DRAWNULL),COLORRED,LINETHICK5;
MACD:=2*(WDIF-WDEA);DRAWBAND(WDIF,RGB(155,50,50),WDEA,RGB(0,100,50));
低位金叉:IF(CROSS(WDIF,WDEA) AND WDIF<-0.1,中轴,中轴+MACD),COLORYELLOW,LINETHICK2;
JCCOUNT:=COUNT(CROSS(WDIF,WDEA),BARSLAST(WDEA>=0));
STICKLINE(MACD>0,中轴,中轴+MACD,2,1)LINETHICK4,COLORRED;
STICKLINE(MACD<0,中轴,中轴+MACD,2,1)LINETHICK3,COLORLIBLUE;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,中轴,中轴+MACD,2,1 )LINETHICK3,COLORGREEN;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,中轴,中轴+MACD,2,1 ),COLOR0011BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,中轴,中轴+MACD,2,1),COLOR0066FF;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,中轴,中轴+MACD,2,1),COLORGREEN;
卖:IF(CROSS(WDIF,WDEA) AND WDEA<0 AND COUNT(JCCOUNT=2,21)=1,中轴,中轴+MACD),COLORGREEN,LINETHICK4;拉:IF(低位金叉>REF(低位金叉,1),低位金叉,DRAWNULL),COLORRED,LINETHICK5;
{N6:=20;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,PERIOD<6,CAPITAL),COLOR00AAAA,NODRAW;
DXN:=MA(DDX,5)*N6;
STICKLINE(DDX>0,中轴,中轴+0.1,3,0),COLOR000088;
STICKLINE(DDX>0,中轴,中轴+0.1,2.3,0),COLOR0000AA;
STICKLINE(DDX>0,中轴,中轴+0.1,1.6,0),COLOR0000CC;
STICKLINE(DDX>0,中轴,中轴+0.1,0.9,0),COLOR0000EE;
STICKLINE(DDX<0,中轴,中轴+0.1,3,0),COLOR008800;
STICKLINE(DDX<0,中轴,中轴+0.1,2.3,0),COLOR00AA00;
STICKLINE(DDX<0,中轴,中轴+0.1,1.6,0),COLOR00CC00;
STICKLINE(DDX<0,中轴,中轴+0.1,0.9,0),COLOR00EE00;
DDX1:=SMA(DXN,3,1),COLORFFFFFF;
DDX2:=SMA(DDX1,3,1),COLOR00FFFF;
DDX3:=EMA(DDX2,5),COLORFF00FF;
预警:=DDX>0 AND MA(V,5)>MA(MA(V,5),4) AND CROSS(DDX1,DDX2),NODRAW;
天:=COUNT(DDX>0,5),COLORRED;}
STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000055;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000077;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR000099;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF;
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF;
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORCYAN;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR990000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORCYAN;
KT:=(C+H+L)/3;
DT:=MA(KT,4);
操作:=DT,COLORWHITE,LINETHICK2;
拉升:=HHV(DT,13),COLORRED,LINETHICK2;VAR1M:=(C- LLV(L,32)) / (HHV(H,32) - LLV(L,32)) * 1.2 * C;
VAR2M:=EMA(VAR1M,3);
VAR3M:=EMA(VAR1M,5);
VAR4M:=EMA(VAR1M,7);
VARAM:=VAR3M >= VAR4M AND VAR2M < REF(VAR2M,1);
VARBM:=VAR3M < VAR4M AND VAR2M > REF(VAR2M,1);
超短:=MA(VAR2M,6);
短线:=MA(超短,2);VT:=IF(操作<REF(操作,1),操作,DRAWNULL),,COLORGREEN,LINETHICK3;
高:=REFDATE(HHV(H,N),DATE);
低:=REFDATE(LLV(L,N),DATE);
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H33:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
{DRAWTEXT(CURRBARSCOUNT=1,高,'高'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,H1,'809'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H2,'618'),COLORGRAY;}
{DRAWTEXT(CURRBARSCOUNT=1,H33,'中'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,H4,'382'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=1,H5,'191'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,低,'低'),COLORRED;
STICKLINE(CURRBARSCOUNT=13,高,高,100,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORGRAY;
STICKLINE(CURRBARSCOUNT=13,H33,H33,100,-1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1 |