%> 大智慧KDJ量主图指标公式_
大智慧KDJ量主图指标公式 3621

Var2:=LLV(LOW,5);

Var3:=HHV(HIGH,5);

K:EMA((CLOSE-Var2)/(Var3-Var2)*100,4),COLORFFFFFF,linethick0;

D:EMA(0.667*REF(K,1)+0.333*K,2),COLOR00FFFF,linethick0;

J:3*K-2*D,COLORFF50FF,linethick0;

hhZ:=HHV(ref(HIGH,1),5);

llZ:=LLV(ref(LOW,1),5);

jc:=ema((hhZ+llZ)/2,5);

bl:=(CLOSE-LLZ)/(HHZ-LLZ);

kz:IF(BARSSINCE(C)<1,C,ema(jc*(1+(BL-0.5)/5),4)),COLORFFFFFF,linethick0;

dz:IF(BARSSINCE(C)<1,C,ema(jc*(eMA(BL,4)-0.5)/5+jc,4)),COLOR00FFFF,linethick0;

jz:IF(BARSSINCE(C)<1,C,3*kz-2*dz),COLORFF50FF,linethick0;

POLYLINE(kz,kz),COLORFFFFFF;

POLYLINE(dz,dz),COLOR00FFFF;

POLYLINE(jz,jz);

角度:atan((kz-ref(kz,1))/abs(ref(kz,1))*100)*180/3.1416,linethick0;

DRAWTEXTABS(2,5,'所属板块:'+BKNAME),COLORFF50FF,linethick1;

总股本:=FINANCE2(35)/1000000*100;流通盘:=FINANCE2(37)/1000000*100;

DRAWTEXTABS(15,20,'总股本:'+NUMTOSTRN(总股本,2)+'亿'),LINETHICK1,COLORFFFFFF;

DRAWTEXTABS(15,35,'流通盘:'+NUMTOSTRN(流通盘,2)+'亿'),LINETHICK1,COLORFFFFFF;

每股收益:=FINANCE2(3);

换手率0:=vol/capital*100;

DRAWTEXTABS(15,50,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),LINETHICK1,COLORFFFFFF;

X1:=IF(PFFIN(4003,0)>5,1,0);

X2:=IF(PFFIN(4013,0)>5,1,0);

X3:=IF(PFFIN(4023,0)>5,1,0);

X4:=IF(PFFIN(4033,0)>5,1,0);

X5:=IF(PFFIN(4043,0)>5,1,0);

ZX:=PFFIN(4002,0)*X1+PFFIN(4012,0)*X2+PFFIN(4022,0)*X3+PFFIN(4032,0)*X4+PFFIN(4042,0)*X5;

真换手率:=vol/(capital-ZX/100)*100;

真流通股:=(capital-ZX/100)/1000000;

DRAWTEXTABS(15,80,'真换手率:'+NUMTOSTRN(真换手率,2)+'%'),LINETHICK1,COLORYELLOW;

DRAWTEXTABS(15,95,'真流通盘:'+NUMTOSTRN(真流通股,2)+'亿'),LINETHICK1,COLORYELLOW;

A:=ALL(jz>ref(jz,1),2);

B:=kz<=ref(kz,1);

换手率:VOL/CAPITAL*100,COLORRED,LINETHICK0;

量:=VOL;

Ad:=LLVALL(L)*0.95;

Bd:=(LLVALL(L)*1.1-Ad)/HHVALL(量)*0.5;

STICKLINE(jz>ref(jz,1),Ad,Ad+量*Bd,6,0),COLORRED;

STICKLINE(jz<=ref(jz,1),Ad,Ad+量*Bd,6,0),COLORGREEN;

MAV3:=Ad+MA(量,3)*Bd;

MAV8:=Ad+MA(量,8)*Bd;

POLYLINE(MAV3,MAV3),COLORFF00FF;

POLYLINE(MAV8,MAV8),COLORYELLOW;

stickline(c>1.097*ref(c,1) and C=H,O+(C-O)/2,c,5,0),color00DDFF,LAYER7;

stickline(c<0.901*ref(c,1) and C=L,C,C+(O-C)/2,7,0),ColorFF0000,LAYER7;

DRAWTEXTABS(500,5,' KDJ+量主图'),COLORred,linethick5;

DRAWGBKLAST(c>0,STRIP(RGB(10,60,0),RGB(50,10,0),0));



 

{股票教程网-承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}