function(x, alfa)
{
	n <- length(x)
	i1 <- floor((n * alfa)/2) + 1
	i2 <- floor(n * (1 - alfa/2))
	xs <- sort(x)
	xst <- xs[i1:i2]
	std(xst)
}
