zad_2.txt

(0 KB) Pobierz 
A=matrix(1:6, nrow=2, ncol=3)
A
k=dim(A)[2]
w=dim(A)[1]
ile=min(k,w)
B=matrix(0:0,nrow=ile,ncol=ile)
	for(j in 1:ile)
	{     suma=0
		sumaw=0
		sumak=0
		for (i in 1:w)
		{
		sumaw=sumaw+A[i,j]
		}
	
		for (i in 1:k)
		{
		sumak=sumak+A[j,i]
		}
	suma=sumaw+sumak
	B[j,j]=suma-A[j,j]
	}
	B

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin