改為文華6使用
作者：文華財經(jīng) 來源：cxh99.com 發(fā)布時間：2023年05月20日
-
咨詢內(nèi)容：
?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),LINETHICK6,COLORRED;
IF(MOD(
COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)買,NULL),LINETHICK6,COLORRED;
IF(MOD(
COUNT(DAYBARPOS=1,BARPOS),2)=0,機(jī)構(gòu)賣,NULL),LINETHICK6,COLORGREEN;
IF(MOD(
COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)賣,NULL),LINETHICK6,COLORGREEN;
機(jī)構(gòu)進(jìn)出:機(jī)構(gòu)買-機(jī)構(gòu)賣,NODRAW;
散戶買:=(A4),COLOR5555FF;
散戶賣:=(A5),COLOR55FF55;
強(qiáng)勢:((100*A2)/A6>50);
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)));
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;
DAYBARPOS>2&&REF(CROSS(機(jī)構(gòu)買入,機(jī)構(gòu)賣出)||DAYBARPOS=2&&機(jī)構(gòu)買入>機(jī)構(gòu)賣出,1),NOTICE;
//前一根K線如果是 ： 機(jī)構(gòu)買入 上穿? ?機(jī)構(gòu)賣出? 或者是當(dāng)日第一根K線?
機(jī)構(gòu)買入大于機(jī)構(gòu)賣出 都可以預(yù)警
XXZ:CROSS(機(jī)構(gòu)買入,機(jī)構(gòu)賣出)||DAYBARPOS=2&&機(jī)構(gòu)買入>機(jī)構(gòu)賣出,NODRAW;
DAYBARPOS>2&&EXIST(CROSS(機(jī)構(gòu)買入,機(jī)構(gòu)賣出)||DAYBARPOS=2&&機(jī)構(gòu)買入>機(jī)構(gòu)賣出,DAYBARPOS)&&REF(?
? ? C>LLV( IF(XXZ,C,9999999) ,DAYBARPOS)? ,1),NOTICE;
//如果當(dāng)日存在第一次預(yù)警 ，后續(xù)價格大于第一次預(yù)警的收盤價
則預(yù)警
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;? ?老師你好，幫忙改為文華6使用可以嗎，謝謝
?
?來源:程序化99
-
文華技術(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),LINETHICK6,COLORRED;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)買,NULL),LINETHICK6,COLORRED;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=0,機(jī)構(gòu)賣,NULL),LINETHICK6,COLORGREEN;
IF(MOD( COUNT(DAYBARPOS=1,BARPOS),2)=1,機(jī)構(gòu)賣,NULL),LINETHICK6,COLORGREEN;
機(jī)構(gòu)進(jìn)出:機(jī)構(gòu)買-機(jī)構(gòu)賣,NODRAW;
散戶買:=(A4),COLOR5555FF;
散戶賣:=(A5),COLOR55FF55;
強(qiáng)勢:((100*A2)/A6>50);
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)));
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;
//前一根K線如果是 ： 機(jī)構(gòu)買入 上穿? ?機(jī)構(gòu)賣出? 或者是當(dāng)日第一根K線? 機(jī)構(gòu)買入大于機(jī)構(gòu)賣出 都可以預(yù)警
XXZ:CROSS(機(jī)構(gòu)買入,機(jī)構(gòu)賣出)||DAYBARPOS=2&&機(jī)構(gòu)買入>機(jī)構(gòu)賣出,NODRAW;
//如果當(dāng)日存在第一次預(yù)警 ，后續(xù)價格大于第一次預(yù)警的收盤價 則預(yù)警
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;
打印本文
關(guān)閉窗口