杨凯黄金分割（通达信公式 主图 源码 测试图）

 二十均线:=(INTPART((MA(C,20) * 100)) / 100);

站稳状态:=(SUM((C >= 二十均线),4) = 4);

跌破状态:=(SUM((C <= 二十均线),4) = 4);

站稳确立:=CROSS(站稳状态,0.5);

跌破确立:=CROSS(跌破状态,0.5);

上涨浪:=((((BARSLAST(站稳确立) < BARSLAST(跌破确立)) AND (BARSLAST(站稳确立) >= 0)) OR

((BARSLAST(跌破确立) = -(1)) AND (BARSLAST(站稳确立) >= 0))) OR (((BARSLAST(跌破确立) = -(1)) AND (BARSLAST(站稳确立) = -(1))) AND (C > 二十均线)));

下跌浪:=((((BARSLAST(跌破确立) < BARSLAST(站稳确立)) AND (BARSLAST(跌破确立) >= 0))

OR ((BARSLAST(站稳确立) = -(1)) AND (BARSLAST(跌破确立) >= 0))) OR (((BARSLAST(跌破确立) = -(1)) AND (BARSLAST(站稳确立) = -(1))) AND (C <二十均线)));

 

MA5:MA(CLOSE,5);

MA20:MA(CLOSE,20);

 

 

VAR32:=CROSS(REF(C,3),REF(MA20,3)) AND REF(C,2)>=REF(MA20,2) AND REF(C,1)>=REF(MA20,1) AND C>=MA20;

VAR33:=CROSS(REF(MA20,3),REF(C,3)) AND REF(C,2)<=REF(MA20,2) AND REF(C,1)<=REF(MA20,1) AND C<=MA20;

VAR34:=BARSLAST(VAR32);

VAR35:=BARSLAST(VAR33);

VAR36:=REF(VAR34,1)>=VAR35 AND VAR34=0;

VAR37:=REF(VAR35,1)>=VAR34 AND VAR35=0;

VAR38:=BARSLAST(VAR36);

VAR39:=BARSLAST(VAR37);

VAR40:=REF(VAR38,VAR38+1)+VAR38+1;

VAR41:=REF(VAR39,VAR39+1)+VAR39+1;

VAR42:=REF(HHVBARS(HIGH,VAR38+1),VAR39+1)+VAR39+1;

VAR43:=REF(LLVBARS(LOW,VAR39+1),VAR38+1)+VAR38+1;

VAR44:=HHVBARS(HIGH,VAR43);

VAR45:=LLVBARS(LOW,VAR42);

VAR46:=HHV(HIGH,VAR43);

VAR47:=LLV(LOW,VAR42);

VAR48:=REF(VAR46,VAR39+1);

VAR49:=REF(VAR47,IF(VAR38<VAR39,VAR40+1,VAR38+1));

 

低点黄:=VAR49;

高点原:=VAR48;

 

 

低点:=VAR49;

STICKLINE(ISLASTBAR,低点,低点,700,-1),COLORYELLOW;

 

 

HXS1:=VAR48;

STICKLINE(ISLASTBAR,HXS1,HXS1,700,-1),COLORYELLOW;

 

 

HXS2:=(INTPART(((低点 + ((HXS1 - 低点) * 0.236)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C>=低点黄,HXS2,HXS2,700,-1),COLORBLUE;

 

HXS3:=(INTPART(((低点 + ((HXS1 - 低点) * 0.382)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C>=低点黄,HXS3,HXS3,700,-1),COLORGREEN;

 

HXS4:=(INTPART(((低点 + ((HXS1 - 低点) * 0.5)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C>=低点黄,HXS4,HXS4,700,-1),COLORWHITE;

 

HXS5:=(INTPART(((低点 + ((HXS1 - 低点) * 0.618)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C>=低点黄,HXS5,HXS5,700,-1),COLORMAGENTA;

 

HXS6:=(INTPART(((低点 + ((HXS1 - 低点) * 1.618)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C>=低点黄,HXS6,HXS6,700,-1),COLORRED;

 

HXS7:=(INTPART(((低点 + ((HXS1 - 低点) * 2.618)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C>=低点黄,HXS7,HXS7,700,-1),COLORRED;

 

 

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS1,'%1.000'),COLORYELLOW;

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS2,'%0.236'),COLORBLUE;

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS3,'%0.382'),COLORGREEN;

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS4,'%0.500'),COLORWHITE;

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS5,'%0.618'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR AND C>=低点黄,低点,'%0.000'),COLORYELLOW;

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS6,'%1.618'),COLORRED;

DRAWTEXT(ISLASTBAR AND C>=低点黄,HXS7,'%2.618'),COLORRED;

 

HXX2:=(INTPART(((HXS1 + ((低点 - HXS1) * 0.236)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C<低点黄,HXX2,HXX2,700,-1),COLORBLUE;

 

HXX3:=(INTPART(((HXS1 + ((低点 - HXS1) * 0.382)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C<低点黄,HXX3,HXX3,700,-1),COLORGREEN;

 

HXX4:=(INTPART(((HXS1 + ((低点 - HXS1) * 0.5)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C<低点黄,HXX4,HXX4,700,-1),COLORWHITE;

 

HXX5:=(INTPART(((HXS1 + ((低点 - HXS1) * 0.618)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C<低点黄,HXX5,HXX5,700,-1),COLORMAGENTA;

 

HXX6:=(INTPART(((HXS1 + ((低点 - HXS1) * 1.618)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C<低点黄,HXX6,HXX6,700,-1),COLORRED;

 

HXX7:=(INTPART(((HXS1 + ((低点 - HXS1) * 2.618)) * 100)) / 100);

STICKLINE(ISLASTBAR AND C<低点黄,HXX7,HXX7,700,-1),COLORRED;

 

DRAWTEXT(ISLASTBAR AND C<低点黄,低点,'%1.000'),COLORYELLOW;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXX2,'%0.236'),COLORBLUE;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXX3,'%0.382'),COLORGREEN;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXX4,'%0.500'),COLORWHITE;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXX5,'%0.618'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXS1,'%0.000'),COLORYELLOW;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXX6,'%1.618'),COLORRED;

DRAWTEXT(ISLASTBAR AND C<低点黄,HXX7,'%2.618'),COLORRED;

 

IF(上涨浪,MA20,DRAWNULL),LINETHICK2,COLORRED;

IF(下跌浪,MA20,DRAWNULL),LINETHICK2,COLORGREEN;

 

零位:=IF(C>=低点黄,低点,HXS1);

二三六位:=IF(C>=低点黄,HXS2,HXX2);

三八二位:=IF(C>=低点黄,HXS3,HXX3);

五位:=IF(C>=低点黄,HXS4,HXX4);

六一八位:=IF(C>=低点黄,HXS5,HXX5);

一位:=IF(C>=低点黄,HXS1,低点);

一六一八位:=IF(C>=低点黄,HXS6,HXX6);

二六一八位:=IF(C>=低点黄,HXS7,HXX7);

 

 

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.05,1,'2.618：'),COLORRED;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.05,0,二六一八位),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.1,1,'1.618：'),COLORRED;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.1,0,一六一八位),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.15,1,'1.000：'),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.15,0,一位),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.2,1,'0.618：'),COLORMAGENTA;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.2,0,六一八位),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.25,1,'0.500：'),COLORWHITE;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.25,0,五位),COLORWHITE;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.3,1,'0.382：'),COLORGREEN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.3,0,三八二位),COLORGREEN;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.35,1,'0.236：'),COLORBLUE;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.35,0,二三六位),COLORBLUE;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.4,1,'0.000：'),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.11,0.4,0,零位),COLORYELLOW;

 

 

 

70822.com@051.png