文華技術(shù)人員:?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,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),LINETHICK2,COLORRED;IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)買,NULL),LINETHICK2,COLORRED; IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=0,機(jī)構(gòu)賣,NULL),LINETHICK2,COLORGREEN;IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)賣,NULL),LINETHICK2,COLORGREEN;K:=TIME>=1034;機(jī)構(gòu)進(jìn)出:機(jī)構(gòu)買-機(jī)構(gòu)賣,NODRAW;散戶買:=(A4),COLOR5555FF;散戶賣:=(A5),COLOR55FF55;強(qiáng)勢(shì):((100*A2)/A6>50);STICKLINE(強(qiáng)勢(shì)&&K,機(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(拉升&&K,機(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)));DRAWICON(CROSS((C/Q2)&&K,1.03),機(jī)構(gòu)買,5);DD1:=1; 機(jī)構(gòu)買入:(100*A2)/A6,NODRAW;機(jī)構(gòu)賣出:(100*A3)/A6,NODRAW;散戶買入:(100*A4)/A6,NODRAW;散戶賣出:(100*A5)/A6,NODRAW; DRAWNUMBER(CLOSEMINUTE<=BARINTERVAL&&K||ISLASTBAR&&K,機(jī)構(gòu)買,機(jī)構(gòu)買/A6*100,2,COLORRED),ALIGN0,FONTSIZE25,VALIGN2;DRAWNUMBER(CLOSEMINUTE<=BARINTERVAL&&K||ISLASTBAR&&K,機(jī)構(gòu)買,機(jī)構(gòu)賣/A6*100,2,COLORGREEN),ALIGN0,FONTSIZE25,VALIGN0; DRAWTEXT(REFX(ISLASTBAR,1)&&機(jī)構(gòu)買>機(jī)構(gòu)賣&&K,機(jī)構(gòu)賣,'',COLORRED,ALIGN0,FONTSIZE25;DRAWTEXT(REFX(ISLASTBAR,1)&&機(jī)構(gòu)買<機(jī)構(gòu)賣&&K,機(jī)構(gòu)賣,'',COLORGREEN,ALIGN0,FONTSIZE25;
網(wǎng)友回復(fù):?CAPITAL:=GETPRICE1('通股本';AMOUNT:=AVPRICE*V;QW:=BARSLAST(TIME=1034)+1;A1:=SUM( IF(CLOSE>REF(CLOSE,1)&&QW>1,VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1)&&QW>1,-VOL/CAPITAL*100,0)),QW);成交額:=V*C/100,NODRAW;A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1))))&&QW>1,成交額,0)),QW);A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1))))&&QW>1,成交額,0)),QW);A4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1))))&&QW>1,成交額,0)),QW);A5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1))))&&QW>1,成交額,0)),QW);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(QW=1,BARPOS),2)=0,機(jī)構(gòu)買,NULL),LINETHICK2,COLORRED;IF(MOD( COUNT(QW=1,BARPOS),2)=1,機(jī)構(gòu)買,NULL),LINETHICK2,COLORRED; IF(MOD( COUNT(QW=1,BARPOS),2)=0,機(jī)構(gòu)賣,NULL),LINETHICK2,COLORGREEN;IF(MOD( COUNT(QW=1,BARPOS),2)=1,機(jī)構(gòu)賣,NULL),LINETHICK2,COLORGREEN; 機(jī)構(gòu)進(jìn)出:機(jī)構(gòu)買-機(jī)構(gòu)賣,NODRAW;散戶買:=(A4),COLOR5555FF;散戶賣:=(A5),COLOR55FF55;強(qiáng)勢(shì):((100*A2)/A6>50);STICKLINE(強(qiáng)勢(shì),機(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,QW)/SUM(VOL*100,QW)),1.05,0.95);Q2:=IF(Q=0,MA(C,QW),(SUM(AMOUNT,QW)/SUM(VOL*100,QW)));DRAWICON(CROSS((C/Q2),1.03),機(jī)構(gòu)買,5);DD1:=1; 機(jī)構(gòu)買入:(100*A2)/A6,NODRAW;機(jī)構(gòu)賣出:(100*A3)/A6,NODRAW;散戶買入:(100*A4)/A6,NODRAW;散戶賣出:(100*A5)/A6,NODRAW; DRAWNUMBER(CLOSEMINUTE<=BARINTERVAL||ISLASTBAR,機(jī)構(gòu)買,機(jī)構(gòu)買/A6*100,2,COLORRED),ALIGN0,FONTSIZE25,VALIGN2;DRAWNUMBER(CLOSEMINUTE<=BARINTERVAL||ISLASTBAR,機(jī)構(gòu)買,機(jī)構(gòu)賣/A6*100,2,COLORGREEN),ALIGN0,FONTSIZE25,VALIGN0; DRAWTEXT(REFX(ISLASTBAR,1)&&機(jī)構(gòu)買>機(jī)構(gòu)賣,機(jī)構(gòu)賣,'',COLORRED,ALIGN0,FONTSIZE25;DRAWTEXT(REFX(ISLASTBAR,1)&&機(jī)構(gòu)買<機(jī)構(gòu)賣,機(jī)構(gòu)賣,'',COLORGREEN,ALIGN0,FONTSIZE25;