X=Mm(c(5,52,25,16,7,19, 8,44,36,11,15,28,
  12,33,36,9,32,28, 14,23,35,7,55,29, 16,16,35,7,81,29,
  15,11,36,6,99,31, 14,9,32,7,108,37),col=6)
X=X/15
cat(file='uff','')

for (j in 1:6)
{v=X[,j]
z=Sme.biprofilo(v,10,dir=2)
z=round(z,2)
cat(file='uff','[',append=T)
cat(file='uff',A.coo(z),sep=',',append=T,fill=T)
cat(file='uff','],\n',append=T)}