Télécharger norv1.procedur

Retour à la liste

Numérotation des lignes :

  1. * NORV1 PROCEDUR AM 09/12/07 21:15:56 6578
  2. DEBPROC NORV1 v1*LISTREEL;
  3. *-----------------------------------------------------------------
  4. * Calcul de la norme d'un vecteur
  5. * Entree :
  6. * - vecteur v1 : v1
  7. * Sortie :
  8. * - |v1| : nv1
  9. *-----------------------------------------------------------------
  10.  
  11. n1=DIME v1;
  12. nv1=0.;
  13. REPE bouc n1;
  14. nv1=nv1+((EXTR &bouc v1)**2);
  15. FIN bouc;
  16. nv1=nv1**(0.5);
  17.  
  18. FINPROC nv1;
  19.  
  20.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales