Matrice trasposta.

di
Pasquale
il
1 risposte
P
Pasquale
Pochi posts
Iscritto da
dic, 2018
Messaggi:
4

Matrice trasposta.

Buongiorno,
qualche giorno fà ho pubblicatio nella sezione ingegneria del software il presente algoritmo. Non avendo nessuna risposta, suppongo che la sezione non è idonea a tale algoritmo, per cui ho pensato di spostare il topic in questa sezione.

Allora il presente algortitmo dovrebbe calcolare la matrice trasposta A^t di una matrice A, vi riporto il mio code :

program traspostamatrice
integer:: i,j,n
real:: a(10,20),b(20,10),s
print*, 'inserire ordine matrice'
read*, n
print*, 'inserire elementi della matrice A'
do i= 1,n
do j= 1,n
read*, a(i,j)
end do
end do
do i =1,n
do j =1,n
a(i,j)=s
s=b(j,i)
end do
end do
do j= 1,n
do i= 1,n
print*, b(j,i)
end do
end do
end

Nota: all'avvio non sono presenti errori, il problema si presenta dopo aver inserito i dati, o meglio, per sequenza:
inserisco ordine n,
inserisco quindi n^2 elementi (numeri);
dopo fatto ciò mi da valori strani.


In attesa di una vostra risposta,

Cordiali saluti.

1 Risposte

  • P
    Pasquale
    Pochi posts
    Iscritto da
    dic, 2018
    Messaggi:
    4

    Re: Matrice trasposta.

    Buonasera,
    dopo qualche tentativo sono riuscito a portare a termine il mio obiettivo. Riporto il code dell'algoritmo funzionante, giacchè potrebbe tornare utile a qualcuno.
    program traspostamatrice
integer:: i,j,n
real:: a(10,10),s
read*, n
do i= 1,n
do j= 1,n
read*, a(i,j)
end do 
end do
do i =2,n
do j =1,i-1
s=a(i,j)
a(i,j) = a(j,i)
a(j,i) = s
end do 
end do
do i =1,n
do j =1,n
print*, a(i,j)
end do 
end do 
end
    Ciao
Devi accedere o registrarti per scrivere nel forum
1 risposte