İndikatör Variable Moving Average lazy bear

Variable Moving Average lazy bear
Selam,
Vam göstergesi;
period:= Input("Period",1,5100,6);
k:=1/period;
pdm:=max(c-ref(c,-1),0);
mdm:=max(ref(c,-1)-c,0);
pdmS:= ((1 - k)*prev + k*pdm);
mdmS:= ((1 - k)*prev + k*mdm);
ss:= pdmS + mdmS;
pdi:= pdmS/ss;
mdi:= mdmS/ss;
pdiS:= ((1 - k)*prev+ k*pdi);
mdiS:= ((1 - k)*prev + k*mdi);
dd:= abs(pdiS - mdiS);
s1:= pdiS + mdiS;
iS:= ((1 - k)*prev + k*dd/s1);
hh:= hhv(iS, period);
ll:= llv(iS, period);
d1:= hh - ll;
vI:= (iS - ll)/d1;
vma:= (1 - k*vI)*prev + k*vI*c;
vma


EXPLORER AL FORMÜLÜ:
period:=6;
k:=1/period;
pdm:=max(c-ref(c,-1),0);
mdm:=max(ref(c,-1)-c,0);
pdmS:= ((1 - k)*prev + k*pdm);
mdmS:= ((1 - k)*prev + k*mdm);
ss:= pdmS + mdmS;
pdi:= pdmS/ss;
mdi:= mdmS/ss;
pdiS:= ((1 - k)*prev+ k*pdi);
mdiS:= ((1 - k)*prev + k*mdi);
dd:= abs(pdiS - mdiS);
s1:= pdiS + mdiS;
iS:= ((1 - k)*prev + k*dd/s1);
hh:= hhv(iS, period);
ll:= llv(iS, period);
d1:= hh - ll;
vI:= (iS - ll)/d1;
vma:= (1 - k*vI)*prev + k*vI*c;
cross(c,vma)

EXPLORER SAT FORMÜLÜ:
period:=6;
k:=1/period;
pdm:=max(c-ref(c,-1),0);
mdm:=max(ref(c,-1)-c,0);
pdmS:= ((1 - k)*prev + k*pdm);
mdmS:= ((1 - k)*prev + k*mdm);
ss:= pdmS + mdmS;
pdi:= pdmS/ss;
mdi:= mdmS/ss;
pdiS:= ((1 - k)*prev+ k*pdi);
mdiS:= ((1 - k)*prev + k*mdi);
dd:= abs(pdiS - mdiS);
s1:= pdiS + mdiS;
iS:= ((1 - k)*prev + k*dd/s1);
hh:= hhv(iS, period);
ll:= llv(iS, period);
d1:= hh - ll;
vI:= (iS - ll)/d1;
vma:= (1 - k*vI)*prev + k*vI*c;
cross(vma,c)

LazyBear tradingview için yazmış uufuk çevirmiş
@kivancozbilgic kıvanc hocam da kombinlemiş (vortex-macd-vam)
K1:=Macd(26,12,9);
K2:=Macdtrigger(26,12,9);
pd:=10; VMP:=Abs(H-ref(L,-1));
VMN:=Abs(L-ref(H,-1));
VMTP:=SUM(VMP,pd);
VMTN:=SUM(VMN,pd);
V1:=H-L;
V2:=Abs(H-ref(c,-1));
V3:=Abs(L-ref(c,-1));
V4:=max(V1,V2);
TR:=max(V3,V4);
TRP:=sum(TR,pd);
VORTEX+:=VMTP/TRP;
VORTEX-:=VMTN/TRP;
period:= 6;
k:=1/period;
pdm:=max(c-ref(c,-1),0);
mdm:=max(ref(c,-1)-c,0);
pdmS:= ((1 - k)*prev + k*pdm);
mdmS:= ((1 - k)*prev + k*mdm);
ss:= pdmS + mdmS;
pdi:= pdmS/ss;
mdi:= mdmS/ss;
pdiS:= ((1 - k)*prev+ k*pdi);
mdiS:= ((1 - k)*prev + k*mdi);
dd:= abs(pdiS - mdiS);
s1:= pdiS + mdiS;
iS:= ((1 - k)*prev + k*dd/s1);
hh:= hhv(iS, period);
ll:= llv(iS, period);
d1:= hh - ll;
vI:= (iS - ll)/d1;
vma:= (1 - k*vI)*prev + k*vI*c;
cross(c,vma) and cross(k1,k2) and cross(vortex+,vortex-)