system
(system)
1
[CENTER]بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
بصراحة هذي أول مشاركة لي في هذا الصرح الرائع , وانا كنت من المتابعين
للمنتدى لكن بدون التسجيل , ومن مبدأ ( استنهاض همم … واحياء روح الجماعة )
حبيت إني أضع لكم مجموعة اكواد بسيطة … ممكن انها تفيدكم
طبعا مكن يكون فيها اخطاء بس جدا بسيطة الاخطاء , والاكواد عبارة عن /
Bisection.m
, Newton Taylor.m
, Newton.m
, Simpson.m
,
المستطيل.m,
شبه المنحرف.m
جميع الاكواد في ملف ( m file ) ومن المرفقات المرفقات حملوها … وسلامتكم , [/center]
system
(system)
2
… آسف نسيت ارفق كود المستطيل …
هذا الكود … اللي يبية يسوي له نسخ ولصق في ملف ( m file ) وان شاء الله راح يتشغل معاه .
syms x;
a=input(‘a=’);
b=input(‘b=’);
n=input(‘n=’);
h=(b-a)/n;
x=[a:h:b];
fun=input(‘fun=’);
Il=fun(1:end-1) ;
disp(‘LEFT’)
Il1=h *sum(Il)
Ir=fun(2:end) ;
disp(‘RIGHT’)
Ir1=h *sum(Ir)
I=(sum(Il1)+sum(Ir1))/2
جزاك الله خيرا
اكواد مفيدة جدا
1117308
(ايجيبت)
4
تسلم ايدك علي اكواد التكامل كويسه جدا
انت تقصد بنيوتن ونيوتن تيلور …نيوتن ونيوتن رافسون ولا دي حاجه تانيه ؟
بالتوفيق دائما
system
(system)
5
هلا فيك اخوي AhmedEldeep
شرفني مرورك ون شاء الله تعم الفائدة للجميع .
هلا خوي ايجيبت
بصراحه مافهمت عليك بالضبط وبجاوب ع قد فهمي لسؤالك … الأكواد عبارة عن كود ( نيوتن رابسون ) و كود ( نيوتن تايلور ) , ان شاء الله اني رديت ع سؤالك .
شرفني مرورك ,
kaderbens
(kaderbens)
6
جزاك الله خيرا اخي الكريم
اكواد مفيدة جدا