Télécharger cwwfud.eso

Retour à la liste

Numérotation des lignes :

  1. C CWWFUD SOURCE KK2000 14/04/09 21:15:13 8027
  2. c
  3. FUNCTION C_WWFUNCDER(T,E)
  4. c n_d, d_d no estan multiplicadas por sin(3t) porq cancela
  5. c con las derivadas t_s
  6. IMPLICIT INTEGER(I-N)
  7.  
  8. complex*16 c_wwfuncder,t,aux0,aux1,aux2,aux3,aux4,cost,n,d,n_d,d_d
  9.  
  10. real*8 e
  11.  
  12. cost=cos(t)
  13. c aux0=sin(t)
  14. aux0=(1.D0,0.D0)/((4.D0,0.D0)*cost**(2.D0,0.D0)-(1.D0,0.D0))
  15. aux1=(1.D0,0.D0)-e**(2.D0,0.D0)
  16. aux2=(4.D0,0.D0)*aux1*cost**(2.D0,0.D0)
  17. aux3=(2.D0,0.D0)*e-(1.D0,0.D0)
  18. aux4=sqrt(aux2+(5.D0,0.D0)*e**(2.D0,0.D0)-(4.D0,0.D0)*e)
  19.  
  20. n =aux3*aux3+aux2
  21. d =(2.D0,0.D0)*aux1*cost+aux3*aux4
  22. n_d =(-8.D0,0.D0)*aux1*cost*aux0
  23. d_d =-((2.D0,0.D0)+(4.D0,0.D0)*aux3*cost/aux4)*aux1*aux0
  24. c_wwfuncder=n_d/d-n*d_d/d**(2.D0,0.D0)
  25. return
  26. end
  27.  
  28.  
  29.  
  30.  
  31.  

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