【通達(dá)信】半倉操作主圖指標(biāo)公式

攻城獅 2015.11.09 05:11

M:=6;
{關(guān)鍵位預(yù)測}
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,13)*21+C,49);
預(yù)測:IF(買線<賣線,REFDATE(HHV(H,34),DATE)-(REFDATE(HHV(H,34),DATE)-REFDATE(LLV(L,34),DATE))*(1-0.236),REFDATE(LLV(L,34),DATE)+(REFDATE(HHV(H,34),DATE)-REFDATE(LLV(L,34),DATE))*(1-0.236)),COLORYELLOW,NODRAW;
HUGO:=IF(買線>賣線,REFDATE(LLV(L,34),DATE)+(REFDATE(HHV(H,34),DATE)-REFDATE(LLV(L,34),DATE))*(1-0.236),DRAWNULL),COLORRED;
{半倉操作判斷}
D頂:REFDATE(HHV(H,34),DATE),COLORMAGENTA;
D底:REFDATE(LLV(L,34),DATE),COLORLIBLUE;
機構(gòu)買入:=L2_AMO(0,2)/100000000.0,NODRAW;
機構(gòu)賣出:=-L2_AMO(0,3)/100000000.0,NODRAW;
機構(gòu)凈買:=機構(gòu)買入+機構(gòu)賣出,NODRAW;
累計:=EMA(機構(gòu)凈買,50)*60,NODRAW;
均值:=EMA(累計,MIN(10,10)),NODRAW;
STICKLINE(累計>0,D頂,D底,6,0),COLOR1B0E8B;
STICKLINE(累計<0,D頂,D底,6,0),COLOR6B6B12;
{持股持幣判斷}
DRAWBAND(MA(DKX,M),RGB(10,100,10),DKX,RGB(180,10,10));
持股:IF(DKX>=MA(DKX,M),1,DRAWNULL),COLORRED,NODRAW;
持幣:IF(DKX 阻二:(D頂+(D頂+(D頂+D底)/2)/2)/2,COLOR00BB00,DOTLINE;
阻一:(D頂+(D頂+D底)/2)/2,COLOR00BB00,DOTLINE;
中線:(D頂+D底)/2,COLORDD99DD,DOTLINE;
撐一:(D底+中線)/2,COLOR00BB00,DOTLINE;
撐二:(D底+撐一)/2,COLOR33BB33,DOTLINE;
{立柱量判斷}
均價1:=(3*C+H+L+O)/6;
VAR1AA:=(8*均價1+7*REF(均價1,1)+6*REF(均價1,2)+5*REF(均價1,3)+4*REF(均價1,4)+3*REF(均價1,5)+2*REF(均價1,6)+REF(均價1,8))/36;
VAR2A:=(LLV(VAR1AA,2)+LLV(VAR1AA,4)+LLV(VAR1AA,6))/3;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND C>VAR1AA;
立樁量:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(立樁量)=1 AND C>REF(H,1),1,IF(BARSLAST(立樁量)=2 AND C>REF(H,2),1,IF(BARSLAST(立樁量)=3 AND C>REF(H,3),1,0)));
突破:=TJ2=1;
TJ3:=IF(BARSLAST(立樁量)=1 AND C>REF(L,1),1,IF(BARSLAST(立樁量)=2 AND C>REF(L,2),1,IF(BARSLAST(立樁量)=3 AND C>REF(L,3),1,0)));
三天法則:=TJ3=1;
成立:=三天法則 AND 突破;
條件成立:=FILTER(成立,3),COLORF0099F,NODRAW;
STICKLINE(立樁量>=1,L,H,8,0),COLORF0099F;
STICKLINE(C,REF(H,BARSLAST(立樁量)),REF(H,BARSLAST(立樁量)),3,-1),COLORCYAN;
STICKLINE(C,REF(L,BARSLAST(立樁量)),REF(L,BARSLAST(立樁量)),3,-1),COLORYELLOW;
DRAWTEXT(條件成立,L*0.995,’成立’),COLORMAGENTA;
{主升浪判斷}
A101:=EMA(CLOSE,5)>EMA(CLOSE,6) AND EMA(CLOSE,6)>EMA(CLOSE,7) AND EMA(CLOSE,7)>EMA(CLOSE,8) AND EMA(CLOSE,8)>EMA(CLOSE,9)
AND EMA(CLOSE,9)>EMA(CLOSE,10) AND EMA(CLOSE,10)>EMA(CLOSE,11) AND EMA(CLOSE,11)>EMA(CLOSE,12)
AND EMA(CLOSE,12)>EMA(CLOSE,13) {AND EMA(CLOSE,13)>EMA(CLOSE,14) AND EMA(CLOSE,14)>EMA(CLOSE,15)};
A102:=EMA(CLOSE,15){EMA(CLOSE,15)}>EMA(CLOSE,21) AND EMA(CLOSE,21)>EMA(CLOSE,34) AND EMA(CLOSE,34)>EMA(CLOSE,55) AND EMA(CLOSE,55)>EMA(CLOSE,89)
AND EMA(CLOSE,89)>EMA(CLOSE,144) AND EMA(CLOSE,144)>EMA(CLOSE,233);
A1:= A101 AND A102;
短升:IF(A101,1,DRAWNULL),COLORFF00FF,NODRAW;
中升:IF(A1,1,DRAWNULL),COLORRED,NODRAW;
STICKLINE(A101,L,H,6,0),COLOR006666;
STICKLINE(A101 AND A102,L,H,4,0),COLOR660066;
{K線圖}
DRAWKLINE(H,O,L,C);
{30日量能平臺}
T1:=CONST(HHVBARS(V,30));
量30:IF(CURRBARSCOUNT<=30+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),COLORYELLOW;
{均線}
MA5:MA(C,5),COLORFFFFFF,LINETHICK2;
MA13:=MA(C,13),COLORWHITE,LINETHICK1;
MA21:=MA(C,21),COLOREE00EE,LINETHICK2;
MA34:=MA(C,34),COLOR00DDDD,LINETHICK1;
MA55:=MA(C,55),COLOR00FFFF,LINETHICK2;
操盤:DKX,COLOR00FF00,LINETHICK3;
IF(MA5>=REF(MA5,1),MA5,DRAWNULL),COLORFF00FF,LINETHICK2;
IF(DKX>REF(DKX,1),DKX,DRAWNULL),COLORFF00FF,LINETHICK3;
{多空買賣判斷}
VAR1:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));
VAR2:=((REF(VAR1,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR3:=((REF(VAR2,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR4:=((REF(VAR3,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR5:=((REF(VAR4,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR6:=((REF(VAR5,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR7:=((REF(VAR6,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR8:=((REF(VAR7,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR9:=((REF(VAR8,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARA:=((REF(VAR9,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VARB:=((REF(VARA,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARC:=((REF(VARB,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
多:=(((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC);
STICKLINE(多,L,H,0,0),COLOR0000FF;
STICKLINE(多 AND C>=O,C,O{REF(C,1)},3,1),COLOR0000FF;
STICKLINE(多 AND C VARD:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));
VARE:=((REF(VARD,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARF:=((REF(VARE,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR10:=((REF(VARF,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR11:=((REF(VAR10,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR12:=((REF(VAR11,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR13:=((REF(VAR12,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR14:=((REF(VAR13,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR15:=((REF(VAR14,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR16:=((REF(VAR15,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR17:=((REF(VAR16,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR18:=((REF(VAR17,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
空:=(((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18);
STICKLINE(空,H,L,0 ,0 ),COLOR00FF00;
STICKLINE(空 AND C>=O,C,O{REF(C,1)},3,1),COLOR00FF00;
STICKLINE(空 AND C VAR19:=(REF((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),1) AND VAR1);
VAR1A:=(REF((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),1) AND VARD);
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0 ),COLORDDDDDD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORFF8800;
DRAWICON(VAR19,L*0.995,1);
DRAWICON(VAR1A,H*1.005,2);
STICKLINE(CURRBARSCOUNT=1,預(yù)測,預(yù)測,100,-1),COLOR00FFFF;
STICKLINE(CURRBARSCOUNT=1,HUGO,HUGO,100,-1),COLORFF00FF;
DRAWTEXT(ISLASTBAR,預(yù)測,’ 【預(yù)測關(guān)鍵位】’),COLORFFFFFF,LINETHICK1;
DRAWTEXT((A101=1 AND REF(A101,1)=0),O,’短主升’),COLOR00FFFF;
DRAWTEXT((A1=1 AND REF(A1,1)=0),O*0.985,’中長升’),COLOR00FFFF;
IF(CURRBARSCOUNT=T1+1,量30,DRAWNULL),CIRCLEDOT,COLORDD00FF,LINETHICK3;
DRAWTEXT(ISLASTBAR,量30,’ 30量能平臺’);
{DRAWTEXT(ISLASTBAR,D頂,’ D頂’),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,D底,’ D底’),COLORLIBLUE;}
DRAWTEXT(ISLASTBAR,中線,’ 中線’),COLORDD99DD;
DRAWTEXT(ISLASTBAR,阻一,’ 阻一’),COLOR00BB00;
DRAWTEXT(ISLASTBAR,阻二,’ 阻二’),COLOR00BB00;
DRAWTEXT(ISLASTBAR,撐一,’ 撐一’),COLOR00BB00;
DRAWTEXT(ISLASTBAR,撐二,’ 撐二’),COLOR33BB33;
{DRAWTEXT_FIX(1,0.12,0.95,0,’【短線】紅白柱買入，藍(lán)綠柱賣出。’ ),COLORFFDD00;};
T6:=IF(FINDSTR(EXTERNSTR(0,1),’，’),STRCAT(‘千股千評：’,EXTERNSTR(0,1)),”);
NNN:=IF(TOTALBARSCOUNT>=120,120,TOTALBARSCOUNT);
{本輸出適用于鎖定K線數(shù)為120,N可改為你習(xí)慣的K線數(shù),見下圖}
HH0:=HHV(H,NNN);
LL0:=LLV(L,NNN);
MM0:=CONST((HH0+LL0)*0.5);
S01:=CONST(IF(REF(C,NNN-15)>MM0,1.00,-0.08));
S02:=CONST(IF(REF(C,NNN-15)>MM0,-1,1));
S6:=IF(FINDSTR(EXTERNSTR(0,1),’，’),S01+(0.08*S02),S01);
DRAWTEXT_FIX(1,0,S6,0,T6)COLOR0000FF;