这个源码也是网上发现的，原来是通达信版本的，我一直想改成大智慧，没人帮忙，昨天才自己尝试着改动完毕，无未来函数。
 市盈率: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  STICKLINE(VAR5  STICKLINE(VAR5  STICKLINE(VAR5  STICKLINE(VAR5  STICKLINE(VAR5  STICKLINE(VAR5  STICKLINE(VAR5  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  STICKLINE(VAR15  STICKLINE(VAR15  STICKLINE(VAR15