%ste.m
function [res]=ste(x)
res=sum(x.^2)/length(x);
