通达信MACD背离优化及二次金叉整合指标DRAWGBK(CLOSE>OPEN,RGB(25,25,112),RGB(47,79,79),1,
2,1);DIF:EMA(CLOSE,12)-EMA(CLOSE,26);DEA:EMA(DIF,9),COLOR888888;N
OTEXT5:IF(DIF>=DEA,DIF,DRAWNULL),COLORRED;NOTEXT6:IF(DIFDRAWNULL),COLORWHITE;X_1:=BARSLAST(REF(CROSS(DIF,DEA),1));X_2:=RE
F(CLOSE,X_1+1)>CLOSEANDREF(DIF,X_1+1)3:=BARSLAST(REF(CROSS(KDJ.K(9,3,3),KDJ.D(9,3,3)),1));X_4:=BARSLAS
T(REF(CROSS(DEA,DIF),1));X_5:=REF(CLOSE,X_4+1)X_4+1)>DIFANDCROSS(DEA,DIF);MACD底背:IF(X_2>0,(-0.1),0),COLORRED;
MACD顶背:IF(X_5>0,0.1,0),COLORGREEN;STICKLINE(X_2>0,0.5DIF,0,2,0),
COLORRED;STICKLINE(X_5>0,0.5DIF,0,2,0),COLORGREEN;MACD:(DIF-DEA)
2,COLORSTICK;STICKLINE(MACD0,0,MACD,0,0),C
OLOR44FF00;STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,0,0),COLO
R0066FF;X_6:=13;X_7:=13;X_8:=REF(DIF,X_6)=HHV(DIF,2X_6+1);X_9:=F
ILTER(X_8,X_6);X_10:=BACKSET(X_9,X_6+1);X_11:=FILTER(X_10,X_6);X_
12:=BACKSET(ISLASTBAR,BARSLAST(X_11)+1);X_13:=X_12>REF(X_12,1);X_
14:=REF(DIF,X_7)=LLV(DIF,2X_7+1);X_15:=FILTER(X_14,X_7);X_16:=BA
CKSET(X_15,X_7+1);X_17:=FILTER(X_16,X_7);X_18:=BACKSET(ISLASTBAR,
BARSLAST(X_17)+1);X_19:=X_18>REF(X_18,1);压力线:DRAWLINE(X_11,DIF,X_
13,DIF,0),DOTLINE,COLORCYAN;支撑线:DRAWLINE(X_17,DIF,X_19,DIF,0),DOT
LINE,COLOR00AAFF;X_20:=FILTERX(支撑线>REF(支撑线,1)ANDDIF>支撑线ANDREF
(支撑线,1)=REF(DIF,1),2);底抬高:DRAWLINE(X_17,DIF,X_20,支撑线,0),DOTLINE,C
OLORYELLOW;X_21:=INTPART(310/5);X_22:=REF(DIF,X_21)=HHV(DIF,2X_
21+1);X_23:=FILTER(X_22,X_21);X_24:=BACKSET(X_23,X_21+1);X_25:=FI
LTER(X_24,X_21);X_26:=BACKSET(ISLASTBAR,BARSLAST(X_25)+1);X_27:=X
_26>REF(X_26,1);X_28:=REF(DIF,X_21)=LLV(DIF,2X_21+1);X_29:=FILTE
R(X_28,X_21);X_30:=BACKSET(X_29,X_21+1);X_31:=FILTER(X_30,X_21);X
_32:=BACKSET(ISLASTBAR,BARSLAST(X_31)+1);X_33:=X_32>REF(X_32,1);短
压线:DRAWLINE(X_25,DIF,X_27,DIF,0),DOTLINE,COLOR99FF00;短撑线:DRAWLINE
(X_31,DIF,X_33,DIF,0),DOTLINE,COLOR0055FF;X_34:=LLV(DEA,43);X_35:
=DEA-(DIF-DEA);X_36:=IF(DIF35),X_34);X_37:=REF(LOW,1);X_38:=SMA(ABS(LOW-X_37),13,1)/SMA(MAX(
LOW-X_37,0),13,1)100;X_39:=MA(X_38,13);X_40:=LLV(LOW,34);X_41:=E
MA(IF(LOW<=X_40,X_39,0),3);X_42:=SMA(SMA((CLOSE-LLV(LOW,55))/(HHV
(HIGH,55)-LLV(LOW,55))100,7,1),5,1);X_43:=SMA((CLOSE-LLV(LOW,55)
)/(HHV(HIGH,55)-LLV(LOW,55))100,8,1)15-X_4210.38;X_44:=FILTER(
IF(X_43<=X_42ANDX_41>0,X_418,0),5);止跌:DRAWTEXT(X_44ANDDIF36,DIF-11.01,101),COLORYELLOW;X_45:=CROSS(DIF,DEA)ANDDIF<(-0.1)
;STICKLINE(X_45,0,(-0.18),6,0),COLORYELLOW;DRAWTEXT(X_45,(-7.05),
102),COLORYELLOW;X_46:=IF(CROSS(0,DEA),1,0);X_47:=IF(DIF<0ANDCR
OSS(DIF,DEA),1,0);X_48:=IF(X_46,SUM(X_47,0),0);X_49:=HHV(X_48,0);
X_50:=SUM(X_47,0);X_51:=X_50-X_49=2ANDX_50>REF(X_50,1);DRAWTEXT
(X_51,DIF-15.05,103),COLOR0080FF;X_52:=CROSS(MACD,DIF)ANDMACD>=
0-0.05ANDMACD<=0.02;DRAWTEXT(X_52,MACD,104),COLORYELLOW;X_53:=C
ROSS(DIF,DEA)ANDDIF<(-0.1);X_54:=COUNT(CROSS(DIF,DEA),BARSLAST(
DEA>=0));X_55:=CROSS(DIF,DEA)ANDDEA<0ANDCOUNT(X_54=2,21)=1;ST
ICKLINE(X_55,0,(-0.58),6,0),COLORMAGENTA;DRAWTEXT(X_55,0.1,105),C
OLOR5500FF;X_56:=BARSLAST(REF(CROSS(DIF,DEA),1));X_57:=REF(CLOSE,
X_56+1)>CLOSEANDDIF>REF(DIF,X_56+1)ANDCROSS(DIF,DEA);底背:DRAWL
INE(X_56=0,DIF,X_57,DIF,0),COLORYELLOW,LINETHICK2;X_58:=BARSLAST(
REF(CROSS(DEA,DIF),1));X_59:=REF(CLOSE,X_58+1)X_58+1)>DIFANDCROSS(DEA,DIF);顶背:DRAWLINE(X_58=0,DIF,X_59,DIF,0)
,COLORGREEN,LINETHICK2;DRAWTEXT(X_57,DIF-30.5,106),COLOR0055FF;DR
AWTEXT(X_59,DIF0.5,107),COLOR99FF00;X_60:=3;X_61:=EMA(CLOSE,3)-(
EMA(CLOSE,6)+EMA(CLOSE,7))/2;X_62:=EMA(X_61,3)+EMA(0,2);X_63:=REF
(X_61,X_60)=HHV(X_61,2X_60+1);X_64:=FILTER(BB,X_60)ANDX_61=HHV
(X_61,X_60+1);X_65:=BARSLAST(REF(X_64,1));X_66:=REF(CLOSE,X_65+1)
X_61ANDX_64;DRAWTEXT(X_66,X_611.2,
108),COLORGREEN;DRAWICON(X_66>0,X_611.2,2);X_67:=REF(X_61,X_60)=
LLV(X_61,2X_60+1);X_68:=BACKSET(X_67,X_60+1);X_69:=FILTER(X_68,X
_60)ANDX_61=LLV(X_61,X_60+1);X_70:=BARSLAST(REF(X_69,1));X_71:=
REF(CLOSE,X_70+1)>CLOSEANDREF(X_61,X_70+1)ACD,BARSLAST(MACD<0)+1);X_73:=CROSS(BACKSET(CROSS(0,MACD),REF(X_7
2,1)+2),0.5);X_74:=CROSS(BACKSET(CROSS(0,MACD)OR(ISLASTBARAND
MACD>0),REF(X_72,1)+2),0.5);X_75:=DRAWLINE(X_73,MACD,REF(X_73,1),
REF(MACD,1),1);X_76:=LLVBARS(MACD,BARSLAST(MACD>0)+1);X_77:=CROSS
(BACKSET(CROSS(MACD,0),REF(X_76,1)+2),0.5);X_78:=DRAWLINE(X_77,MA
CD,REF(X_77,1),REF(MACD,1),1);X_79:=BARSLAST(FILTERX(CROSS(0,MACD
),BARSCOUNT(CLOSE)));X_80:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLA
ST(MACD>0)),BARSCOUNT(CLOSE)),DRAWNULL);X_81:=BARSLAST(X_80);X_82
:=FILTERX(MACDRSLAST(X_82);X_84:=IF(X_79+1>=1,CONST(LLV(MACD,X_79+1)),DRAWNULL)
;X_85:=CROSS(COUNT(CROSS(MACD>X_84/2ANDMACD<0,0.5),X_81)=1,0.5)
ANDX_81>=0;X_86:=IF(ISLASTBARANDMACD>0ANDMACD=HHV(MACD,BARS
LAST(MACD<0)),1,IF(FILTERX(X_74,BARSCOUNT(CLOSE)),2,DRAWNULL));X_
87:=X_86=1ORX_86=2ANDMACD>0;X_88:=FILTERX(X_87,BARSCOUNT(CLOS
E));X_89:=DRAWLINE(X_88,MACD,REF(X_88,1),REF(MACD,1),1);X_90:=CRO
SS(COUNT(CROSS(MACD0,0.5),X_88)=1,0.5)ANDX_88>
=0;STICKLINE(MACD>X_75,MACD,X_75,0,0),COLORWHITE;STICKLINE(MACD<0
ANDMACDS(DIF,DEA),DEA,1);DRAWICON(CROSS(DEA,DIF),DEA,2);底:ABS((CROSS(MAC
D.DIF,MACD.DEA)ANDMACD.DEA<=(-0.07))MACD.DIF)1.5,COLORLIMAGEN
TA;DRAWTEXT(ABS(底)>0,底-25,109),COLORYELLOW;X_91:=(CLOSE-LLV(LOW,9
))/(HHV(HIGH,9)-LLV(LOW,9))100;K:SMA(X_91,3,1),COLORWHITE;D:SMA(
K,3,1),COLOR00DDDD;J:3K-2D,COLOR800080;DIFF:EMA(CLOSE,12)-EMA(C
LOSE,26),COLORWHITE;X_92:=IF(CLOSE=INDEXC,(INDEXC+INDEXH+INDEXL+I
NDEXO)/4,AMOUNT/(VOL+0.01)/100);X_93:=IF(CLOSE=INDEXC,X_92+INDEXC
-INDEXL,X_92+(CLOSE-LOW));X_94:=IF(CLOSE=INDEXC,INDEXL+INDEXC-X_9
2,LOW+(CLOSE-X_92));今压:REF(X_93,1),COLORAA11BB,LINETHICK0;今撑:REF(
X_94,1),COLOR009900,LINETHICK0;明压:X_93,LINETHICK0;明撑:X_94,LINETHI
CK0;X_95:=(HHV(HIGH,9.8)-CLOSE)/(HHV(HIGH,9.8)-LLV(LOW,9.8))101;
X_96:=SMA(X_95,3,1);X_97:=SMA(X_96,3,1);X_98:=3X_96-2X_97;X_99:
=IF(X_98>=100,100,IF(X_98<=0,0,X_98));明天买:IF(X_99=100,0-10,0),COL
OR00CCCC;明天卖:IF(X_99=0,90,100),COLORGREEN;X_100:=250;X_101:=HHV(K
,X_100);X_102:=HHV(D,X_100);X_103:=HHV(J,X_100);X_104:=LLV(K,X_10
0);X_105:=LLV(D,X_100);X_106:=LLV(J,X_100);X_107:=MAX(X_101,MAX(X
_102,X_103));X_108:=MIN(X_104,MIN(X_105,X_106));X_109:=(X_107+X_1
08)/2;X_110:=X_107-X_108;X_111:=HHV(DIFF,X_100);X_112:=HHV(DEA,X_
100);X_113:=HHV(MACD,X_100);X_114:=LLV(DIFF,X_100);X_115:=LLV(DEA
,X_100);X_116:=LLV(MACD,X_100);X_117:=MAX(X_111,MAX(X_112,X_113))
;X_118:=MIN(X_114,MIN(X_115,X_116));X_119:=(X_117-X_118)/100;X_12
0:=X_117-X_118;X_121:=(0-X_119)(X_110/X_120)+X_109;X_122:=(DIFF-
X_119)(X_110/X_120)+X_109;X_123:=(DEA-X_119)(X_110/X_120)+X_109
;X_124:=(MACD-X_119)(X_110/X_120)+X_109;X_125:=MACDANDMACD>0;X_126:=MACD>=REF(MACD,1)ANDMACD>0;X_127:=MACD>REF(MA
CD,1)ANDMACD<0;X_128:=MACD<=REF(MACD,1)ANDMACD<0;STICKLINE(X_
125,X_121,X_124,2.7,0),COLOR00AAFF;STICKLINE(X_125,X_121,X_124,2.
6,0),COLOR0066AA;STICKLINE(X_125,X_121,X_124,2.5,0),COLOR0099DD;S
TICKLINE(X_125,X_121,X_124,1.3,0),COLOR00BBEE;STICKLINE(X_126,X_1
21,X_124,2.7,0),COLOR0000AA;STICKLINE(X_126,X_121,X_124,2.6,0),CO
LOR0011BB;STICKLINE(X_126,X_121,X_124,2.5,0),COLOR0022CC;STICKLIN
E(X_126,X_121,X_124,1.3,0),COLOR0033DD;STICKLINE(X_127,X_121,X_12
4,2.7,0),COLORAA00BB;STICKLINE(X_127,X_121,X_124,2.6,0),COLORBB11
77;STICKLINE(X_127,X_121,X_124,2.5,0),COLORCC2299;STICKLINE(X_127
,X_121,X_124,1.3,0),COLORDD33AA;STICKLINE(X_128,X_121,X_124,2.7,0
),COLORFF7700;STICKLINE(X_128,X_121,X_124,2.6,0),COLORAA7711;STIC
KLINE(X_128,X_121,X_124,2.5,0),COLORCC9922;STICKLINE(X_128,X_121,
X_124,1.3,0),COLOREEBB33;涨:IF(X_122>0,X_122,DRAWNULL),COLOR0055FF
;跌:IF(X_122<0,X_122,DRAWNULL),COLOR0055FF;涨2:IF(X_123>0,X_123,DRA
WNULL),COLORGREEN;跌2:IF(X_123<0,X_123,DRAWNULL),COLORGREEN;X_129:
=(HIGH+LOW+CLOSE)/3;STICKLINE(DIFF>REF(DIFF,1),20,20,2,0),COLORRE
D;STICKLINE(DIFF=R
EF(K,1)ORK>DANDDIFF>REF(DIFF,1),80,80,2,1),COLORRED;STICKLINE
(KOLORYELLOW;X_130:=EMA(MA(LOW,3)0.96,30);X_131:=IF(CROSS(DIFF,DEA
)ANDX_130-REF(X_130,1)>0ANDMACD>=REF(MACD,1)ANDDIFF<=0,1,0)
;DRAWTEXT(X_131=1,X_1221.68,111),COLORCDFFBB;DRAWTEXT(X_53,X_123
0.99,112),COLOR0099DD;X_132:=BARSLAST(REF(CROSS(DIFF,DEA),1));X_
133:=REF(CLOSE,X_132+1)>CLOSEANDDIFF>REF(DIFF,X_132+1)ANDCROS
S(DIFF,DEA);DRAWTEXT(X_133,X_1230.99-16,113),COLOR0099FF;X_134:=
BARSLAST(REF(CROSS(DEA,DIFF),1));X_135:=REF(CLOSE,X_134+1)ANDREF(DIFF,X_134+1)>DIFFANDCROSS(DEA,DIFF);DRAWTEXT(FILTER(X_
135,5),X_1231.02,114),COLORDDAAAA;X_136:=MACD.DIF#WEEK;X_137:=MA
CD.DEA#WEEK;X_138:=FILTER(CROSS(X_136,X_137),0);X_139:=FILTER(CRO
SS(X_137,X_136),0);M周金叉:IF(CROSS(MACD.DIF#WEEK,MACD.DEA#WEEK),(-5
0),0),COLORRED,LINETHICK2;DRAWTEXT(X_138,(-45),115),COLORRED;M周死叉
:IF(CROSS(MACD.DEA#WEEK,MACD.DIF#WEEK),(-50),0),COLORGREEN,LINETH
ICK2;DRAWTEXT(X_139,DIF-0.5,116),COLORGREEN;X_140:=MACD.DIF#MONTH
;X_141:=MACD.DEA#MONTH;X_142:=FILTER(CROSS(X_140,X_141),0);X_143:
=FILTER(CROSS(X_141,X_140),0);M月金叉:IF(CROSS(MACD.DIF#MONTH,MACD.D
EA#MONTH),(-60),0),COLORYELLOW,LINETHICK2;DRAWTEXT(X_142,(-35),11
7),COLORYELLOW;M月死叉:IF(CROSS(MACD.DEA#MONTH,MACD.DIF#MONTH),(-60)
,0),COLORFF6600,LINETHICK2;DRAWTEXT(X_143,(-35),118),COLORFF6600;
X_144:=SKDJ.K#WEEK;X_145:=SKDJ.D#WEEK;X_146:=FILTER(CROSS(X_144,X
_145),0);X_147:=FILTER(CROSS(X_145,X_144),0);K周金叉:IF(CROSS(KDJ.K#
WEEK,KDJ.D#WEEK),50,0),COLORRED,LINETHICK2;DRAWTEXT(X_146,50,119)
,COLORGREEN;K周死叉:IF(CROSS(KDJ.D#WEEK,KDJ.K#WEEK),50,0),COLORGREEN
,LINETHICK2;DRAWTEXT(X_147,50,120),COLORGREEN;X_148:=KDJ.K#MONTH;
X_149:=KDJ.D#MONTH;X_150:=FILTER(CROSS(X_148,X_149),0);X_151:=FIL
TER(CROSS(X_149,X_148),0);K月金叉:IF(CROSS(KDJ.K#MONTH,KDJ.D#MONTH),
60,0),COLORYELLOW,LINETHICK2;DRAWTEXT(X_150,60,121),COLORYELLOW;K
月死叉:IF(CROSS(KDJ.D#MONTH,KDJ.K#MONTH),60,0),COLORFF6600,LINETHICK
2;DRAWTEXT(X_151,60,122),COLORFF6600;X_152:=BARSLAST(REF(CROSS(K,
D),1));X_153:=REF(CLOSE,X_152+1)>CLOSEANDREF(K,X_150+1)ROSS(K,D);X_154:=IF(FILTER(X_153>0,5),1,0);DRAWTEXT(X_154=1,D0.9
8,123),COLORDDDDDD;X_155:=BARSLAST(REF(CROSS(D,K),1));X_156:=REF(
CLOSE,X_155+1)KANDCROSS(D,K);DRAWTEXT
(FILTER(X_156>0,5),D+8,114),COLORFFAA22;X_157:=MA(CLOSE,80)-MA(CL
OSE,13)/3;X_158:=MA((CLOSE-X_157)/X_157,3);X_159:=CROSS(X_158,0)
ANDLOW/REF(HIGH,1)<1.012ANDJ<75ANDJ>REF(J,1);X_160:=MA(CLOSE
,12);X_161:=IF(FILTER(MACD>=REF(MACD,5)ANDOPEN<=REF(CLOSE,1)AN
DX_130-REF(X_130,1)>0ANDMACD<=0ANDX_160-REF(X_160,1)>=0,3)A
NDJ<80ANDJ>REF(J,1)ANDD>REF(D,1)AND(DIFF>=REF(DIFF,1)ORD
EA>=REF(DEA,1)),1,0);DRAWTEXT(X_161=1,X_1240.98,124),COLOR0099FF
;X_162:=EMA(CLOSE,2)-EMA(OPEN,5);X_163:=IF(CROSS(X_162,MACD)AND
LOW<=X_130ANDMACD<=0-0.11AND(J<20ORK<20),1,0);DRAWTEXT(FILT
ER(X_163,3),0,125),COLOR00CC00;X_164:=MA(CLOSE,10);X_165:=EMA(MA(
HIGH,3)1.05,30);X_166:=IF(FILTER(0.7(CROSS(DIFF,DEA)ANDCLOSE<
X_165ANDX_130-REF(X_130,1)>0ANDCROSS(MACD,0)ANDMACD>=0ANDDIFF>0ANDX_164-REF(X_164,1)>0ANDVOL>REF(VOL,1))>=0.7AND(CLOSE0),5)ANDJ<80,1,0);DRAWTEXT(X_166=1,X_1240.98,126),COLORCDFFDD;X_167:=IF(COUNT(X_158>REF(X_158,1),3)=3ANDCOUNT(X_158<0,10)=10ANDREF(X_158,3)=LLV(X_158,10)ANDJ<80ANDJ>REF(J,1),1,0);DRAWTEXT(X_167=1,J,127),COLORFF00CC;X_168:=REF(X_158,2)=LLV(X_158,20)ANDREF(X_158,2)<0.071ANDREF(X_158,2)REF(HIGH,2)ANDLOW>REF(HIGH,1))ANDCLOSE>REF(CLOSE,1)ANDJ<75ANDJ>REF(J,1);DRAWTEXT(X_159ORX_168,D-1,128),COLORCYAN;X_169:=(INTPART(SMA(X_91,3,1))+INTPART(SMA(K,3,1)))/2;X_170:=CROSS(X_169,50)ANDJ<95ANDDIFF>REF(DIFF,1)ANDLOW
|
|
