發現牛股主圖公式

安裝後如下圖,友情提示(指標只是輔助,不作建議) 所有程序均為免費分享。

發現牛股主圖公式

M3:MA(CLOSE,3);M13:MA(CLOSE,13);M34:MA(CLOSE,34),COLORRED,LINETHICK2;

X:=BARSLAST(REF(CROSS(C,MA(C,120)),1)) AND CROSS(MA(C,20),MA(C,120));

IF(M34

STICKLINE(M3>=M13 AND M34>=REF(M34,1) ,H ,L ,0.1 ,0 ),COLOR0000DD;

STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLOR0000DD;

STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C

STICKLINE(M3=REF(M34,1) ,H ,L ,0.1 ,0 ),COLORFFBB00;

STICKLINE(M3=REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLORFFBB00;

STICKLINE(M3=REF(M34,1) AND C

STICKLINE(M3

STICKLINE(M3=O ,O ,C ,3 ,1 ),COLORFF0000;

STICKLINE(M3

STICKLINE(M3>=M13 AND M34

STICKLINE(M3>=M13 AND M34=O ,O ,C ,3 ,1 ),COLORFF00FF;

DRAWTEXT(X,MA(C,120)-0.13,'發現牛股'),LINETHICK3,COLORWHITE;

MVAR35:=100-3*SMA((CLOSE-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1),15,1);

MVAR36:=100-3*SMA((OPEN-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1),15,1);

MVAR37:=MVAR35REF(VOL,1) AND CLOSE>REF(CLOSE,1);

大資金:=(MVAR37 AND COUNT(MVAR37,30)=1),COLORRED;

DRAWTEXT((大資金=1),L,'大資金'),COLORYELLOW;

{基本面}

總股本:=STRCAT(STRCAT('總股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'億');

流通盤:=STRCAT(STRCAT(' 流通盤: ',CON2STR(CAPITAL/1000000,2)),'億');

市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'億');

每股公積金:=STRCAT(' 每股公積金:',CON2STR(FINANCE(18),2));

每股未分利潤:=STRCAT(' 每股未分利潤:',CON2STR(FINANCE(32),2));

每股淨資產:=STRCAT(' 每股淨資產:',CON2STR(FINANCE(34),2));

顯示內容:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(總股本,流通盤),市值),每股公積金),每股未分利潤),每股淨資產);

DRAWTEXT_FIX(ISLASTBAR,0,0.028.0,0,顯示內容),COLOR00C0C0;

AAA:=(3*C+H+L+O)/6;

VAR1AA:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)

+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;

波段線:VAR1AA,COLORRED,LINETHICK1;

{程序化指標官方網址 WWW.HONGHAIE.COM}

SHORT:=12;LONG:=26;MID:=9;

DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);

DEA:=EMA(DIF,MID);

空頭:STICKLINE((REF(MACD,1)>MACD ) AND (C波段線 AND 波段線

STICKLINE((REF(MACD,1)> MACD AND C

頭:STICKLINE(C

STICKLINE(( C

STICKLINE(空頭,C,O,2.8,0),COLOR555500;

STICKLINE(空頭,C,O,2,0),COLOR888800;

STICKLINE(空頭,C,O,1.5,0),COLORAAAA00;

STICKLINE(空頭,C,O,1,0),COLORCCCC00;

STICKLINE(空頭,C,O,0.5,0),COLOREEEE00;

STICKLINE(頭,C,O,2.8,0),COLOR555500;

STICKLINE(頭,C,O,2,0),COLOR888800;

STICKLINE(頭,C,O,1.5,0),COLORAAAA00;

STICKLINE(頭,C,O,1,0),COLORCCCC00;

STICKLINE(頭,C,O,0.5,0),COLOREEEE00;

AAK:=CLOSE/REF(C,1)>=1.097 AND C=H AND C>EMA(C,68);

STICKLINE(AAK,C,O,1.5,0),COLORYELLOW;

STICKLINE(AAK,O,C,0.2,0),COLOR0000FF;

超短:=100*(C-LLV(L,3))/(HHV(C,3)-LLV(L,3));

短期:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));

中期:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));

中長:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));

長期:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));

T2X:=MA(C,20)>REF(MA(C,20),1);

T3X:= V>MA(V,5) AND V>MA(V,63);

T4:=MACD.DIF>REF(MACD.DIF,1) AND MACD.DIF>MACD.DEA;

T5:= KDJ.K>REF(KDJ.K,1) AND KDJ.K>50;

T6:=短期>=99 AND 中期>=99 AND 中長>=99 AND 長期>=99;

T7:=H>=REF(C,1)*1.099 AND C>REF(C,1);

TTS:=T2X AND T3X AND T4 AND T5 AND T6,NODRAW;

漲停1:=C>=REF(C,1)*1.0990 AND C=H AND C>EMA(C,24);

STICKLINE(漲停1 AND TTS,O,C,2,0),COLOR0000FF;

STICKLINE(漲停1 AND TTS,O,O+(C-O)*2/3,2,0),COLORYELLOW;

STICKLINE(漲停1 AND TTS,O,O+(C-O)*1/2.5,2,0),COLORFF80FF;

IF(波段線

攻擊線:MA(C,3),COLORGRAY,LINETHICK1,DOTLINE;

IF(攻擊線>REF(攻擊線,1),攻擊線,DRAWNULL),COLORWHITE,LINETHICK1,DOTLINE;

IF(攻擊線

低點轉折:=DRAWICON(CROSS(ZIG(3,6),REF(ZIG(3,6),1)),L*0.98,9) ;

DRAWTEXT((低點轉折=1),L*0.99,'↖可以買進 '),COLOR1665F8;

高點轉折:=DRAWICON(CROSS(REF(ZIG(3,4),1),ZIG(3,4)),H*1.015,15);

DRAWTEXT((高點轉折=1),H*1.01,'↙走人'),COLOR77EE3E;

"


分享到:


相關文章: