通達信價值引力副圖指標公式原始碼

指标公式分享發表於2024-03-09
{ 通達信價值引力副圖指標公式原始碼 }


VARA:=EMA(REF(CLOSE,1),4);
色彩峰:(SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100);
{STICKLINE(色彩峰,0,150,5,0),COLORDDA85C;}
{STICKLINE(色彩峰,0,-50,5,0),COLORE7B400;}
STICKLINE(色彩峰>0,0,色彩峰,5,0),COLOR1E1E64;
AA:=100*EMA((100*(HIGH-REF(LOW,1))/REF(LOW,1)-2.618),2);
VARA1:=VOL/CAPITAL/100< 0.015;
VARA2:=C/REF(C,1)> 1.05 AND C>O;
VARA3:=CLOSE<=1.47*LLV(CLOSE,58) AND CLOSE<=15;
VARA4:=(-100)*(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3));
VARZ:=IF(VARA1 AND VARA2 AND VARA4<40,1,0);
PF1 :=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
RSV:=SMA(PF1,9,1);
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD1:=2000* (2*(DIFF-DEA))/EMA(C,30);
FASTK1:=SMA(RSV,3,1);
K1:=SMA(FASTK1,2,1), COLORYELLOW;
D1:=SMA(K1,5,1),COLOR006CB5;
T3:=(K1-D1)>REF((K1-D1),5);
STICKLINE(MACD1>=0,0,MACD1,4,0) ,COLOR666666;
STICKLINE(MACD1>=0 AND MACD1>REF(MACD1,1),0,MACD1,3,0),COLORAAAAAA;
STICKLINE(MACD1<0,0, 0.3*MACD1,4,0), COLOR666666;
STICKLINE(MACD1<0 AND MACD1>REF(MACD1,1),0,0.3*MACD1,3,0),COLOR9A9A9A;
RSV2:= (CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
FASTK:=SMA(RSV2,3,1);
K:SMA(FASTK,2,1), COLORYELLOW;
D:=SMA(K,5,1),COLOR006CB5;
多方拱橋:IF(K1>=D1,D1,DRAWNULL),NODRAW,COLORRED;
空方拱橋:IF(K1<=D1,D1,DRAWNULL),NODRAW,COLORGREEN;
STICKLINE(K1>=D1,D1,K1,3,0),COLORRED;
STICKLINE(K1<=D1,D1,K1,3,0),COLORBLUE;
跟莊多頭:IF(K>=D,D,DRAWNULL),NODRAW,COLORMAGENTA;
跟莊空頭:IF(K<=D,D,DRAWNULL),NODRAW,COLORLICYAN;
STICKLINE(K>=D,D,K,1,0),COLORMAGENTA;
STICKLINE(K<=D,D,K,1,0),COLORWHITE;
{短進:DRAWICON(CROSS(MACD1,150),150,1);}
DRAWTEXT(色彩峰<3.5,-30,'■'),COLORDBDBDB;
DRAWTEXT(色彩峰<3.5,-30,'?'),COLORC18E68;
DRAWTEXT(CROSS(色彩峰,90),98,'?'),COLORFFFFFF;
DRAWICON(CROSS(MACD1,150),150,1);
出航:FILTER(MACD1<0 AND MACD1>REF(MACD1,1) AND 色彩峰<20,5), COLORBROWN;
DRAWICON(MACD1>0 AND MACD1>REF(MACD1,1)*2 AND REF(MACD1,1)>0,0,9);
DRAWTEXT(FILTER(MACD<0 AND MACD>REF(MACD,1) AND 色彩峰<20,5) AND T3,-1,'▲'),COLORFFFFFF;
拋壓籌碼:IF(色彩峰>0,色彩峰,DRAWNULL),NODRAW,COLOR1E1E64;
主控力度:IF(MACD1>=0,MACD1,DRAWNULL),NODRAW ,COLOR666666;
價值引力:IF(MACD1<0,MACD1,DRAWNULL),NODRAW ,COLOR666666;
DRAWTEXT_FIX(1,0.00,0.00,0,'【紅】多方拱橋'),COLORRED;
DRAWTEXT_FIX(1,0.10,0.00,0,'【白】空方拱橋'),COLORWHITE;
DRAWTEXT_FIX(1,0.20,0.00,0,'【粉】跟莊多頭'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.30,0.00,0,'【藍】跟莊空頭'),COLORBLUE;
DRAWTEXT_FIX(1,0.40,0.00,0,'【紫】拋壓籌碼'),COLOR1E1E64;
DRAWTEXT_FIX(1,0.50,0.00,0,'【灰】主控力度'),COLOR666666;
DRAWTEXT_FIX(1,0.60,0.00,0,'【-灰】價值引力'),COLOR666666;

相關文章