大智慧KDJ+ MACD+均線結合解盤源碼[大智慧公式]

相關標簽: macd 與均線 、 macd與均線的最佳設置 、 macd與均線的綜合運用 、 macd+kd+20均線ea 、 macd套用均線八法 、 均線 趨勢 60分macd 、 均線上macd紅縮柱 、 均線發散macd拐點向上 、 macd均線的漲跌速度 、

大智慧KDJ+ MACD+均線結合解盤源碼

Var31:=SARTURN( 10,2 ,20 );
Var32:=ref(HIGH,1)*1.1;
Var33:=HIGH*1.1;
Var34:=(Var33*VOL+Var32*(CAPITAL-VOL))/CAPITAL;
Var35:=ref(LOW,1)*0.9;
Var36:=LOW*0.9;
Var37:=(Var36*VOL+Var35*(CAPITAL-VOL))/CAPITAL;
Var38:=EMA(Var37,20);
Var39:=EMA(Var34,20);
VarA:=Var39-1.5;
VarB:=IF(CLOSE<=Var38,VarA,Var39);
別樣:= VarB;
紅:= VarA;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=3 OR CXH=8));
DRAWTEXTREL(10 ,10 ,'程序化交易培訓');
DRAWFLAGTEXT(別樣=紅,C ,'股價嚴重超跌，階段底部可擇機買入');
股價趨勢:= 3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
買入:=IF(股價趨勢<=10,30,0);
DRAWFLAGTEXT(買入,C,'底部區域' );
Var8:=LLV(LOW,26);
Var6:=HHV(HIGH,34);
Var7:=EMA((CLOSE-Var8)/(Var6-Var8)*4,4)*25;
派發:=IF((Var7>90),-30,0);
DRAWFLAGTEXT(派發,C,'派發區域');

b1:=AMOUNT/VOL/500;
b2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
d3:=SUM(AMOUNT,13)/b1/500;
e4:=DMA(b2,VOL/d3); {內容來至程序化交易網 CXH99.COM}
A1:=(CLOSE-e4)/e4*500 ;
A2:=(CLOSE-e4)/e4*1000 ;
吸籌:=(CLOSE-MA(CLOSE,60))/MA(CLOSE,60)*500;
DRAWFLAGTEXT((ref(a1,1)<-80 and a1>ref(a1,1)or ref(吸籌,1)<-80 and 吸籌>ref(吸籌,1)), C,'歷史大底全倉買入');
Var3o:=ref(CLOSE,1);
Var4o:=SMA(MAX(CLOSE-Var3o,0),6,1)/SMA(ABS(CLOSE-Var3o),6,1)*100;
賣出:=CROSS(80,Var4o);
DRAWFLAGTEXT(賣出, C,'高度危險,清倉');
生命指數:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),Color00FFFF;
DRAWFLAGTEXT(IF(生命指數>92,生命指數,0),生命指數 ,'危險,清倉');
DRAWFLAGTEXT((VOL/CAPITAL)>0.075 ,C,
'換手過大，小心主力出逃，短期頭部');
K:="KD.K"(17,4,4);
D:="KD.D"(17,4,4);
K:="KD.K"(17,4,4);
D:="KD.D"(17,4,4);
DRAWFLAGTEXT(K>80 AND CROSS(D,K)=0,C,'KD指標提示該股已經處于超買狀態，如果KD指標死叉應及時賣出。');
DRAWFLAGTEXT(K<20 AND CROSS(K,D)=0,C,'KD指標提示該股已經處于超賣狀態，如果KD指標金叉應及時買入。');
DRAWFLAGTEXT(CROSS(K,D) AND LLV(K,3)<20,C,'KD低位金叉，建議買入。');
DRAWFLAGTEXT(CROSS(D,K) AND HHV(K,3)>80,C,'KD高位死叉，建議賣出。');
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
DRAWFLAGTEXT(cross("kdj.k"(9,3,3),"kdj.d"(9,3,3)) and"kdj.k"(9,3,3)<=20,C,'KDJ在20以下金叉，可關注！');
DRAWFLAGTEXT(cross("kdj.d"(9,3,3),"kdj.k"(9,3,3)) and"kdj.k"(9,3,3)>=80,C,'KDJ在80以上死叉，注意風險！');
DRAWFLAGTEXT("MAcd.MAcd"(12,26,9)>ref("MAcd.MAcd"(12,26,9),1) and "MAcd.MAcd"(12,26,9)>0,C,'MACD的紅柱增長。');
DRAWFLAGTEXT("MAcd.MAcd"(12,26,9)<ref("MAcd.MAcd"(12,26,9),1) and "MAcd.MAcd"(12,26,9)>0,C,'MACD的紅柱縮短。');
DRAWFLAGTEXT("MAcd.MAcd"(12,26,9)<ref("MAcd.MAcd"(12,26,9),1) and "MAcd.MAcd"(12,26,9)<0,C,'MACD的綠柱增長。');
DRAWFLAGTEXT("MAcd.MAcd"(12,26,9)>ref("MAcd.MAcd"(12,26,9),1) and "MAcd.MAcd"(12,26,9)<0,C,'MACD的綠柱縮短。');
DRAWFLAGTEXT(cross("MAcd.diff"(12,26,9),"MAcd.dea"(12,26,9)) and "MAcd.MAcd"(12,26,9)<=0,C,'MACD的DIFF與DEA在0軸或0軸下金叉。');
DRAWFLAGTEXT(cross(MA(c,10),MA(c,20)) and MA(c,5)>MA(c,10) and MA(c,10)>MA(c,20),C,'短期均線今日多頭排列。');
DRAWFLAGTEXT(cross(MA(c,20),MA(c,10)) and MA(c,5)<MA(c,10) and MA(c,10)<MA(c,20),C,'短期均線今日空頭排列。');
DRAWFLAGTEXT(MA(c,5)>=ref(MA(c,5),1) and count(ref(MA(c,5),1)<ref(MA(c,5),2),5)=5,C,'5日均線已開始走平或勾頭向上，股價有可能走出低部，密切關注！');
DRAWFLAGTEXT(cross(c,MA(c,5)),C,'今日股價站上5日均線！');
DRAWFLAGTEXT(cross(c,MA(c,10)),C,'今日股價站上10日均線！');
DRAWFLAGTEXT(cross(c,MA(c,20)),C,'今日股價站上20日均線！');
DRAWFLAGTEXT(cross(c,MA(c,30)),C,'今日股價站上30日均線！');
DRAWFLAGTEXT(cross(c,MA(c,60)),C,'今日股價站上60日均線！');
DRAWFLAGTEXT(cross(c,MA(c,120)),C,'今日股價站上120日均線！');
DRAWFLAGTEXT(cross(c,MA(c,240)),C,'今日股價站上240日均線！');
DRAWFLAGTEXT(cross(MA(c,5),c),C,'今日股價下穿5日均線！');
DRAWFLAGTEXT(cross(MA(c,10),c),C,'今日股價下穿10日均線！');
DRAWFLAGTEXT(cross(MA(c,20),c),C,'今日股價下穿20日均線！');
DRAWFLAGTEXT(cross(MA(c,30),c),C,'今日股價下穿30日均線！');
DRAWFLAGTEXT(cross(MA(c,60),c),C,'今日股價下穿60日均線！');
DRAWFLAGTEXT(cross(MA(c,120),c),C,'今日股價下穿120日均線！');
DRAWFLAGTEXT(cross(MA(c,240),c),C,'今日股價下穿240日均線！');
DRAWFLAGTEXT(MA(c,30)>MA(c,20) and MA(c,20)>MA(c,10) and MA(c,10)>MA(c,5) and c<MA(c,5) ,C,'5日、10日、20日、30日均線空頭排列，并且股價在5日均線之下，持幣觀望！');
DRAWFLAGTEXT(MA(c,5)>MA(c,10) and MA(c,10)>MA(c,20) and MA(c,20)>MA(c,30) and c>MA(c,5) ,C,'5日、10日、20日、30日均線多頭排列，并且股價在5日均線之上，可繼續持有！');



c1:=c/ref(eMA(c,30),30);
c2:=indexc/ref(eMA(indexc,30),30);
l1:=c1/c2*10-10;
c3:=c/MA(c,60);
c4:=indexc/MA(indexc,60);
l2:=c3/c4*10-10;
c5:=c/MA(c,120);
c6:=indexc/MA(indexc,120);
l3:=c5/c6*10-10;
L4:=MA(L1+L2+L3,5);
DRAWFLAGTEXT(ref(L4,1)>0 AND ref(L4,1)>ref(L4,2),C,'該股中長期走勢強于大盤，且近期繼續走強。');
DRAWFLAGTEXT(ref(L4,1)>0 AND ref(L4,1)<=ref(L4,2),C,'該股中長期走勢強于大盤，但近期有所走弱。');
DRAWFLAGTEXT(ref(L4,1)<=0 AND ref(L4,1)>ref(L4,2),C,'該股中長期走勢弱于大盤，但近期有所轉強。');
DRAWFLAGTEXT(ref(L4,1)<=0 AND ref(L4,1)<=ref(L4,2),C,'該股中長期走勢弱于大盤，且近期繼續走弱。');
半年線:=EMA(C,148);
年線:=EMA(C,250);
DRAWFLAGTEXT(C>=半年線,C,'股價在半年線之上');
DRAWFLAGTEXT(C>=年線,C,'股價在年線之上');
DRAWFLAGTEXT(C<半年線,C,'股價在半年線之下');
DRAWFLAGTEXT(C<年線,C,'股價在年線之下');
DRAWFLAGTEXT(半年線>=ref(半年線,1),C,'半年線趨勢向上'); {內容來至程序化交易網 CXH99.COM}
DRAWFLAGTEXT(年線>=ref(年線,1),C,'年線趨勢向上');
DRAWFLAGTEXT(半年線<ref(半年線,1),C,'半年線趨勢向下');
DRAWFLAGTEXT(年線<ref(年線,1),C,'年線趨勢向下');

TYP := (HIGH + LOW + CLOSE)/3;
貨幣比:=SUM(IF(TYP>ref(TYP,1),TYP*VOL,0),14)/SUM(IF(TYP<ref(TYP,1),TYP*VOL,0),14);
MFI:=100-(100/(1+貨幣比));
a1:=count(cross(mfi,80),20);
a2:=count(cross(20,mfi),20);
DRAWFLAGTEXT(mfi<20,C,'mfi指標在20以下處于超賣信號區,不久將要上漲') ;
DRAWFLAGTEXT(mfi>80,C,'mfi指標在80以上處于超買信號區,股價將要下跌') ;
DRAWFLAGTEXT(a1,C,'mfi指標在兩月前曾發出超買信號,表明股價將會下跌') ;
DRAWFLAGTEXT(a2,C,'mfi指標在兩月前曾發出超賣信號,表明股價將會上漲') ;
{蓋印}
DRAWRECTABS(0,0,30,35,rgb(250,60,80)),color000099;
DRAWRECTABS(0,30,30,45,rgb(250,250,80)),color009999;
DRAWTEXTABS(2,5,'金城'),colorFFFFFF,LINETHICK1;
DRAWTEXTABS(2,18,'特別'),colorFFFFFF,LINETHICK1;
DRAWTEXTABS(2,30,'優化'),color0000FF,LINETHICK1; {本文來至CXH99.COM}