老师好帮忙编个跨周期指标 (文华财经WH8赢智V8.2)

 被引用指标AA参考：

DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
SC:MACD<0;

加载模型参考：

#IMPORT[WEEK,1,AA] AS VAR
WSC:=VAR.SC;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;

CROSS(MACD,0)&&WSC,BK;
LL:VALUEWHEN(CROSS(MACD,0),REF(LLV(L,SUMBARS(CROSSDOWN(MACD,0),1)),1));
C<LL,SP;
AUTOFILTER;

核实一下，大周期上是需要计算前一段红柱最高价到死叉时的跌幅A

如果在绿柱区间内从死叉开始统计跌幅大于A*20%则本段以后绿柱区间禁止开仓吗？ 

小周期参考：

DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
JC:CROSS(MACD,0);
SC:CROSSDOWN(MACD,0);
LL:VALUEWHEN(JC,REF(LLV(L,SUMBARS(SC,1)),1));//前面一堆绿柱价格的最低点
LLM:VALUEWHEN(JC,REF(LLV(MACD,SUMBARS(SC,1)),1));//前面一堆绿柱柱体最长
LLD:VALUEWHEN(JC,REF(LLV(DIFF,SUMBARS(SC,1)),1));//前面一堆绿柱DIFF的最低点
T1:LLV(L,SUMBARS(JC,1))>LL;//当堆进场价格不破前面一堆价格的最低点
T2:LLV(MACD,SUMBARS(JC,1))>LLM;//MACD柱子长度不破前面一堆MACD柱子的最长长度
T3:LLV(DIFF,SUMBARS(JC,1))>LLD;//当堆 DIF的最低值不破前一堆DIF的最低值

大周期参考；

DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
JC:CROSS(MACD,0);
SC:CROSSDOWN(MACD,0);
HHH:REF(HHV(H,SUMBARS(JC,1)),1);//金叉最高值
FD:IF(SC,(L-HHH)/HHH,NULL); //金叉最高值到死叉跌幅
HHH1:REF(H,SUMBARS(SC,1)-1);//死叉最高价
FD2:IF(MACD<0,(L-HHH1)/HHH1,NULL);//死叉到当前跌幅
XX:MACD<0&&FD2/FD>1.2;//跌幅大于20% XX返回1

 被引用指标AA:

DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
JC:CROSS(MACD,0);
SC:CROSSDOWN(MACD,0);
HHH:REF(HHV(H,SUMBARS(JC,1)),1);//金叉最高值
FD:IF(SC,(L-HHH)/HHH,NULL); //金叉最高值到死叉跌幅
HHH1:REF(H,SUMBARS(SC,1)-1);//死叉最高价
FD2:IF(MACD<0,(L-HHH1)/HHH1,NULL);//死叉到当前跌幅
XX:MACD<0&&FD2/FD>1.2;//跌幅大于20% XX返回1
SC1:MACD<0;

加载模型：

#IMPORT[WEEK,1,AA] AS VAR

DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
JC:CROSS(MACD,0);
SC:CROSSDOWN(MACD,0);
LL:VALUEWHEN(JC,REF(LLV(L,SUMBARS(SC,1)),1));//前面一堆绿柱价格的最低点
LLM:VALUEWHEN(JC,REF(LLV(MACD,SUMBARS(SC,1)),1));//前面一堆绿柱柱体最长
LLD:VALUEWHEN(JC,REF(LLV(DIFF,SUMBARS(SC,1)),1));//前面一堆绿柱DIFF的最低点
T1:LLV(L,SUMBARS(JC,1))>LL;//当堆进场价格不破前面一堆价格的最低点
T2:LLV(MACD,SUMBARS(JC,1))>LLM;//MACD柱子长度不破前面一堆MACD柱子的最长长度
T3:LLV(DIFF,SUMBARS(JC,1))>LLD;//当堆 DIF的最低值不破前一堆DIF的最低值

 WXX:=VAR.XX;
 WSC:=VAR.SC1;

CROSS(MACD,0)&&WSC&&NOT(WXX)&&T1&&T2&&T3,BK;
LLX:VALUEWHEN(CROSS(MACD,0),REF(LLV(L,SUMBARS(CROSSDOWN(MACD,0),1)),1));
C<LLX,SP;
AUTOFILTER;