از پارسکدرز بیشترین بهره را ببرید و رویای کاری خود را زندگی کنید.
پنج سال پیش منتشر شده
تعداد بازدید: 1517
کد پروژه: 67994
شرح پروژه
سلام. من برنامه ای دارم که ناقص اجرا می شود. این برنامه مال رسم نمودار در Mathematica هست. این برنامه را از یک پایان نامه ی خارجی کپی کردم. متن برنامه به شرح زیر هست، :
In[1]:= (* Changing unit *)
gyr = 3.15576 10^16; (* 1 Gigayear *)
hunit = 10^(-19)/3.086; (* Hubble constant in SI unit *)
hzero = 70.2 hunit; (* maximum likelihood value of WMAP7 data *)
(* ------------------------ *)
In[4]:= (* flat with DE *)
t0DE[Omgm_]:= 1/(3 Sqrt[1-Omgm])Log[(1 + Sqrt[1-Omgm])/(1
-Sqrt[1-Omgm])];
(* open without DE *)
t0k[Omgm_]:= 1/(1-Omgm)(1+Omgm/(2 Sqrt[1-Omgm])Log[(1-Sqrt[1-Omgm])/(1
+Sqrt[1-Omgm])]);
Glob := 11 gyr hzero;
(* WMAP 7-year bound *)
WMAPbndUp := 13.89 gyr hzero;
WMAPbndLo := 13.67 gyr hzero;
Plot[{t0DE[Omgm], t0k[Omgm], WMAPbndUp, WMAPbndLo, Glob}, {Omgm, 0, 1},
PlotRange -> {{0, 1}, {0.6, 1.6}}, Axes -> False, Frame -> True,
PlotStyle -> {{Blue, Thick}, {Red, Dashed}, Purple, Purple, LightGray},
Filling -> {{3 -> {{4}, LightRed}}, {5 -> {Axis, LightGray}}}]
Out[9]=
In[10]:= (* obtaining Omega_m *)
(* Lower bound *)
FindRoot[1/(3 Sqrt[1-Omgm])Log[(1+Sqrt[1-Omgm])/(1-Sqrt[1-Omgm])]
== 13.89 gyr hzero, {Omgm, 0.3}]
(* Upper bound *)
FindRoot[1/(3 Sqrt[1-Omgm])Log[(1+Sqrt[1-Omgm])/(1-Sqrt[1-Omgm])]
== 13.67 gyr hzero, {Omgm, 0.3}]
Out[10]= {Omgm -> 0.265656}
Out[11]= {Omgm -> 0.281499}
(* ==================== End of Code =================== *)
مهارت ها و تخصص های مورد نیاز
بودجه
5,000 تومان تا 100,000 تومان
مهلت برای انجام
4روز
وضعیت مناقصه
انجام شده
درباره کارفرما
عضویت پنج سال پیش
قادر به انجام این پروژه هستید؟
مهلت ارسال پیشنهاد قیمت برای این پروژه تمام شده است
به رایگان یک حساب کاربری بسازید
مهارتها و تخصصهای خود را ثبت کنید، رزومه و نمونهکارهای خود را نشان دهید و سوابق کاری خود را شرح دهید.
به شیوهای که دوست دارید کار کنید
برای پروژههای دلخواه در زمان دلخواه پیشنهاد قیمت خود را ثبت کنید و به فرصتهای شغلی منحصر به فرد دسترسی پیدا کنید.
با اطمینان دستمزد دریافت کنید
از زمان شروع کار تا انتهای کار به امنیت مالی شما کمک خواهیم کرد. وجه پروژه را از ابتدای کار به امانت در سایت نگه خواهیم داشت تا تضمین شودکه بعد از تحویل کار دستمزد شما پرداخت خواهد شد.
میخواهید شروع به کار کنید؟
یک حساب کاربری بسازید
بهترین مشاغل فریلنسری را پیدا کنید
رشد شغلی شما به راحتی ایجاد یک حساب کاربری رایگان و یافتن کار (پروژه) متناسب با مهارتهای شما
است.
پیدا کردن کار (پروژه)
تماشای دمو روش کار