請路過高手和老師，對通達信《跟莊分時指標》編輯一個預(yù)警公式。
           條件：在機買（紅線）出現(xiàn)時，預(yù)警
源碼{精品中的精品?。。?！}
A1:=(DVOL/C)/2,NODRAW;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
機買:(A2/A6)*100,LINETHICK2,COLORRED;
機賣:(A3/A6)*100,LINETHICK2,COLORGREEN;
散買:(A4/A6)*100,LINETHICK0;
散賣:(A5/A6)*100,LINETHICK0;
主力差:機買-機賣,LINETHICK2,NODRAW;
散戶差:散買-散賣,LINETHICK0,NODRAW;
DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.75,'●機構(gòu)'),COLORRED;
DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.75,'○機構(gòu)'),COLORWHITE;
DRAWTEXT(散戶差>0 AND REF(散戶差,1)<=0,C*0.25,'▲散戶'),COLORCYAN;
DRAWTEXT(散戶差<0 AND REF(散戶差,1)>=0,-C*0.25,'△散戶'),COLORWHITE;

 

預(yù)警公式。
A1:=(DVOL/C)/2,NODRAW;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
機買:(A2/A6)*100,LINETHICK2,COLORRED;
機賣:(A3/A6)*100,LINETHICK2,COLORGREEN;
散買:(A4/A6)*100,LINETHICK0;
散賣:(A5/A6)*100,LINETHICK0;
主力差:機買-機賣,LINETHICK2,NODRAW;
散戶差:散買-散賣,LINETHICK0,NODRAW;
DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.75,'●機構(gòu)'),COLORRED;
DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.75,'○機構(gòu)'),COLORWHITE;
DRAWTEXT(散戶差>0 AND REF(散戶差,1)<=0,C*0.25,'▲散戶'),COLORCYAN;
DRAWTEXT(散戶差<0 AND REF(散戶差,1)>=0,-C*0.25,'△散戶'),COLORWHITE;