السلام عليكم
هذا البرنامج كما هو مذكور بالعنوان يقوم بتطبيق قانون كولوم لحساب القوه المتبادله ، وانا اعتذر على تأخيري بطرح البرنامج اخ م.مفيد ، بس يوم الاحد ما صدقت وانا اروح ع شان يطلعي شويه ساعات نوم واما اليوم ان شغلت حتى المغرب … رغم انه تخصصي مدني بس حبيت اتشاطر وعمل حالي بفهم بالاتصالات ورحت فكيت الراوتر ولقيت التوقعته وجدت انه في نقطتين ملحوم عليهن سلكين رايحات للهوائي وحده تتبعتها وجدتها واصله مع الطرف السالب للمصدر المهم لحمت عليهن وطلعت الاسلاك ووصلتها باستخدام اسلاك زي اسلاك الرسيفر للستلايت المهم وصلتها لغرفه بعيده كانت شبكة الويرلس هناك ما يلقطتها التلفون المهم جوى الغرفه جبت طحشة اسلاك ولفلفتها على شكل زبيركات وخليتها تصير شبكة ولحمت فيها السلكين … المهم بعد هذه الجهود الحمد لله صار في ويرلس بالغرفه وبجوده 65% … اكيد المشكله بالشبكة بس مش عارف شو اسويلها … (( انا قلت القصه ع شان إذا حدى بعاني من مشكله زي هيك ))
المهم نرجع للبرنامج … فبعد شويه شغل طلع معي الاتي
x1= input('Enter first charge location (x-axis) ');
y1= input('Enter first charge location (y-axis) ');
x2= input('Enter second charge location (x-axis) ');
y2= input('Enter second charge location (y-axis) ');
x3= input('Enter third charge location (x-axis) ');
y3= input('Enter third charge location (y-axis) ');
q1=input('Enter the value of first charge ');
q2=input('Enter the value of second charge ');
q3=input('Enter the value of third charge ');
d12=((x2-x1)^2+(y2-y1)^2)^0.5;
d13=((x3-x1)^2+(y3-y1)^2)^0.5;
d23=((x3-x2)^2+(y3-y2)^2)^0.5;
k=9e9;
% cos of angle between d12 and x-axis I will name as cos12
cos12=abs(x2-x1)/d12;
sin12=abs(y2-y1)/d12;
cos13=abs(x3-x1)/d13;
sin13=abs(y3-y1)/d13;
cos23=abs(x3-x2)/d23;
sin23=abs(y3-y2)/d23;
%F12 the force exert on charge 2 By charge 1
% i and j : unit vector to x-axis and y-axis respectively
% is : i sign
% js : j sing
if (q2>=0 && q1 >=0) || (q2<=0 && q1<=0)
if x1>x2
is=1;
else
is=-1;
end
if y1>y2
js=1;
else
js=-1;
end
else
if x1>x2
is=-1;
else
is=1;
end
if y1>y2
js=-1;
else
js=1;
end
end
f21=[k*abs(q1*q2)/d12^2*cos12*is k*abs(q1*q2)/d12^2*sin12*js];
if (q3>=0 && q1 >=0) || (q3<=0 && q1<=0)
if x1>x3
is=1;
else
is=-1;
end
if y1>y3
js=1;
else
js=-1;
end
else
if x1>x3
is=-1;
else
is=1;
end
if y1>y3
js=-1;
else
js=1;
end
end
f31=[k*abs(q1*q3)/d13^2*cos13*is k*abs(q1*q3)/d13^2*sin13*js];
if (q2>=0 && q1 >=0) || (q2<=0 && q1<=0)
if x2>x1
is=1;
else
is=-1;
end
if y2>y1
js=1;
else
js=-1;
end
else
if x2>x1
is=-1;
else
is=1;
end
if y2>y1
js=-1;
else
js=1;
end
end
f12=[k*abs(q1*q2)/d12^2*cos12*is k*abs(q1*q2)/d12^2*sin12*js];
if (q2>=0 && q3 >=0) || (q2<=0 && q3<=0)
if x2>x3
is=1;
else
is=-1;
end
if y2>y3
js=1;
else
js=-1;
end
else
if x2>x3
is=-1;
else
is=1;
end
if y2>y3
js=-1;
else
js=1;
end
end
f32=[k*abs(q3*q2)/d23^2*cos23*is k*abs(q3*q2)/d23^2*sin23*js];
if (q2>=0 && q3 >=0) || (q2<=0 && q3<=0)
if x3>x2
is=1;
else
is=-1;
end
if y3>y2
js=1;
else
js=-1;
end
else
if x3>x2
is=-1;
else
is=1;
end
if y3>y2
js=-1;
else
js=1;
end
end
f23=[k*abs(q3*q2)/d23^2*cos23*is k*abs(q3*q2)/d23^2*sin23*js];
if (q3>=0 && q1 >=0) || (q3<=0 && q1<=0)
if x3>x1
is=1;
else
is=-1;
end
if y3>y1
js=1;
else
js=-1;
end
else
if x3>x1
is=-1;
else
is=1;
end
if y3>y1
js=-1;
else
js=1;
end
end
f13=[k*abs(q1*q3)/d13^2*cos13*is k*abs(q1*q3)/d13^2*sin13*js];
f1=f21+f31
f2=f12+f32
f3=f13+f23
وقبل ما انسى اذا عندك سؤال أو شفت اي مشكله بالبرنامج خبرني بإضافة رد
لا تنسوا اخوانا في غزه من الدعاء … بااااي