量能饱和
{本指标虽然有信号漂移现象，但是我不当是未来函数，不喜欢的别下}
SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
DRAWTEXTREL(800,40,'量能饱和度：'+NUMTOSTRN(SAT,0)),LINETHICK2,Color00FFFF;
B1:='^^^^^^^^^^^^^^^^^^^^^^^^';
DRAWTEXT(vol=HHV(vol,20),C ,B1),color00FFCC;
十天买卖:ema(REF(CLOSE,1),2),COLORFFCC00,LINETHICK1;
PARTLINE(十天买卖,CLOSE>=十天买卖,RGB(255,0,0)),LINETHICK4;
十天压力:HHV(十天买卖,13),COLOR00FF00,LINETHICK1;
PARTLINE(十天压力,十天买卖=十天压力,RGB(255,255,0)),LINETHICK3;
十天支撑:LLV(十天买卖,13),Color00FFFF,LINETHICK1;
PARTLINE(十天支撑,十天买卖=十天支撑,RGB(0,0,255)),LINETHICK3;
价在线下:=C<十天买卖;
STICKLINE(价在线下 ,CLOSE ,OPEN,7.5,0 ),COLORff7700;
STICKLINE(价在线下 ,CLOSE ,OPEN,6,0 ),COLORff9900;
STICKLINE(价在线下 ,CLOSE ,OPEN,5,0 ),COLORffbb00;
STICKLINE(价在线下,CLOSE ,OPEN,4,0 ),COLORffcc00;
STICKLINE(价在线下,CLOSE ,OPEN,3,0 ),COLORffdd00;
STICKLINE(价在线下 ,CLOSE ,OPEN,2,0 ),COLORffee00;
STICKLINE(价在线下,CLOSE ,OPEN,1,0 ),COLORffff00;
价在线上:=C>=十天买卖;
STICKLINE(价在线上,CLOSE,OPEN,7.5,0) ,COLOR000055;
STICKLINE(价在线上,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(价在线上,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(价在线上,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(价在线上,CLOSE,OPEN,3,0) ,COLOR0000bb;
STICKLINE(价在线上,CLOSE,OPEN,2,0) ,COLOR0000dd;
STICKLINE(价在线上,CLOSE,OPEN,1,0) ,COLOR0000ff;
收小于开:=C>=十天买卖 and c<open;
stickline(收小于开,o,(o+c)/2,7.5,0),colorff11ff;
stickline(收小于开,o,(o+c)/2,6,0),colorff33ff;
stickline(收小于开,o,(o+c)/2,5,0),colorff55ff;
stickline(收小于开,o,(o+c)/2,4,0),colorff77ff;
stickline(收小于开,o,(o+c)/2,3,0),colorff99ff;
stickline(收小于开,o,(o+c)/2,2,0),colorffbbff;
stickline(收小于开,o,(o+c)/2,1,0),colorffddff;
收大于开:=C<十天买卖 and c>open;
stickline(收大于开,c,(o+c)/2,7.5,0),color333333;
stickline(收大于开,c,(o+c)/2,6,0),color555555;
stickline(收大于开,c,(o+c)/2,5,0),color777777;
stickline(收大于开,c,(o+c)/2,4,0),color999999;
stickline(收大于开,c,(o+c)/2,3,0),colorbbbbbb;
stickline(收大于开,c,(o+c)/2,2,0),colordddddd;
stickline(收大于开,c,(o+c)/2,1,0),colorffffff;
LL:=LLV(C,100);
TJ:=IF((C-REF(C,1))/REF(C,1)>0.025,1,0);
评台支撑:=IF(C>REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),0);
stickline(评台支撑,c,(o+c)/2,7.5,0),color005555;
stickline(评台支撑,c,(o+c)/2,6,0),color006666;
stickline(评台支撑,c,(o+c)/2,5,0),color007777;
stickline(评台支撑,c,(o+c)/2,4,0),color009999;
stickline(评台支撑,c,(o+c)/2,3,0),color00bbbb;
stickline(评台支撑,c,(o+c)/2,2,0),color00dddd;
stickline(评台支撑,c,(o+c)/2,1,0),color00ffff;
评台压力:=IF(C<OPEN and ref(C,1)>ref(OPEN,1),ref(close,1),0);
stickline(评台压力,o,(o+c)/2,7.5,0),color003300;
stickline(评台压力,o,(o+c)/2,6,0),color005500;
stickline(评台压力,o,(o+c)/2,5,0),color007700;
stickline(评台压力,o,(o+c)/2,4,0),color009900;
stickline(评台压力,o,(o+c)/2,3,0),color00bb00;
stickline(评台压力,o,(o+c)/2,2,0),color00dd00;
stickline(评台压力,o,(o+c)/2,1,0),color00ff00;
yl:=IF(C>REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),0);
FT:=BARSLAST(yl);
YLX:=REF(yl,FT);
bt:=IF(C<OPEN and ref(C,1)>ref(OPEN,1),ref(C,1),0);
XFT:=BARSLAST(bt);
XYLX:=REF(bt,XFT);
评台调下:=CROSS(XYLX,C);
评台突破:=CROSS(C,YLX);
DRAWICON(评台突破,L* 0.93,7),ALIGN1,VALIGN2;
DRAWICON(评台调下,H,8),ALIGN1,VALIGN2;
VAR2:=REF(LOW,1);
VAR3:=SMA(ABS(LOW-VAR2),13,1)/SMA(MAX(LOW-VAR2,0),13,1)*100;
VAR4:=EMA(IF(CLOSE*1.2,VAR3*13,VAR3/13),13);
VAR5:=LLV(LOW,34);
VAR6:=HHV(VAR4,34);
VAR7:=IF(LLV(LOW,56),1,0);
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
主力进场:=VAR8>REF(VAR8,1);
进场:=ref(主力进场,1);
DRAWTEXT(进场 and 评台突破 ,L * 0.97,'进'),ALIGN1,COLOR0000FF;
DRAWTEXT(进场 and 评台突破 ,L * 0.94,'场'),ALIGN1,COLOR0000FF;
机构增仓:=EXTDATA(1);
大户增仓:=EXTDATA(2);
散户增仓:=EXTDATA(3);
增仓风向:=机构增仓+大户增仓;
增仓:=ref(cross(增仓风向,0)and c<十天买卖,1);
进:=cross(增仓风向,机构增仓) or 增仓;
DRAWICON(进 and 增仓风向>0 and 机构增仓>0 and C>十天买卖,L* 0.95,12),ALIGN1,VALIGN2;
出:=cross(机构增仓,增仓风向);
DRAWICON(出 and C<十天买卖,H* 1,13),ALIGN1,VALIGN2;
DRAWTEXTREL(800,100,'机构增仓：'+NUMTOSTRN(机构增仓,0)),LINETHICK2,ColorFFFFFF;
DRAWTEXTREL(800,150,'大户增仓：'+NUMTOSTRN(大户增仓,0)),LINETHICK2,ColorFFFFFF;
DRAWTEXTREL(800,200,'散户增仓：'+NUMTOSTRN(散户增仓,0)),LINETHICK2,ColorFFFFFF;
{}
TJTS1:=BARSTATUS=2 and c<200;
TJTS2:=BARSTATUS=2 and c>200;
k2:=hhv(h,barslast(DISPSTATUS=1)+1);
DRAWTEXT(TJTS1 or TJTS2 ,k2*1,'红持-粉变-绿买-灰跌-蓝抛'+' '),COLORFF9933,ALIGN2;
|
【一键转帖到论坛】
(2)100%(0)0%