【通达信免费源码】买卖力柱指标副图 波段 短线 买卖点 操盘控盘

K线个数:=60;J1:=-49;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3K-2D,COLORFF00FF,NODRAW;

K1:=1/3RSV+REF(K,1)/32;

D1:=1/3K+REF(D,1)/32;

JJ:=3K1-2D1;

J11:=J;

J昨:=REF(JJ,1);

JX:=IF(J1=-50,J11,IF(J1=-49,J昨,J1));

J拐头价验证:=((9/7JX-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9);

J底部上穿此价买:=IF(J拐头价验证<REF(J拐头价验证,1),J拐头价验证,DRAWNULL),COLOR80FFFF,NODRAW;

J从顶下穿此价卖:=IF(J拐头价验证>REF(J拐头价验证,1),J拐头价验证,DRAWNULL),COLORFFFF00,NODRAW;

J100%价:=CONST(((9/7100-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9));

J80%价:=CONST(((9/780-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9));

J50%价:=CONST(((9/750-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9));

J20%价:=CONST(((9/720-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9));

J0%价:=CONST(((9/70-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9));

STICKLINE(1,J0%价,J0%价,80,-1),COLOR606060;

今日拐头价:CONST(J拐头价验证),COLOR80FFFF;

J%:J,COLORFF00FF,NODRAW;

对应股价:((9/7J-2REF(K1,1)+12/7REF(D1,1))/100)(HHV(HIGH,9)-LLV(LOW,9))+LLV(LOW,9),COLORFF0080,NODRAW;

RSVD:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*(J100%价-J0%价)+J0%价;

KK:=SMA(RSVD,3,1),COLORCC9999;

DD:=SMA(KK,3,1),COLOR0080FF;

股价反推J值:=3KK-2DD,COLORFF0080;

{-【主力动向】,即原【SUPL】往事如风-QQ:105365158 经海量数据分析及精准校验--}

TMP:=LARGEINTRDVOL-LARGEOUTTRDVOL;

DDY动因:=IF(TRADENUM>0,(TRADEOUTNUM-TRADEINNUM)*100/TRADENUM,0);

L2有效显示数据:=IF(DDY动因>0 OR DDY动因<0 OR TMP>0 OR TMP<0,DDY动因,DRAWNULL),NODRAW;

涨跌动因%:IF(L2有效显示数据=DRAWNULL,DRAWNULL,(TRADEOUTNUM-TRADEINNUM)*100/TRADENUM),COLOR0080FF,NODRAW;

买卖力度%:IF(L2有效显示数据=DRAWNULL,DRAWNULL,(LARGEINTRDVOL-LARGEOUTTRDVOL)*100/VOL),COLOR0000FF,NODRAW;

动因柱:=IF(L2有效显示数据=DRAWNULL,DRAWNULL,(TRADEOUTNUM-TRADEINNUM)*(J100%价-J0%价)/TRADENUM),COLOR00CCFF,NODRAW;

力度柱:=IF(L2有效显示数据=DRAWNULL,DRAWNULL,(LARGEINTRDVOL-LARGEOUTTRDVOL)*(J100%价-J0%价)/VOL),COLOR0000FF,NODRAW;

RSVM:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*(J100%价-J0%价)+J0%价;

％K:=MA(RSVM,3);

％D:=MA(％K,3),COLORAA00DD;

GG:=DRAWBAND(％K,RGB(102,32,51),％D,RGB(0,64,16));

{VAR2:=REF(LOW,1);

VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;

VAR4:=EMA(VAR3*10,3);

VAR5:=LLV(LOW,13);

VAR6:=HHV(VAR4,13);

VAR7:=IF( BARSSINCE(C)>34,1,0);

VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR62)/2,0),3)/618VAR7;

VAR9:=IF(VAR8>100,100,VAR8);}

{吸筹:VAR9,LINETHICK0,COLOREE00EE;}

{STICKLINE(VAR9>-120,J0%价,VAR9,3,1);

STICKLINE(VAR9>1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),J0%价,VAR9,3,0),COLORRED;

STICKLINE(VAR9>0.1 AND VAR9<1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),J0%价,VAR9,3,0),COLOR00FFFF;}

STICKLINE(1,J100%价,J100%价,80,-1),COLOR606060;

STICKLINE(1,J80%价,J80%价,80,-1),COLOR606060;

STICKLINE(1,J50%价,J50%价,80,-1),COLOR606060;

STICKLINE(1,J20%价,J20%价,80,-1),COLOR606060;

{涨跌动因柱}

STICKLINE(动因柱>0 AND V>0,J50%价,动因柱+J50%价,2.3,0),COLOR005A66;

STICKLINE(动因柱>0 AND V>0,J50%价,动因柱+J50%价,1.7,0),COLOR006A88;

STICKLINE(动因柱>0 AND V>0,J50%价,动因柱+J50%价,1.0,0),COLOR007AAA;

STICKLINE(动因柱>0 AND V>0,J50%价,动因柱+J50%价,0.33,0),COLOR008ACC;

STICKLINE(动因柱<0 AND V>0,J50%价,动因柱+J50%价,2.3,0),COLOR003300;

STICKLINE(动因柱<0 AND V>0,J50%价,动因柱+J50%价,1.7,0),COLOR004400;

STICKLINE(动因柱<0 AND V>0,J50%价,动因柱+J50%价,1.0,0),COLOR005500;

STICKLINE(动因柱<0 AND V>0,J50%价,动因柱+J50%价,0.33,0),COLOR006000;

DRAWTEXT(CURRBARSCOUNT=K线个数,J100%价,'↖100％'),COLORA0A0A0;

DRAWTEXT(CURRBARSCOUNT=K线个数,J80%价,' ↖80％'),COLORA0A0A0;

DRAWTEXT(CURRBARSCOUNT=K线个数,J50%价,' ↖50％'),COLORA0A0A0;

DRAWTEXT(CURRBARSCOUNT=K线个数,J20%价,' ↖20％'),COLORA0A0A0;

DRAWTEXT(CURRBARSCOUNT=K线个数,J0%价,' ↖0％'),COLORA0A0A0;

{--价量乃为指标之母，亦即先有股价、成交量，始有指标的产生,成反向推算KDJ价--}

DRAWBAND(股价反推J值,RGB(204,0,255),股价反推J值,RGB(255,255,255));

DRAWBAND(KK,RGB(153,153,204),KK,RGB(255,255,255));

DRAWBAND(DD,RGB(128,128,0),DD,RGB(255,255,255));

{通达信主力雷达公式}

B1:=REF(C,1);B2:=REF(C,2);

SS:=IF(C>REF(C,1) AND REF(C,1)>=REF(C,2),1,IF(C<REF(C,1) AND REF(C,1)<=REF(C,2),-1,IF(C>REF(C,2) AND REF(C,2)>REF(C,1),2,IF(C<REF(C,2) AND REF(C,2)<REF(C,1),-2,0))));

SM:=IF(REF(SS,1)!=0,REF(SS,1),IF(REF(SS,2)!=0,REF(SS,2),IF(REF(SS,3)!=0,REF(SS,3),IF(REF(SS,5)!=0,REF(SS,5),IF(REF(SS,6)!=0,REF(SS,6),IF(REF(SS,7)!=0,REF(SS,7),0))))));

金底:=(SS=1 OR SS=2) AND SM<0;

绿顶:=(SS=-1 OR SS=-2) AND SM>0;

AA:=CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)<REF(CLOSE,3) AND IF(REF(CLOSE,3)<REF(CLOSE,4),1,IF(REF(CLOSE,4)<REF(CLOSE,5),REF(CLOSE,1)<REF(CLOSE,4) OR (REF(CLOSE,2)<REF(CLOSE,4) AND REF(CLOSE,3)>=REF(CLOSE,5)),IF(REF(CLOSE,5)<REF(CLOSE,6),1,REF(CLOSE,6)<REF(CLOSE,7))));

BB:=CLOSE<REF(CLOSE,1) AND REF(CLOSE,1)<REF(CLOSE,2) AND REF(CLOSE,1)>REF(CLOSE,3) AND IF(REF(CLOSE,3)>REF(CLOSE,4),1,IF(REF(CLOSE,4)>REF(CLOSE,5),REF(CLOSE,1)>REF(CLOSE,4) OR (REF(CLOSE,2)>REF(CLOSE,4) AND REF(CLOSE,3)<=REF(CLOSE,5)),IF(REF(CLOSE,5)>REF(CLOSE,6),1,REF(CLOSE,6)>REF(CLOSE,7))));

三平底:=AA AND CLOSE>REF(OPEN,2);

三平顶:=BB AND CLOSE<REF(CLOSE,2);

C_D1:=(3C+2O+L+H)/7;

WMA5:=(5C_D1+4REF(C_D1 ,1 )+3REF(C_D1 ,2 )+2REF(C_D1 ,3 )+REF(C_D1 ,4 ))/15 COLORYELLOW;

C_D2:=REVERSE(C_D1)+2*WMA5 COLORGREEN;

WMA5金叉:=CROSS(WMA5,C_D2*0.997);

WMA5死叉:=CROSS(C_D2,WMA5*0.997);

LC:=REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

主力:=EMA((CLOSE-MA(CLOSE,7))/MA(CLOSE,7)480,2)5,COLOR0000FF;

散户:=EMA((CLOSE-MA(CLOSE,11))/MA(CLOSE,11)480,7)5,COLOR00FF00;

DRAWICON(CROSS(主力,散户) AND 主力<-10 AND 散户>REF(散户,1) OR (CROSS(主力,散户) AND 散户<-35),J20%价,1);

DRAWTEXT(CROSS(主力,散户) AND 主力<-10 AND (WMA5金叉 OR 金底 OR 三平底),J20%价,8);

DRAWTEXT(CROSS(RSI1,25) AND (WMA5金叉 OR 金底 OR 三平底),J0%价,9);

DRAWTEXT(CROSS(85,RSI1),股价反推J值,10);

{买卖力度柱}

STICKLINE(力度柱>0,J50%价,力度柱+J50%价,0,0),COLOR0000CC;

STICKLINE(力度柱<0,J50%价,力度柱+J50%价,0,0),COLOR009940;

STICKLINE(1,J50%价,J50%价,80,-1),COLOR606060;

{--价量乃为指标之母，亦即先有股价、成交量，始有指标的产生,成反向推算KDJ价--};