1
منتدى علوم الفلك / حساب مواقيت الصلاة الشرعية
« في: سبتمبر 15, 2006, 02:23:31 صباحاً »CODE
السلام عليكم و رحمة الله
هذه اول مرة ادخل هذا (( الفروم)) فالرجاء المعذرة إن كنت أخطأت في إختيار الموقع لطرح السؤال
كيف اكتب هذا تحت دلفي(باسكال)
ACOS( (SIN (90- 73.28751) - SIN(-23.0723)*SIN(30) / (COS(-23.0723)*COS(30) )
ATAN(2+TAN(30 - -23.0723)) = 73.28751
جربت هذا دون جدوة
ARCCOS((SIN(90-73.28751)-SIN(-23.0723)*SIN(30)/(COS(-23.0723)*COS(30))));
(ArcTan(1+Tan(30--23.0723;)));
هذا وجدته في الملف PRAYTIME2.PAS
{//Shafey}
AsrAlt := 90-myArcTan(1+myTan(Abs(Lat-Dec)),0);
AsrArc := myArcCos((mySin(AsrAlt)-mySin(Dec)*mySin(Lat))
/(myCos(Dec)*myCos(Lat)));
AsrTime := LocalNoon + AsrArc/15;
الحاصل بعد الحساب غير صحيح
أين الخطء من فضلكم .
هذه اول مرة ادخل هذا (( الفروم)) فالرجاء المعذرة إن كنت أخطأت في إختيار الموقع لطرح السؤال
كيف اكتب هذا تحت دلفي(باسكال)
ACOS( (SIN (90- 73.28751) - SIN(-23.0723)*SIN(30) / (COS(-23.0723)*COS(30) )
ATAN(2+TAN(30 - -23.0723)) = 73.28751
جربت هذا دون جدوة
ARCCOS((SIN(90-73.28751)-SIN(-23.0723)*SIN(30)/(COS(-23.0723)*COS(30))));
(ArcTan(1+Tan(30--23.0723;)));
هذا وجدته في الملف PRAYTIME2.PAS
{//Shafey}
AsrAlt := 90-myArcTan(1+myTan(Abs(Lat-Dec)),0);
AsrArc := myArcCos((mySin(AsrAlt)-mySin(Dec)*mySin(Lat))
/(myCos(Dec)*myCos(Lat)));
AsrTime := LocalNoon + AsrArc/15;
الحاصل بعد الحساب غير صحيح
أين الخطء من فضلكم .