[文华财经指标]缠论系列6 高低点 黄金分割支撑压力 通达改的赢顺wh6公式源码

//友情提示，缠论指标，含有未来函数。

N1:=10;

N2:=10;

DISP:=2;

K:=IF(PERIOD=5,1,IF(PERIOD=6,1,IF(PERIOD=7,1,IF(PERIOD=8,1,

IF(PERIOD=9,1,IF(PERIOD=10,1,IF(PERIOD=11,2,IF(PERIOD=4,1,

IF(PERIOD=3,1,IF(PERIOD=2,1,IF(PERIOD=1,1,1)))))))))))/10;

P1:=PEAK(C,1,1,1);

P2:=PEAK(C,1,1,2);

WP1:=PEAKBARS(C,1,1,1);

WP2:=PEAKBARS(C,1,1,2);

T1:=TROUGH(C,2,1,1);

T2:=TROUGH(C,2,1,2);

WT1:=TROUGHBARS(C,2,1,1);

WT2:=TROUGHBARS(C,2,1,2);

TJ1:=P1>T1 AND P2>T2 ;

ZD:=MAX(T1,T2);

ZG:=MIN(P1,P2);

LL:=MIN(T1,T2);

HH:=MAX(P1,P2);

TJ2:=FILTER(ZG>ZD,2);

TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2));

TJ4:=TJ1&&TJ2&&NOT(TJ3);

TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1)));

TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1)));

TJ7:=ZG>REF(ZG,REF(BARSLAST(TJ4),1))&&ZD<REF(ZD,REF(BARSLAST(TJ4),1));

TJ8:=TJ4&&NOT(TJ5 OR TJ6 OR TJ7);

ZSD:=IF(TJ8,ZD,NULL);

ZSG:=IF(TJ8,ZG,NULL);

ZSH:=IF(TJ8,HH,NULL);

ZSL:=IF(TJ8,LL,NULL);

STICKLINE1(TJ8,ZSH,ZSL,0,-1),COLORMAGENTA;

STICKLINE1(TJ8,ZSD,ZSG,0,1),COLORMAGENTA;

DRAWTEXT(DISP=2,ZSH,’中枢’),COLORWHITE;

ZHONGSHUGAO:VALUEWHEN(DISP=2,REF(ZSD,BARSLAST(TJ8))),CIRCLEDOT,COLORLIGHTRED;

ZHONGSHUDI:VALUEWHEN(DISP=2,REF(ZSG,BARSLAST(TJ8))),CIRCLEDOT,COLORLIGHTGREEN;

QUSHIGAO:VALUEWHEN(DISP=3,ZIGZAG(C,1,1)),COLORLIGHTBLUE;

QUSHIDI:VALUEWHEN(DISP=3,ZIGZAG(C,2,1)),COLORLIGHTBLUE;

JUBUDIDIANA:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);

JUBUDIDIANB:=BACKSET(JUBUDIDIANA=0 AND REF(JUBUDIDIANA,1)=1,2);

JUBUDIDIANC:=IF(JUBUDIDIANB=1 AND REF(JUBUDIDIANB,1)=0,-1,0);

JUBUGAODIANA:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);

JUBUGAODIANB:=BACKSET(JUBUGAODIANA=0 AND REF(JUBUGAODIANA,1)=1,2);

JUBUGAODIANC:=IF(JUBUGAODIANB=1 AND REF(JUBUGAODIANB,1)=0,1,0);

QUEKOUPAND:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));

QULIQIANTIAN1:=BARSLAST(JUBUGAODIANC=1);

QULIQIANTIAN2:=BARSLAST(JUBUDIDIANC=-1);

DAZHI1:=NEWHBARS(H,1);

DAZHI2:=NEWLBARS(L,1);

DIBAOLIUAA:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1,1)>REF(QULIQIANTIAN2,1) AND LLV(L,QULIQIANTIAN1

+1)<REF(LLV(L,QULIQIANTIAN1+1),1),-1,0);

DIBAOLIUAB:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1,1)<=REF(QULIQIANTIAN2,1) AND (QULIQIANTIAN1>=4

OR LLV(QUEKOUPAND,QULIQIANTIAN1)=-1 OR LLV(L,QULIQIANTIAN2+2)<REF(LLV(L,QULIQIANTIAN2+1),1)),-1,0);

DIBAOLIUS:=IF((DIBAOLIUAA=-1 OR DIBAOLIUAB=-1) AND L<REF(H,QULIQIANTIAN1+1),-1,0);

YUPAN1:=IF((QULIQIANTIAN2<4 AND HHV(QUEKOUPAND,QULIQIANTIAN2)<>1) OR REF(DIBAOLIUS,QULIQIANTIAN2)=0,1,0);

PANDUAN2:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2,1)<=REF(QULIQIANTIAN1,1) AND YUPAN1=1 AND DAZHI2>REF(DAZHI1,QULIQIANTIAN2+1) AND DAZHI2>REF(DAZHI1,QULIQIANTIAN2) AND DAZHI2>REF(DAZHI2,QULIQIANTIAN1),1,0);

GAOBAOLIUA:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2,1)>REF(QULIQIANTIAN1,1) AND HHV(H,QULIQIANTIAN2

+1)>REF(HHV(H,QULIQIANTIAN2+1),1),1,0);

GAOBAOLIUB:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2,1)<=REF(QULIQIANTIAN1,1) AND REF(DIBAOLIUS,QULIQIANTIAN2)=-1 AND (QULIQIANTIAN2>=4 OR HHV(QUEKOUPAND,QULIQIANTIAN2)=1),1,0);

GAOBAOLIU:=IF((GAOBAOLIUA=1 OR GAOBAOLIUB=1 OR PANDUAN2=1) AND H>REF(L,QULIQIANTIAN2+1),1,0);

YUPAN1A:=IF((QULIQIANTIAN1<4 AND HHV(QUEKOUPAND,QULIQIANTIAN1)<>1) OR REF(GAOBAOLIU,QULIQIANTIAN1)=0,1,0);

PANDUAN2A:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1,1)<=REF(QULIQIANTIAN2,1) AND YUPAN1A=1 AND DAZHI1>REF(DAZHI2,QULIQIANTIAN1+1) AND DAZHI1>REF(DAZHI2,QULIQIANTIAN1) AND DAZHI1>REF(DAZHI1,QULIQIANTIAN2),-1,0);

DIBAOLIUA:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1,1)>REF(QULIQIANTIAN2,1) AND LLV(L,QULIQIANTIAN1

+1)<REF(LLV(L,QULIQIANTIAN1+1),1),-1,0);

DIBAOLIUB:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1,1)<=REF(QULIQIANTIAN2,1) AND (QULIQIANTIAN1>=4

OR LLV(QUEKOUPAND,QULIQIANTIAN1)=-1 OR PANDUAN2A=-1),-1,0);

DIBAOLIU:=IF((DIBAOLIUA=-1 OR DIBAOLIUB=-1) AND L<REF(H,QULIQIANTIAN1+1),-1,0);

QULIQIANTIAN1A:=BARSLAST(GAOBAOLIU=1);

QULIQIANTIAN2A:=BARSLAST(DIBAOLIU=-1);

YUPAN1X:=IF((QULIQIANTIAN2A<4 AND HHV(QUEKOUPAND,QULIQIANTIAN2A)<>1) OR REF(DIBAOLIU,QULIQIANTIAN2A)=0,1,0);

PANDUAN2X:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2A,1)<=REF(QULIQIANTIAN1A,1) AND YUPAN1X=1 AND

DAZHI2>REF(DAZHI1,QULIQIANTIAN2A+1) AND DAZHI2>REF(DAZHI1,QULIQIANTIAN2A) AND DAZHI2>REF(DAZHI2,QULIQIANTIAN1A),1,0);

GAOBAOLIUXA:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2A,1)>REF(QULIQIANTIAN1A,1) AND HHV(H,QULIQIANTIAN2A+1)>REF(HHV(H,QULIQIANTIAN2A+1),1),1,0);

GAOBAOLIUXB:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2A,1)<=REF(QULIQIANTIAN1A,1) AND REF(DIBAOLIU,QULIQIANTIAN2A)=-1 AND (QULIQIANTIAN2A>=4 OR HHV(QUEKOUPAND,QULIQIANTIAN2A)=1),1,0);

GAOBAOLIUX:=IF((GAOBAOLIUXA=1 OR GAOBAOLIUXB=1 OR PANDUAN2X=1) AND H>REF(L,QULIQIANTIAN2A+1),1,0);

YUPAN1XA:=IF((QULIQIANTIAN1A<4 AND HHV(QUEKOUPAND,QULIQIANTIAN1A)<>1) OR REF(GAOBAOLIUXA,QULIQIANTIAN1A)=0,1,0);

PANDUAN2XA:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1A,1)<=REF(QULIQIANTIAN2A,1) AND YUPAN1XA=1

AND DAZHI1>REF(DAZHI2,QULIQIANTIAN1A+1) AND DAZHI1>REF(DAZHI2,QULIQIANTIAN1A) AND

DAZHI1>REF(DAZHI1,QULIQIANTIAN2A),-1,0);

DIBAOLIUXA:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1A,1)>REF(QULIQIANTIAN2A,1) AND LLV(L,QULIQIANTIAN1A+1)<REF(LLV(L,QULIQIANTIAN1A+1),1),-1,0);

DIBAOLIUXB:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1A,1)<=REF(QULIQIANTIAN2A,1) AND (QULIQIANTIAN1A>=4 OR LLV(QUEKOUPAND,QULIQIANTIAN1A)=-1 OR PANDUAN2XA=-1),-1,0);

DIBAOLIUX:=IF((DIBAOLIUXA=-1 OR DIBAOLIUXB=-1) AND L<REF(H,QULIQIANTIAN1A+1),-1,0);

QULIQIANTIAN1YA:=BARSLAST(GAOBAOLIUX=1);

QULIQIANTIAN2YA:=BARSLAST(DIBAOLIUX=-1);

YUPAN1YX:=IF((QULIQIANTIAN2YA<4 AND HHV(QUEKOUPAND,QULIQIANTIAN2YA)<>1) OR REF(DIBAOLIUX,QULIQIANTIAN2YA)=0,1,0);

PANDUAN2YX:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2YA,1)<=REF(QULIQIANTIAN1YA,1) AND YUPAN1YX=1

AND DAZHI2>REF(DAZHI1,QULIQIANTIAN2YA+1) AND DAZHI2>REF(DAZHI1,QULIQIANTIAN2YA)

AND DAZHI2>REF(DAZHI2,QULIQIANTIAN1YA),1,0);

GAOBAOLIUYXA:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2YA,1)>REF(QULIQIANTIAN1YA,1) AND HHV(H,

QULIQIANTIAN2YA+1)>REF(HHV(H,QULIQIANTIAN2YA+1),1),1,0);

GAOBAOLIUYXB:=IF(JUBUGAODIANC=1 AND REF(QULIQIANTIAN2YA,1)<=REF(QULIQIANTIAN1YA,1) AND REF(DIBAOLIUX,QULIQIANTIAN2YA)=-1 AND (QULIQIANTIAN2YA>=4 OR HHV(QUEKOUPAND,QULIQIANTIAN2YA)=1),1,0);

GAOBAOLIUYX:=IF((GAOBAOLIUYXA=1 OR GAOBAOLIUYXB=1 OR PANDUAN2YX=1) AND H>REF(L,QULIQIANTIAN2YA+1),1,0);

YUPAN1YXA:=IF((QULIQIANTIAN1YA<4 AND HHV(QUEKOUPAND,QULIQIANTIAN1YA)<>1) OR REF(GAOBAOLIUYXA,QULIQIANTIAN1YA)=0,1,0);

PANDUAN2YXA:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1YA,1)<=REF(QULIQIANTIAN2YA,1) AND YUPAN1YXA=1 AND DAZHI1>REF(DAZHI2,QULIQIANTIAN1YA+1) AND DAZHI1>REF(DAZHI2,QULIQIANTIAN1YA) AND DAZHI1>REF(DAZHI1,QULIQIANTIAN2YA),-1,0);

DIBAOLIUYXA:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1YA,1)>REF(QULIQIANTIAN2YA,1) AND LLV(L,QULIQIANTIAN1YA+1)<REF(LLV(L,QULIQIANTIAN1YA+1),1),-1,0);

DIBAOLIUYXB:=IF(JUBUDIDIANC=-1 AND REF(QULIQIANTIAN1YA,1)<=REF(QULIQIANTIAN2YA,1) AND (QULIQIANTIAN1YA>=4 OR LLV(QUEKOUPAND,QULIQIANTIAN1YA)=-1 OR PANDUAN2YXA=-1),-1,0);

DIBAOLIUYX:=IF((DIBAOLIUYXA=-1 OR DIBAOLIUYXB=-1) AND L<REF(H,QULIQIANTIAN1YA+1),-1,0);

AAAD:=IF(GAOBAOLIUYX=1 AND DIBAOLIUYX=-1 AND H>REF(H,REF(QULIQIANTIAN1YA,1)+2),1,IF(GAOBAOLIUYX=1 AND DIBAOLIUYX=-1 AND L<REF(L,REF(QULIQIANTIAN2YA,1)+2),-1,0));

JIDIAN1:=IF(AAAD=0,GAOBAOLIUYX+DIBAOLIUYX,AAAD);

JUBU2:IF(JIDIAN1=-1,L,IF(JIDIAN1=1,H,NULL)) ,CIRCLEDOT,COLORYELLOW;

DRAWTEXT(JIDIAN1=1,JUBU2,’卖’),COLORGREEN,FONTSIZE18;

DRAWTEXT(JIDIAN1=-1,JUBU2,’买’),COLORRED,VALIGN0,FONTSIZE18;

MA5:MA(CLOSE,5),COLORFF00FF,LINETHICK2;

IF(MA5<REF(MA5,1),MA5,NULL),COLORGREEN,LINETHICK2;