kd與macd共振同圖指標公式[其他軟件公式]

相關標簽:macd背離指標公式副圖 、 神奇kd指標副圖公式 、 macd日紅副圖指標公式 、 kd指標與macd的搭配 、 kd與macd共振指標 、 macd主圖指標公式 、 kdj和macd副圖指標 、 分時副圖macd指標 、 李氏macd副圖指標 、 通達信macd副圖公式 、 kd與macd同圖 、 kd圖與macd的區別 、 優化kd副圖指標 、 kd背離副圖指標 、 鐵鍋戰法macd副圖指標 、

?

kdMACD副圖源碼

?

原理解析：
RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 輸出K:RSV的3日[1日權重]移動平均,線寬為2,畫白色 輸出D:K的3日[1日權重]移動平均,線寬為2,COLOR00DDDD 輸出J:3*K-2*D,線寬為2,COLOR800080 輸出DIFF:收盤價的12日指數移動平均-收盤價的26日指數移動平均,線寬為0,COLOR0099FF 輸出DEA :DIFF的9日指數移動平均,線寬為0,COLORD89837 輸出平滑異同平均:2*(DIFF-DEA),COLORFF9999,線寬為0 YLZC賦值:如果收盤價=大盤的收盤價,返回(大盤的收盤價+大盤的最高價+大盤的最低價+大盤的開盤價)/4,否則返回成交額(元)/(成交量(手)+0.01)/100 阻價賦值:如果收盤價=大盤的收盤價,返回YLZC+大盤的收盤價-大盤的最低價,否則返回YLZC+(收盤價-最低價) 支價賦值:如果收盤價=大盤的收盤價,返回大盤的最低價+大盤的收盤價-YLZC,否則返回最低價+(收盤價-YLZC) 輸出今壓:1日前的阻價,線寬為0,COLORAA11BB 輸出今撐:1日前的支價,線寬為0,COLOR009900 輸出明壓:阻價,線寬為0 輸出明撐:支價,線寬為0 RSV1賦值:(9.8日內最高價的最高值-收盤價)/(9.8日內最高價的最高值-9.8日內最低價的最低值)*101 KK賦值:RSV1的3日[1日權重]移動平均 DD賦值:KK的3日[1日權重]移動平均 JJ賦值:3*KK-2*DD 買賣賦值:如果JJ>=100,返回100,否則返回如果JJ<=0,返回0,否則返回JJ 輸出明天買:如果買賣=100,返回0-10,否則返回0,COLOR00CCCC 輸出明天賣:如果買賣=0,返回90,否則返回100,COLOR00FF00 KX賦值:250 KH賦值:KX日內K的最高值 DH賦值:KX日內D的最高值 JH賦值:KX日內J的最高值 KL賦值:KX日內K的最低值 DL賦值:KX日內D的最低值 JL賦值:KX日內J的最低值 HKMAX賦值:KH和DH和JH的較大值的較大值 LKMIN賦值:KL和DL和JL的較小值的較小值 KHLB賦值:(HKMAX+LKMIN)/2 KHLC賦值:HKMAX-LKMIN MHF賦值:KX日內DIFF的最高值 MHD賦值:KX日內DEA的最高值 MHM賦值:KX日內MACD的最高值 MLF賦值:KX日內DIFF的最低值 MLD賦值:KX日內DEA的最低值 MLM賦值:KX日內MACD的最低值 HMAX賦值:MHF和MHD和MHM的較大值的較大值 LMIN賦值:MLF和MLD和MLM的較小值的較小值 FHLB賦值:(HMAX-LMIN)/100 FHLC賦值:HMAX-LMIN SH賦值:(0-FHLB)*(KHLC/FHLC)+KHLB DIFFA賦值:(DIFF-FHLB)*(KHLC/FHLC)+KHLB DEAA賦值:(DEA-FHLB)*(KHLC/FHLC)+KHLB MACDA賦值:(MACD-FHLB)*(KHLC/FHLC)+KHLB CDA賦值:MACD<1日前的MACD AND MACD>0 CDB賦值:MACD>=1日前的MACD AND MACD>0 CDC賦值:MACD>1日前的MACD AND MACD<0 CDD賦值:MACD<=1日前的MACD AND MACD<0 當滿足條件CDA時,在SH和MACDA位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00AAFF 當滿足條件CDA時,在SH和MACDA位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLOR0066AA 當滿足條件CDA時,在SH和MACDA位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLOR0099DD 當滿足條件CDA時,在SH和MACDA位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR00BBEE 當滿足條件CDA時,在SH和MACDA位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR00DDFF 當滿足條件CDA時,在SH和MACDA位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件CDB時,在SH和MACDA位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR0000AA 當滿足條件CDB時,在SH和MACDA位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLOR0011BB 當滿足條件CDB時,在SH和MACDA位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLOR0022CC 當滿足條件CDB時,在SH和MACDA位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR0033DD 當滿足條件CDB時,在SH和MACDA位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR0044EE 當滿足條件CDB時,在SH和MACDA位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR0055FF 當滿足條件CDC時,在SH和MACDA位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORAA00BB 當滿足條件CDC時,在SH和MACDA位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLORBB1177 當滿足條件CDC時,在SH和MACDA位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLORCC2299 當滿足條件CDC時,在SH和MACDA位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORDD33AA 當滿足條件CDC時,在SH和MACDA位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOREE44BB 當滿足條件CDC時,在SH和MACDA位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFF55BB 當滿足條件CDD時,在SH和MACDA位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF7700 當滿足條件CDD時,在SH和MACDA位置之間畫柱狀線,寬度為6.6,0不為0則畫空心柱.,COLORAA7711 當滿足條件CDD時,在SH和MACDA位置之間畫柱狀線,寬度為4.4,0不為0則畫空心柱.,COLORCC9922 當滿足條件CDD時,在SH和MACDA位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOREEBB33 當滿足條件CDD時,在SH和MACDA位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORFFCC44 當滿足條件CDD時,在SH和MACDA位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFFDD55 //PARTLINE(DIFFA,DIFF>0,自定色,DIFF<0,自定色) //PARTLINE(DEAA,DEA>0,自定色,DEA<0,自定色) 當滿足條件數據位置狀態=2時,在SH位置書寫文字,COLOR00AAAA TYP賦值:(最高價+最低價+收盤價)/3 當滿足條件DIFF>1日前的DIFF時,在20和20位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色 當滿足條件DIFF<1日前的DIFF時,在20和20位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色 當滿足條件K>=1日前的KORK>DANDDIFF>1日前的DIFF時,在80和80位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,畫紅色 當滿足條件K<1日前的K時,在80和80位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,畫綠色 MACD金叉賦值:MACD上穿DIFF AND MACD>=(0-0.05) AND MACD<=0.02 當滿足條件MACD金叉時,在MACDA*0.82位置書寫文字,COLOR00FFFF XX賦值:最低價的3日簡單移動平均*0.96的30日指數移動平均 DIFF金叉賦值:如果DIFF上穿DEAANDXX-1日前的XX>0ANDMACD>=1日前的MACDANDDIFF<=0,返回1,否則返回0 當滿足條件DIFF金叉=1時,在DIFFA*1.68位置書寫文字,COLORCDFFBB 低位金叉賦值:DIFF上穿DEA AND DIFF<-0.1 當滿足條件低位金叉時,在DEAA*0.99位置書寫文字,COLOR0099DD DIFDEA賦值:統計上次DEA>=0距今天數日中滿足DIFF上穿DEA的天數 二次金叉賦值:DIFF上穿DEA AND DEA<0 AND 統計21日中滿足DIFDEA=2的天數=1 當滿足條件二次金叉時,在DEAA*0.99-8位置書寫文字,COLORFF00FF A1賦值:上次1日前的DIFF上穿DEA距今天數 底背離賦值:A1+1日前的收盤價>收盤價 AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA 當滿足條件底背離時,在DEAA*0.99-16位置書寫文字,COLOR0099FF A2賦值:上次1日前的DEA上穿DIFF距今天數 頂背離賦值:A2+1日前的收盤價<收盤價 AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF 當滿足條件頂背離的5日過濾時,在DEAA*1.02位置書寫文字,COLORDDAAAA 周DIFF賦值:"MACD.DIFF[取周線數據]" 周DEA賦值:"MACD.DEA[取周線數據]" 周MACD賦值:"MACD.MACD[取周線數據]" DIF周金叉賦值:周DIFF上穿周DEA 當滿足條件DIF周金叉時,在DEAA位置書寫文字,COLOR0099FF 當滿足條件周DEA上穿周DIFF時,在DEAA+4位置書寫文字,ALIGN0,COLORCDFFBB MACD周金叉賦值:周MACD上穿周DIFF AND 周MACD>=(0-0.05) AND 周MACD<=0.02 當滿足條件MACD周金叉時,在MACDA-0.03位置書寫文字,COLOR00FFFF 月DIFF賦值:"MACD.DIFF[取月線數據]" 月DEA賦值:"MACD.DEA[取月線數據]" DIF月金叉賦值:月DIFF上穿月DEA 當滿足條件DIF月金叉時,在DEAA*0.98位置書寫文字,COLOR00FFCC 當滿足條件月DEA上穿月DIFF時,在DEAA*1.02位置書寫文字,ALIGN0,COLORDDDDDD 周K賦值:"KDJ的K[取周線數據]" 周D賦值:"KDJ的D[取周線數據]" 周J賦值:"KDJ的J[取周線數據]" 月K賦值:"KDJ的K[取月線數據]" 月D賦值:"KDJ的D[取月線數據]" 月J賦值:"KDJ的J[取月線數據]" 月金叉賦值:月K上穿月D 周金叉賦值:周K上穿周D 日金叉賦值:K上穿DANDK<20的4日過濾 當滿足條件月金叉時,在月D-2位置書寫文字,ALIGN0,COLOR0022EE 當滿足條件月金叉時,在月D-2位置書寫文字,畫黃色 當滿足條件周金叉時,在周D位置書寫文字,ALIGN2,COLOR0022EE 當滿足條件周金叉時,在周D位置書寫文字,畫綠色 當滿足條件日金叉時,在K位置畫1號圖標,ALIGN2 當滿足條件日金叉時,在D-6位置書寫文字,COLOR00CCCC 當滿足條件周D上穿周K時,在周D*1.2位置書寫文字,COLOR00DDBB 當滿足條件月D上穿月K時,在月D位置書寫文字,COLORFFFFFF KDB賦值:上次1日前的K上穿D距今天數 KDDB賦值:KDB+1日前的收盤價>收盤價 AND KDB+1日前的K<K AND K上穿D K底背賦值:如果KDDB>0的5日過濾,返回1,否則返回0 當滿足條件K底背=1時,在D*0.98位置書寫文字,COLORDDDDDD KDD賦值:上次1日前的D上穿K距今天數 K頂背賦值:KDD+1日前的收盤價<收盤價 AND KDD+1日前的K>K AND D上穿K 當滿足條件K頂背>0的5日過濾時,在D+8位置書寫文字,COLORFFAA22 MD1賦值:收盤價的80日簡單移動平均-收盤價的13日簡單移動平均/3 MD2賦值:(收盤價-MD1)/MD1的3日簡單移動平均 買點1賦值:MD2上穿0 AND 最低價/1日前的最高價<1.012 AND J<75 AND J>1日前的J MA12賦值:收盤價的12日簡單移動平均 佳點賦值:如果MACD>=5日前的MACDANDOPEN<=1日前的收盤價ANDXX-1日前的XX>0ANDMACD<=0ANDMA12-1日前的MA12>=0的3日過濾ANDJ<80ANDJ>1日前的JANDD>1日前的DAND(DIFF>=1日前的DIFFORDEA>=R,返回F(DEA,1)),否則返回1 當滿足條件佳點=1時,在MACDA*0.98位置書寫文字,COLOR0099FF DX0賦值:收盤價的2日指數移動平均-開盤價的5日指數移動平均 DX1賦值:如果DX0上穿MACDANDLOW<=XXANDMACD<=(0-0.11)AND(J<20ORK<20),返回1,否則返回0 當滿足條件DX1的3日過濾時,在0位置書寫文字,COLOR00CC00 MA10賦值:收盤價的10日簡單移動平均 SS賦值:最高價的3日簡單移動平均*1.05的30日指數移動平均 LQS賦值:如果0.7*(DIFF上穿DEAANDCLOSE<SSANDXX-1日前的XX>0ANDCROSS(MACD,0)ANDMACD>=0ANDDIFF>0ANDMA10-1日前的MA10>0ANDVOL>1日前的成交量(手))>=0.7AND(收盤價<SSANDXX-?日前的XX的?日過濾,返回)>0),5)ANDJ<80,否則返回1 當滿足條件LQS=1時,在MACDA*0.98位置書寫文字,COLORCDFFDD 最佳點賦值:如果統計3日中滿足MD2>1日前的MD2的天數=3ANDCOUNT(MD2<0,10)=10ANDREF(MD2,3)=10日內MD2的最低值ANDJ<80ANDJ>1日前的J,返回1,否則返回0 當滿足條件最佳點=1時,在J位置書寫文字,COLORFF00CC 買點2賦值:2日前的MD2=20日內MD2的最低值 AND 2日前的MD2<0.071 AND 2日前的MD2<1日前的MD2 ANDNOT(1日前的最低價>2日前的最高價 AND 最低價>1日前的最高價) AND 收盤價>1日前的收盤價 AND J<75 AND J>1日前的J 當滿足條件買點1OR買點2時,在D-1位置書寫文字,COLORFF00CC YZ賦值:(RSV的3日[1日權重]移動平均的整數部分+K的3日[1日權重]移動平均的整數部分)/2 預漲賦值:YZ上穿50 AND J<95 AND DIFF>1日前的DIFF AND 最低價<1日前的收盤價 當滿足條件預漲時,在D*0.6位置書寫文字,COLORA52A2A KD金叉賦值:K上穿DAND J>20 AND J<80 輸出選股:如果MACD上穿0ORDX1OR佳點ORLQSORK底背OR月金叉OR周金叉OR日金叉OR買點1OR買點2OR最佳點ORMACD金叉ORDIFF金叉OR低位金叉OR二次金叉OR底背離ORDIF周金叉ORMACD周金叉ORDIF?返回金叉ORKD金叉,否則返回2,線寬為0

?

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

?

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;
D:SMA(K,3,1),LINETHICK2,COLOR00DDDD;
J:3*K-2*D,LINETHICK2,COLOR800080;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),linethick0,COLOR0099FF;
DEA :EMA(DIFF,9),linethick0,COLORD89837;
MACD:2*(DIFF-DEA),COLORFF9999,linethick0;
YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100);
阻價:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low));
支價:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC));
今壓:REF(阻價,1),LINETHICK0,COLORAA11BB;
今撐:REF(支價,1),LINETHICK0,COLOR009900;
明壓:阻價,LINETHICK0;
明撐:支價,LINETHICK0;
rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;
kk:=sma(rsv1,3,1);
dd:=sma(kk,3,1);
jj:=3*kk-2*dd;
買賣:=if(jj>=100,100,if(jj<=0,0,jj));
明天買:if(買賣=100,0-10,0),color00cccc;
明天賣:if(買賣=0,90,100),color00ff00;
KX:=250;
KH:=HHV(K,KX);
DH:=HHV(D,KX);
JH:=HHV(J,KX);
KL:=LLV(K,KX);
DL:=LLV(D,KX);
JL:=LLV(J,KX);
HKMAX:=MAX(KH,MAX(DH,JH));
LKMIN:=MIN(KL,MIN(DL,JL));
KHLB:=(HKMAX+LKMIN)/2;
KHLC:=HKMAX-LKMIN;
MHF:=HHV(DIFF,KX);
MHD:=HHV(DEA,KX);
MHM:=HHV(MACD,KX);
MLF:=LLV(DIFF,KX);
MLD:=LLV(DEA,KX);
MLM:=LLV(MACD,KX);
HMAX:=MAX(MHF,MAX(MHD,MHM));
LMIN:=MIN(MLF,MIN(MLD,MLM));
FHLB:=(HMAX-LMIN)/100;
FHLC:=HMAX-LMIN;
SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;
DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;
MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;
CDA:=MACD<ref(MACD,1) and MACD>0;
CDB:=MACD>=ref(MACD,1) and MACD>0;
CDC:=MACD>ref(MACD,1) and MACD<0;
CDD:=MACD<=ref(MACD,1) and MACD<0;
STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黃色段}
STICKLINE(CDA,SH,macda,6.6,0),COLOR0066AA;
STICKLINE(CDA,SH,macda,4.4,0),COLOR0099DD;
STICKLINE(CDA,SH,macda,3.3,0),COLOR00BBEE;
STICKLINE(CDA,SH,macda,2.2,0),COLOR00DDFF;
STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;
STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {紅色段}
STICKLINE(CDB,SH,macda,6.6,0),COLOR0011BB;
STICKLINE(CDB,SH,macda,4.4,0),COLOr0022CC;
STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;
STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;
STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;
STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{向上粉紅}
STICKLINE(CDC,SH,macda,6.6,0),COLORBB1177;
STICKLINE(CDC,SH,macda,4.4,0),COLORCC2299;
STICKLINE(CDC,SH,macda,3.3,0),COLORDD33AA;
STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;
STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;
STICKLINE(CDD,SH,macda,6,0),COLORFF7700;
STICKLINE(CDD,SH,macda,6.6,0),COLORAA7711;
STICKLINE(CDD,SH,macda,4.4,0),COLORCC9922;
STICKLINE(CDD,SH,macda,3.3,0),COLOREEBB33;
STICKLINE(CDD,SH,macda,2.2,0),COLORFFCC44;
STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;
//PARTLINE(DIFFA,DIFF>0,RGB(255,153,153),DIFF<0,RGB(255,153,153));
//PARTLINE(DEAA,DEA>0,RGB(65,105,225),DEA<0,RGB(65,105,225));
DRAWTEXT(BARSTATUS=2,SH,' 0'),color00aaaa;
TYP:=(HIGH+LOW+CLOSE)/3;
STICKLINE(diff>ref(diff,1),20,20,2,0),COLORRED;
STICKLINE(diff<ref(diff,1),20,20,2,0),COLORGREEN;
STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),80,80,2,1),COLORRED;
STICKLINE(K<ref(K,1),80,80,2,1),COLORGREEN;
MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;
DRAWTEXT(MACD金叉,macda*0.82,'MACD金叉'),color00FFFF;
XX:=ema(MA(LOW,3)*0.96,30);
DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);
DRAWTEXT(DIFF金叉=1,DIFFA*1.68,'DIFF金叉'),colorCDFFBB;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低位金叉,deaa*0.99,' 低位金叉'),COLOR0099DD;
DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1;
DRAWTEXT(二次金叉,deaa*0.99-8,' 二次金叉'),ColorFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWTEXT(底背離,DEAA*0.99-16,' 底背離'),Color0099FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(頂背離,5),DEAA*1.02,'頂背離'),COLORDDAAAA;
{周金叉,死叉}
周DIFF:="MACD.DIFF#WEEK";
周DEA:="MACD.DEA#WEEK";
周MACD:="MACD.MACD#WEEK";
DIF周金叉:=CROSS(周DIFF,周DEA);
DRAWTEXT(DIF周金叉,DEAA,'DIFF周金叉'),COLOR0099FF;
DRAWTEXT(CROSS(周DEA,周DIFF),DEAA+4,'DIFF周死叉'),align0,COLORCDFFBB;
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;
DRAWTEXT(MACD周金叉,macda-0.03,'MACD周金叉'),color00FFFF;
{月金叉,死叉}
月DIFF:="MACD.DIFF#MONTH";
月DEA:="MACD.DEA#MONTH";
DIF月金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(DIF月金叉,DEAA*0.98,'DIF月金叉'),COLOR00FFCC;
DRAWTEXT(CROSS(月DEA,月DIFF),DEAA*1.02,'DIF月死叉'),align0,COLORDDDDDD;
周K:="KDJ.K#WEEK";
周D:="KDJ.D#WEEK";
周J:="KDJ.J#WEEK";
月K:="KDJ.K#MONTH";
月D:="KDJ.D#MONTH";
月J:="KDJ.J#MONTH";
月金叉:=cross(月K,月D);
周金叉:=cross(周K,周D);
日金叉:=FILTER(cross(K,D) and K<20,4);
drawtext(月金叉,月D-2,''),ALIGN0,color0022ee;
DRAWTEXT(月金叉,月D-2,'KD月金叉'),coloryellow;
drawtext(周金叉,周D,''),ALIGN2,color0022ee;
DRAWTEXT(周金叉,周D,' KD周金叉'),colorgreen;
DRAWICON(日金叉,K,1),align2;
DRAWTEXT(日金叉,D-6,'低位金叉'),color00CCCC;
DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;
DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;
KDB:=BARSLAST(ref(cross(k,d),1));
KDDB:=ref(close,KDB+1)>close and ref(k,KDB+1)<k and cross(k,d);
K底背:=if(FILTER(KDDB>0,5),1,0);
DRAWTEXT(K底背=1,D*0.98,'底背離'),COLORDDDDDD;
KDD:=BARSLAST(ref(cross(d,k),1));
K頂背:=ref(close,KDD+1)<close and ref(k,KDD+1)>k and cross(d,k);
DRAWTEXT(FILTER(K頂背>0,5),D+8,'頂背離'),COLORFFAA22;
MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3;
MD2:=MA((CLOSE-MD1)/MD1,3);
買點1:=CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 AND J<75 AND J>REF(J,1);
ma12:=MA(CLOSE,12);
佳點:=if(FILTER(MACD>=REF(MACD,5) AND open<=ref(close,1) and XX-REF(XX,1)>0 AND MACD<=0 AND ma12-REF(ma12,1)>=0,3) and J<80 and J>ref(J,1) and D>ref(D,1) and (diff>=ref(diff,1) or dea>=ref(dea,1)),1,0);
DRAWTEXT(佳點=1,macda*0.98,'佳點'),color0099FF;
DX0:=EMA(CLOSE,2)-EMA(OPEN,5);
DX1:=if(CROSS(DX0,MACD) AND LOW<=XX AND MACD<=(0-0.11) and (J<20 or K<20),1,0);
DRAWTEXT(FILTER(DX1,3),0,'短10%'),color00CC00;{短線}
MA10:=MA(CLOSE,10);
SS:=EMA(MA(HIGH,3)*1.05,30);
LQS:=if(FILTER(0.7*(CROSS(DIFF,DEA) AND CLOSE<SS AND XX-REF(XX,1)>0 AND CROSS(MACD,0) AND MACD>=0 AND DIFF>0 AND ma10-REF(ma10,1)>0 AND VOL>REF(VOL,1))>=0.7 AND (CLOSE<SS AND XX-REF(XX,1)>0),5) AND J<80,1,0);
DRAWTEXT(LQS=1,macda*0.98,'量價齊上'),colorCDFFDD;{量價齊上}
最佳點:=IF(COUNT(MD2>REF(MD2,1),3)=3 AND COUNT(MD2<0,10)=10 AND REF(MD2,3)=LLV(MD2,10) and J<80 and J>ref(J,1),1,0);
DRAWTEXT(最佳點=1,J,'最佳點'),colorFF00CC;
買點2:=REF(MD2,2)=LLV(MD2,20) AND REF(MD2,2)<0.071 AND REF(MD2,2)<REF(MD2,1) AND
NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1) AND J<75 AND J>REF(J,1);
DRAWTEXT(買點1 or 買點2,D-1,'買'),colorff00CC;
{預漲}
YZ:=(INTPART(SMA(RSV,3,1))+INTPART(SMA(K,3,1)))/2;
預漲:=cross(yz,50) and j<95 and diff>ref(diff,1) and low<ref(close,1);
DRAWTEXT(預漲,d*0.6,'預漲'),COLORA52A2A;
KD金叉:=cross(K,D)and J>20 and J<80;
選股:if(cross(macd,0) or DX1 or 佳點 or LQS or K底背 or 月金叉 or 周金叉 or 日金叉 or 買點1 or 買點2 or 最佳點 or MACD金叉 or DIFF金叉 or 低位金叉 or 二次金叉 or 底背離 or DIF周金叉 or MACD周金叉 or DIF月金叉 or KD金叉,2,0),LINETHICK0;{程序化交易 www.tumamayizhan.com }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?