Pascal - Rotazione matrice

Forum - Pascal - Rotazione matrice

djleo (Member)
Pro

Messaggi: 72
Iscritto: 07/03/2010

Postato alle 18:34
Lunedì, 27/09/2010

Ciao come posso fare per far ruotare il contenuto di una matrice.
es

a b c d e
f g h i j
k l m n o
p q r s t
u v w x y
z 1 2 3 4
5 6 7 8 9

Devo spostare tutto il contenuto verso sinistra di n elementi.
es
3
d e f g h
i j k l m
n o p q r
s t u v w
x y z 1 2
3 4 5 6 7
8 9 a b c

Datemi un indizio, ci sto lavorando da più di 3 giorni.

<a href=http://1-parts.autosites.com.ua/ >Ð¸Ð½Ð¾Ð¼Ð°Ñ€ÐºÐ¸</a>

Ultima modifica effettuata da djleo il 27/09/2010 alle 20:52

Bonny (Member)
Expert

Messaggi: 437
Iscritto: 24/04/2009

Postato alle 18:55
Lunedì, 27/09/2010

In geometria questo è possiblie
http://it.wikipedia.org/wiki/Rotazione_%28matematica%29

ma tu vuoi tipo scambiare le righe con le colonne??
esempio

a b --> a c
c d b d

solo per matrici quadrate.

Ultima modifica effettuata da Bonny il 27/09/2010 alle 18:58

djleo (Member)
Pro

Messaggi: 72
Iscritto: 07/03/2010

Postato alle 19:06
Lunedì, 27/09/2010

No non devo scambiare le colonne con le righe ma fare come da esempio

es

a b c d e
f g h i j
k l m n o
p q r s t
u v w x y
z 1 2 3 4
5 6 7 8 9

Devo spostare tutto il contenuto verso sinistra di n elementi.
es
3
d e f g h
i j k l m
n o p q r
s t u v w
x y z 1 2
3 4 5 6 7
8 9 a b c

Ultima modifica effettuata da djleo il 27/09/2010 alle 19:11

djleo (Member)
Pro

Messaggi: 72
Iscritto: 07/03/2010

Postato alle 20:54
Lunedì, 27/09/2010

Risolto in un modo molto bruto ma risolto. Spiego ho caricato il contenuto della matrice in un vettore poi ho fatto la rotazione in fine ho riportato il tutto nella matrice.

gigisoft (Member)
Guru

Messaggi: 696
Iscritto: 11/10/2008

Postato alle 22:53
Lunedì, 27/09/2010

Salve,
se ho capito bene devi slittare tutti i caratteri di 3 posizioni, eventualmente portandoli sulla riga precedente; prova cosi':

Codice sorgente - presumibilmente Delphi

Var Temp: array[1..3] of char;
    I, J, Ki, Kj: Integer;
[...]
For I:=1 to NColonne do
Begin
  For J:=1 to NRighe do
  Begin
    Ki := I - 3;
 
    If (Ki < 0) Then
       Begin
         Ki := Ki + NColonne;
         Kj := Kj - 1;
       End
     Else
       Kj := J;
 
    If (Kj < 0) Then
       Temp[I] := Matrice[I, J]
     Else
       Matrice[Ki, Kj] := Matrice[I, J]
 
  End;
 
  For I := 1 to 3 do
    Matrice[NColonne + I - 3, NRighe] := Temp[I]
End;

Ciao

Luigi

Ultima modifica effettuata da gigisoft il 27/09/2010 alle 23:49

crack001 (Normal User)
Rookie

Messaggi: 52
Iscritto: 25/10/2007

Postato alle 0:14
Martedì, 28/09/2010

da come ho capito è un lavoro di indici, utilizzi 2 cicli per una matrice, 1 per le righe e 1 per le colonne...devi rallentare l'indice delle righe...