同花順纏論分筆及中樞主圖改為文華[文華財經公式]

MA5:MA(CLOSE,5);
KU1:=IFELSE(HIGH=HHV(HIGH,3),1,0);

KD1:=IFELSE(LOW=LLV(LOW,3),1,0);

UL:=IFELSE(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));

DL:=IFELSE(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));

HHVV:=H>UL AND H>REF(H,1) ;

LLVV:=L<DL AND L<REF(L,1) ;

HV1:=HHVV AND H>=HHV(H,BARSLAST(LLVV));

LV1:=LLVV AND L<=LLV(L,BARSLAST(HHVV));

DRAWLINE(LV1,LOW,HV1, HIGH,COLORYELLOW);

DRAWLINE(HV1,HIGH,LV1, LOW,COLORMAGENTA); ///加入中樞判定//簡化版

N1:=10;

N2:=10;

DISP:=2;

K:=1;

P1:=PEAK(O,K*N1,1,1);

P2:=PEAK(O,K*N1,2,1);

WP1:=PEAKBARS(O,K*N1,1,1);

 WP2:=PEAKBARS(O,K*N1,2,1);

 T1:=TROUGH(H,K*N2,1,1);

T2:=TROUGH(H,K*N2,2,1);

WT1:=TROUGHBARS(H,K*N2,1,1);

WT2:=TROUGHBARS(H,K*N2,2,1);

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 AND TJ2 AND 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)) AND ZD<REF(MA5,1);
TJ8:=TJ4 AND NOT(TJ5 OR TJ6 OR TJ7);
ZSD:=IFELSE(TJ8,ZD,REF(ZD,1)),COLORYELLOW;
ZSG:=IFELSE(TJ8,ZG,REF(ZG,1)),COLORMAGENTA;
ZSH:=IFELSE(TJ8,HH,REF(HH,1)),COLORBLUE;
ZSL:=IFELSE(TJ8,LL,REF(LL,1)),COLORGREEN;
STICKLINE(TJ8,ZSH,ZSL,0,COLORMAGENTA);
STICKLINE(TJ8,ZSD,ZSG,COLORMAGENTA,1);
DRAWTEXT(DISP=2,ZSH,'GG');
//中樞高

POLYLINE(DISP=2,REF(ZSG,BARSLAST(TJ8)),COLORMAGENTA);
//中樞低:

POLYLINE(DISP=2,REF(ZSD,BARSLAST(TJ8)),COLORYELLOW);
//中樞最高:

POLYLINE(DISP=2,REF(ZSH,BARSLAST(TJ8)),COLORRED);
//中樞最低:

POLYLINE(DISP=2,REF(ZSL,BARSLAST(TJ8)),COLORGREEN);
//趨勢高:
//QSGD1:POLYLINE(DISP=3,ZIGZAG(O,K*N1,1)),COLORBLUE;
//趨勢低:
//QSDD1:POLYLINE(DISP=3,ZIGZAG(H,K*N2,1)),COLORBLUE;

MZH1:=MA5>REF(MA5,1);
MZH2:=MA5<REF(MA5,1);
//判定:
PARTLINE(MZH1,MA5,COLORYELLOW);
PARTLINE(MZH2,MA5,COLORRED);
//F1:IF(MA5<REF(MA5,1),MA5,NULL),colorwhite,LINETHICK2;