السلام عليكم ورحمة الله وبركاته.أهلا وسهلا بك زائرنا الكريم،
منتديات فيزياء لكل الأجيال ترحب بكم عند تسجيلكم المرجوا منكم التوجه الى ايمايلكم لتفعيل حسابكم بالضغط على الرابط الموجود بالرسالة التي سيتم ارسالها اليكم من المنتدى إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.

methode de resolution d'equations différentielles par methode de MEEM

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

methode de resolution d'equations différentielles par methode de MEEM

مُساهمة من طرف ILYAS في الإثنين يوليو 04, 2011 12:27 am

! methode de resolution d'equations différentielles par methode de MEEM
implicit none
!------------------------partie declaration------------
integer::i,n
parameter(n=1000)
real,dimension(n):yi,yi1,xi
real::xp,W,f,fp,f2p
!------------------------partie saisie-------------
x0=0.0
y0=1.0
!------------------------partie tgraitement-------------

xi(1)=x0
yi(1)=y0
W=(xi-xp)/n
do i=1,n
Yi(1)=Yi+W*f(xi,yi)+(w*w/2)fp(xi,yi)+(w*w*w/6)*f2p(xi,yi)
enddo
!------------------------partie affichage---------------
write(*,*)'le resultat final est',Yi1
end

!------------------------bloc fonctionnel----------------
function f(xi,yi) result(f1)
implicit none
real xi,yi,f1
f1=-xi*yi
end

function fp(xi,yi) result(fp1)
implicit none
real xi,yi,fp1
fp1=yi*(xi*xi-1)
end

function f2p(xi,yi) result(fp2)
implicit none
real xi,yi,fp2
fp2=xi*yi*(3-xi*xi)
end







ILYAS
مدير المنتدى
مدير المنتدى

الاوسمة :
عدد المساهمات : 406
نقاط : 1190
تاريخ التسجيل : 22/10/2010
الموقع : http://physicsgeneration.superforum.fr

http://physicsgeneration.superforum.fr

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى