老師麻煩改文華用
作者：文華財經 來源：cxh99.com 發布時間：2023年12月08日
-
咨詢內容：
?AA1:=(VOL/CLOSE)/3;AA2:=SUM((IF(((AA1>40) AND (CLOSE>(REF(CLOSE,1)))),AA1,0)),0);AA3:=SUM((IF(((AA1>40) AND (CLOSE<(REF(CLOSE,1)))),AA1,0)),0);AA4:=SUM((IF(((AA1<40) AND (CLOSE>(REF(CLOSE,1)))),AA1,0)),0);AA5:=SUM((IF(((AA1<40) AND (CLOSE<(REF(CLOSE,1)))),AA1,0)),0);AA6:=((AA2+AA3)+AA4)+AA5;AA7:=IF((BARSTATUS=2),((100*AA2)/AA6),0);AA8:=((IF((BARSTATUS=2),((100*AA3)/AA6),0)));AA9:=((IF((BARSTATUS=2),((100*AA4)/AA6),0)));AA10:=((IF((BARSTATUS=2),((100*AA5)/AA6),0)));機買:=(AA2),LINETHICK0;機賣:=(AA3),LINETHICK0;散買:=(AA4);散賣:=(AA5);總買:=AA2+AA4;總賣:=AA3+AA5;機構買比:=機買/總買*0.1,LINETHICK0;機構賣比:=機賣/總賣*0.1,LINETHICK0;
均價:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;
TT:=BARSCOUNT(C);前高:=REF(HHV(H,TT),1);突破:=CROSS(C,REF(HHV(H,TT),1)){ AND HHVBARS(VOL,TT)=0} AND C/均價<1.09 AND TT>1 AND TT<240;DRAWTEXT(CROSS(C,REF(HHV(H,TT),1)) AND {HHVBARS(VOL,TT)=0 AND} C/均價<1.09 AND TT>=1 AND TT<240 ,前高, '突',COLORRED;
主力掃盤:=COUNT(突破,13)>=3 AND CROSS(C,REF(HHV(H,TT),1)){ AND HHVBARS(VOL,TT)=0};DRAWTEXT(主力掃盤,前高, '掃盤',COLORYELLOW;
{已主力掃盤:=BARSLAST(主力掃盤)<13;DRAWTEXT(BARSLAST(主力掃盤)<8,(DYNAINFO(3))*9.5/10 , '已掃',COLORGREEN;}
全倉買進:=CROSS(C,REF(HHV(H,TT),1)) AND HHVBARS(VOL,TT)=0 AND C/均價<1.09 AND TT>1 AND TT<240 AND BARSLAST(主力掃盤)>=21;
DRAWTEXT(全倉買進 ,前高, '全倉',COLORCYAN;
VAR1:=EMA(EMA(C,13),13);控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;JJ:=DYNAINFO(11);P:=55;S:=8;M1:=3;能量:=(EMA(C,S)-EMA(C,P))*10;空頭:=EMA(能量,M1);BTJ11:=(C-JJ)/JJ<-0.03;BTJ2:=控盤>REF(控盤,1) AND 控盤<-0.2;BTJ3:=CROSS(能量,空頭) AND 能量<-0.3;BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);有莊:=BTJ811;DRAWTEXT(BTJ811,C*0.999,'有莊',COLORRED;
H1:=MAX(DYNAINFO(3),DYNAINFO(5));L1:=MIN(DYNAINFO(3),DYNAINFO(6));P1:=H1-L1;阻力:L1+P1*7/8,COLORGREEN,LINETHICK9;支撐:L1+P1*0.5/8,COLORYELLOW,LINETHICK9;{DRAWICON(LONGCROSS(支撐,C,2),C,25);DRAWICON(LONGCROSS(C,阻力,2),C,27);}
{資金流入:=SUM(IF(C>REF(C,1),C*V,0),FROMOPEN);資金流出:=-SUM(IF(C<REF(C,1),C*V,0),FROMOPEN);凈資金:=(資金流入+資金流出)/10000;
{DRAWTEXT_FIX(1,0.700,1-0.15,0,STRCAT(STRCAT('凈買】'CON2STR(凈資金,1)),''),COLORRED;}
KP:=DYNAINFO(4);ZX:=DYNAINFO(7);
{分時量}
{分時K}ZS:=DYNAINFO(3);ZG:=DYNAINFO(5);ZD:=DYNAINFO(6);OP:=500-(KP/ZS-1)*1200;CL:=500-(ZX/ZS-1)*1200;HI:=500-(ZG/ZS-1)*1200;LO:=500-(ZD/ZS-1)*1200;{N1:=IF(TIME2<125959,750,260);{360,860}N1:=IF(FROMOPEN>=120,250,750);Z1:=IF(ZX>=KP,255,0);Z2:=IF(ZX>=KP,0,255);Z3:=IF(ZX>=KP,0,255);
XA_1:=MAX(DYNAINFO(3),DYNAINFO(5));XA_2:=MIN(DYNAINFO(3),DYNAINFO(6));XA_3:=XA_1-XA_2;XA_4:=XA_2+XA_3*7/8;XA_5:=XA_2+XA_3*0.5/8;DRAWTEXT(LONGCROSS(XA_5,CLOSE,2),CLOSE,'買入',COLORMAGENTA;DRAWICON(LONGCROSS(XA_5,CLOSE,2),CLOSE,25);DRAWTEXT(LONGCROSS(CLOSE,XA_4,2),CLOSE,'賣出',COLORFFCC00;DRAWICON(LONGCROSS(CLOSE,XA_4,2),CLOSE,24);XA_6:=DYNAINFO(4);XA_7:=DYNAINFO(5);XA_8:=DYNAINFO(6);XA_9:=DYNAINFO(11);XA_10:=CLOSE;XA_11:=BARSCOUNT(XA_10);XA_12:=SUM(VOL*CLOSE,0)/SUM(VOL,0);XA_13:=MA(XA_10,XA_11);XA_14:=XA_13+2*STD(XA_10,3);XA_15:=XA_13-2*STD(XA_10,3);DRAWICON(CROSS(XA_12,XA_13),XA_12,38);XA_16:=TIME>93000;XA_17:=XA_10/REF(CLOSE,1)>1.02;XA_18:=XA_10/REF(CLOSE,1)<0.98;XA_19:=(HHV(XA_10,XA_11)-LLV(XA_10,XA_11))/XA_10<0.05;XA_20:=SMA(VOL,30,1);XA_21:=(XA_20-LLV(LLV(XA_20,1),30))/(HHV(HHV(XA_20,1),30)-LLV(LLV(XA_20,1),30))>0.95;XA_22:=XA_17 OR XA_18;XA_23:=XA_22=0 AND XA_19 AND XA_21 AND CROSS(XA_12,XA_13);DRAWTEXT(FILTER(XA_23,10),XA_12,506),COLORYELLOW;XA_24:=XA_22=0 AND XA_19 AND XA_21 AND CROSS(CLOSE,XA_12) AND CROSS(CLOSE,XA_13);DRAWTEXT(FILTER(XA_24,10),XA_12*0.99,507),COLORRED;
MA5:MA.MA1#DAY(5,10,20),NODRAW;DRAWTEXT_FIX(1,0.880,1-0.20,0,STRCAT(STRCAT('A5: 'CON2STR(MA5,2)),'#39)),COLORWHITE;MA10:MA.MA2#DAY(5,10,20),NODRAW;DRAWTEXT_FIX(1,0.880,1-0.15,0,STRCAT(STRCAT('A10:'CON2STR(MA10,2)),'#39)),COLORYELLOW;MA20:MA.MA3#DAY(5,10,20),NODRAW;DRAWTEXT_FIX(1,0.880,1-0.10,0,STRCAT(STRCAT('A20:'CON2STR(MA20,2)),'#39)),COLORMAGENTA;MA60:MA.MA4#DAY(5,10,20),NODRAW;DRAWTEXT_FIX(1,0.880,1-0.05,0,STRCAT(STRCAT('A60:'CON2STR(MA60,2)),'#39)),COLORGREEN;
攻擊量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;攻擊量A:=SUM(IF(C>REF(C,1),攻擊量*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;攻擊量B:=-SUM(IF(C<REF(C,1),攻擊量*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;攻擊流量:=攻擊量A+攻擊量B,COLORSTICK;攻擊比:=攻擊流量/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1;資金攻擊度:=IF(攻擊比>=0,(攻擊比+50),100-ABS((攻擊比-50)));資金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED;資金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00;資金出入:=資金流入+資金流出,COLORSTICK;資金比:=資金出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1;資金流量比:=IF(資金比>=0,(資金比+100)/2,100-ABS((資金比-100)/2));DRAWTEXT_FIX(1,0.200,0.87,0,STRCAT(STRCAT('金流量比'CON2STR(資金流量比,2)),'買'),COLORCYAN;DRAWTEXT_FIX(1,0.000,0.87,0,STRCAT(STRCAT('金攻擊度'CON2STR(資金攻擊度,2)),'％買'),COLORCYAN;
A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);成交額:=V*C/100,NODRAW;A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);A4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);A5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);A6:=((A2+A3)+A4)+A5;{好股票WWW.GOODGUPIAO.COM}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);
DD1:=1;AAA1:=STRCAT(STRCAT('構買入'CON2STR((100*A2)/A6,0)),'';AAA2:=STRCAT(STRCAT('構賣出'CON2STR((100*A3)/A6,0)),'';AAA0:=STRCAT(STRCAT('構總買入'CON2STR((100*(A2-A3))/A6,0)),'';AAA3:=STRCAT(STRCAT('戶買入'CON2STR((100*A4)/A6,0)),'';AAA4:=STRCAT(STRCAT('戶賣出'CON2STR((100*A5)/A6,0)),'';AAA5:=STRCAT(STRCAT('戶總買入'CON2STR((100*(A4-A5))/A6,0)),'';DRAWTEXT_FIX(DD1=1,0.000,1.00,0,AAA1),COLORRED;DRAWTEXT_FIX(DD1=1,0.150,1.00,0,AAA2),COLORGREEN;DRAWTEXT_FIX(DD1=1,0.300,1.00,0,AAA3),COLORRED;DRAWTEXT_FIX(DD1=1,0.450,1.00,0,AAA4),COLORGREEN;DRAWTEXT_FIX(DD1=1,0.600,1.00,0,AAA0),LINETHICK5,COLORYELLOW;DRAWTEXT_FIX(DD1=1,0.750,1.00,0,AAA5),LINETHICK5,COLORCYAN;
?
?來源:程序化99
-
文華技術人員：
參考附件文檔內容：
?下載信息??[文件大小：???下載次數：?]文件名：aa.txt
打印本文
關閉窗口