هل يمكن أن أحسب قيمة زاوية من ثلاث نقاط؟

يمكنك عمل تفاضل على الأضلاع لمعرفة طولها ،ثم تحسب تجيب الزاوية لضلعين

الأخ الفاضل مرفق مثال بالمطلوب

Angels.rar

أخي عبد الفتاح حسن أنا متلخبط شوية

في الخوارزمية المستخدمة لحساب قيمة الزاوية

يعني مثلاً:

If X1 - X2 = 0 Then
If Y1 < Y2 Then Angel1 = 270 Else Angel1 = 90
Else
Angel1 = Atn(Abs((Y1 - Y2) / (X1 - X2))) * (630 / 11)
End If

أنت قمت بالتحقق ما إذا كان الخط رأسياً أم لا من خلال هذا الشرط

If X1 - X2 = 0 Then

لأن في حالة الخط الرأسي سيكون الاحداثي X ثابت

الجزء الذي لم أفهمه في الشرط التالي مباشرة

If Y1 < Y2 Then Angel1 = 270 Else Angel1 = 90

لأنه إذا كان Y1 أصغر من Y2 معنى ذلك أن الخط رأسي في اللإتجاه الموجب لمحور Y

فتكون الزاوية 90 و إذا كان الـ Y2 أصغر معنى أنها للأسفل فتكون الزاوية 270

لكنك أنت قمت بعمل عكس ذلك و أنا لم أفهم لماذا

و جزاكم الله خيراً

أعتقد يوجد خطأ في برمجة الكود ،ثم الكود معقد قليلا ويمكن برمجته بشكل أسهل

لأنه لو رسمنا خطين على المحور X لأعطى 180 درجة بينما لو رسمناه على المحور Y يعطي 0

هذا هو البرنامج المطلوب بدون أى أخطاء

وأنا على استعداد لأى استفسار

____________.rar

الأخوة الأفاضل اسف لتأخرى فى الرد وذلك لإنشغالى

اقتباس

الجزء الذي لم أفهمه في الشرط التالي مباشرة

كودIf Y1 < Y2 Then Angel1 = 270 Else Angel1 = 90

لأنه إذا كان Y1 أصغر من Y2 معنى ذلك أن الخط رأسي في اللإتجاه الموجب لمحور Y

فتكون الزاوية 90 و إذا كان الـ Y2 أصغر معنى أنها للأسفل فتكون الزاوية 270

لكنك أنت قمت بعمل عكس ذلك و أنا لم أفهم لماذا

مرفق رسم لتوضيح فكرة الكود

اقتباس

أعتقد يوجد خطأ في برمجة الكود

اقتباس

لأنه لو رسمنا خطين على المحور X لأعطى 180 درجة بينما لو رسمناه على المحور Y يعطي 0

بالفعل يوجد خطأ وقد قمت بتصحيحه فى المرفق

اقتباس

،ثم الكود معقد قليلا ويمكن برمجته بشكل أسهل

شكرا على هذا النقد البناء .. و ننتظر منك الكود المعدل حتى يستفيد الجميع

اقتباس

هذا هو البرنامج المطلوب بدون أى أخطاء

شكرا اخى الكريم على محاولاتك ولكن عندما اضع X1=X2=X3 تكون الزاوية 0 فى كل الأحوال

وعندما اضع X1=X2 و Y1=Y2 يعطى رسالة خطأ

Angels.rar

جزاك الله خيراً أخي عبد الفتاح حسن وأخي إسلام

أخي إسلام أنا كدة الدنيا ضلمت عندي :D :D

ياريت لو ممكن نشرحها وحدة وحدة و مع بعضنا يعني مثلاً

المفرض نحسب كذا و كذا ونعرف ايه المطلوب وبعد كدة نترجم المطلوب

للكود كدة نعرف السطر الفلاني علشان ايه بالضبط . كود الأخ عبد الفتاح حسن أسهل بكثيييييييييييييير

فيه بعض لاستفسارات بس حتى ياريت أخي عبد الفتاح لو عندك وقت أو إن لم نثقل عليك تشرحلنا الخورزمية

بالطريقة دي برضو لأني شايف إنك بتجيب ميل الخطوط و بعد كدة تجيب زاية ميل الخط على محور X.

و من غير معادلات تفاضلية :D :D

و جزاكم الله خيراً .

اقتباس

فيعطيني البرنامج في مربع نصي قيمة الزاوية الحاصلة بين المستقيمين المتشكلين من النقاط الثلاثة؟

اقتباس

شكرا اخى الكريم على محاولاتك ولكن عندما اضع X1=X2=X3 تكون الزاوية 0 فى كل الأحوال

وعندما اضع X1=X2 و Y1=Y2 يعطى رسالة خطأ

ان السائل يبحث عن الزاوية الحاصلة بين المستقيمين المتشكلين من النقاط الثلاثة؟

وهذه الأوضاع التى تذكرها كلها مخالفة لذلك ولا يمكن أن يدخلها المستخدم الا خطآ

فلا يمكن أن تكون X1=X2=X3 أو Y1=Y2=Y3 الا اذا كانت النقط الثلاثة على مستقيم واحد

ولو كانت X1=X2 و Y1=Y2 فهذا معناة أنها نفس النقطة أى أن عدد النقط كانو نقطتين فقط

الأخ اسائل WaseemOnLine

هل جربت البرنامج أم لا؟

وكيف كانت النتائج التى يكتبها لك؟

اقتباس

أخي إسلام أنا كدة الدنيا ضلمت عندي

لماذا ضلمت عندك؟

هل شغلت البرنامج ولو مرة واحدة وأدخلت له ثلاثة نقط ليست على مستقيم واحد وأعطاك أى زاوية غير صحيحة؟

نعم جربت البرنامج

أنا أقصد بس في خوارزمية الحساب فيها حاجات كثيرة غامضة بالنسبة لي

بالإضافة أيضاً إلى إن النتيجة عبارة عن ثلاث زواية .

ANGLE 1

ANGLE 2

ANGLE 3

الطلوب بس يعني شرح كدة على السريع للخوازمية شغالة إزاي .

شكراً .

أنت تدخل للبرنامج ثلاثة نقط ليست على استقامة واحدة(X1,Y1),(X2,Y2),(X3,Y3)

ANGLE 1 هى الزاوية عند النقطة الأولى

</SPAN>

ANGLE 2 هى الزاوية عند النقطة الثانية

ANGLE 3 هى الزاوية عند النقطة الثالثة

شغل البرنامج عدة مرات وقبل تشغيله فى أى مرة احسب هذه الزوايا يدويآ بأى طريقة تعرفها

وستجد فى كل مرة باذن الله أنه يعطيك جميع الزوايا صحيحة كما حسبتها بالضبط

أما خوارزمية الحساب فدعك منها

</SPAN></SPAN>

تحياتي لجميع الأخوة الأفاضل

اقتباس

شكرا على هذا النقد البناء .. و ننتظر منك الكود المعدل حتى يستفيد الجميع

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

	 A = Abs(X1 - X2)
	 B = Abs(Y1 - Y2)
	 L1 = Sqr(A ^ 2 + B ^ 2) 'الضلع الأول

	 A = Abs(X2 - X3)
	 B = Abs(Y2 - Y3)
	 L2 = Sqr(A ^ 2 + B ^ 2) 'الضلع الثاني

	 A = Abs(X1 - X3)
	 B = Abs(Y1 - Y3)
	 L3 = Sqr(A ^ 2 + B ^ 2) 'الضلع الثالث

	  'هنا نحصل على جيب تمام الزاوية
	 CosL1_2 = (L1 ^ 2 + L2 ^ 2 - L3 ^ 2) / (2 * L1 * L2)

	 If CosL1_2 = 0 Then
		 MsgBox 90
	 Else
		 MsgBox Int(Abs(Atn(Sqr(1 - CosL1_2 ^ 2) / CosL1_2) * 180 / 3.14))
	 End If

مرفق المثال: angle.rar

الأخ islambase@yahoo.com في برنامجك قمت بالتصريح عن المتحولات بطريقة خاطئة ،وأنا في بداياتي كنت أقع بهذا الخطأ وهو :

Dim X1, Y1, X2, Y2, X3, Y3 As Double
Dim A, B, C, ATAR, BTAR, CTAR As Double
Dim COSA, COSB, COSC As Double
Dim ANG1, ANG2, ANG3 As Double

والصحيح :

Dim X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, X3 As Double, Y3 As Double
Dim A As Double, B As Double, C As Double, ATAR As Double, BTAR As Double, CTAR As Double
Dim COSA As Double, COSB As Double, COSC As Double
Dim ANG1 As Double, ANG2 As Double, ANG3 As Double

لأنك لو تركت المتحول بدون تعريف سيعرفه الفوجول بأنه من النوع الثقيل Variant

أيضاً صحيح أنك تحسب الزوايا الثلاثة ولكنك قمت بالإكثار من المتحولات ،فيمكنك أستعمال المتحولات القديمة والمنتهي عملها بأسطر برنامجك الجديدة (وفي مثالي المرفق يمكن أختصاره أكثر ولكن تركته كذلك لعملية الإستيعاب).

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

وفقنا ووفقكم الله لما يحب ويرضى

ماشاء الله أصبح الموضوع فيه ثلاث أمثلة لمن يريد أستنتاج قيمة زاويه من أحداثيات ثلاثة نقط

اقتباس

عملت بعض الأسطر من الأكواد ،فأرجوا أن تفيد ،فكل واحد منا يبرمج على طريقته الخاصة

أنا لا أرى الا أنك نقلت نفس كودى السابق بدون أى تعديل أو طريقة خاصة

كل ما فعلته أنك غيرت الرموز واكتفيت بحساب زاوية واحدة من الثلاثة

فعند حساب طول أى ضلع حسبته فى ثلاثة أسطر صغيرة بدلآ من حسابى له فى سطر واحد كبير

وعند حساب الزاوية كتبت المقدار(باى) كتبته أنت مقربآ 3.14 بدلآ من حسابى له بالضبط Atn(1)*4 ( لدقة الزاوية المحسوبة)

وفقنا ووفقكم الله لما يحب ويرضى

اقتباس

أنا لا أرى الا أنك نقلت نفس كودى السابق بدون أى تعديل أو طريقة خاصة

اقتباس

يمكنك عمل تفاضل على الأضلاع لمعرفة طولها ،ثم تحسب تجيب الزاوية لضلعين

وبالنسبة ل Atn(1)*4 أعرف أنها بالضبط ولكن ليس الكل يعرفها ،ثم أني في النهاية حذفت الكسور لقيمة الزاوية ،كلها لتسهيل فقط لا غير

والله الموفق ..

أخي عبد العزيز

البرنامج يعطي نتائج خاطئة انظر الصورة

بالإضافة كيف حصلنا على جيب تمام الزاوية من هذا المعادلة

عبد العزيز اليوسفي كتب:

وبالنسبة ل Atn(1)*4 أعرف أنها بالضبط ولكن ليس الكل يعرفها

ممكن نستبدلها بـ 57.295 أو 630\11 هيا نفسها .

نعم أخي يوجد خطأ والخطأ ناتج عن السطر الأخير الذي أقتبسته من الأخ islambase@yahoo.com لأستنتاج الزاوية بالدرجات وهو يعمل ضمن ربع واحد للدائرة ،فالزاوية التي نتجت 57 أطرحها من 180 درجة لتنتج معك الزاوية الصحيحة في المثلث .

هذه المعادلة مشهورة ومعروفة (ويمكن أستنتاجها) لحساب تجيب الزاوية من أضلاع المثلث :

 CosL1_2 = (L1 ^ 2 + L2 ^ 2 - L3 ^ 2) / (2 * L1 * L2)

لاحظ أنك عندما تحسب تجيب الزاوية أي قيمة المتحول CosL1_2 فإن الرقم الناتج يتغير بين 1 (صفر زاوية) و 0 (قائمة) و -1 (180 درجة)

وهناك دالة تعيد قيمة الزاوية فوراً للمتحول وأسمها Inv ولكن لم أجدها حاليا بالفوجول بيزك

والمثلث أصلاً لا تكون فيه الزاوية أكثر من 180 درجة ،لذلك وغداً (أو أكثر) إن شاء الله سأعدل البرنامج كلياً لأستنتاج الزاوية الصحيحة مهما كبرت وبالرسم الصحيح .

اقتباس

وبالنسبة ل Atn(1)*4 أعرف أنها بالضبط ولكن ليس الكل يعرفها

ممكن نستبدلها بـ 57.295 أو 630\11 هيا نفسها

تم تعديل الأكواد بالشكل الصحيح :

		A = Abs(X1 - X2)
		B = Abs(Y1 - Y2)
		L1 = Sqr(A ^ 2 + B ^ 2) 

		A = Abs(X2 - X3)
		B = Abs(Y2 - Y3)
		L2 = Sqr(A ^ 2 + B ^ 2) 

		A = Abs(X1 - X3)
		B = Abs(Y1 - Y3)
		L3 = Sqr(A ^ 2 + B ^ 2)   

			X1 = (L1 ^ 2 + L2 ^ 2 - L3 ^ 2) / (2 * L1 * L2) 

				If X1 = 0 Then
					X2 = 90
				Else
					X2 = Atn(Sqr(1 - X1 ^ 2) / X1) * 180 / (4 * Atn(1))
				End If

			If Sgn(X1) < 1 Then X2 = 180 - Abs(X2)

			MsgBox X2

وتم أضافة 4 * ( Atn(1 بدل القيمة (3.14) بعد أن شرحت ،كما قال الأخ islambase

المرفق المعدل : angle2.rar

وللبرنامج عودة أخرى بإذن الله

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

أخي الفاضل عبد العزيز

الآن اتضحت لي طريقة الأخ اسلام و طريقتك و الكود مفهوم تماماً

لكن المعادلة التي ذكرتها لك لو تكرمت تسنتجها لي لأني لم أرها من قبل .

جزاك الله خيراً و كل الأخوة الذين شاركو في الموضوع .

شكرا لجميع الأخوة الذين ساهموا في بناء هذا الموضوع ولكن لماذا قطعونا ونحن ننتظر مشاركاتهم وأقتراحاتهم ،ثم أين صاحب الموضوع السائل .

بالنسبة للمعادلة

اقتباس

CosL1_2 = (L1 ^ 2 + L2 ^ 2 - L3 ^ 2) / (2 * L1 * L2)

أنا من البداية ساهت في بناء هذا الموضوع بالرد الصحيح الخالى من الأخطاء

الذى يعطيك جميع الزوايا الثلاثة صحيحة

فليس لى مشاركات وأقتراحات بعد ذلك

</FONT>

كل الشكر لك أخي islambase