[大智慧]大智慧首日创业源码公式

我是一个兵

大智慧首日创业源码公式：
A:=STRTONUM(STKLABEL);
B:=STRFIND('300001,300002,300003,300004,300005,300006,300007,300008,300009,300010,300011,300012,300013,300014,300015,300016,300017,300018,300019,300020,300021,300022,300023,300024,300025,300026,300027,300028,',STR(A),1);
A1:=STRMID('18.60, 49.40, 30.40, 14.40, 20.00, 18.00 ,27.97, 24.25, 14.10, 15.50, 34.60, 19.60, 15.99, 16.80, 23.40, 22.50, 15.60, 28.00, 18.60, 20.28, 10.50, 19.14, 18.72, 36.45, 16.38, 54.12, 23.70, 10.00',B,5);
A2:=STRMID('47.60, 104.4, 50.00, 45.00, 45.00, 28.00, 55.00, 42.00, 35.00, 35.04, 61.05, 28.42, 28.10, 37.00, 39.61, 26.95, 27.30, 45.90, 31.36, 32.00, 14.00, 22.04, 22.05, 40.00, 19.63, 65.00, 40.32, 18.70',B,5);
AA:=STRTONUM(A1);
AAA:=STRTONUM(A2);
if b<>0 then FILLRGN(AA,AAA,C,RGB(0,255,0));
现价:C;
均价:sum(C*V,BARPOS)/sum(V,BARPOS);
预测换手:=if(BARPOS<40,(sum(Vol,0)*(241/BARPOS))*0.8,(sum(Vol,0)*(241/BARPOS)))/CAPITAL*100;
DRAWTEXTREL(5,5,'预测换手率：'+预测换手),Color0000FF,LINETHICK3;
{**************************************************}
S1:=INTPART(STKINDI('300001','CYB.A3')*100)+0.01;
S2:=INTPART(STKINDI('300002','CYB.A3')*100)+0.02;
S3:=INTPART(STKINDI('300003','CYB.A3')*100)+0.03;
S4:=INTPART(STKINDI('300004','CYB.A3')*100)+0.04;
S5:=INTPART(STKINDI('300005','CYB.A3')*100)+0.05;
S6:=INTPART(STKINDI('300006','CYB.A3')*100)+0.06;
S7:=INTPART(STKINDI('300007','CYB.A3')*100)+0.07;
S8:=INTPART(STKINDI('300008','CYB.A3')*100)+0.08;
S9:=INTPART(STKINDI('300009','CYB.A3')*100)+0.09;
S10:=INTPART(STKINDI('300010','CYB.A3')*100)+0.10;
S11:=INTPART(STKINDI('300011','CYB.A3')*100)+0.11;
S12:=INTPART(STKINDI('300012','CYB.A3')*100)+0.12;
S13:=INTPART(STKINDI('300013','CYB.A3')*100)+0.13;
S14:=INTPART(STKINDI('300014','CYB.A3')*100)+0.14;
S15:=INTPART(STKINDI('300015','CYB.A3')*100)+0.15;
S16:=INTPART(STKINDI('300016','CYB.A3')*100)+0.16;
S17:=INTPART(STKINDI('300017','CYB.A3')*100)+0.17;
S18:=INTPART(STKINDI('300018','CYB.A3')*100)+0.18;
S19:=INTPART(STKINDI('300019','CYB.A3')*100)+0.19;
S20:=INTPART(STKINDI('300020','CYB.A3')*100)+0.20;
S21:=INTPART(STKINDI('300021','CYB.A3')*100)+0.21;
S22:=INTPART(STKINDI('300022','CYB.A3')*100)+0.22;
S23:=INTPART(STKINDI('300023','CYB.A3')*100)+0.23;
S24:=INTPART(STKINDI('300024','CYB.A3')*100)+0.24;
S25:=INTPART(STKINDI('300025','CYB.A3')*100)+0.25;
S26:=INTPART(STKINDI('300026','CYB.A3')*100)+0.26;
S27:=INTPART(STKINDI('300027','CYB.A3')*100)+0.27;
S28:=INTPART(STKINDI('300028','CYB.A3')*100)+0.28;
VAR1:=MAX(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S10,S12,S13,S14);
VAR2:=MAX(S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,S27,S28);
VAR0:=MAX(VAR1,VAR2);
VOR:=FRACPART(VAR0)*100;
DRAWTEXTREL(5,100,'强势股：   3000'+STRLEFT(STR(VOR),2)),Colorffffff,LINETHICK3;