从网上搜集,组合而成的超赢1号选股公式,刚才发错地方,请多多包涵!多多指教!!
超赢1号池选股公式源码(转帖)
il:ref(ma(max(abs(ln(c)-ln(o)),abs(ln(c)-ln(ref(c,1))))/amount*100000000,10),1);
特大单源码: 特买:"分笔0.特买#tick",LINETHICK7,COLORred; 特卖:"分笔0.特卖#tick",LINETHICK7,COLORgreen; 特买:=特买; 特卖:=特卖; 特大净:特买-特卖,LINETHICK0,colorFFFF00; HS:=vol/capital; DD:=Sum(特大净,1); DT:=(特买+特卖); 当日总交易: DT, linethick0,coloryellow; STICKLINE(DT>0,特大净,特大净+DD,5,0),COLORRed; STICKLine(DT<0,特大净+DD,特大净,5,0),COLORGreen; 当日成交 := (DD * capital) * DYNAINFO(11)/10000; 买入手数 := (capital*DT)/100; 净买比:买入手数/vol,linethick0,COLORWHITE; if (当日成交>=0) then begin Str1:= '净买入:'+ NUMTOSTRN(当日成交,0)+'万元,'; Str2 := '净买入:'+ NUMTOSTRN(买入手数,0)+'手,'; Str3 := '当日增减度:' + NUMTOSTRN(DT,3); end; if 当日成交<0 then begin Str1:= '净卖出:'+ NUMTOSTRN(当日成交,0)+'万元,'; Str2 := '净卖出:'+ NUMTOSTRN(买入手数,0)+'手,'; Str3 := '当日增减度:' + NUMTOSTRN(DT,3); end; DRAWFLAGTEXT(DT>=0,特大净,Str1+str2+str3),COLORRED; DRAWFLAGTEXT(DT<0,特大净,Str1+str2+str3),COLORGREEN; DRAWTEXTREL(1,30,STKLABEL),ColorEEBB88;DRAWTEXTREL(85,30,STKNAME),ColorEEBB88;
{点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |