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);
機(jī)構(gòu)買:(A2),COLORRED,NODRAW;
機(jī)構(gòu)賣:(A3),COLORGREEN,NODRAW;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=0,機(jī)構(gòu)買,NULL)*SJFH,LINETHICK2,COLORRED;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)買,NULL)*SJFH,LINETHICK2,COLORRED;
?
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=0,機(jī)構(gòu)賣,NULL)*SJFH,LINETHICK2,COLORGREEN;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)賣,NULL)*SJFH,LINETHICK2,COLORGREEN;
機(jī)構(gòu)進(jìn)出:(機(jī)構(gòu)買-機(jī)構(gòu)賣)*SJFH,NODRAW;
散戶買:=(A4),COLOR5555FF;
散戶賣:=(A5),COLOR55FF55;
強(qiáng)勢:((100*A2)/A6>50)*SJFH;
STICKLINE(強(qiáng)勢,機(jī)構(gòu)買*1.02,機(jī)構(gòu)買*1.1,1,0),COLORYELLOW;
拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,機(jī)構(gòu)買*1.1,機(jī)構(gòu)買*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.tumamayizhan.com
?