缠论中枢(通达信公式 主图 源码 测试图)不加密 有未来函数

[复制链接]
查看59 | 回复0 | 2022-6-27 19:03:06 | 显示全部楼层 |阅读模式

 缠论中枢

缠师说,有多少不同构的自同构结构,就有多少种分析股市的正确道路。若按缠师的顶底分型有新笔、旧笔之争,本人按均线,同样可以找到一种自同构性,而且简单,当然均线可以改成很多其它的指标,同样可以完整展示整个中枢形成的过程,股票的前世今生完全体现。

{缠论中枢操作}

MA10:=MA(C,5);

MA20:=MA(C,21);

JX:=CROSS(MA10,MA20);

SX:=CROSS(MA20,MA10);

LL:=IF(REFX(JX,1),LLV(L,BARSLAST(SX)+1),DRAWNULL);

HH:=IF(REFX(SX,1),HHV(H,BARSLAST(JX)+1),DRAWNULL);

LD:=IF(MA10<MA20 AND L=REFX(LL,BARSNEXT(LL)),L,0);

HD:=IF(MA10>MA20 AND H=REFX(HH,BARSNEXT(HH)),H,0);

DRAWLINE(MA10>MA20 AND H=REFX(HH,BARSNEXT(HH)),H,MA10<MA20 AND L=REFX(LL,BARSNEXT(LL)),L,0);

DRAWLINE(MA10<MA20 AND L=REFX(LL,BARSNEXT(LL)),L,MA10>MA20 AND H=REFX(HH,BARSNEXT(HH)),H,0);

LC0:=REF(L,BARSLAST(LD));

LC1:=IF(SUM(LD>0,0)>=2,REF(LC0,BARSLAST(LD)+1),0);

LC2:=IF(SUM(LD>0,0)>=3,REF(LC1,BARSLAST(LD)+1),0);

LC3:=IF(SUM(LD>0,0)>=4,REF(LC2,BARSLAST(LD)+1),0);

LC4:=IF(SUM(LD>0,0)>=5,REF(LC3,BARSLAST(LD)+1),0);

LC5:=IF(SUM(LD>0,0)>=6,REF(LC4,BARSLAST(LD)+1),0);

LC6:=IF(SUM(LD>0,0)>=7,REF(LC5,BARSLAST(LD)+1),0);

LC7:=IF(SUM(LD>0,0)>=8,REF(LC6,BARSLAST(LD)+1),0);

LC8:=IF(SUM(LD>0,0)>=9,REF(LC7,BARSLAST(LD)+1),0);

HC0:=REF(H,BARSLAST(HD));

HC1:=IF(SUM(HD>0,0)>=2,REF(HC0,BARSLAST(HD)+1),0);

HC2:=IF(SUM(HD>0,0)>=3,REF(HC1,BARSLAST(HD)+1),0);

HC3:=IF(SUM(HD>0,0)>=4,REF(HC2,BARSLAST(HD)+1),0);

HC4:=IF(SUM(HD>0,0)>=5,REF(HC3,BARSLAST(HD)+1),0);

HC5:=IF(SUM(HD>0,0)>=6,REF(HC4,BARSLAST(HD)+1),0);

HC6:=IF(SUM(HD>0,0)>=7,REF(HC5,BARSLAST(HD)+1),0);

HC7:=IF(SUM(HD>0,0)>=8,REF(HC6,BARSLAST(HD)+1),0);

HC8:=IF(SUM(HD>0,0)>=9,REF(HC7,BARSLAST(HD)+1),0);

ZD0:=LC0,NODRAW;

ZD1:=IF(LC1<HC0 AND ZD0>0,LC1,0),NODRAW;

ZD2:=IF(LC2<MIN(HC0,HC1) AND ZD1>0,LC2,0),NODRAW;

ZD3:=IF(LC3<MIN(HC0,MIN(HC1,HC2)) AND ZD2>0,LC3,0),NODRAW;

ZD4:=IF(LC4<MIN(HC0,MIN(HC1,MIN(HC2,HC3))) AND ZD3>0,LC4,0),NODRAW;

ZD5:=IF(LC5<MIN(HC0,MIN(HC1,MIN(HC2,MIN(HC3,HC4)))) AND ZD4>0,LC5,0),NODRAW;

ZD6:=IF(LC6<MIN(HC0,MIN(HC1,MIN(HC2,MIN(HC3,MIN(HC4,HC5))))) AND ZD5>0,LC6,0),NODRAW;

ZD7:=IF(LC7<MIN(HC0,MIN(HC1,MIN(HC2,MIN(HC3,MIN(HC4,MIN(HC5,HC6)))))) AND ZD6>0,LC7,0),NODRAW;

ZD8:=IF(LC8<MIN(HC0,MIN(HC1,MIN(HC2,MIN(HC3,MIN(HC4,MIN(HC5,MIN(HC6,HC7))))))) AND ZD7>0,LC8,0),NODRAW;

ZD:=MAX(ZD0,MAX(ZD1,MAX(ZD2,MAX(ZD3,MAX(ZD4,MAX(ZD5,MAX(ZD6,MAX(ZD7,ZD8)))))))),NODRAW;

ZG0:HC0,NODRAW;

ZG1:IF(HC1>MAX(LC0,LC1),HC1,9999),NODRAW;

ZG2:IF(HC2-ZD>0 AND HC2>MAX(LC0,LC1) AND ZG1!=9999,HC2,9999),NODRAW;

ZG3:=IF(HC3-ZD>0 AND HC3>MAX(LC0,MAX(LC1,LC2)) AND ZG2!=9999,HC3,9999),NODRAW;

ZG4:=IF(HC4-ZD>0 AND HC4>MAX(LC0,MAX(LC1,MAX(LC2,LC3))) AND ZG3!=9999,HC4,9999),NODRAW;

ZG5:=IF(HC5-ZD>0 AND HC5>MAX(LC0,MAX(LC1,MAX(LC2,MAX(LC3,LC4)))) AND ZG4!=9999,HC5,9999),NODRAW;

ZG6:=IF(HC6-ZD>0 AND HC6>MAX(LC0,MAX(LC1,MAX(LC2,MAX(LC3,MAX(LC4,LC5))))) AND ZG5!=9999,HC6,9999),NODRAW;

ZG7:=IF(HC7-ZD>0 AND HC7>MAX(LC0,MAX(LC1,MAX(LC2,MAX(LC3,MAX(LC4,MAX(LC5,LC6)))))) AND ZG6!=9999,HC7,9999),NODRAW;

ZG8:=IF(HC8-ZD>0 AND HC8>MAX(LC0,MAX(LC1,MAX(LC2,MAX(LC3,MAX(LC4,MAX(LC5,MAX(LC6,LC7))))))) AND ZG7!=9999,HC8,9999),NODRAW;

ZG:=MIN(ZG0,MIN(ZG1,MIN(ZG2,MIN(ZG3,MIN(ZG4,MIN(ZG5,MIN(ZG6,MIN(ZG7,ZG8))))))));

A:=REF(ZG,BARSLAST(ZG!=REF(ZG,1)));

B:=REF(ZD,BARSLAST(ZD!=REF(ZD,1)));

压力:IF(1,A,A),COLORRED,POINTDOT,LINETHICK4;

支撑:IF(1,B,B),COLORYELLOW,POINTDOT,LINETHICK4;

 

20203164211797762.png

20203164211797762.png

p20203164191288281.jpg

p20203164191288281.jpg

20203164204531646.rar

4.03 KB, 下载次数: 0

售价: 6 金钱  [记录]  [购买]

20203164204531646.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则