{竞价掘金评分系统}
ZDXS:=IF(CODELIKE('30')OR CODELIKE('68'),0.2,IF(CODELIKE('4') OR CODELIKE('8'),0.3,0.1));
涨停价:=IF(FINANCE(3)=2,ZTPRICE(REF(C,1),0.3),IF((FINANCE(3)=4 OR (DATE>1200822 AND FINANCE(3)=3)),ZTPRICE(REF(C,1),0.2),IF(NAMELIKE('ST'),ZTPRICE(REF(C,1), IF(DATE<1260706,0.05,0.1)),ZTPRICE(REF(C,1),0.1)))),NODRAW,COLORRED;
跌停价:=IF(FINANCE(3)=2,DTPRICE(REF(C,1),0.3),IF((FINANCE(3)=4 OR (DATE>1200822 AND FINANCE(3)=3)),DTPRICE(REF(C,1),0.2),IF(NAMELIKE('ST'),DTPRICE(REF(C,1), IF(DATE<1260706,0.05,0.1)),DTPRICE(REF(C,1),0.1)))),NODRAW,COLORGREEN;
历史竞价量S:=IF(HIGH>=ZTPRICE(REF(C,1),ZDXS), GPJYVALUE(25,1,0),0);
历史竞价额Y:=IF(HIGH>=ZTPRICE(REF(C,1),ZDXS), 历史竞价量S*O*100,0);
历史开换手Z:=IF(HIGH>=ZTPRICE(REF(C,1),ZDXS), (历史竞价量S*10000)/FINANCE(46),0);
竞额:=IF(ISLASTBAR,DYNAINFO(15),历史竞价额Y);
竞价涨幅 : OPEN / REF(CLOSE,1) * 100 - 100;
竞价额 :=竞额;
流通市值 :=CAPITAL * 100 * OPEN;
流通市值亿:流通市值/100000000;
竞价换手 : 竞价额 / 流通市值 * 100;
昨日涨幅 := REF(CLOSE,1) / REF(CLOSE,2) * 100 - 100;
昨涨停 :=涨停价{ REF(CLOSE,1) / REF(CLOSE,2) > 1.095};
异动类型 :=5;{先预设有异动,选出股票再看竞价有没有封涨停,尾盘抢筹异动}
涨幅分 := IF(竞价涨幅>=3 AND 竞价涨幅<=5.5, 1, IF(竞价涨幅>=2, 0.88, IF(竞价涨幅>=1.5, 0.65, IF(竞价涨幅>0, 0.4, 0.15))));
换手分 := IF(竞价换手>=0.8, 1, IF(竞价换手>=0.4, 0.88, IF(竞价换手>=0.2, 0.72, IF(竞价换手>=0.08, 0.5, IF(竞价换手>0, 0.3, 0.1)))));
WWWGSPTCOM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
异动分 := IF(异动类型=5, 1, IF(异动类型=4, 0.85, IF(异动类型=3, 0.6, 0.18)));
市值分 := IF(流通市值/100000000<30, 1, IF(流通市值/100000000<60, 0.88, IF(流通市值/100000000<120, 0.68, IF(流通市值/100000000<250, 0.45, 0.22))));
昨涨分 := IF(昨日涨幅>=3 AND 昨日涨幅<9.5, 0.9, IF(昨日涨幅>=1, 0.65, IF(昨日涨幅>=0, 0.4, IF(昨日涨幅>-3, 0.25, 0.15))));
综合分 :(涨幅分*34 + 换手分*32 + 异动分*17 + 市值分*11 + 昨涨分*6) / (34+32+17+11+6) * 100;
可信度 : MIN(90, MAX(55, 65 + IF(异动分>=4,10,0) + IF(竞价换手>=0.4,8,0) + IF(竞价涨幅>=2 AND 竞价涨幅<=6.5,7,0)));
IF(综合分>80,综合分,DRAWNULL),COLORRED,LINETHICK3;
剔除ST := NOT(NAMELIKE('ST') OR NAMELIKE('*ST'));
剔除停牌 := VOL>0 AND OPEN>0;
剔除昨板 := NOT(昨涨停);
竞价值 := 竞价涨幅 < 7;
市值小 := 流通市值/100000000 < 100;
选股: 剔除ST AND 剔除停牌 AND 剔除昨板 AND 竞价值 AND 市值小 AND (综合分>=65 OR 可信度>=65);