عبدالرحمن1987 قام بنشر مايو 24, 2013 الكاتب مشاركة قام بنشر مايو 24, 2013 هذي حقت الثانيه أخذتها من طالب : ' Hall-Yarborough method If cmb1.Text = ("Hall-Yarborough") Then t = 1 / tpr Dim y As Double Dim yn As Double r = 1 y = 0.0125 * ppr * t * Exp(-0.12 * ((1 - t) ^ 2)) Do Until r <= 0.00001 aa = -0.06125 * ppr * t * Exp(-1.2 * ((1 - t) ^ 2)) ab = (y + (y ^ 2) + (y ^ 3) + (y ^ 4)) / ((1 - y) ^ 3) ac = (y ^ 2) * ((14.76 * t) - (9.76 * (t ^ 2)) + (4.58 * (t ^ 3))) os = (2.18 + (2.82 * t)) ad = (y ^ os) * ((90.7 * t) - (242.2 * (t ^ 2) + (42.4 * (t ^ 3)))) fy = aa + ab - ac + ad ba = (1 + (4 * y) + (4 * (y ^ 2)) - (4 * (y ^ 3)) - (y ^ 4)) / ((1 - y) ^ 4) bb = ((29.52 * t) - (19.52 * (t ^ 2)) + (9.16 * (t ^ 3))) * y bc = (2.18 + 2.82 * t) * (y ^ (1.18 + (2.82 * t))) * ((90.7 * t) - (242.2 * (t ^ 2) + (42.4 * (t ^ 3)))) dfy = ba - bb + bc yn = y - (fy / dfy) r = Abs((yn ^ 2) - (y ^ 2)) y = yn Loop Zh = ((0.06125 * ppr * t / y) * Exp(-1.2 * (1 - t) ^ 2)) txtan2 = Zh Do Until p < 0 Cells(10 + i, 17) = p Cells(10 + i, 18) = Zh p = p - 50 ppr = p / pcc Zh = ((0.06125 * ppr * t / y) * Exp(-1.2 * (1 - t) ^ 2)) i = i + 1 Loop Set CurrentChart = Sheets("Charts").ChartObjects(1).Chart CurrentChart.Parent.Width = 426 CurrentChart.Parent.Height = 252 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img1.Picture = LoadPicture(Fname) End If رابط هذا التعليق شارك More sharing options...
عبدالرحمن1987 قام بنشر مايو 24, 2013 الكاتب مشاركة قام بنشر مايو 24, 2013 هذا ملف فيه كل المعادلات والأكواد طبعا اخذته من واحد ما ادري اذا تستفيد منه ؟؟ code.txt رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 24, 2013 مشاركة قام بنشر مايو 24, 2013 السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مجهود رااائع وممتاااز وفي تقدم دائم دائما ... ولا تتنازل عن طريق الابداع جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مايو 24, 2013 مشاركة قام بنشر مايو 24, 2013 اخي الحبيب الأستاذ// حمادة عمر ( روح المنتدي ) دائما وابدا مرورك يشرف اي موضوع ويشرفني انا شخصيا جزاك الله كل خير وبارك الله فيك تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.