这个源码也是网上发现的，原来是通达信版本的，我一直想改成大智慧，没人帮忙，昨天才自己尝试着改动完毕，无未来函数。
市盈率:IF (FINANCE2(3)>0,DYNAINFO(39),0)*0.35,COLORYELLOW;
每股收益:IF (FINANCE2(3)>0.01, FINANCE2(3)*0.65,0),COLORYELLOW;
基本面价咯:每股收益*市盈率*4,COLORWHITE;
正收益率:=IF (FINANCE2(3)>0.01 AND FINANCE2(4)>0, FINANCE2(3)*6,0);
正市盈率:=IF (FINANCE2(3)>0.01 AND FINANCE2(4)>0, FINANCE2(4)*4,0);
蓝筹系数:(正收益率+1/正市盈率)/10*100,COLORBLUE;
平均成本线:COST(50),COLORRED;
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10);
VAR4:=LLV(LOW,33);
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);
接盘:=IF(VAR5>REF(VAR5,1),VAR5,0);
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0,1 ),COLORRED;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3.1,0 ),COLOR000033;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.7,0 ),COLOR000066;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.1,0 ),COLOR000099;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1.5,0 ),COLOR0000CC;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.9,0 ),COLOR0000FF;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.3,0 ),COLORCC66FF;
拉盘:=IF(VAR5<REF(VAR5,1),VAR5,0);
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0,1 ),COLORGREEN;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLOR005500;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.6,0),COLOR007700;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.1,0),COLOR009900;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1.5,0),COLOR00BB00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.9,0),COLOR00DD00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.3,0),COLOR66FF66;
VAR12:=SMA(ABS(VAR1-H),13,1)/SMA(MAX(VAR1-H,0),10,1);
VAR13:=EMA(VAR12,10);
VAR14:=HHV(H,33);
VAR15:=EMA(IF(H>=VAR14,VAR13,0),3);
冲顶:=IF(VAR15>REF(VAR15,1),VAR15,0);
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,3,0),COLORFF00FF;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,3,0 ),COLOR550055;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,2.6,0 ),COLOR770077;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,2.1,0 ),COLOR990099;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,1.5,0 ),COLORBB00BB;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,0.9,0 ),COLORDD00DD;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,0.3,0 ),COLORFF00FF;
出场:=IF(VAR15<REF(VAR15,1),VAR15,0);
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,3,0 ),COLORYELLOW;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,3,0),COLOR005555;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,2.6,0),COLOR007777;
STICKLINE(VAR15<REF(VAR5,1),0,VAR15,2.1,0),COLOR009999;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,1.5,0),COLOR00BBBB;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,0.9,0),COLOR00DDDD;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,0.3,0),COLOR00FFFF;
VAR42:=REF(LOW,1);
VAR43:=SMA(ABS(LOW-VAR42),3,1)/SMA(MAX(LOW-VAR42,0),3,1)*100;
VAR44:=EMA(IF(CLOSE*1.3,VAR43*10,VAR43/10),3);
VAR45:=LLV(LOW,13);
VAR46:=HHV(VAR44,13);
VAR47:=IF(MA(CLOSE,34),1,0);
VAR48:=EMA(IF(LOW<=VAR45,(VAR44+VAR46*2)/2,0),3)/618*VAR47;
VAR49:=IF(VAR48>100,100,VAR48);
吸筹:=VAR49;
VAR111:=REF(LOW,1);
VAR121:=SMA(ABS(LOW-VAR111),3,1)/SMA(MAX(LOW-VAR111,0),3,1)*100;
VAR131:=EMA(IF(CLOSE*1.2,VAR121*10,VAR121/10),3);
VAR141:=LLV(LOW,38);
VAR151:=HHV(VAR131,38);
VAR16:=IF(LLV(LOW,90),1,0);
VAR17:=EMA(IF(LOW<=VAR141,(VAR131+VAR151*2)/2,0),3)/618*VAR16;
VAR18:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
VAR19:=SMA(VAR18,13,8);
趋势:CEILING(SMA(VAR19,13,8)),COLORMAGENTA;
成本:MA(3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*
SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1),5),COLORYELLOW;
M:=60;
N:=30;
散户线:100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),COLORCYAN;
波段防御:90,COLORGREEN;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,5,1);
|
