多周期背離[大智慧公式]

相關標簽:

?

{多周期背離}

?

?

原理解析：
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日指數移動平均,線寬為2 輸出DEA :DIFF的9日指數移動平均,線寬為2 輸出平滑異同平均:2*(DIFF-DEA),COLORFF9999,線寬為0 PARTLINE(DIFF,DIFF>=1日前的DIFF,自定色,DIFF<1日前的DIFF,自定色),線寬為2 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(DIFF>0,DIFFA),畫紅色 PARTLINE(DEA>0,DEAA),COLORF00FF0 當滿足條件數據位置狀態=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[取周線數據]"(9,3,3) 周D賦值:"KDJ的D[取周線數據]"(9,3,3) 周J賦值:"KDJ的J[取周線數據]"(9,3,3) 月K賦值:"KDJ的K[取月線數據]"(9,3,3) 月D賦值:"KDJ的D[取月線數據]"(9,3,3) 月J賦值:"KDJ的J[取月線數據]"(9,3,3) 月金叉賦值:月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

?

?來源:程序化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),LINETHICK2;
DEA :EMA(DIFF,9),LINETHICK2;
MACD:2*(DIFF-DEA),COLORFF9999,linethick0;
partline(diff,diff>=ref(diff,1),rgb(255,0,0),diff<ref(diff,1),rgb(0,255,0)),linethick2;
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(DIFF>0,DIFFA),COLORRED;
PARTLINE(DEA>0,DEAA),COLORF00FF0;
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"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
月金叉:=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;

?

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

?