اخواني الاعزاء باستخدام برنامج ماثيماتبكا MATHEMATICA
يمكن استخدام الامر : NSolve [{f(x,y)==0,g(x,y)==0},{x,y وتغلق الاقواس حيث f هي المعادله الاولى و g هي الثانيه
ويمكن الرسم البياني Plot[{f,g},{x,-10,10}]بهذه الطريقه بشرط ان تكون الدالتين في متغير واحد x
طريقة ثالثه : FindRoot ممكن من قائمة help ان تتعرف على هذا الامر بسهولة
ولكم تحياتي