مساعدة من المبرمجين

صبآح الورد

بآين الكل مشغـول الله يوفقكم

انا بحثت ودورت في مواقع اجنبيه حصلت آكواد حملت فيجوال سي بناء على مشورة احد الشباب لكن ماعرفت له حصلت ثلاث اكواد للبرنامج بصيغة m

بس ماعرفت اسوي البرنامج بالثلاثة اكواد دخلت مواقع حاولت اتعلم ماعرف خصوصا الفترة الزمنية قصيرة حاولت اربط ضغطت كل شئ ماعرفت

انا راح ارفق الثلاث اكواد في المرفقات

بس عيت تنرفق

راح اكتبها هنا الثلاث اكواد

% this m-file calculates the real roots of the given polynomial using

% newton raphson technique.this m-file calls the functions in the two m-files named as syn_division and

% derivate.

% coeff_function is the 1xn matrix conatining the coeff of the polynomial.

% Keerthi Venkateswara Rao

function [final_roots,functionvalue] = newton(coeff_function,initial_guess,error_tolerance,max_iterations)

iterations=0;

max_no_roots=size(coeff_function,2);

final_roots=0;

functionvalue=0;

for no_roots=1:max_no_roots-1

fun_root_new=initial_guess;

flag=1;

coeff_der_function=derivate(coeff_function);

order_fun=size(coeff_function,2);

order_der_fun=size(coeff_der_function,2);

while flag==1

fun_root_old=fun_root_new;

fx=0;

dfx=0;

nonzero=1;

while nonzero==1

powers=order_fun-1;

for index=1:order_fun

fx=fx+coeff_function(index)*fun_root_old^powers;

powers=powers-1;

end

powers=order_der_fun-1;

for index=1:order_der_fun

dfx=dfx+coeff_der_function(index)*fun_root_old^powers;

powers=powers-1;

end

if dfx==0

fun_root_old=fun_root_old+1;

else

nonzero=0;

end

end

iterations = iterations + 1;

fun_root_new = fun_root_old - fx/dfx;

if iterations >= max_iterations

flag=0;

elseif abs(fun_root_new-fun_root_old)<=error_tolerance

flag=0;

final_roots(no_roots)=fun_root_new;

functionvalue(no_roots)=fx;

end

end

coeff_function=syn_division(coeff_function,fun_root_new);

end

هذا الاول

الثاني

% This m-file calculates the derivative of the function, the limitation of

% this function is, it can calculate only the derivatives of power(x,n)....

% Keerthi Venkateswara Rao

function coeff_derivative=derivate(coeff_function)

der_order=size((coeff_function),2)-1;

coeff_derivative=0;

for index=1:size((coeff_function),2)-1

coeff_derivative(index)=der_order*coeff_function(index);

der_order=der_order-1;

end

الثالث

% This m-file takes care of synthetic division.

% By giving one polynomial and one root this function returns

% the polynomial formed with the other roots of the given polynomial excluding the given root.

% Keerthi Venkateswara Rao

function coeff_second=syn_division(coeff_function,fun_root_new)

order_fun=size((coeff_function),2);

coeff_second=0;

for index=1:size((coeff_function),2)-1

if index==1

coeff_second(index)=coeff_function(index);

else

coeff_second(index)=coeff_function(index)+fun_root_new*coeff_second(index-1);

end

end

مع جزيل الشكر مقدما.:)

اخى الكريم

انا معاك

انتظرنى بالرد

يطلب منك كتابة لرنامج حيث تطلب من المدرس ادخل ال id للطلاب و غيابة

و يجب ان يكون البرناج تركيبة يشبه القائمة حيث يحتوى على ثلاث اختيارات للمدرس

1-ادخل id الخاص بالطالب

2-مرات الغياب للطلاب

ز اذا اختيرت يجب ان تطلب من المدرس ادخالص ال id حتى تسطيع تحديد الدرجة للطالب

3-طباعة البيانات الخاصة بالطالب

حيث تخرج للمستخدم ما يلى

*جميع البيانات الخاصة بالطلاب و التى تضمن الid و عدد مرات الغياب و تطبع رسالة تخبر بها المستخدم بجوار كل طالب اذا كان المستخدم قد تعدى الحد المسموح به ام لا و هكذا

*و بأمكانك طبع بيانات طالب واحد فقط اذا ادخل المستخد ال id الخاص بهذا الطالب

اللون الاحمر تبع الشكل الاول فى ملفك

و اللون الازرق تبع الشكل التانى

و اللون الاخضر تبع الشكل الثالث

بالتوفيق اخى الكريم

جزاك اللهـ خير

آختي الكريمه الحين البيانات اللي حطيتها طلعت كذا.. يعني مو قوآنين نيوتن لاني من حسب مآ اقرى انه الاولى حساب المعآدلات والثانيه الاشتقاق والثالث القسمه.

طيب هل بآمكآنك مسآعدتي انا تعبت بصراحه خصوصا انه مو مجال عملي ولا لي خلفية فيه الا سعيآ ورآء البونص. آسآلوني في هندسة البوليمرات راح اجاوب بس سي ++ احسها صعبه مره

حضرتك طلبت فى الاول معرفة ما هو المطلوب فقط

هنرجع فى كلامنا و لا ايه؟ :lol: :lol: :lol:

تحيـهـ

معطـره..آختي اسراء مآقصرتي.:) على المسآعدة.

بالنسبة للآخ فهد سبحآن الله دخلت اليوم على بروفآيلك ونا جالس آدور في المنتدى عمآ يفيدني. توقعتك الشخص اللي بيسآعدني.

انا ولله الحمد مآعلي قصـور ونا تعمدت آطلب المساعده في منتدى مبرمجين لآجل اني استفيد لو القليل مآحبيت اروح لمحل يسويه لي ويعطيني آياه جاهز.:) لكن قدر الله وهذا اللي صار

شكرآ آخي فهد فعلا استفدت من الدرس كتآبة2000 arabteam

اسمحـ لي بعد اذنك اصحح لك حآجه empty تنطق بدون p يعني آمتي وليس آمبتي

الثانيه item آي تمـ وليست آتيمـ

انا والله آقصد الفآئده ولا آقصد شئ آخر.وإنما الاعمال بالنيآت.:)

مع خالص شكري وتقديري.:) على حرصك على تعليمي رغم ضيق وقتي

آخوك آبو فهـد.

حياك الله ابوفهد بالنسبة لمشاركة أسراء فيظهر انها ترد على هذا الموضوع

بالنسبة لملاحظتك شاكر لك فأنا عربي من قبائل العرب و الانجليزية بالنسبه لي وسيله وأداة تعلم فقط أجبرت عليها من أجل قراءه الكتب.

بالنسبه لمشروعك ضع محاولتك او ضع ماتوصلت اليه وأبشر بما استطيع

اقتباس

شكرآ آخي فهد فعلا استفدت من الدرس كتآبة2000 arabteam

لم أنتبه لهذا السطر.

الرابط أعطيته لك لاني أعتقدت انك تريد عمل كمبايلر لكودك . وكان الهدف فقط. كيف تعمل كمبايلر ليس شئ آخر

انا متأسفة جدا جدا

و اعتذر منك اخى الكريم لم يكن هذا الموضوع الذى اقصدة

لانى كنت حملت الملف من الموضوع الاخر من يوم و كتبت الرد اليوم

حصل دروب

متأسفة