Télécharger cour3d.procedur

Retour à la liste

Numérotation des lignes :

  1. * COUR3D PROCEDUR FANDEUR 14/10/10 21:15:12 8178
  2. 'DEBPROC' COUR3D BBBB*'MAILLAGE' FFAC1*'MAILLAGE' FFAC2*'MAILLAGE'
  3. MMM*'MOT' J*'FLOTTANT' NORJ/'LOGIQUE' ;
  4. ************************************************************************
  5. * CALCUL DU CHPO DES DENSITES DE COURANTS SUR UNE BOBINE *
  6. * BBBB MAILLAGEGE DE LA BOBINE 3D *
  7. * FFAC1 FACE D ENTREE DU COURANT *
  8. * FFAC2 GACE DE SORTIE DU COURANT *
  9. * MMMM MOT AMP ( AMPERES/UNITE SURFACE OU AT AMPERES TOTAUX *
  10. * J FLOTTANT DENSITE OU AMP TOTAUX SUIVANT MMMM *
  11. * SORTIE CHPO DES DENSITES DE COURANT AUX NOEUDS DE BBBB *
  12. * COMPOSANTES T,X T,Y T,Z
  13. * NORJ LOGIQUE VRAI SI L ON RECTIFIE J DANS LES COURBURES *
  14. ************************************************************************
  15. 'SI' ( 'NON' ( 'EXISTE' NORJ)) ; NORJ = FAUX ; 'FINSI' ;
  16. OBOB = BBBB 'MODE' 'THERMIQUE' 'ISOTROPE' ;
  17. MATO = 'MATE' OBOB 'K' 1. ;
  18. RRRR = 'COND' OBOB MATO ;
  19. ENC1 = 'BLOQUER' 'T' FFAC1 ;
  20. FFFF = 'FLUX' OBOB 1. FFAC2 ;
  21. U = ('EXTR' ( 'RESU' FFFF ) 'MAILLAGE' )'POINT' 1 ;
  22. SUR = 'EXTR' ( 'RESU' FFFF) 'Q' U ;
  23. 'SI' ( 'EGA' MMM 'AT') ;
  24. J = J / SUR ;
  25. 'MESS' ' NOMBRES D AMPERES PAR BLOCS ' (J * SUR) ;
  26. 'FINSI' ;
  27. POTE = 'RESOU' ( RRRR 'ET' ENC1 ) ( FFFF * J ) ;
  28. JJJ = 'CHAN' 'CHPO' ('GRAD' POTE OBOB) OBOB ;
  29. 'SI' NORJ ;
  30. *****************************************************************
  31. * normalisation des courants dans les coudes
  32. *****************************************************************
  33. RRR =( (('EXCO' JJJ T,X ) ** 2 ) + (('EXCO' JJJ T,Y ) ** 2)
  34. + (('EXCO' JJJ T,Z ) ** 2) ) ** .5 ;
  35. JJJ = JJJ / RRR * J ;
  36. 'FINSI' ;
  37. JJX = ('EXCO' JJJ T,X) 'NOMC' JX ;
  38. JJY = ('EXCO' JJJ T,Y) 'NOMC' JY ;
  39. JJZ = ('EXCO' JJJ T,Z) 'NOMC' JZ ;
  40. JJJ = JJX + JJY + JJZ ;
  41. *
  42. 'FINPROC' JJJ ;
  43.  
  44.  

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