红十天

DRAWGBKLAST(C>0,STRIP(RGB(0,0,20),RGB(0,0,20),0));
BEGIN DRAWTEXTREL(0,0,'所属板块：'+BKNAME),LINETHICK1,COLORFFFFFF;end;
SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
DRAWTEXTREL(700,40,'量能饱和度：'+NUMTOSTRN(SAT,0)),LINETHICK2,Color00FFFF;
DRAWRECTREL(860,20,695,250,RGB(0,0,50));

B1:='^^^^^^^^^^^^';
DRAWTEXT(vol=HHV(vol,20),C ,B1),color00FFCC;
STICKLINE(V>=HHV(V,62),OPEN,CLOSE,1,0),COLOR00FFFF;

十天买卖:REF(CLOSE,1),COLOR0000FF,LINETHICK1;
PARTLINE(十天买卖,CLOSE>=十天买卖,RGB(255,0,0)),LINETHICK5;
十天压力:HHV(十天买卖,13),COLOR00FF00,LINETHICK1;
PARTLINE(十天压力,十天买卖=十天压力,RGB(255,255,0)),LINETHICK4;
十天支撑:LLV(十天买卖,13),Color00FFFF,LINETHICK1;
PARTLINE(十天支撑,十天买卖=十天支撑,RGB(0,255,0)),LINETHICK4;
 
{RSV:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3 * K) - (2 * D));
RSV24:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=((3 * K24) - (2 * D24));
压力位:IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J)))),colorFF00FF,LINETHICK2;
支撑位:IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24)))),colorFFFFFF;}

价在线下:=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;
Var1:=LLV(LOW,36);
Var2:=HHV(HIGH,20);
散户:= MA(WINNER(CLOSE*0.95)*100,3);
游资:=EMA((CLOSE-Var1)/(Var2-Var1)*4,4)*25;
DRAWTEXT(cross(游资,ref(游资,1)),L*0.93,'进'),ALIGN1,COLOR00FFFF;
DRAWTEXT(cross(游资,ref(游资,1)),L*0.89,'场'),ALIGN1,COLOR00FFFF;
DRAWTEXT(cross(ref(游资,1),游资),H*1.14,'减'),ALIGN1,COLOR00FF00;
DRAWTEXT(cross(ref(游资,1),游资),H*1.1,'仓'),ALIGN1,COLOR00FF00;
DRAWICON(cross(游资,ref(游资,1)),L*0.93,7),ALIGN1,VALIGN2;
DRAWICON(cross(ref(游资,1),游资),H*1.02,8),ALIGN1,VALIGN2;
DRAWICON(cross(散户,ref(散户,1)),L*0.90,7),ALIGN1,VALIGN2;
DRAWICON(cross(ref(散户,1),散户),H*1.04,8),ALIGN1,VALIGN2;

机构增仓:=EXTDATA(1);
大户增仓:=EXTDATA(2);
散户增仓:=EXTDATA(3);
增仓风向:=机构增仓+大户增仓;
增仓:=ref(cross(增仓风向,0)and c<十天买卖,1);
进:=cross(增仓风向,机构增仓) or 增仓;
DRAWICON(进 and 增仓风向>0 and 机构增仓>0 and C>十天买卖,L* 0.94,12),ALIGN1,VALIGN2;
出:=cross(机构增仓,增仓风向);
DRAWICON(出 and  C<十天买卖,H* 1,13),ALIGN1,VALIGN2;
DRAWTEXTREL(700,100,'机构增仓：'+NUMTOSTRN(机构增仓,0)),LINETHICK2,Color8000FF;
DRAWTEXTREL(700,150,'大户增仓：'+NUMTOSTRN(大户增仓,0)),LINETHICK2,ColorFFAAFF;
DRAWTEXTREL(700,200,'散户增仓：'+NUMTOSTRN(散户增仓,0)),LINETHICK2,ColorFFFFFF;