程序描述

p:=26;
s:=12;
m:=9;
DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA);

UPCROSS:=macd1>0;
DWCROSS:=macd1<0;
NN1:=BARSLAST(UPCROSS);
NN2:=REF(BARSLAST(UPCROSS),NN1+1);
NN3:=REF(BARSLAST(UPCROSS),NN1+NN2+1+1);
NNN:=NN1+NN2+NN3,COLORRED;

HH1:REF(macd1,NN1);//  上一次的最高值

HH2:REF(macd1,NN2+NN1+1);//上二次

HH3:REF(macd1,NN3+NN2+1+NN1+1);//上三次

P:=26;
S:=12;
M:=9;
DIFF := EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  := EMA(DIFF,M);
MACD1 := 2*(DIFF-DEA);

UPCROSS:=MACD1>0 AND REF(MACD1<0,1);
DWCROSS:=MACD1<0 AND REF(MACD1>0,1);
NN1:BARSLAST(UPCROSS);
NN2:REF(BARSLAST(UPCROSS),NN1+1);
NN3:REF(BARSLAST(UPCROSS),NN1+NN2+1+1);
MM1:BARSLAST(DWCROSS);
MM2:REF(BARSLAST(DWCROSS),NN1+1);
MM3:REF(BARSLAST(DWCROSS),NN1+NN2+1+1);
r1:=REF(HHV(macd1,nn1+1),mm1+1);
ht1:=hhv(macd1,nn1+1);
r2:=ref(hhv(macd1,nn1+1),mm1+1);
ht2:=ref(hhv(macd1,nn1+1),nn1+1+ref(mm1,nn1+1)+1);
r3:=ref(hhv(macd1,nn1+1),mm1+1+ref(mm1,mm1+1)+1);
ht3:=ref(hhv(macd1,nn1+1),nn1+1+ref(nn1,nn1+1)+1+ref(mm1,nn1+1+ref(nn1,nn1+1)+1));
if macd1>0 then hh1:=ht1;
if macd1<0 then HH1:=r1;
h1:hh1;
if macd1>0 then hh2:=r2;
if macd1<0 then hh2:=ht2;
h2:hh2;
if macd1>0 then hh3:=r3;
if macd1<0 then hh3:=ht3;
h3:hh3;

H1,H2,H3分別為最近3塊紅柱子的最大值