ale73a
break even trader
questo invece è un ts basato su mm adattata a picchi e valli, gentilmente messo in chiaro qualche tempo fa da una persona...sto cercando di tradurlo da metastock a vt, solo che non capisco le prime righe, poi l'ho tradotto...un aiutino? grazie
**********************************************
pds:=Input("EMA periods",1,2520,7)/2;
spread:=Input("Up/Low EMA bands shift %",
-900,900,2)/200;
pk:=C<Ref(C,-1) AND Ref(C,-1)>Ref(C,-2);
pkVal:=ValueWhen(1,pk,Ref(C,-1));
tr:=C>Ref(C,-1) AND Ref(C,-1)<Ref(C,-2);
trVal:=ValueWhen(1,tr,Ref(C,-1));
pkpds:=If(pds>Cum(pk),Cum(pk),pds);
pkpds:=If(pkpds<1,1,pkpds);
pkEma:=pkVal*2/(pkpds+1)+PREV*(1-2/(pkpds+1));
pkEma:=pkEma*(1+spread);
trpds:=If(pds>Cum(tr),Cum(tr),pds);
trpds:=If(trpds<1,1,trpds);
trEma:=trVal*2/(trpds+1)+PREV*(1-2/(trpds+1));
trEma:=trEma*(1-spread);
Ema:=(pkEma+trEma)/2;
Ema;
**********************************************
pds:=Input("EMA periods",1,2520,7)/2;
spread:=Input("Up/Low EMA bands shift %",
-900,900,2)/200;
pk:=C<Ref(C,-1) AND Ref(C,-1)>Ref(C,-2);
pkVal:=ValueWhen(1,pk,Ref(C,-1));
tr:=C>Ref(C,-1) AND Ref(C,-1)<Ref(C,-2);
trVal:=ValueWhen(1,tr,Ref(C,-1));
pkpds:=If(pds>Cum(pk),Cum(pk),pds);
pkpds:=If(pkpds<1,1,pkpds);
pkEma:=pkVal*2/(pkpds+1)+PREV*(1-2/(pkpds+1));
pkEma:=pkEma*(1+spread);
trpds:=If(pds>Cum(tr),Cum(tr),pds);
trpds:=If(trpds<1,1,trpds);
trEma:=trVal*2/(trpds+1)+PREV*(1-2/(trpds+1));
trEma:=trEma*(1-spread);
Ema:=(pkEma+trEma)/2;
Ema;