[大智慧]大智慧大盘多空强弱黑板源码公式

我是一个兵

大智慧大盘多空强弱黑板源码公式：
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
金叉后:k>d;
kd空排:k<=d;
多头排列:ma(c,5)>ma(c,10) and ma(c,10)>ma(c,20);
DIFF:= EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
MACD飘红:DIFF>DEA;
创新高:HHV(HIGH,2)>= HHV(HIGH,20);{2天创20天新高};
{参数:K(0,0,1)}
kd多排:=selfdata('kdj统计');
kd空排:=selfdata('kd空排');
总数:=kd多排+kd空排;
多头排列:=selfdata('多头排列');
MACD飘红:=selfdata('MACD飘红');
创新高:=selfdata('创新高');
大于30:=selfdata('大于30');
比1:=kd多排/总数*100;
比2:=多头排列/总数*100;
比3:=MACD飘红/总数*100;
比4:=创新高/总数*100;
比5:=大于30/总数*100;
昨日kd:=ref(kd多排,1);
昨日多头:=ref(多头排列,1);
昨日飘红:=ref(MACD飘红,1);
昨日新高:=ref(创新高,1);
昨日30:=ref(大于30,1);
差1:=kd多排-昨日kd;
差2:=多头排列-昨日多头;
差3:=MACD飘红-昨日飘红;
差4:=创新高-昨日新高;
差5:=大于30-昨日30;
DRAWTEXTREL(27 ,12 ,'大盘多空强弱黑板'),colorff0000,LINETHICK6;
DRAWTEXTREL(25 ,10 ,'大盘多空强弱黑板'),color00ff00,LINETHICK6;
DRAWRECTREL(0 ,5 ,350 ,1200 ,rgb(180,180,180){rgb(170,170,170) 200}),colorred;
DRAWTEXTREL(15 ,250 ,'k > d排列家数  '+ kd多排+'  占比例 '+比1),colorff0000;
DRAWTEXTREL(15 ,370 ,'5→20多头排列  '+ 多头排列+'  占比例 '+比2),colorblack;
DRAWTEXTREL(15 ,490 ,'MACD 飘红家数  '+ MACD飘红+'  占比例 '+比3),color0000ff;
DRAWTEXTREL(15 ,610 ,'2天创20天新高  '+ 创新高+'  占比例 '+比4),colorff00ff;
DRAWTEXTREL(15 ,730 ,'C > 30天 均线  '+ 大于30+'  占比例 '+比5),color008800;
DRAWTEXTREL(5 ,850 ,'昨日  差值         总数: '+总数+'家'),colorcyan;
DRAWTEXTREL(2 ,950 ,''+昨日kd+' '+差1+'  '+昨日多头+' '+差2+'  '+昨日飘红+' '+差3+'  '+昨日新高+' '+
差4+'  '+昨日30+' '+差5),colorblack;
_kd多排:if(k=0,selfdata('kdj统计'),比1),PRECIS0,colorff9900;
_kd空排:=selfdata('kd空排');
_总数:if(k=0,kd多排+kd空排,100),PRECIS0,color00ff00;
_多头排列:if(k=0,selfdata('多头排列'),比2),PRECIS0,colorffffff;
_MACD飘红:if(k=0,selfdata('MACD飘红'),比3),PRECIS0,colorred;
_创新高:if(k=0,selfdata('创新高'),比4),PRECIS0,colordd00ff;
_大于30:if(k=0,selfdata('大于30'),比5),PRECIS0,color00dd00;
sy:if(k=0,总数,90),color909092,DOTLINE;
xy:if(k=0,总数,10),color909092,DOTLINE;
zy:if(k=0,总数,50),color909092,DOTLINE;