{Adaptacion de ProRealTime_BLAI5_VIGIA_v.10 a MetaStock}{-Octubre 2020-}pitufogranjero escribió: 21 Ago 2008 13:57 yo estoy llevando el vigia al metastock, si alguien puede ayudar, que se apunte...
{Esta creado en 5 indicadores para su mejor representacion y facilitar las exploraciones}
{VIGIA}
{"Vigia"}
MIMFI:=mfi(20);
MIPRECIO:=(o+c+h+l)/4;
OB1:=(bbandtop(MIPRECIO,20,s,2)+bbandbot(MIPRECIO,20,s,2))/2;
OB2:=bbandtop(MIPRECIO,20,s,2)-bbandbot(MIPRECIO,20,s,2);
BOLLOSC:=((c-OB1)/if(OB2=0,0.0001,OB2))*100;
MIRSI:=rsi(MIPRECIO,21);
MIESTOCASTICO:=(sum(MIPRECIO-(llv(l,20)),3)/if(sum(hhv(h,20)-llv(l,20),3)=0,0.0001,sum(hhv(h,20)-llv(l,20),3)))*100;
VG:=((MIRSI+MIMFI+BOLLOSC+(MIESTOCASTICO/3))/2)-60;
VG;
{VIGIA_Media}
{"Media de Vigia y Filtro"}
PERIODOS1:=input("Periodos Media Vigia",1,90,20);
MEDIAVIGIA:=mov(fmlvar("VIGIA","VG"),PERIODOS1,e);
HISTVG:=fmlvar("VIGIA","VG")-MEDIAVIGIA;
HISTAV:=wilders(HISTVG,PERIODOS1);
MEDIAVIGIA;
HISTAV;
{VIGIA_Bandas}
{"Bandas Variables"}
BANDAMEDIAVG:=mov(fmlvar("VIGIA","VG"),70,s);
BANDASUPERIORVG:=BANDAMEDIAVG + stdev(fmlvar("VIGIA","VG"),70);
BANDAINFERIORVG:=BANDAMEDIAVG - stdev(fmlvar("VIGIA","VG"),70);
BANDASUPERIORVG;
BANDAINFERIORVG;
{VIGIA_Astro}
{"Astro"}
ASTRO:=(mov(fmlvar("VIGIA","VG"),8,s)-mov(wilders(fmlvar("VIGIA","VG"),20),8,s))*.72;
ASTRO1:=if(ASTRO<0,ASTRO,0);
ASTRO2:=if(ASTRO>0,ASTRO,0);
ASTRO1;
ASTRO2;
{VIGIA_Vpm}
{"Volumen Proporcional Medio" con "ALERTA" para detectar puntas de volumen}
F:=35;
VOLMAX:=hhv(v,90);
MIVOL:=(v*100/if(VOLMAX=0,0.0001,VOLMAX))*4/5;
VOLMED:=mov(MIVOL,20,e);
VPM:=MIVOL-VOLMED;
VPM1:=if(VPM>0,VPM,0);
VPM2:=if(VPM<0,VPM,0);
VPM1;
VPM2;
ALERTA:=if(VPM>F or VPM<-F,VPM,0);
ALERTA;