MA8:=SJFH;
CAPITAL:=GETPRICE1('通股本';
AMOUNT:=AVPRICE*V;
A1:=SUM( IF(CLOSE>REF(CLOSE,1)&&DAYBARPOS>1,VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1)&&DAYBARPOS>1,-VOL/CAPITAL*100,0)),DAYBARPOS);
成交額:=(V*C/100)*SJFH,NODRAW;
A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1))))&&DAYBARPOS>1,成交額,0)),DAYBARPOS);
A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1))))&&DAYBARPOS>1,成交額,0)),DAYBARPOS);
A4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1))))&&DAYBARPOS>1,成交額,0)),DAYBARPOS);
A5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1))))&&DAYBARPOS>1,成交額,0)),DAYBARPOS);
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
A9:=IF((ISLASTBAR),((100*A4)/A6),0);
A10:=IF((ISLASTBAR),((100*A5)/A6),0);

機構買:(A2),COLORRED,NODRAW;
機構賣:(A3),COLORGREEN,NODRAW;

IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=0,機構買,NULL)*SJFH,LINETHICK2,COLORRED;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機構買,NULL)*SJFH,LINETHICK2,COLORRED;

?

IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=0,機構賣,NULL)*SJFH,LINETHICK2,COLORGREEN;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機構賣,NULL)*SJFH,LINETHICK2,COLORGREEN;

機構進出:(機構買-機構賣)*SJFH,NODRAW;
散戶買:=(A4),COLOR5555FF;
散戶賣:=(A5),COLOR55FF55;
強勢:((100*A2)/A6>50)*SJFH;
STICKLINE(強勢,機構買*1.02,機構買*1.1,1,0),COLORYELLOW;
拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,機構買*1.1,機構買*1.2,1,0),COLORRED;

Q:=BETWEEN(C/(SUM(AMOUNT,DAYBARPOS)/SUM(VOL*100,DAYBARPOS)),1.05,0.95);
Q2:=IF(Q=0,MA(C,DAYBARPOS),(SUM(AMOUNT,DAYBARPOS)/SUM(VOL*100,DAYBARPOS)));

?

?來源:程序化99

?

?來源: www.kzuj.com.cn

?