Télécharger la plaquette Cast3M


fr en

Télécharger aplqdr.eso

Retour à la liste

Numérotation des lignes : 

aplqdr

  1. C APLQDR    SOURCE    CHAT      05/01/12    21:22:53     5004
  2.       SUBROUTINE APLQDR(COUR,RI,RE,Y1,Y2,X,Z,AX,AY,AZ)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. -INC CCREEL
  7. C
  8. C*********************************************************************
  9. C  Calcul du potentiel vecteur induit par une plaque rectangulaire
  10. C  de courant COUR,d'axe Oy:
  11. C     - rayons interieur et exterieur RI et RE (RI=-RE)
  12. C     - extension longitudinale Y1 a Y2 par rapport au plan xOz
  13. C       contenant le point de coordonnees (X,0,Z)
  14. C       et on calcule le champ (0,AY,0)
  15. C*********************************************************************
  16. C
  17.       EXTERNAL FPLQ4
  18. C
  19. C  calcul des grandeurs geometriques reduites
  20. C
  21.       AMU=4.E-7*XPI
  22.       A=(RE-RI)/2.
  23.       COEF=COUR*AMU/(8.*XPI*A)
  24.       AX=0.
  25.       AY=0.
  26.       AZ=0.
  27. C
  28.       Z2=Z**2
  29.       AMX=A-X
  30.       APX=A+X
  31.       XMA2=AMX**2
  32.       XPA2=APX**2
  33.       DEXT1=XMA2+Z2
  34.       DEXT2=XPA2+Z2
  35.       IF(DEXT1*DEXT2.NE.0) THEN
  36.          AY=COEF*(FPLQ4(AMX,Y2,Z)-FPLQ4(AMX,Y1,Z)
  37.      &           -FPLQ4(-APX,Y2,Z)+FPLQ4(-APX,Y1,Z))
  38.       ELSE
  39.          AY=XGRAND
  40.       ENDIF
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  
  47.  

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