同花顺指标改成金字塔指标

pilot

同花顺STC指标在同花顺正常运行 我想放在金字塔里使用。但是第13行开始 发生F1：=IF(V2>0,((K-V1)/V2)*100,IF(REF(F1,1),REF(F1,1),0)); 总提示未定义变量F1。谁可以帮帮忙改编一下能够在金字塔里运行。
DIFF = EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA  = EMA(DIFF,M);
Zero : 0;
a:M2;
SHO=2*EMA(CLOSE,SHORT)-EMA(EMA(CLOSE,SHORT),SHORT);
LON=2*EMA(CLOSE,LONG)-EMA(EMA(CLOSE,LONG),LONG);
DIF=SHO-LON;
DE=2*EMA(DIF,M)-EMA(EMA(DIF,M),M);
MACD=2*(DIF-DE);
K=DIF;
V1=LLV(K,M);
V2=HHV(K,M)-V1;
F1=IF(V2>0,((K-V1)/V2)*100,IF(REF(F1,1),REF(F1,1),0));
PF=IF(IF(REF(PF,1),0,1)=1,F1,(REF(PF,1)+0.5*(F1-REF(PF,1))));
V3=LLV(PF,M);
V4=HHV(PF,M)-V3;
F2=IF(V4>0,((PF-V3)/V4)*100,IF(REF(F2,1),REF(F2,1),0));
PFF=IF(IF(REF(PFF,1),0,1)=1,F2,(REF(PFF,1)+0.5*(F2-REF(PFF,1))));
DEM:PFF;
Y=DIFF;
V10=LLV(Y,M);
V20=HHV(Y,M)-V10;
F10=IF(V20>0,((Y-V10)/V20)*100,IF(REF(F10,1),REF(F10,1),0));
PF0=IF(IF(REF(PF0,1),0,1)=1,F10,(REF(PF0,1)+0.5*(F10-REF(PF0,1))));
V30=LLV(PF0,M);
V40=HHV(PF0,M)-V30;
F20=IF(V40>0,((PF0-V30)/V40)*100,IF(REF(F20,1),REF(F20,1),0));
PFF0=IF(IF(REF(PFF0,1),0,1)=1,F20,(REF(PFF0,1)+0.5*(F20-REF(PFF0,1))));
EM:PFF0;
UP:25;
DOWN:75;

技术009

[PEL] 复制代码

input:p(26,20,100,8),s(12,5,40,4),m(9,2,60,6);
DIFF := EMA(CLOSE,S) - EMA(CLOSE,p);
DEA  := EMA(DIFF,M);
Zero : 0;
VARIABLE:f1:=0,pf:=0,F2:=0,PFF:=0,f10:=0,PF0:=0,F20:=0,PFF0:=0;
SHO:=2*EMA(CLOSE,S)-EMA(EMA(CLOSE,S),S);
LON:=2*EMA(CLOSE,p)-EMA(EMA(CLOSE,p),p);
DIF:=SHO-LON;
DE:=2*EMA(DIF,M)-EMA(EMA(DIF,M),M);
MACD:=2*(DIF-DE);
K:=DIF;
V1:=LLV(K,M);
V2:=HHV(K,M)-V1;
F1:=IF(V2>0,((K-V1)/V2)*100,IF(REF(F1,1),REF(F1,1),0));
PF:=IF(IF(REF(PF,1),0,1)=1,F1,(REF(PF,1)+0.5*(F1-REF(PF,1))));
V3:=LLV(PF,M);
V4:=HHV(PF,M)-V3;
F2:=IF(V4>0,((PF-V3)/V4)*100,IF(REF(F2,1),REF(F2,1),0));
PFF:=IF(IF(REF(PFF,1),0,1)=1,F2,(REF(PFF,1)+0.5*(F2-REF(PFF,1))));
DEM:PFF;
Y:=DIFF;
V10:=LLV(Y,M);
V20:=HHV(Y,M)-V10;
F10:=IF(V20>0,((Y-V10)/V20)*100,IF(REF(F10,1),REF(F10,1),0));
PF0:=IF(IF(REF(PF0,1),0,1)=1,F10,(REF(PF0,1)+0.5*(F10-REF(PF0,1))));
V30:=LLV(PF0,M);
V40:=HHV(PF0,M)-V30;
F20:=IF(V40>0,((PF0-V30)/V40)*100,IF(REF(F20,1),REF(F20,1),0));
PFF0:=IF(IF(REF(PFF0,1),0,1)=1,F20,(REF(PFF0,1)+0.5*(F20-REF(PFF0,1))));
EM:PFF0;
UP:25;
DOWN:75;

这样试下吧。但是不能保证一致，不同软件至多代码规范相似。底层怎么实现的，大家可能还是有差异。

pilot

可以正常运行了，感谢版主

于智取

顶