problema traduzione da Visual Basic a Lazarus

[nomorelogic]

ByVal, a senso, dovrebbe copiare i valori

[Stilgar]

Si.
Ma ho dato una regola generale e non una risposa specifica, limitata alla domanda. 

[alexarmato66]

Ho proato a scrivere il seguente codice.Faccio una copia di una struttura dati polic[np] := poli[np] ( coordinate x,y .....numero di ertici numv..) in un'altra struttura per poi ruotarla di un angolo alfa calcolando le nuoe coordinate:

   c := Cos(alfa) ;
    s := Sin(alfa) ;

    For np := 1 To N_POLI do

    begin

      polic[np] := poli[np] ;

        For k :=1 To polic[np].numv do
          begin

            polic[np].x[k] := poli[np].x[k] * c + poli[np].y[k] * s  ;
            polic[np].y[k] := -poli[np].x[k] * s + poli[np].y[k] * c ;
          end;
    end;


NOn capisco perchè ad ogni ciclo for (k :=1 To polic[np].numv )
il valore -poli[np].x[k] * s della seconda equazione sostituisce il valore appena calcolato polic[np].x[k] .
Come potrei riscrierla..o forse ho sbagliato da qualche parte nella dichiarazione delle ariabili?
Grazie.

[DragoRosso]

Ho proato a scrivere il seguente codice.Faccio una copia di una struttura dati polic[np] := poli[np] ( coordinate x,y .....numero di ertici numv..) in un'altra struttura per poi ruotarla di un angolo alfa calcolando le nuoe coordinate:

   c := Cos(alfa) ;
    s := Sin(alfa) ;

    For np := 1 To N_POLI do

    begin

      polic[np] := poli[np] ;

        For k :=1 To polic[np].numv do
          begin

            polic[np].x[k] := poli[np].x[k] * c + poli[np].y[k] * s  ;
            polic[np].y[k] := -poli[np].x[k] * s + poli[np].y[k] * c ;
          end;
    end;


NOn capisco perchè ad ogni ciclo for (k :=1 To polic[np].numv )
il valore -poli[np].x[k] * s della seconda equazione sostituisce il valore appena calcolato polic[np].x[k] .
Come potrei riscrierla..o forse ho sbagliato da qualche parte nella dichiarazione delle ariabili?
Grazie.

Perchè a seconda della definizione delle strutture di dati, l'assegnazione "polic[np] := poli[np] " ha effetti differenti:

1) struttura statica, senza array dinamici => l'assegnazione viene effettuata per valore (ossia viene effettuata una copia dei valori, ma le locazioni delle due strutture sono distinte);
2) struttura con array dinamici => l'assegnazionie viene effettuata per riferimento, ossia le due strutture condividono lo stesso indirizzo di memoria dei dati.

(*Una operazione da effettuare, invece della assegnazione, se si vuole avere una copia dei valori è il "move":

move(poli[np] , polic[np], ______);

Al posto di ______ devi inserire la lunghzza in byte della tua struttura ... NON PUOI usare il sizeof  ...... effettivamente per calcolare le "lunghezza in byte" di una struttura dinamica in questo momento non mi sovviene nulla  .....
*)

**** EDIT: ho detto una castronata, effettivamente non si può fare una copia con il move di una struttura dinamica .... le memorie non sono contigue .....

Intanto potresti ciclare con un for copiando i valori di X e Y tra le due strutture .... non è elegante nè pratico ma per adesso ottieni lo scopo.....

[alexarmato66]

ho proato ma non ci sono riuscito:
   For np := 1 To N_POLI do

    begin

// polic[np] := poli[np] ;
  polic[np].numv := poli[np].numv ;

 // copia coord di  poli in polic  ********

   for k:=1 to  polic[np].numv  do
         begin
             polic[np].x[k]:= poli[np].x[k] ; // si pianta qui forse scrive sullo stesso indirizzo di memoria.
             polic[np].y[k]:= poli[np].y[k] ;
        end;

//*****************************************

        For k :=1 To polic[np].numv do
          begin
            polic[np].x[k] := poli[np].x[k] * c + poli[np].y[k] * s  ;
            polic[np].y[k] := -poli[np].x[k] * s + poli[np].y[k] * c ;
          end;
    end;   
                                                 
Forse devo creare due strutture distinte?

[DragoRosso]

Dovrebbe funzionare, verifica che l'estensione degli array x e Y siano [0..numv] o [1..numv], altrimenti si dovrebbe usare:

Codice: [Seleziona]

 for k:=1 to  polic[np].numv - 1  do

L'importante è che le variabili "polic" e "poli" non siano mai state assegnate direttamente se non tramite assegnazione tra i singoli membri.

***EDIT: effettua lo stesso controllo anche per "For np := 1 To N_POLI do"

N.B.: ricordati nei post di inserire il codice marcandolo con il tasto # (inserisce il tag code).

[alexarmato66]

Ho provato così ma no riesco a copiare le coordinate dalla struttura poli a polic:

Codice: [Seleziona]

# setlength(polic,N_POLI+1);

 # c := Cos(alfa) ;
  #  s := Sin(alfa) ;

 #   For np := 1 To N_POLI do

#    begin


# polic[np].numv := poli[np].numv;


 #       For k := 1 To polic[np].numv do
   #       begin
    #        polic[np].x[k] := poli[np].x[k] * c + poli[np].y[k] * s  ; //SI PIANTA QUI
    #        polic[np].y[k] := -poli[np].x[k] * s + poli[np].y[k] * c ;
   #       end;
  #   end; 

le strutture sono :

Codice: [Seleziona]

#// -------------------------------------------------------------------------- //
 #  poligono_sezione = record
#   x:array of Double ;          // coordinata x del vertice
#   y:array of Double ;          // coordinata y del vertice
#   numv : Integer;                      // numero di vertici del poligono
 #  fck : Double;                        //' fck
 #  fd : Double ;                        
#   omog : Double ;                      
#   traz : Integer ;                     
#   epsc0 : Double;           
#   epscu : Double;                      // Deformazione ultima del dominio
#   sigma:array of Double ;
#   end ;


#// -------------------------------------------------------------------------- //
#  poligono_sezione_c = record
#  x:array of Double ;          // coordinata x del vertice
#  y:array of Double ;          // coordinata y del vertice
#  numv : Integer;                      // numero di vertici del poligono
#  fck : Double;                        //' fck
#  fd : Double ;                        #  omog : Double ;                      
#  traz : Integer ;                     
#  epsc0 : Double;                      
#  epscu : Double;                      // Deformazione ultima del dominio
#  sigma:array of Double ;
#  end ;
#// -------------------------------------------------------------------------- //                       

 

[alexarmato66]

  SCUSATE PER GLI ASTERISCHI...NON LO FARO' PIU.

[DragoRosso]

SCUSATE PER GLI ASTERISCHI...NON LO FARO' PIU.

 

[DragoRosso]

Ho provato così ma no riesco a copiare le coordinate dalla struttura poli a polic:

Codice: [Seleziona]

# setlength(polic,N_POLI+1);

 # c := Cos(alfa) ;
  #  s := Sin(alfa) ;

 #   For np := 1 To N_POLI do

#    begin


# polic[np].numv := poli[np].numv;


 #       For k := 1 To polic[np].numv do
   #       begin
    #        polic[np].x[k] := poli[np].x[k] * c + poli[np].y[k] * s  ; //SI PIANTA QUI
    #        polic[np].y[k] := -poli[np].x[k] * s + poli[np].y[k] * c ;
   #       end;
  #   end; 

le strutture sono :

Codice: [Seleziona]

#// -------------------------------------------------------------------------- //
 #  poligono_sezione = record
#   x:array of Double ;          // coordinata x del vertice
#   y:array of Double ;          // coordinata y del vertice
#   numv : Integer;                      // numero di vertici del poligono
 #  fck : Double;                        //' fck
 #  fd : Double ;                        
#   omog : Double ;                      
#   traz : Integer ;                     
#   epsc0 : Double;           
#   epscu : Double;                      // Deformazione ultima del dominio
#   sigma:array of Double ;
#   end ;


#// -------------------------------------------------------------------------- //
#  poligono_sezione_c = record
#  x:array of Double ;          // coordinata x del vertice
#  y:array of Double ;          // coordinata y del vertice
#  numv : Integer;                      // numero di vertici del poligono
#  fck : Double;                        //' fck
#  fd : Double ;                        #  omog : Double ;                      
#  traz : Integer ;                     
#  epsc0 : Double;                      
#  epscu : Double;                      // Deformazione ultima del dominio
#  sigma:array of Double ;
#  end ;
#// -------------------------------------------------------------------------- //                       

 

Non serve definire due record distinti, sono identici quindi basta definirne uno solo. La dichiarazione delle variabili può avvenire tranquillamente con lo stesso record.
N.B.: per ragioni di leggibilibiltà, conviene che i nuovi tipi (come i record da te definiti) abbiano il prefisso T iniziale, ad esempio TPoligono_Sezione, ma è solo uno stile di scrittura.

Codice: [Seleziona]

var
  polic, poli: poligono_sezione;

//da qualche parte devi effettuare il setlength dei singoli array:
setlength(polic,N_POLI+1); //questo lo fai già
//setlength(poli,N_POLI+1);   // <= già fatto ???           

//Questo blocco lo puoi eseguire ogni qualvolta ti serve ridimensionare gli array
For np := 0 To N_POLI do   // <= qui sarebbe meglio: For np:= low(polic) to high(polic) do
  begin
     //numv !!!!!!!!!!!! deve essere dichiarato e settato ovviamente PRIMA DI usarlo qui
     setlength(polic[np].X, numv+1);  //SERVE AD ALLOCARE LO SPAZIO PER GLI ARRAY DINAMICI  ..... DEVE ESSERE FATTO PRIMA DI USARLI
     setlength(polic[np].Y, numv+1);
     setlength(polic[np].Sigma, numv+1);   //Ci ho messo anche sigma !!! non sò se la lunghezza è sempre quella
     //setlength(poli[np].X, numv+1);                // <= già fatto ???           
     //setlength(poli[np].Y, numv+1);                 // <= già fatto ???           
     //setlength(poli[np].Sigma, numv+1);        // <= già fatto ???           
  end;

da qualche altra parte: 

//Calcolo

For np := 1 To N_POLI do
  begin
      polic[np].numv := poli[np].numv;        // ATTENZIONE CHE poli[np].numv deve essere già impostato e poli[] e polic[] già con un setlength effettuato con gli array X e Y anche quelli con un setlength come da blocco sopra
      For k := 1 To polic[np].numv do
         begin
            polic[np].x[k] := poli[np].x[k] * c + poli[np].y[k] * s  ; //SI PIANTA QUI
            polic[np].y[k] := -poli[np].x[k] * s + poli[np].y[k] * c ;
         end;
  end; 

[DragoRosso]

I record in pascal, in realtà è una "ficture" introdotta da FPC e Delphi e non fà parte del Pascal standard, possono avere anche dei metodi usati normalmente per la "manutenzione" dei singoli membri .... ad esempio potresti avere un metodo che esegue il "setlength" di tutti i membri necessari senza dover chaimare a codice esplicito il "for" indicato nel post precedente:

...... (segue esempio) ......

Codice: [Seleziona]

type
  TProva = record
        X: array of integer;
        procedure NuovaLunghezza(Value: cardinal);
    end;

var 
  Prova: TProva;

procedure TProva.NuovaLunghezza(Value: cardinal);
begin
  SetLength(X, Value);
end;

begin
  //Come usarla nel codice
  Prova.NuovaLunghezza(10);
end;
          

[alexarmato66]

Grazie Drago Rosso!!!!Problema risolto.!!!!

[DragoRosso]

  Sono felice che la community ti sia stata di aiuto.
Buon lavoro.

Ciao ciao

[alexarmato66]

L'array sopra citato (polic) quando lo passerò ad una funzione tipo:

Codice: [Seleziona]

Function risult_compr(var polic:array of poligono_sezione; armco : armo_sezione;armcp:armp_sezione ; deform : deform_sezione; ymax : Double; yamin : Double; yn : Double) : risultante_n;

come lo dovrei passare. Poi all'interno della funzione devo sempre ridimensionare i vari array passati o dipende
da come li passo( var o valore)

[DragoRosso]

Viene automaticamente passato come riferimento. Quindi ciò che fai nella tua funzione è come se lavorasse nel "polic" originale, questo indipendentemente dalla "var".

Ciò che la "var" fà (in questo caso specifico) è dire al compilatore che se assegni un valore nella tua funzione (quindi cerchi di alterare il valore originale) non deve generare allert o error (ma questo solo in compilazione !!!).

Ciao