Calcul du rotationnel d'un champ de vecteurs pour V200 et TI-89

Voir le sujet précédent Voir le sujet suivant Aller en bas

Calcul du rotationnel d'un champ de vecteurs pour V200 et TI-89

Message par domi le Dim 23 Nov - 20:01

Bonsoir,

Voici le code d'un petit prog qui calcule le rotationnel d'un champ de vecteurs de la forme E = (P(x,y,z), Q(x,y,z), R(x,y,z)). Attention aux caractéres spéciaux de TI qui ne sortent pas bien au copier/coller. Pour ceux qui le souhaitent, je peux leur communiquer le source.
Pour info, ce progr calcule le rotationnele n faisant le produit vectoriel de l'opérateur Nabla et du vecteur E.

()
Prgm
¨ Programme de calcul du rotationnel d'un champ de vecteurs
¨ Dominique Lefebvre Novembre 2008
¨ ce programme calcule le rotationnel d'un champ de vecteurs
¨ E(P(x,y,z), Q(x,y,z), R(x,y,z)) pour produit vectoriel du
¨ vecteur Nabla et de E.
ClrIO
DelVar P,Q,R,rotat
Lbl Debut
ToolBar
Title "Def E", Comp
Title "x,y,z", Point
Title "Rot", Rota
Title "Init", Init
Title "Quitter", Fin
EndTBar
¨ Saisie des composantes du champ E
Lbl Comp
ClrIO
Disp "Saisie des composantes de E"
Input "P(x,y,z) = ", P
Input "Q(x,y,z) = ", Q
Input "R(x,y,z) = ", R
Goto Debut
¨ Détermination du point de calcul
Lbl Point
ClrIO
Disp "Saisie des coordonnées du point de calcul"
Prompt x
Prompt y
Prompt z
Goto Debut
¨ Calcul et affichage du rotationnel
Lbl Rota
ClrIO
newMat(1,3) » rotat
¶(R,y) - ¶(Q,z) » rotat[1,1]
¶(P,z) - ¶(R,x) » rotat[1,2]
¶(Q,x) - ¶(P,y) » rotat[1,3]
Disp "Le rotationnel est : ", rotat
Goto Debut
¨ Réinitialisation des coordonnées du point de calcul
Lbl Init
DelVar x,y,z
Disp "Coordonnées initialisées"
Goto Debut
Lbl Fin
ClrIO
Disp "FIn du programme Rot"
EndPrgm

_________________
"Donne un poisson à un homme, tu le nourris pour un jour. Apprends-lui à pêcher, tu le nourris pour toujours." Lao-Tseu
avatar
domi
Admin

Nombre de messages : 1348
Age : 59
Localisation : Noyon
Date d'inscription : 22/10/2008

http://www.tangenteX.com

Revenir en haut Aller en bas

Re: Calcul du rotationnel d'un champ de vecteurs pour V200 et TI-89

Message par dream treator le Dim 23 Nov - 20:58

Les deux programmes que tu as posté m'interessent! Tu peux me les envoyer ?
avatar
dream treator

Nombre de messages : 48
Age : 26
Localisation : 92
Date d'inscription : 27/10/2008

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum