hamouz2
Messages postés6Date d'inscriptiondimanche 19 novembre 2000StatutMembreDernière intervention13 janvier 2011
-
12 janv. 2011 à 21:03
hamouz2
Messages postés6Date d'inscriptiondimanche 19 novembre 2000StatutMembreDernière intervention13 janvier 2011
-
13 janv. 2011 à 11:56
Bonjour ou bonsoir !
Je souhaite vivement que quelqu'un puisse transcrire ce programme écrit en Fortran en C++.Programme destiné à un T.P pour étudiants de terminale
Mille merci à tous celui ou ceux qui s'en donneraient la peine !
Cordiales salutations et par la même occasion Bonne année !
Program concentrator
real E0(3), Qin
data (E0(j),j=1,3) /300.,500.,866./
open(1,file='tache.txt')
pi=4.*atan(1.)
tetam=120.
c tetar=4.
f=0.8
Rr=0.9
Fa=0.9!(pi-pi*(0.05)**2)/pi
a =1.5
Rspot=0.015
sigma=5.67e-8
alfar=0.9
eps=1.
R=0.45
do j=1,3
do z=-4.5, 4.5,0.5
r=z*0.01
c E=f**2*Rr*E0(j)*Fa*((-cosd(tetam))**2+(cosd(tetar))**2)
E=f**2*Rr*E0(j)*Fa*cosd(tetam)**2
E=E*a*exp(-a*(r/Rspot)**2)/Rspot/Rspot/(1.-exp(-a))
Qin=E*alfar*Rr**2*pi
T=(E*alfar/(eps*sigma))**0.25
write(*,'(2x,f5.2,2x,f6.3,2x,f12.2,2x,f12.2)')z, r, E, T
write(1,'(2x,f5.2,2x,f6.3,2x,f12.2,2x,f12.2)')z, r, E, T
Tm=Tm+T
enddo
Tm=Tm/17.
Print*, 'Tmoyenne=',Tm
c write(1,*)'************************'
c write(*,*)'************************'