自動解盤

這是我在大陸網站找到的自動解盤公式
解盤
MA5:MA(C,5) colorwhite;
MA10:MA(C,10)coloryellow;
POLYLINE(C,MA(C,20)) color999999;
MA30:MA(C,30)colorgreen;
POLYLINE(C,MA(C,45)) color999999;
MA60:MA(C,60)colormagenta;
POLYLINE(C,MA(C,90)) color999999;
MA120:MA(C,120)colorcyan;
POLYLINE(C,MA(C,150)) color999999;
POLYLINE(C,MA(C,180)) color999999;
POLYLINE(C,MA(C,210)) color999999;
MA250:MA(C,250)colorred;
VK:=SQRT(VOL/CAPITAL*100*5);
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((MA5>MA10 and MA10>MA30 and MA5>MA30),'解：短期均線排列：多頭')COLORred;
EXPLAIN((MA5<MA10 and MA10<MA30 and MA5<MA30),'解：短期均線排列：空頭');
EXPLAIN((MA30>MA60 and MA30>MA120 and MA60>MA120),'解：中期均線排列：多頭');
EXPLAIN((MA30<MA60 and MA30<MA120 and MA60<MA120),'解：中期均線排列：空頭');
EXPLAIN((MA60>MA120 and MA120>MA250 and MA60>MA250),'解：長期均線排列：多頭');
EXPLAIN((MA60<MA120 and MA120<MA250 and MA60<MA250),'解：長期均線排列：空頭');
EXPLAIN((CROSS(MA5,MA10)),'解：短期均線5x10：金叉')COLORred;
EXPLAIN((CROSS(MA10,MA5)),'解：短期均線5x10：死叉');
EXPLAIN((CROSS(C,MA120)),'解：今日股價上穿半年線');
EXPLAIN((CROSS(MA120,C)),'解：今日股價跌破半年線');
EXPLAIN((CROSS(C,MA250)),'解：今日股價上穿一年線');
EXPLAIN((CROSS(MA250,C)),'解：今日股價跌破一年線');
EXPLAIN((CROSS(C,MA60) and CROSS(C,MA120) and CROSS(C,MA250)),'解：股價一陽上穿三線');
EXPLAIN((MA30>REF(MA30,1)),'解：30日均線趨勢：向上');
EXPLAIN((MA30>REF(MA30,1) AND MA30<REF(MA30,1)*1.001),'解：30日均線趨勢：走平');
EXPLAIN((MA30<REF(MA30,1)),'解：30日均線趨勢：向下');
EXPLAIN((MA5>REF(MA5,1)*1.015),'解：5日均線：強勁向上');
EXPLAIN((MA5>REF(MA5,1) AND MA5<REF(MA5,1)*1.005),'解：5日均線：方向不明');
EXPLAIN((MA5<REF(MA5,1)*0.985),'解：5日均線：快速向下');
DIFF:=EMA(C,5)-EMA(C,20);
DEA:=EMA(DIFF,10);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=JC AND DEA>0;
EXPLAIN((JC AND DEA>0),'解：MACD在0軸上金叉')COLORred;
EXPLAIN((JC AND DEA<0),'解：MACD在0軸下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0軸上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0軸下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的紅柱：增長');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的紅柱：縮短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的綠柱：增長');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的綠柱：縮短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0軸上金叉次數：2')COLORredCOLORred;
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0軸上金叉次數：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0軸上金叉次數：4');
日K:="KDJ.K#DAY"(20,5,5);
日D:="KDJ.D#DAY"(20,5,5);
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
EXPLAINEX((周K>0),'解：周線K=',周K,2,0);
EXPLAIN((周K<=20),'，低位');
EXPLAIN((周K>=80),'，高位');
EXPLAIN((周K>20 AND 周K<50),'，中低');
EXPLAIN((周K>50 AND 周K<80),'，中高');
EXPLAINEX((日K>0),'解：日線K=',日K,2,0);
EXPLAIN((日K<=20),'，低位');
EXPLAIN((日K>=80),'，高位');
EXPLAIN((日K>20 AND 日K<50),'，中低');
EXPLAIN((日K>50 AND 日K<80),'，中高');
EXPLAIN((CROSS(日K,日D)),'解：日K與日D今日金叉')COLORred;
EXPLAIN((CROSS(日D,日K)),'解：日K與日D今日死叉');
EXPLAIN((CROSS(周K,周D)),'解：周K與周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'解：周K與周D今日死叉');
EXPLAINICON(HIGH>=HHV(HIGH,20), 'MyBMP');
EM5:EMA(C,5) colorwhite;
EM10:EMA(C,10)coloryellow;
POLYLINE(C,EMA(C,20)) color999999;
EM30:EMA(C,30)colorgreen;
POLYLINE(C,EMA(C,45)) color999999;
EM60:EMA(C,60)colormagenta;
POLYLINE(C,EMA(C,90)) color999999;
EM120:EMA(C,120)colorcyan;
POLYLINE(C,EMA(C,150)) color999999;
POLYLINE(C,EMA(C,180)) color999999;
POLYLINE(C,EMA(C,210)) color999999;
EM250:EMA(C,250)colorred;
FILLRGN(EMA(C,5)>EMA(C,10),EMA(C,5),EMA(C,10))COLOR6699FF;
FILLRGN(EMA(C,5)<EMA(C,10),EMA(C,5),EMA(C,10))COLORFF6666;
{VK:=SQRT(VOL/CAPITAL*100*5);}
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((EM5>EM10 and EM10>EM30 and EM5>EM30),'解：短期均線排列：多頭');
EXPLAIN((EM5<EM10 and EM10<EM30 and EM5<EM30),'解：短期均線排列：空頭');
EXPLAIN((EM30>EM60 and EM30>EM120 and EM60>EM120),'解：中期均線排列：多頭');
EXPLAIN((EM30<EM60 and EM30<EM120 and EM60<EM120),'解：中期均線排列：空頭');
EXPLAIN((EM60>EM120 and EM120>EM250 and EM60>EM250),'解：長期均線排列：多頭');
EXPLAIN((EM60<EM120 and EM120<EM250 and EM60<EM250),'解：長期均線排列：空頭');
EXPLAIN((CROSS(EM5,EM10)),'解：短期均線5x10：金叉');
EXPLAIN((CROSS(EM10,EM5)),'解：短期均線5x10：死叉');
EXPLAIN((CROSS(C,EM120)),'解：今日股價上穿半年線');
EXPLAIN((CROSS(EM120,C)),'解：今日股價跌破半年線');
EXPLAIN((CROSS(C,EM250)),'解：今日股價上穿一年線');
EXPLAIN((CROSS(EM250,C)),'解：今日股價跌破一年線');
EXPLAIN((CROSS(C,EM60) and CROSS(C,EM120) and CROSS(C,EM250)),'解：股價一陽上穿三線');
EXPLAIN((EM30>REF(EM30,1)),'解：30日均線趨勢：向上');
EXPLAIN((EM30>REF(EM30,1) AND EM30<REF(EM30,1)*1.001),'解：30日均線趨勢：走平');
EXPLAIN((EM30<REF(EM30,1)),'解：30日均線趨勢：向下');
EXPLAIN((EM5>REF(EM5,1)*1.015),'解：5日均線：強勁向上');
EXPLAIN((EM5>REF(EM5,1) AND EM5<REF(EM5,1)*1.005),'解：5日均線：方向不明');
EXPLAIN((EM5<REF(EM5,1)*0.985),'解：5日均線：快速向下');
EXPLAIN((JC AND DEA>0),'解：MACD在0軸上金叉');
EXPLAIN((JC AND DEA<0),'解：MACD在0軸下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0軸上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0軸下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的紅柱：增長');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的紅柱：縮短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的綠柱：增長');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的綠柱：縮短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0軸上金叉次數：2');
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0軸上金叉次數：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0軸上金叉次數：4');
EXPLAINEX((周K>0),'解：周線K=',周K,2,0);
EXPLAIN((周K<=20),'，低位');
EXPLAIN((周K>=80),'，高位');
EXPLAIN((周K>20 AND 周K<50),'，中低');
EXPLAIN((周K>50 AND 周K<80),'，中高');
EXPLAINEX((日K>0),'解：日線K=',日K,2,0);
EXPLAIN((日K<=20),'，低位');
EXPLAIN((日K>=80),'，高位');
EXPLAIN((日K>20 AND 日K<50),'，中低');
EXPLAIN((日K>50 AND 日K<80),'，中高');
EXPLAIN((CROSS(日K,日D)),'解：日K與日D今日金叉')color999999;
EXPLAIN((CROSS(日D,日K)),'解：日K與日D今日死叉')COLORFF6666;
EXPLAIN((CROSS(周K,周D)),'解：周K與周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'解：周K與周D今日死叉');
FILLRGN(周K>周D,周K,周D)COLORMAGENTA;
FILLRGN(周K<周D,周K,周D)COLORFF9999;
FILLRGN(日K>日D,日K,日D)COLORRED;
FILLRGN(日K<日D,日K,日D)COLORGREEN;
STICKLINE(C>0,20,20,6,0)colorred;
STICKLINE(C>0,80,80,6,0)colorred;
STICKLINE(C>0,50,50,6,0)coloryellow;
EXPLAIN((周K<=20),'解：周線KD位置：低位');
EXPLAIN((周K>=80),'解：周線KD位置：高位');
EXPLAIN((周K>20 AND 周K<50),'解：周線KD位置：中低');
EXPLAIN((周K>50 AND 周K<80),'解：周線KD位置：中高');
EXPLAINEX((周K>0),'解：周位置，周K=',周K,2,1);
EXPLAIN((日K<=20),'解：日線KD位置：低位');
EXPLAIN((日K>=80),'解：日線KD位置：高位');
EXPLAIN((日K>20 AND 日K<50),'解：日線KD位置：中低');
EXPLAIN((日K>50 AND 日K<80),'解：日線KD位置：中高');
EXPLAINEX((日K>0),'解：日位置，日K=',日K,2,1);
EXPLAIN((CROSS(日K,日D)),'解：日K與日D今日金叉');
EXPLAIN((CROSS(日D,日K)),'解：日K與日D今日死叉');
EXPLAIN((CROSS(周K,周D)),'解：周K與周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'解：周K與周D今日死叉');
發給大家參考！也請各方高手能優化成適合台灣股市

公式檔

附件: 自動解盤.ALG
此文件已被下載 648 次。

參考圖

mead 附帶上了此圖片:

支持原碼

QQQ

感謝版大分享.