缠论主图逻辑代码可参考

这是需要dll文件的，没有dll文件的话，也能显示部分内容，
用法：三线卖出持币，单线持股。

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

{缠论}

N1:=1;

TIM:=TDXDLL3(100,PERIOD,H,L); {初始化周期};

KX:=TDXDLL3(1,H,L,C); {解决包含K线的问题};

VALID:=TDXDLL3(15,H,L,C);

BI:=TDXDLL3(4,H,L,C); {BI类型}

KXG:=TDXDLL3(2,H,L,C); {高点}

KXD:=TDXDLL3(3,H,L,C); {低点}

BILAST:=TDXDLL3(6,H,L,C);{上一笔的距离}

{画笔}

DRAWLINE(BI=1, KXG, BI=-1, KXD,0),COLORYELLOW;

DRAWLINE(BI=-1, KXD, BI=1, KXG,0),COLORYELLOW;

BILIST:=TDXDLL3(5,H,L,C);{BILIST}

DUANLAST:=TDXDLL3(7,H,L,C);{上一段的距离}

ZS:=TDXDLL3(8,H,L,C);{中枢处理}

ZSZG:=TDXDLL3(9,H,L,C);{得到中枢ZG}

ZSZD:=TDXDLL3(10,H,L,C);{得到中枢ZD}

ZSKS:=TDXDLL3(11,H,L,C);{得到中枢开始}

ZSJS:=TDXDLL3(12,H,L,C);{得到中枢结束}

BIFX:=-REF(BI,BILAST);

{下跌笔中枢}

DRAWLINE(ZSKS=1,ZSZG,ZSJS=1,ZSZG,0),COLOR00FFFF,LINETHICK2;

DRAWLINE(ZSKS=1,ZSZD,ZSJS=1,ZSZD,0),COLOR00FFFF,LINETHICK2;

DRAWLINE(ZSKS=1,(ZSZG+ZSZD)/2,ZSJS=1,(ZSZG+ZSZD)/2,0),COLOR1D7300,DOTLINE;

STICKLINE(ZSKS=1,ZSZG,ZSZD,0.1,0),COLOR00FFFF;

STICKLINE(ZSJS=1,ZSZG,ZSZD,0.1,0),COLOR00FFFF;

{上涨笔中枢}

DRAWLINE(ZSKS=2,ZSZG, ZSJS=2,ZSZG,0),COLORRED,LINETHICK2;

DRAWLINE(ZSKS=2,ZSZD, ZSJS=2,ZSZD,0),COLORRED,LINETHICK2;

DRAWLINE(ZSKS=2,(ZSZG+ZSZD)/2,ZSJS=2,(ZSZG+ZSZD)/2,0),COLORRED,DOTLINE;

STICKLINE(ZSKS=2,ZSZG,ZSZD,0.1,0),COLORRED;

STICKLINE(ZSJS=2,ZSZG,ZSZD,0.1,0),COLORRED;

{绘制最后当下的力度}

DRAWNUMBER(BI=1 AND N1=0,H,H-REF(L,BILAST)),COLORMAGENTA;

DRAWNUMBER(BI=-1 AND N1=0,L,L-REF(H,BILAST)),COLORCYAN;

{平滑移动平均}

MA26:=EMA(C,26);

MA13:=EMA(C,13);

VAR1:=KX;

VAR2:=BI;

分型:=VAR1;

笔:=VAR2;

A1:=BARSLAST(VAR2<>0);{上个顶底到现在的时间}

A2:=REF(VAR2,A1); {是顶还是底}

AA1:=REF(A1+1,1); {上个顶底到现在的时间}

AA2:=-REF(A2,1); {1 上涨, -1下跌}

方向:=AA2;

AA3:=AA1+REF(AA1+1,AA1);

AA4:=AA3+REF(AA1+1,AA3);

H1:=BARSLAST(VAR2=1);

H2:=REF(VAR2,H1);

HH1:=REF(H1+1,1); HH2:=-REF(H2,1);

L1:=BARSLAST(VAR2=-1);

L2:=REF(VAR2,L1);

LL1:=REF(L1+1,1); LL2:=-REF(L2,1);

{高低点}

GG:=REF(H,H1);

GG1:=REF(H,HH1);

GG2:=REF(GG1,HH1);

GG3:=REF(GG2,HH1);

GG4:=REF(GG3,HH1);

GG5:=REF(GG4,HH1);

DD:=REF(L,L1);

DD1:=REF(L,LL1);

DD2:=REF(DD1,LL1);

DD3:=REF(DD2,LL1);

DD4:=REF(DD3,LL1);

DD5:=REF(DD4,LL1);

{买点}

{主要是从形态考虑TJA，空间做为次要条件KJ提高成功率 }

{一买}

{反弹高点站不上26天线就}

{利用形态抓下+盘+下}

一买TJ1:=方向=1 AND L<MA13 AND LL1<=5;

一五段下跌:=DD1<GG1 AND DD1<DD2 AND DD1<DD3 AND GG1<GG2 AND GG1<GG3;

一买TJA:=GG1<DD3; {存在缺口}

一买A:=一买TJ1 AND 一五段下跌 AND 一买TJA, LINETHICK0, COLORRED; {89%}

一买KJA:=GG1-DD1<GG2-DD2 AND GG1-DD1>GG3-DD3 AND GG3-DD3<GG2-DD2 AND GG2-DD2>(GG1-DD1)*1.618;

一买AAA:=一买TJ1 AND 一五段下跌 AND 一买TJA AND 一买KJA, LINETHICK0, COLORRED; {93%}

一买TJB:=GG1>DD3; {不存在缺口}

一买KJB:=GG3-DD3>GG1-DD1 AND GG3-DD3>GG2-DD2 AND GG2-DD2<GG1-DD1;

一买B:=一买TJ1 AND 一五段下跌 AND 一买TJB AND 一买KJB, LINETHICK0, COLORRED; {85}

{类二买}

{思路是利用形态抓上+盘+(上)}{注意有这两个条件成功率提高很多 GG1>GG2 AND DD1>DD2}

类二买TJ:=方向=1 AND C<MA13 AND LL1<=8;

类二买TJ2:=DD1<GG1 AND DD3<DD2 AND DD3<DD1 AND DD3<DD4;

类二买KJ:=GG2-DD3>GG2-DD2 AND GG2-DD3>GG1-DD1;

类二买A:=类二买TJ AND 类二买TJ2 AND类二买KJ,COLORRED; {85}

类二买TJA:=GG1>GG2 AND DD1>DD2 AND GG2-DD3>(GG2-DD2)*1.618;{力度大概影响3个点左右}

类二买AAA:=类二买A AND 类二买TJA,COLORRED; {最强买} {90}

{二买1:OK:PASS}

{二买}

买TJ1:=方向=1 AND L<MA26 AND LL1<=8;

二买TJ:=DD1<GG1 AND DD1>DD2; {二买形态}

三段下跌:=GG3>GG2 AND DD3>DD2; {三段式下跌}

二买TJA1:=GG1>DD3; {第一段上涨至少回到前中枢内}

二买A:=买TJ1 AND 二买TJ AND 三段下跌 AND 二买TJA1, LINETHICK0, COLORYELLOW; {77.5}

五段下跌:=GG4>GG3 AND GG4>GG2 AND DD2<DD3 AND DD2<DD4; {五段下跌}

二买TJB1:=GG2<DD4 AND GG1>DD3; {存在缺口}

二买TJB2:=GG2>DD4; {不存在缺口}

二买B1:=买TJ1 AND 二买TJ AND 五段下跌 AND 二买TJB1, LINETHICK0, COLORYELLOW;{91.7 - 3}

二买B2:=买TJ1 AND 二买TJ AND 五段下跌 AND 二买TJB2, LINETHICK0, COLORYELLOW;{75.8}

二买AAA:=二买B1, LINETHICK0, COLORYELLOW;

{三买}

三买TJ:=DD1<GG1 AND DD1>DD2;

三买TJA1:=方向=1 AND L<MA13 AND LL1<=5;

三买TJA2:=DD1>MIN(GG2,GG3) AND GG3>DD2 AND DD4<MAX(DD2,DD3) AND DD1>DD4 ; {GG2 GG3 在同一中枢内}

三买A:=三买TJ AND 三买TJA1 AND 三买TJA2,COLORMAGENTA; {如果DD1>GG4成功率更高}

{卖点}{主要是从形态考虑买点的逆向思维不考虑空间}

{一卖}

一卖TJ1:=方向=-1 AND H>MA13 AND HH1<=5;

一五段上涨:=GG1>GG2 AND GG1>GG3 AND DD1>DD2 AND DD1>DD3;

一卖TJA:=DD1>GG3; {缺口}

一卖A:=一卖TJ1 AND 一五段上涨 AND 一卖TJA,COLORGREEN;

一卖TJB:=DD1<GG3 AND GG1-DD1>GG2-DD2 AND GG3-DD3-GG2-DD2;

一卖B:=一卖TJ1 AND 一五段上涨 AND 一卖TJB,COLORGREEN;

一卖TJC:=GG1>GG2 AND GG2>GG3 AND GG3>GG4 AND GG4>GG5 AND DD1>DD2 AND DD2>DD3 AND DD3>DD4 AND DD4>DD5; {连涨4段}

一卖C:=一卖TJ1 AND 一卖TJC,COLORGREEN; {27 - 68}

{二卖}

卖TJ1:=方向=-1 AND H>MA13 AND HH1<=8;

二卖TJ:=GG1>DD1 AND GG1<GG2; {二卖形态}

三段上涨:=GG3<GG2 AND DD3<DD2; {三段式上涨}

二卖TJA1:=DD1>GG3; {第一段下跌至少回到前中枢内}

二卖A:=卖TJ1 AND 二卖TJ AND 三段上涨 AND 二卖TJA1, LINETHICK0, COLORF0F000; {44-50}

五段上涨:=GG2>GG3 AND GG2>GG4 AND DD4<DD3 AND DD4<DD2; {五段上涨}

二卖TJB1:=GG4<DD2 AND DD1<GG3; {存在缺口}

二卖TJB2:=GG4>DD2; {不存在缺口}

二卖B1:=卖TJ1 AND 二卖TJ AND 五段上涨 AND 二卖TJB1, LINETHICK0, COLORF0F000;{38 - 48}

二卖B2:=卖TJ1 AND 二卖TJ AND 五段上涨 AND 二卖TJB2, LINETHICK0, COLORF0F000;{39 - 48}

一段上涨:=GG2>GG3 AND GG2>GG4 AND DD1>MIN(GG3, GG4); {在下跌时有点三卖的感觉}

二卖C1:=卖TJ1 AND 二卖TJ AND 一段上涨, LINETHICK0, COLORF0F000; {41 47}

{三卖}

三卖TJ:=DD1<GG1 AND GG1<GG2;

三卖TJA1:=方向=-1 AND H>MA13 AND HH1<=5;

三卖TJA2:=GG1<MAX(DD2,DD3) AND GG2>DD3 AND GG4>MIN(GG2,GG3) AND GG1<GG4 ; {GG2 GG3 在同一中枢内}

三卖A:=三卖TJ AND 三卖TJA1 AND 三卖TJA2 , LINETHICK0, COLORWHITE; {GG1<DD4成功率更高}

{买卖点提示}

一买:=一买A OR 一买B, COLORRED;

类二买:=类二买A, COLORRED;

二买:=二买A OR 二买B1 OR 二买B2, COLORYELLOW;

三买:=三买A, COLORMAGENTA;

一卖:=一卖A OR 一卖B OR 一卖C, COLORGREEN;

二卖:=二卖A OR 二卖B1 OR 二卖B2 OR 二卖C1, COLORF0F000;

三卖:=三卖A, COLORWHITE;

二三买合:=二买 AND 三买,COLORMAGENTA; {85 信号量少}

二三卖合:=二卖 AND 三卖, COLORF0F000; {13-87}

高成功率:=一买AAA OR 二买AAA OR 类二买AAA;

次高成功:=二三买合;

清仓:=二三卖合;

DRAWTEXT(一买 AND FILTER(一买, 8), REF(L,1), '①'),COLORYELLOW;

DRAWTEXT(类二买 AND FILTER(类二买, 8) , REF(L,1), '类②'),COLORYELLOW;

DRAWTEXT(二买 AND FILTER(二买, 8), REF(L,1), '②'), COLORYELLOW;

DRAWTEXT(三买 AND FILTER(三买, 8), REF(L,1), '③'),COLORYELLOW;

DRAWTEXT(一卖 AND FILTER(一卖, 8), REF(H,1), '①'), COLORGREEN ;

DRAWTEXT(二卖 AND FILTER(二卖, 8) , REF(H,1), '②'), COLORGREEN;

DRAWTEXT(三卖 AND FILTER(三卖, 8) , REF(H,1), '③'), COLORGREEN;

{涨停板}

TB:=(C-REF(C,1))/REF(C,1)*100;

STICKLINE(TB>9.9,O,C,2.5,1)COLORMAGENTA;

STICKLINE(TB<-9.9,O,C,2.5,0)COLOR1D7300;

CG:MA(C,10),LINETHICK2;

FL:HHV(CG,5),LINETHICK2;

FS:CG-(FL-CG),LINETHICK2;

AMV0:=VOL*(O+C)/2;

DRAWTEXT(FL=FS AND REF(FL,1)>REF(FS,1) ,FS,'买'),COLORYELLOW ;

DRAWTEXT(FL>FS AND REF(FL,1)=REF(FS,1),FL,'卖'),COLORYELLOW ;

发表回复 取消回复

发表回复取消回复