|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
bendesarts
Inscrit le: 27 Fév 2009 Messages: 234
|
Posté le: 02 Sep 2016 17:26 Sujet du message: faire une séquence ou boucle sur des affectations |
|
|
Bonjour,
J'aimerais faire quelque chose de plus synthétique pour le bout de code suivant :
Code: |
tp:=convert(LinearAlgebra:-Transpose(FromExcel)[1],list):
xpp[1]:=convert(LinearAlgebra:-Transpose(FromExcel)[2],list):
ypp[1]:=convert(LinearAlgebra:-Transpose(FromExcel)[3],list):
zpp[1]:=convert(LinearAlgebra:-Transpose(FromExcel)[4],list):
phip[1]:=convert(LinearAlgebra:-Transpose(FromExcel)[5],list):
gammap[1]:=convert(LinearAlgebra:-Transpose(FromExcel)[6],list):
xpp[2]:=convert(LinearAlgebra:-Transpose(FromExcel)[7],list):
ypp[2]:=convert(LinearAlgebra:-Transpose(FromExcel)[8],list):
zpp[2]:=convert(LinearAlgebra:-Transpose(FromExcel)[9],list):
phip[2]:=convert(LinearAlgebra:-Transpose(FromExcel)[10],list):
gammap[2]:=convert(LinearAlgebra:-Transpose(FromExcel)[11],list):
xpp[3]:=convert(LinearAlgebra:-Transpose(FromExcel)[12],list):
ypp[1]:=convert(LinearAlgebra:-Transpose(FromExcel)[13],list):
zpp[3]:=convert(LinearAlgebra:-Transpose(FromExcel)[14],list):
phip[3]:=convert(LinearAlgebra:-Transpose(FromExcel)[15],list):
gammap[3]:=convert(LinearAlgebra:-Transpose(FromExcel)[16],list):
xpp[4]:=convert(LinearAlgebra:-Transpose(FromExcel)[17],list):
ypp[4]:=convert(LinearAlgebra:-Transpose(FromExcel)[18],list):
zpp[4]:=convert(LinearAlgebra:-Transpose(FromExcel)[19],list):
phip[4]:=convert(LinearAlgebra:-Transpose(FromExcel)[20],list):
gammap[4]:=convert(LinearAlgebra:-Transpose(FromExcel)[21],list):
thetap[2]:=convert(LinearAlgebra:-Transpose(FromExcel)[22],list):
|
Est-ce que vous auriez une idée pour faire à l'aide d'une séquence ou d'une boucle ces affectations ?
Merci d'avance pour vos idées. |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 03 Sep 2016 7:43 Sujet du message: |
|
|
Bonjour Benjamin,
En 2 ou 3 lignes, il est possible de synthétiser tes 22 lignes de code de la manière suivante :
Code: |
> L:=[tp,seq(op([xpp[i],ypp[i],zpp[i],phip[i],gammap[i]]),i=1..4),thetap[2]]:
> for k to nops(L) do assign(convert(L[k],name),convert(LinearAlgebra:-Transpose(FromExcel)[k],list)) od:
> gammap[3];
[FromExcel[16]]
|
Bonne rentrée. |
|
Revenir en haut de page |
|
|
bendesarts
Inscrit le: 27 Fév 2009 Messages: 234
|
Posté le: 03 Sep 2016 10:31 Sujet du message: |
|
|
Super Alain. Merci.
Je sentais bien qu'en recopier 22 lignes très identiques, j'étais très moyen dans mon code ...
Je ne connaissais pas cette fonction assign qui permet de créer des affectations à partir de deux éléments. |
|
Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|