通达信钻石量能盘副图公式源码

VOL,VOLSTICK;

预测:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1)),0),NODRAW;

TT:=IF(ISLASTBAR,预测/VOL,1),NODRAW;

换手:=HSCOL,NODRAW,COLOR00FF00;

MA5换:SUM(HSCOL,5),NODRAW,COLOR00FFFF;

月换:SUM(HSCOL,20),NODRAW,COLORFFFF80;

V倍:VOL/REF(VOL,1),NODRAW,COLORFFFF80;

JJQ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

QJ1:=QJ0*(MIN(OPEN,CLOSE)-LOW);

QJ2:=QJ0*(JJQ-MIN(CLOSE,OPEN));

QJ3:=QJ0*(HIGH-MAX(OPEN,CLOSE));

QJ4:=QJ0*(MAX(CLOSE,OPEN)-JJQ);

千钧DDX:IF(HIGH=LOW,4*QJ0,((QJ1+QJ2)-(QJ3+QJ4)))/SUM(VOL,10)*100,NODRAW,COLOR80FF00;

ZFA:=(C/REF(C,1)-1)*100;

ZFB1:=(C/O-1)*100;

ZF:MAX(ZFA,ZFB1),NODRAW,COLOR00FFFF;

VARA2:=LLV(MA(LOW,3),3);

VARA3:=HHV(MA(HIGH,3),3);

NN1:=120;

HH:=HHV(V*TT,NN1);

LL:=LLV(V,NN1);

最高:=CONST(HH);

最低:=CONST(LL);

RCC:=最高*0.9-(最高-最低)*0.5;

RHL:=RCC;

HLMAX:=最高;

HLMIN:=最低;

HLMN1:=(HLMAX+HLMIN)/2;

HLMN2:=HLMAX-HLMIN;

HLMN3:=(100-0)/2*1.3;

HLMN4:=(100-0)/1*1.3;

P:=最高/120;

神:=2*SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1)-(3*HHV(SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1),2)-2*SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1));

奇:=(2*神+EMA((2*(C+L)/2+(H+C)/2+L+O)/5,2)+2*((EMA((C*2+H+L+O)/5,5)+MA((C*2+H+L+O)/5,13)+MA((C*2+H+L+O)/5,21))/3)+((EMA

   ((C*2+H+L+O)/5,13)+MA((C*2+H+L+O)/5,21)+MA((C*2+H+L+O)/5,34))/3)+((EMA((C*2+H+L+O)/5,21)+MA((C*2+H+L+O)/5,34)+MA((C*2+H+L+O)/5,55))/3))/7; 

分清:=(FORCAST(HHV((C+L)/2,1),21)+(EMA(((C+L)/2+L+(H+C)/2)/3,55)-(C-EMA(((C+L)/2+L+(H+C)/2)/3,55))))/2;

放心买入:=(((C+L)/2+(H+C)/2+L)/3+(3*(C+H+L+(O+C+L)/3)/4-2*(C+L)/2))/2;

强:=(EMA((分清+3*((EMA(放心买入,5)*5+分清)/6+((EMA(奇,5)+EMA(奇,8)+EMA(奇,13))/3))/2)/4,3)/3),POINTDOT,COLOR00FFFF;

验证:=((((C+L)/2-LLV(L,24))/(HHV((H+C)/2,24)-LLV(L,24))*1.1*(C+L)/2));  

续持验证:=EMA((2*(5*((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5))

-EMA((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5)),21)))

+(((C*2+H)/3+(C*2+H)/3)/2)+EMA(验证,2))/4,2),COLOR555555;

比:=TT;

昨V:=TT;

T:=IF(ISLASTBAR,IF(FROMOPEN>60,IF(FROMOPEN-INTPART(FROMOPEN/60)*60=0,1,

60/(FROMOPEN-INTPART(FROMOPEN/60)*60)),60/FROMOPEN),1);

WJ:=(H+L+C)/3;

V1:=IF(H=L,1,H-MAX(O,C));

V2:=IF(H=L,1,MAX(C,O)-WJ);

V3:=IF(H=L,1,MIN(O,C)-L);

V4:=IF(H=L,1,WJ-MIN(C,O));

V5:=VOL/IF(H=L,4,H-L);

V6:=(V1*V5);

V7:=(V2*V5);

V8:=(V3*V5);

V9:=(V4*V5);

买盘1:=DYNAINFO(23)*比;

卖盘1:=DYNAINFO(22)*比;

买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));

卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));

买盘A:=IF(ISLASTBAR AND PERIOD=5 AND C<300,买盘1,买盘2);

卖盘A:=IF(ISLASTBAR AND PERIOD=5 AND C<300,卖盘1,卖盘2);

AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

主买:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL /2)),POINTDOT,COLORRED;

主卖:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL /2)),LINETHICK0,COLORGREEN;

净流:主买-主卖,NODRAW,COLOR4080FF;VOL,VOLSTICK;

ZLCM1:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}

SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散户筹码估算}

ZZLKP:=ZLCM1/(ZLCM1+SHCM);{//主力控盘筹码比率}

ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}

DD1:=EMA((O+H+L)/3,4)COLORWHITE,NODRAW;

DD2:=EMA(C+(H-L)*0.618,3)COLORYELLOW,NODRAW;

密码1:=DD2+(DD2-DD1)*0.618,NODRAW,COLORWHITE;{明卖}

密码2:=EMA((O+H+L)/3,4)+((H+L)/2-REF((O+H+L)/3,3))/4,NODRAW;{明买}

密码3:=MA(REF(密码1,1),1)*1,COLORLIMAGENTA,NODRAW;{今卖}

密码4:=REF(密码2,1),COLORLIMAGENTA,NODRAW;{今买}

密码5:=MA(REF(DD2,1),1)*1,COLORLIMAGENTA,NODRAW;{今卖}

密码6:=REF(DD1,1),COLORLIMAGENTA,NODRAW;{今买}

STICKLINE(1,HLMAX,HLMAX*0.96,5,0),COLORGREEN;

红灯买:STICKLINE(密码1>密码3,HLMAX,HLMAX*0.96,5,0),COLORRED;

STICKLINE(1,HLMAX*0.98,HLMAX*0.98,5,0),COLORWHITE;

STICKLINE(1,HLMAX*0.93,HLMAX*0.89,5,0),COLORRED;

绿灯卖:STICKLINE(密码2<=密码4,HLMAX*0.93,HLMAX*0.89,5,0),COLORGREEN;

STICKLINE(1,HLMAX*0.91,HLMAX*0.91,5,0),COLORWHITE;

操作段1:STICKLINE(密码1>(密码3) AND C>密码2 OR 密码2>密码4,HLMAX*0.82,HLMAX*0.86,5,0),COLORRED;

操作段2:STICKLINE(C>密码2 AND 密码1>密码3,HLMAX*0.82,HLMAX*0.86,5,0),COLORMAGENTA;

操作段3:STICKLINE(密码1<密码3 AND 密码2>密码4,HLMAX*0.82,HLMAX*0.86,5,0),COLORYELLOW;

STICKLINE(密码1>(密码3) AND C>密码2 OR 密码2>密码4 OR C>密码2 AND 密码1>密码3,HLMAX*0.84,HLMAX*0.84,5,0),COLORWHITE;

NOTEXT91:IF(ZZLJJ<REF(ZZLJJ,1),-35*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT81:IF(ZZLJJ>REF(ZZLJJ,1),-35*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

NOTEXT71:IF(续持验证<强,-5*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT61:IF(续持验证>=强,-5*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

NOTEXT51:IF(续持验证>= REF(续持验证,1),-11*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

NOTEXT41:IF(续持验证< REF(续持验证,1),-11*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT31:IF(ZF<0,-17*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT21:IF(ZF>0,-17*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

NOTEXT11:IF(千钧DDX<0,-23*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT10:IF(千钧DDX>0,-23*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

个股资金线:=MA(C,1)/MA(REF(C,18),18)*100;

资金生命线:=MA(FORCAST(个股资金线,20),6);

生命线:个股资金线>资金生命线,COLOR000000,STICK,LINETHICK1;

NOTEXT12:IF(生命线<=0,-29*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT13:IF(生命线>0,-29*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

CC:=CLOSE;

WW:=(CC-LOW+0.01)/(HIGH-LOW+0.01);

N120:=IF(BARSSINCE(CLOSE>0)<120,BARSSINCE(CLOSE>0),120);

N90:=IF(BARSSINCE(CLOSE>0)<90,BARSSINCE(CLOSE>0),90);

N55:=IF(BARSSINCE(CLOSE>0)<55,BARSSINCE(CLOSE>0),55);

N34:=IF(BARSSINCE(CLOSE>0)<34,BARSSINCE(CLOSE>0),34);

ZLCMA:=(DMA(WW,VOL/(MA(VOL,N120)*N120))+DMA(WW,VOL/(MA(VOL,N90)*N90))+DMA(WW,VOL/(MA(VOL,N55)*N55))+DMA(WW,VOL/(MA(VOL,N34)*N34)))/4*800;

NN:=IF(PERIOD=5,240,IF(PERIOD=6,360,240));

ZLCMC:=(ZLCMA-LLV(ZLCMA,NN))*100/(HHV(ZLCMA,NN)-LLV(ZLCMA,NN));

ZLCMB:=WINNER(CLOSE)*100;

ZLB:=IF(ZLCMB>0,ZLCMB,DRAWNULL);

ZLCM:=IF(ZLB=DRAWNULL,ZLCMC,ZLCMB);

ZLQS:EMA(ZLCM,3),COLORYELLOW;

BBCM:=ZLQS-REF(ZLQS,1);

NOTEXT14:IF(BBCM<0,-35*P,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1;

NOTEXT15:IF(BBCM>0,-35*P,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;

VAR2:=(HIGH - LOW);

VAR3:=ABS((OPEN - CLOSE));

VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));

VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);

VAR6:=((VAR3 / VAR2) * VOL);

VAR7:=((VAR4 / VAR2) * VOL);

VAR8:=((VAR5 / VAR2) * VOL);

VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));

多头:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,3,0),COLOR000088;

STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,2,0),COLOR0000AA;

STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,1,0),COLOR0000DD;

STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,0.5,0),COLOR0000FF;

空头:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,3,0),COLOR008800;

STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,2,0),COLOR00AA00;

STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,1,0),COLOR00DD00;

STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,0.5,0),COLOR00FF00;

加仓:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE > OPEN)),0,VAR6,3,0),COLOR880088;

STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE > OPEN)),0,VAR6,2,0),COLORAA00AA;

STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE > OPEN)),0,VAR6,1,0),COLORDD00DD;

STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE > OPEN)),0,VAR6,0.5,0),COLORFF00FF;

减仓:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE < OPEN)),0,VAR6,3,0),COLOR880000;

STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE < OPEN)),0,VAR6,2,0),COLORBB0000;

STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE < OPEN)),0,VAR6,1,0),COLORDD0000;

STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) 

AND (CLOSE < OPEN)),0,VAR6,0.5,0),COLORFF0000;

洗盘:STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,3,0),COLOR999999;

STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,2,0),COLORAAAAAA;

STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,1,0),COLORDDDDDD;

STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,0.6,0),COLORFFFFFF;

高卖:STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,3,0),COLOR008888;

STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,2,0),COLOR00AAAA;

STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,1,0),COLOR00DDDD;

STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,0.5,0),COLOR00FFFF;

B1:=(买盘A+卖盘A)<MA(V,60)/3 ;

B2:=MA(V,5)/2>V AND V>B1;

NOTEXTA:((80-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1,DOTLINE;

NOTEXTB:((50-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1,DOTLINE;

NOTEXTC:((20-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1,DOTLINE;

NOTEXTD:((10-HLMN3)*HLMN2/HLMN4+HLMN1),COLORCCCCCC,LINETHICK1;

KA:=(EMA((CLOSE-VARA2)/(VARA3-VARA2)*100,4)-50)*0.5+50;

DB:=EMA(0.667*REF(KA,1)+0.333*KA,2);

JJ:=3*KA-2*DB;

((KA-HLMN3)*HLMN2/HLMN4+HLMN1),COLORFFF111,LINETHICK1;

((DB-HLMN3)*HLMN2/HLMN4+HLMN1),COLOR00FF00,LINETHICK1;

((JJ-HLMN3)*HLMN2/HLMN4+HLMN1),COLORFF00FF,LINETHICK1;

DRAWICON(V>=3*REF(V,1) AND O<C,V*1.1,23);

DRAWICON(V>=2*REF(V,1) AND O<C,V*0.8,25);