以下是美化后的《机构动态》源码
C/C++ Code复制内容到剪贴板datelim:=1; a1:=(VOL/CLOSE)/3*datelim; a2:=SUM((IF(((a1>40) AND (CLOSE>(REF(CLOSE,1)))),a1,0)),0)*datelim; a3:=SUM((IF(((a1>40) AND (CLOSE<(REF(CLOSE,1)))),a1,0)),0)*datelim; a4:=SUM((IF(((a1<40) AND (CLOSE>(REF(CLOSE,1)))),a1,0)),0)*datelim; a5:=SUM((IF(((a1<40) AND (CLOSE<(REF(CLOSE,1)))),a1,0)),0)*datelim; a6:=((a2+a3)+a4)+a5; a7:=IF((BARSTATUS=2),((100*a2)/a6),0); a8:=((IF((BARSTATUS=2),((100*a3)/a6),0))); a9:=((IF((BARSTATUS=2),((100*a4)/a6),0))); a10:=((IF((BARSTATUS=2),((100*a5)/a6),0))); 机构买盘:a2,linethick2,COLORMAGENTA,precis0; 机构卖盘:a3,linethick2,CulorGREEN,precis0; 散户买盘:a4,dotline,linethick1,COLORcyan,precis0; 散户卖盘:a5,dotline,linethick1,COLORblue,precis0; DRAWTEXTREL(1003,50,’机构买盘’),linethick2,COLORMAGENTA; DRAWTEXTREL(1003,320,’机构卖盘’),linethick2,CulorGREEN; DRAWTEXTREL(1003,570,’散户买盘’),linethick2,COLORcyan; DRAWTEXTREL(1003,870,’散户卖盘’),linethick2,COLORblue; 0,dotline,linethick1,layer0; con1:=机构买盘>0 and ref(机构买盘,1)=0 and 机构买盘-机构卖盘>50; con2:=机构卖盘>0 and ref(机构卖盘,1)=0 and 机构买盘-机构卖盘<50; if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,-50,”+FLOOR(a7)+’%’),linethick1,COLORMAGENTA; if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,200,”+FLOOR(a8)+’%’),linethick1,CulorGREEN; if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,460,”+FLOOR(a9)+’%’),linethick1,coloryellow;
评论(0)