大智慧主图（金戈铁马），在出现买点处的选股

编写要求：

解答：

?网友求助：

主图源码，
{ 金戈铁马 }{主图叠加}{大智慧L2}{原公式限制：2009年 10月 19号}
MA30:MA(C,30),COLOR0000FF,LINETHICK1;
a1:=BIGORDER(1) - BIGORDER(2);
a2:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a3:=((DYNAINFO(104) - DYNAINFO(105)) / VOL) * 100;
a4:=WINNER(CLOSE) * 100;
a5:=DYNAINFO(102) - DYNAINFO(103);
a6:=DYNAINFO(101);
D:SUM(((EMA(((HIGH + LOW) / 2),1)) / 3),3),linethick1,colorYellow;
E:EMA(D,3),linethick1,colorWhite;
F:EMA(E,3),linethick1,colorMagenta;
DRAWGBK((((D > E) AND (E > F)) AND (LOW > F)),STRIP(RGB(200,100,150),RGB(5,2,5),0));
DRAWICON(((CROSS(D,E)) = 1),(D * 0.99),7),ALIGN1;
DRAWTEXT(((CROSS(D,E)) = 1),(D * 0.96),'买点'),ALIGN1,colorRed;
DRAWFLAGTEXT((CLOSE > 0),CLOSE,'…… '+STKNAME+' ('+STKLABEL+')'+' …… 价:'+NUMTOSTRN(CLOSE,3)),colorYellow;
DRAWFLAGTEXT((((DYNAINFO(104) - DYNAINFO(105)) > 0) AND (BARSTATUS = 2)),LOW,'机构净吃:'+NUMTOSTRN(a5,0)+'笔 '+'净吃量:'+NUMTOSTRN((DYNAINFO(104) - DYNAINFO(105)),0)+'手'+' 增仓'+NUMTOSTRN(((a3 * VOL) / CAPITAL),2)+'%'),colorRed;
DRAWFLAGTEXT((((DYNAINFO(104) - DYNAINFO(105)) < 0) AND (BARSTATUS = 2)),LOW,'机构净吐:'+NUMTOSTRN(a5,0)+'笔 '+'净吐量:'+NUMTOSTRN((DYNAINFO(104) - DYNAINFO(105)),0)+'手'+' 减仓'+NUMTOSTRN(((a3 * VOL) / CAPITAL),2)+'%'),colorGreen;
DRAWFLAGTEXT(((a6 > 0) AND (BARSTATUS = 2)),LOW,'机构净挂:'+NUMTOSTRN(a6,0)+'单, '+'买 单:'+NUMTOSTRN(DYNAINFO(99),0)+'单,'+' 卖单'+NUMTOSTRN(DYNAINFO(100),0)+' 单'),colorRed;
DRAWFLAGTEXT(((a6 < 0) AND (BARSTATUS = 2)),LOW,'机构净挂:'+NUMTOSTRN(a6,0)+'单, '+'买 单:'+NUMTOSTRN(DYNAINFO(99),0)+'单,'+' 卖单'+NUMTOSTRN(DYNAINFO(100),0)+' 单'),colorGreen;
DRAWFLAGTEXT((a1 >= 0),CLOSE,'主力净买：'+NUMTOSTRN((a1 * 100),2)+'% 增仓:'+NUMTOSTRN((((a1 * VOL) / CAPITAL) * 100),2)),colorRed;
DRAWFLAGTEXT((a1 < 0),CLOSE,'主力净卖：'+NUMTOSTRN((a1 * 100),2)+'% 减仓:'+NUMTOSTRN((((a1 * VOL) / CAPITAL) * 100),2)),colorGreen;
DRAWFLAGTEXT((a4 <= 15),CLOSE,'获 利 盘：'+NUMTOSTRN(a4,2)+'%'+' 价值区'),colorRed;
DRAWFLAGTEXT(((a4 > 15) AND (a4 < 50)),CLOSE,'获 利 盘：'+NUMTOSTRN(a4,2)+'%'+' 安全区');
DRAWFLAGTEXT((a4 >= 50),CLOSE,'获 利 盘：'+NUMTOSTRN(a4,2)+'%'+' 危险区'),colorYellow;
a7:=SUM((((a1 * VOL) / CAPITAL) * 100),5);
DRAWFLAGTEXT(((((a1 * VOL) / CAPITAL) * 100) < -0.7),CLOSE,'操盘建议： 主力出逃 赶快清仓'),colorGreen;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > -0.7) AND ((((a1 * VOL) / CAPITAL) * 100) < -0.3)),CLOSE,'操盘建议： 主力出货 适当减仓'),Color62EC9F;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > -0.3) AND ((((a1 * VOL) / CAPITAL) * 100) < 0.3)),CLOSE,'操盘建议： 远离观望 等待转机'),ColorF6B590;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > 0.3) AND ((((a1 * VOL) / CAPITAL) * 100) < 0.7)),CLOSE,'操盘建议： 持股待涨 适当补仓'),Color9F00EA;
DRAWFLAGTEXT((((((a1 * VOL) / CAPITAL) * 100) > 0.7) AND (a7 > 0)),CLOSE,'操盘建议： 主力强劲 买入补仓'),Color0080FF;
a8:=FINANCE2(35);
a9:=FINANCE2(37);
a10:=FINANCE2(3);
a11:=DYNAINFO(39);
a12:=FINANCE2(11);
a13:=FINANCE2(10);
a14:=PFFIN(1609,0);
a15:=FINANCE2(5);
DRAWTEXT((FILTER(((((a1 * VOL) / CAPITAL) * 100) < -0.7),5)),CLOSE,'逃'),linethick3,ALIGN1,colorGreen;
DRAWICON((FILTER(((((a1 * VOL) / CAPITAL) * 100) < -0.7),5)),(CLOSE * 0.95),2),ALIGN1,colorGreen;
DRAWTEXTABS(20,62,'主营范围:'+F10TEXT((F10FIND('主营范围',1)),10)),colorYellow;
DRAWTEXTABS(20,49,'所属板块:'+BKNAME),colorRed;
DRAWTEXTABS(240,10,'净利增长:'+NUMTOSTRN(a13,0)+'%'),colorYellow;
DRAWTEXTABS(140,10,'市 盈 率:'+NUMTOSTRN(a11,2)),colorYellow;
DRAWTEXTABS(20,10,'总 股 本:'+NUMTOSTRN((a8 / 10000),2)+'亿股'),colorYellow;
DRAWTEXTABS(240,23,'主营增长:'+NUMTOSTRN(a12,0)+'%'),colorYellow;
DRAWTEXTABS(140,23,'每股收益:'+NUMTOSTRN(a10,3)),colorYellow;
DRAWTEXTABS(20,23,'流通 A股:'+NUMTOSTRN((a9 / 10000),2)+'亿股'),colorYellow;
DRAWTEXTABS(240,36,'资产收益:'+NUMTOSTRN(a15,0)+'%'),colorYellow;
DRAWTEXTABS(140,36,'每股净资:'+NUMTOSTRN(FINANCE2(4),2)),colorYellow;
DRAWTEXTABS(20,36,'获 利 盘:'+NUMTOSTRN(a4,2)+'%'),colorYellow;
DRAWRECTABS(0,0,332,70,6558740),linethick5,Color00A1FF;
IF(((LLVALL(LOW) * 1.1) < HHVALL(HIGH)),(LLVALL(LOW) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((LLVALL(LOW) * 1.1) * 1.1) < HHVALL(HIGH)),((LLVALL(LOW) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((LLVALL(LOW) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF((((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
IF(((((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) < HHVALL(HIGH)),(((((((((((LLVALL(LOW) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1) * 1.1),HHVALL(HIGH)),DOTLINE,Color000046;
DRAWTEXTREL(20,910,'金戈铁马 qq00000000 群0000000 00000000'),linethick3,colorWhite;
?