Db(2)
X=Db.matrice();
cat(file='uff','')
Y=Sm.tra01(X)*7

for (i in 1:15)
{v=Y[i,]
z=Sme.biprofilo(v,10)
z=round(z,2)
cat(file='uff','[',append=T)
cat(file='uff',A.coo(z),sep=',',append=T)
cat(file='uff','],\n',append=T)}