|
以下是通达信天下无敌6精准选股副图源码（无源码的请下载附件导入）
盘底:15,COLORGREEN;
盘顶:85,COLORMAGENTA;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1),COLORYELLOW;
D:=SMA(K,3,1),COLORYELLOW,;
STICKLINE(K>D,K,D,2,0),COLORLIRED;
STICKLINE(D>K,K,D,2,0),COLORLIBLUE;
VAR1:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR2:=(CLOSE-MA(CLOSE,26))/MA(CLOSE,21)*100;
VAR3:=(CLOSE-MA(CLOSE,90))/MA(CLOSE,34)*100;
VAR4:=(VAR1+3*VAR2+9*VAR3)/13;
VAR5:=(100-ABS(VAR4));
VAR6:=LLV(LOW,10);
VAR7:=HHV(HIGH,25);
黄:EMA((CLOSE-VAR6)/(VAR7-VAR6)*4,4)*25,COLORYELLOW, LINETHICK2;
白:SMA(黄,2 ,1),COLORWHITE;
DRAWICON(CROSS(黄,白),(黄,白),1);
ZKK:="KD.K#WEEK"(9,3,3);
ZKD:="KD.D#WEEK"(9,3,3);
KCD:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)<30,13);
KCD1:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)>30,13);
XG1:=KCD;
DIFW:="MACD.DIF#WEEK"(12,26,9);
DEAW:="MACD.DEA#WEEK"(12,26,9);
P:=10;A:=5;
FCA:=FILTER(CROSS(DIFW,DEAW) AND REF(DEAW,1)<0,13);
XG2:=FCA;
RSV0:=((((HHV(HIGH,P) - CLOSE) / (HHV(HIGH,P) - LLV(LOW,P))) * 200) - 125);
散户:=SMA(RSV0,A,1)+15;
RSV1:=((((CLOSE - LLV(LOW,P)) / (HHV(HIGH,P) - LLV(LOW,P))) * 200) - 105);
主力:=SMA(RSV1,A,1)+15;
XG3:=CROSS(主力,散户);
选股: XG2 AND FCA;
STICKLINE(选股,0,20,3,0),COLOR0000FF;
STICKLINE(选股,20,40,2,0),COLORGREEN;
STICKLINE(选股,40,80,1,0),COLORMAGENTA;
DRAWTEXT(选股,40,'天下无敌'),COLORYELLOW;
624366287.jpg
624400541.rar
(3.43 KB, 下载次数: 0, 售价: 4 金钱)
|
