'ESTE PROGRAMA SE DEBE EJECUTAR UNA VEZ TENGAMOS ABIERTO EL WORKFILE EN EL QUE ESTÁN LAS SERIES PARA LAS QUE QUEREMOS HACER EL GRÁFICO RANGO-MEDIA. 


smpl @all	 

'IGUALAR N AL TAMAÑO DE LA MUESTRA
scalar N=27

'IGUALAR F AL TAMAÑO DE LAS SUBMUESTRAS DESEADO
scalar F=4

'IGUALAR X A LA SERIE TEMPORAL PARA LA QUE QUERAMOS EL GRÁFICO
genr X=cpublico



'a partir de aqui no se debe modificar nada
genr media=0
genr dt=0

for !i=1 to N
	if !i*f>n then exitloop endif
	%1= @otod(!i*f-f+1)
	%2= @otod(!i*f )
	smpl %1 %2
		media(!i)=@mean(x)
		dt(!i)=@var(x)^(1/2)
next

smpl @all	 if dt>0
scat media dt
smpl @all