program meanVariance integer :: int = 8 print *,"La media de N = 8 es: ",mean(int) print *,"La varianza de N = 8 es: ",variance(int) CONTAINS !----------------------------------------- real function fun(n) integer,intent(in) :: n fun = 0 if (mod(n,2) /= 0) then do i = 1,n,2 fun = fun + sin(1.0*i) end do else do i = 0,n,2 fun = fun + cos(1.0*i) end do end if end function fun !------------------------------------------ real function mean(n) integer,intent(in) :: n mean = 0 do i = 0,n mean = mean + fun(i) end do mean = mean/n end function mean !----------------------------------------- real function variance(n) integer,intent(in) :: n variance = 0 m = mean(n) do i = 0,n variance = variance +(fun(i)-m)**2 end do variance = variance/n end function variance !----------------------------------------- end program meanVariance