تبلیغات
 برنامه نویسی و محاسبات عددی به زبان فرترن

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
باسلام
این کد معادله ی انتقال حرارت دوبعدی ناپایا(گذرا) را به روش ضمنی ADI حل خواهد کرد.روش ADI به این صورت میباشد که در نصف واحد زمان در جهت i و در نصف دیگر واحد زمان در جهت j حرکت میکند.پس از تشکیل ماتریس سه قطری برای بدست اوردن دما در هر نقطه باید این ماتریس سه قطری حل شود که با استفاده از الگوریتم توماس این ماتریس حل میشود.الگوریتم توماس توسط یک سابروتین در کد اعمال شده است.پس از حل معادله برای نمایش کانتور دما روی سطح میله،خروجی tecplot از نتایج گرفته میشود تا بتوانیم توزیع دما را در نرم افزار tecplot مشاهده کنیم.پس از اجرا و ران کردن کد، فایل هایی کنار فایل اجرایی این کد ساخته میشود که فایل های tecplot میباشند.برای باز کردن این فایل ها و مشاهده ی کانتور دما باید نرم افزار360 tecplot را از قبل نصب کرده باشید.همچنین به غیر از فایل های کانتور دما یک فایل Error هم تولید میشود که میزان خطا بر حسب تعداد تکرار را نمایش میدهد.
معادله ی انتقال حرارت دوبعدی گذرا به صورت زیر میباشد:
تعریف مسئله :
میله مسی مستطیلی به طول W=0.4 m و عرض L=0.3 m متر را در نظر بگیرید.میخواهیم جواب حالت گذرا را برای توزیع دما روی سطح میله پیدا کنیم.ضریب پخش حرارتی برای این میله ی از جنس مس برابر  a=1.11 * 10^-4  m^2/s  میباشد.ندازه شبکه محاسباتی را برابر  Imax=41 و Jmax=31 در نظر بگیرید.شرایط اولیه برابر با T(t=0 s)=0 C و شرایط مرزی به صورت زیر میباشد.
T1=40 C   , T2=0 C   , T3=10 C   , T4=0 C

توزیع دما درون میله را به روش ضمنی ADI با گام زمانی 0.2 ثانیه و در مدت زمان های t=10 s و t=20 s و حالت دائم بدست آورید.فرض کنید در حالتی که به جواب دائم می رسیم که کل تغییرات دما از یک گام زمانی به گام زمانی بعدی کوچکتر از 0.01 درجه سلسیوس باشد.

کد فرترن حل این مسئله :

!--------------------------------------------------------------------------------------------------------------------
program Project_ADI_T0_2s
implicit none
INTEGER::i1,j1,k1,i2,j2,k2,n
REAL::a=0.000111,dt=0.2,dx=0.01,c,s,t1(31,41),d1,a1(29,29),b1(29),u1(29),d2,t2(31,41),t3(31,41),a2(39,39),b2(39),u2(39)
11  format (I5,I5,F14.4)

برای مشاهده کامل کد کلیک کنید

طبقه بندی: دینامیک سیالات عددی (CFD)، محاسبات عددی،
برچسب ها: ADI، روش ضمنی ADI، انتقال حرارت دوبعدی ناپایا، انتقال حرارت دوبعدی گذرا، حل معادله انتقال حرارت گذرا، حل عددی معادله انتقال حرارت،
تاریخ : چهارشنبه 21 آذر 1397 | 02:37 ب.ظ | نویسنده : محمد ریحانی | نظرات
با سلام.این کد خواص اتمسفر استاندارد را تا ارتفاع 90 کیلومتری از سطح زمین محاسبه میکند و آنرا در فایل هایی ذخیره میکند.این کد خواص را در هر متر حساب میکند و گام های آن یک متر است و در کل خواص 90001 نقطه را محاسبه میکند.چون تعداد اطلاعات بسیار زیاد است به همین علت امکان نمایش این اطلاعات در خود برنامه وجود ندارد و بخاطر همین این اطلاعات در فایل هایی در کنار فایل اجرایی این برنامه بوجود می آید و اطلاعات در آن فایل ها ذخیره میشود.بعد از کامپایل کردن این کد,یک فایل اجرایی از این کد توسط کامپایلر تولید میشود(با پسوند exe).وقتی که این فایل اجرایی را اجرا کنید در خود برنامه اتفاقی نمی افتد اما بلافاصله در کنار این فایل اجرایی,چند فایل متنی به وجود می آید که اطلاعات خواص اتمسفر را در آنها ذخیره میکند.این فایل ها شامل فشار و چگالی و دما و سرعت صوت بر حسب ارتفاع و یک فایل هم که همه ی  این اطلاعات را در کنار هم نمایش میدهد.

============================================================
program  atmosphere
implicit none
REAL::t(90001),p(90001),d(90001),t0,t1,t2,t3,t4,t5,d0,d1,d2,d3,d4,d5,p0,p1,p2,p3,p4,p5,r,g,l,c(90001)
INTEGER::h,h0,k,i,n(90001)
R=287

برای مشاهده کامل کد کلیک کنید

طبقه بندی: کدنویسی عمومی،
برچسب ها: atmosphere، ترمودینامیک، آیرودینامیک، مکانیک پرواز، اتمسفر استاندارد،
تاریخ : شنبه 5 خرداد 1397 | 12:44 ق.ظ | نویسنده : محمد ریحانی | نظرات
با سلام.این کد برای محاسبه ی خواص جریان هوای قبل و بعد از عبور از شاک مایل میباشد(شاک مایل یا oblique shock)

این کد در واقع همان نمودار شاک مایل هستش که کد متلب رسم این نمودار در پست قبل نوشته شده است.این کد دیگه نمودار رو نمایش نمیده و بجای نگاه کردن به نمودار با محاسبات اطلاعات موجود در جدول رو بدست میاره.لازم به ذکر است که تتا همان زاویه تغییر شیب سطح نسبت به راستای اولیه جریان و بتا زاویه شاک مایل ایجاد شده با راستای اولیه جریان است.این کد سه حالت را به کاربر پیشنهاد میکنه و باید یکی از این سه حالت انتخاب شود.حالت 1 محاسبه ی بتا با داشتن عدد ماخ قبل شاک و داشتن تتا هستش......حالت 2 محاسبه ی تتا با داشتن عدد ماخ قبل شاک و بتا هستش و حالت 3 محاسبه ی عدد ماخ قبل شاک با داشتن تتا و بتا هستش.بعد از محاسبه ی هر حالت سپس عدد ماخ عمودی قبل شاک(mach normal 1) و عدد ماخ عمودی بعد شاک (mach normal 2) و همچنین عدد ماخ بعد از شاک را نیز محاسبه و نمایش میدهد.این کد طوری نوشته شده که خطای هر چیزی که محاسبه میشود در بدترین حالت برابر 0.0005 است! یعنی میتوان به نتایجی که نمایش میدهد کاملا اطمینان داشت.اعدادی که از این کد بدست میاد ممکنه با اعداد مسائل درون کتاب به صورت بسیار جزئی تفاوت داشته باشد یعنی در حد چند صدم.علت این اختلاف اینه که کتاب این مسائل را سعی کرده که به صورت مشاهده ی نمودار حل کنه و اعداد تقریبی هستش و مقدار واقعی نیست اما اعداد این کد کاملا دقیق هستش.در این کد یک سابروتین هم قرار داره شده که کار این سابروتین این است که در یک عدد ماخ مشخص مقدار تتا و بتای ماکزیموم رو بدست بیاره تا در حالت اول اگر کاربر عدد تتا را بیشتر از مقدار ماکزیموم آن وارد کند به کاربر تذکر بدهد.این مباحث در رشته های مهندسی هوافضا و مهندسی مکانیک وجود دارد که برای مهندسی هوافضا به صورت تخصصی تر بررسی میشود(درس آیرودینامیک).

============================================================
program oblique_shock
implicit none
real::teta,teta1,tetax,beta,mn1,mn2,mt,mb,m2,pi,m,n,x,i
character(1)::res
pi=4*atan(1.)

برای مشاهده کامل کد کلیک کنید

طبقه بندی: کدنویسی عمومی،
برچسب ها: ماخ و بتا و تتا، ماخ، بتا، تتا، mach beta teta،
تاریخ : شنبه 5 خرداد 1397 | 12:43 ق.ظ | نویسنده : محمد ریحانی | نظرات
این کد که به زبان متلب هستش نمودار بِتا(زاویه شاک نست به سطح اولیه جسم) بر حسب تِتا(زاویه جسم جدید نسبت به راستای اولیه ی جسم) رو محاسبه میکنه و نمودار رو نمایش میده.(نمودار صفحه 613 و 614 کتاب آیرودینامیک اندرسون ویرایش 5).

در این کد عدد ماخ و عدد زاویه بِتا تغییر دادخ میشه و عدد تِتا برای هر ماخ و بتا بدست میاد و در آخر نمودار بتا بر حسب تتا رو نمایش میده.در این کد عدد ماخ از 1 تا  20 با گام 0.1 تغییر میکنه و بتا هم از 0 تا 90 درجه با گام 1 درجه تغییر میکنه و تتا از ماخ و بتا محاسبه میشه(مخصوص درس آیرودینامیک 2 رشته مهندسی هوافضا)

-------------------------------------------------------------------------------------------------------------------------------------
k=0;teta=[];beta=[];
for m=1:0.1:20.05
for b=0:90
k=k+1;
beta(k)=b;
d=atan( 2*(1/tan(pi*b/180))*(((m*sin(b*pi/180))^2)-1)/(m^2 * (1.4+cos(2*b*pi/180))+2));
teta(k)=d*180/pi;
end
end
plot(teta,beta);axis([0 50 0 90])



طبقه بندی: کدنویسی عمومی،
تاریخ : شنبه 5 خرداد 1397 | 12:43 ق.ظ | نویسنده : محمد ریحانی | نظرات
این کد به زبان متلب هستش که دما و فشار و چگالی را بر حسب ارتفاع اتمسفر با روابطی که در دروس مکانیک پرواز و آیرودینامیک بدست آورده ایم تا ارتفاع 47 کیلومتری از سطح زمین یعنی تا لایه استراتسفیر(Stratosphere) محاسبه میکند و نمودار این سه خواص را در سه نمودار مجزا نمایش میدهد.فقط کافیه این کد رو کپی کنید و در محیط متلب اجرا کنید تا نتیجه رو ببینید.

-------------------------------------------------------------------------------------------------------------------------------------
t=[];p=[];d=[];u=[];
r=287;p0=101325;g=9.81;t0=288;h0=0;d0=1.225;k=0;
for h=0:500:47000
 if h<=11000
 k=k+1;
 u(k)=h;
 a=-6.5/1000;
 t(k)=t0+a*(h-h0);
 p(k)=p0*(t(k)/t0)^(-g/(a*r));
 d(k)=d0*(t(k)/t0)^(-(g/(a*r)+1));
 p1=p(k);d1=d(k);
 elseif (h>11000)&&(h<=25000)
 k=k+1;
 u(k)=h;
 t(k)=216.6;
 p(k)=p1*exp(-g/(r*t(k))*(h-11000));
 d(k)=d1*exp(-g/(r*t(k))*(h-11000));
 p2=p(k);d2=d(k);
 elseif h>25000
  k=k+1;
  u(k)=h;
  a=3/1000;
  t(k)=216.6+a*(h-25000);
  p(k)=p2*(t(k)/216.6)^(-g/(a*r));
  d(k)=d2*(t(k)/216.6)^(-(g/(a*r)+1));  
  end
  end
  subplot(2,2,1)
  plot(t,u)
  title('Temperature')
  subplot(2,2,2)
  plot(p,u)
  title('Pressure')
  subplot(2,2,3)
  plot(d,u)
  title('Density')

تاریخ : شنبه 5 خرداد 1397 | 12:42 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن روش ماتریس معکوس|حل دستگاه معادلات جبری خطی به روش ماتریس معکوس|روش ماتریس معکوس برای حل معادلات جبری خطی|روش ماتریس معکوس به زبان فرترن|کد فرترن روش ماتریس معکوس برای حل دستگاه معادلات|reymoh.mihanblog.com

---------------------------------------------------------------------------------------------------------------------------------------------

کد فرترن روش ماتریس معکوس برای حل دستگاه معادلات جبری خطی...ین کد اول تعداد معادلات یا n رو میگیره و ماتریس ضرایب n در n رو تشکیل میده و همچنین دو ماتریس n در 1 رو تشکیل میده که یکی برای مجهولات و دیگری برای معلومات در طرف راست تساوی هستش.بعد خط به خط ماتریس ضرایب و ماتریس معلوم رو میگیره و شروع به محاسبه ماتریس همسازه ها میکنه.اول دترمینان ماتریس ضرایب رو محاسبه میکنه که اگر 0 باشه یک پیام خطا نمایش میده که ماتریس معکوس پذیر نیست.اگر دترمینان 0 نباشه محاسبه کردن رو ادامه میده.برای ماتریس همسازه ها باید با استفاده از کهاد سطر ها و ستون ها مرتب دترمینان محاسبه بشه که واسه این مورد یک سابروتین نوشتم که این کارو میکنه.سپس ترانهاده ماتریس همسازه ها رو بدست میاره و ضرب در دترمینان ماتریس ضرایب میکنه.ماتریس بدست اومده همون معکوس ماتریس ضرایبه.سپس این ماتریس معکوس شده رو در ماتریس معلوم ضرب میکنه که این کار رو هم یک سابروتین انجام میده.جواب های بدست اومده از ضرب این دو ماتریس همون جواب های مجهولات ما هستن و اونا رو نمایش میده.

-------------------------------------------------------------------------------------------------------------------------------------
program matrix_inverse_method
implicit none
INTEGER::i2,i,j,k,p,i1,j1,n,j2,i3
REAL::s,detr,deta
REAL,ALLOCATABLE::a(:,:),b(:,:),c(:,:),f(:),x(:,:),t(:,:),g(:,:)

برای مشاهده کامل کد کلیک کنید

طبقه بندی: محاسبات عددی،
برچسب ها: روش ماتریس معکوس، حل دستگاه معادلات به روش ماتریس معکوس، روش ماتریس وارون در حل دستگاه معادلات، کد فرترن روش ماتریس معکوس، روش ماتریس معکوس به زبان فرترن،
تاریخ : شنبه 5 خرداد 1397 | 12:41 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن معکوس ماتریس|کد فرترن ماتریس معکوس|معکوس یک ماتریس در فرترن|کد فرترن وارون یک ماتریس|وارون ماتریس|محاسبه وارون ماترس|محاسبه معکوس ماتریس|reymoh.mihanblog.com

---------------------------------------------------------------------------------------------------------------------------------------------

کد فرترن محاسبه معکوس یک ماتریس...این برنامه اول n رو میگیره و ماتریس n در n رو تشکیل میده بعد خط به خط ماتریس رو از کاربر میگیره و شروع به محاسبه میکنه و معکوسش رو نشون میده.این کد یک سابروتین داره که کارش محاسبه دترمینان برای بدست آوردن ماتریس همسازه ها هستش.اگر دترمینان ماتریس 0 باشه ماتریس معکوس پذیر نیست و یک پیامی و نشون میده.

-------------------------------------------------------------------------------------------------------------------------------------
program matrix_inverse
implicit none
INTEGER::n,i,j,k,p,i1,j1,i2,j2,i3
REAL::s,detr,deta
REAL,ALLOCATABLE::a(:,:),b(:,:),c(:,:),f(:),g(:,:)
PRINT*

برای مشاهده کامل کد کلیک کنید

طبقه بندی: محاسبات عددی،
تاریخ : شنبه 5 خرداد 1397 | 12:40 ق.ظ | نویسنده : محمد ریحانی | نظرات
Reymoh.mihanblog.com|کد فرترن ضرب ماتریس|کد فرترن ضرب دو ماتریس|ضرب دو ماتریس در فرترن|ضرب ماتریس به زبان فرترن|ضرب کردن دو ماتریس در فرترن|reymoh.mihanblog.com

-------------------------------------------------------------------------------------------------------------------------------------------

این کد اول m1 و n1 یا همون تعداد سطر و ستون ماتریس اول رو میگیره و سپس m2 و n2 مربوط به ماتریس دوم رو میگیره.بعد بررسی میکنه که n1 و m2 برابر هستند یانه.برای ضرب ماتریس ها این دو عبارت باید برابر باشند.سپس یک ماتریس m1 در n2 تشکیل میده که همون ماتریس جواب ماست و شروع به محاسبه میکنه و در آخر هم ماتریس بدست اومده رو نشون میده.

-------------------------------------------------------------------------------------------------------------------------------------
program matrix
implicit none
INTEGER::m1,n1,m2,n2,t,k1,k2,i,k,j
REAL,allocatable::a(:,:),b(:,:),c(:,:),c1(:),c2(:)
REAL::s
PRINT*

برای مشاهده کامل کد کلیک کنید

طبقه بندی: محاسبات عددی،
تاریخ : شنبه 5 خرداد 1397 | 12:39 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن اثر یک ماتریس|کد فرترن تریس یک ماتریس|کد فرترن تریس ماتریس|کد تریس ماتریس در فرترن|کد اثر ماتریس در فرترن|trace|محمد ریحانی|reymoh.mihanblog.com

-------------------------------------------------------------------------------------------------------------------------------------------

این کد اول n رو که همون تعداد سطر و ستون ماتریس مربعی ماست رو میگره.سپس سطر به سطر درایه های های ماتریس رو از کاربر میگیره و شروع به محاسبه تریس ماریس میکنه.تریس یا اثر یک ماتریس برابر حاصل جمع درایه های روی قطر اصلی ماتریسه.در آخر هم جواب رو نمایش میده.

-------------------------------------------------------------------------------------------------------------------------------------
program trace
implicit none
INTEGER::n,i,t
REAL::s
REAL,ALLOCATABLE::a(:,:)
PRINT*,"  input n : "
READ*,n
ALLOCATE (a(n,n))
do t=1,n
PRINT*,"  input a(",t,", 1 )  to  a(",t,",",n,") :"
PRINT*
READ*,a(t,:)
end do
s=0.
do i=1,n
s=s+a(i,i)
end do
PRINT*,"  trace = ",s
PRINT*
end



طبقه بندی: کدنویسی عمومی،
تاریخ : شنبه 5 خرداد 1397 | 12:37 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن مشتق مرتبه اول|کد فرترن مشتق عددی|مشتق مرتبه اول|مشتق عددی به روش تفاضل مرکزی|مشتق به روش تفاضل عددی|مشتق عددی|تفاضل مرکزی|Central difference|کد فرترن مشتق با تفاضل مرکزی|مشتق عددی در فرترن|کد مشتق عددی به فرترن|مشتق در فرترن|محاسبات عددی|محمد ریحانی|reymoh.mihanblog.com

--------------------------------------------------------------------------------------------------------------------------------------------

کد فرترن مشتق عددی به روش تفاضل مرکزی...من این کد رو برای تابع F(x)=x^3 -2x +1 نوشتم.کدی که نوشتم اول n رو میگیره که همون عددیه که بازه رو تقسیم بر اون میکنیم.بعد x رو میگیره.x همون نقطه ای که ما میخوایم مشتق رو در اون نقطه حساب کنیم.این برنامه مشتق مرتبه اول رو در نقطه x نشون میده و خطا رو هم محاسبه میکنه و نمایش میده.همان طور که میدونید هر چی n بزرگ تر باشه مقدار خطا کوچک تره.محمد ریحانی

---------------------------------------------------------------------------------------------------------------------------------------
program dif
implicit none
REAL::x,fp,y1,y2,n,e,yp
!f(x)=(x**3)-2x+1

ادامه مطلب

طبقه بندی: محاسبات عددی،
تاریخ : شنبه 5 خرداد 1397 | 12:34 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن روش کرامر|کد روش کرامر به فرترن|کد روش کرامر در فرترن|حل دستگاه معادلات به روش کرامر|کرامر|روش کرامر|محاسبات عددی|محمد ریحانی|reymoh.mihanblog.com

-------------------------------------------------------------------------------------------------------------------------------------------

کد فرترن روش کرامر........کدی که نوشتم اول تعداد معادلات یا همون n رو میگیره و ماتریس n در n رو تشکیل میده.حالا شروع میکنه سطر به سطر درایه های ماتریس رو به همراه b که همون بردار معلوم ماست میگیره.بعد با استفاده از سابروتینی که کارش محاسبه دترمینان هستش ,دترمینان ماتریس a رو محاسبه میکنه.بعد برای هر x یک ماتریس جدید رو تشکیل میده(که همون روش کرامر هستش) و اون ماتریس رو به سابروتین میده تا دتر مینانش رو محاسبه کنه.تقسیم دترمینان ماتریس جدید به دترمینان اصلی همون جواب های ماست.توضیحات تو برنامه به فینگیلیش هستش.بازم اگر سوال داشتید بپرسید

-------------------------------------------------------------------------------------------------------------------------------------
program keramer
implicit none
INTEGER::i,n,j
REAL::detnet,det
REAL,ALLOCATABLE::a(:,:),b(:),x(:),c(:)
PRINT*

برای مشاهده کامل کد کلیک کنید

طبقه بندی: محاسبات عددی،
تاریخ : شنبه 5 خرداد 1397 | 12:32 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن محاسبه دترمینان ماتریس n در n|کد فرترن محاسبه دترمینان ماتریس n*n|دترمینان ماتریس n در n|دترمینان ماتریس n*n|محمد ریحانی|reymoh.mihanblog.com

--------------------------------------------------------------------------------------------------------------------------------------------

کد فرترن محاسبه دترمینان ماتریس n*n.....کدی که نوشتم اول از شما n که همون تعداد سطر و ستون ماتریس مربعی n*n هستش رو میگیره.بعدش خط به خط درایه های ماتریس رو ازتون میگیره.بعد برنامه در هر مرحله نگاه میکنه میبینه که رو قطر اصلی عدد 0 وجود داره یا نه.اگه باشه اون سطر رو با سطری که درایه ش 0 نداره عوض میکنه.این کارو واسه همه سطر ها در هر مرحله انجام میده تا همه شون درست بشن.حالا شروع میکنه به تبدیل این ماتریس به یک ماتریس بالا مثلثی.میدونید که یکی از روش های محاسبه دترمینان همینه.بعد از اینکه بالا مثلثی شد دترمینان برابر حاصلضرب درایه های قطر اصلی ماتریس میشه.این حاصلضرب رو محاسبه میکنه و دترمینان رو نشون میده.

------------------------------------------------------------------------------------------------------------------------------------
program determinan
implicit none
INTEGER::i,j,g,f,r,j1,k,s,n
REAL::landa,t
REAL,ALLOCATABLE::a(:,:),b(:)
PRINT*

برای مشاهده کامل کد کلیک کنید

طبقه بندی: محاسبات عددی،
تاریخ : شنبه 5 خرداد 1397 | 12:30 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن الگوریتم توماس|کد فرترن روش توماس|کد فرترن حل ماتریس سه قطری توماس|کد فرترن حل ماتریس سه قطری|کد فرترن ماتریس سه قطری|الگوریتم توماس به زبان فرترن|الگوریم توماس در فرترن|کد فرترن روش الگوریتم توماس|ماتریس سه قطری|روش الگوریتم توماس|کد فرترن روش روش الگوریتم توماس|ماتریس سه قطری توماس|محاسبات عددی|محمد ریحانی|reymoh.mihanblog.com

-----------------------------------------------------------------------------------------------------------------------------------------

توجه!! بخوانید!

کد فرترن حل ماتریس سه قطری توماس...این کدی که نوشتم اول n یا همون تعداد معدلات رو رو میگیره و سپس a ها و b ها و c ها رو میگیره و بعد از اینکه ماتریس سه قطری رو تشکیل داد حالا سمت راست ماتریس یعنی r ها رو میگره و شروع به محاسبه به روش توماس میکنه و در آخر جواب هارو نمایش میده.توضیحات لازم رو تو برنامه به فینگیلیش نوشتم.محمد ریحانی

توجه :: عزیزانی که در اجرای این کد به مشکل میخورن علتش از کامپایلرشون هستش.کسانی که به مشکل میخورن حتما از کامپایلر plato یا چیز دیگه برای ویندوز 64 بیت استفاده میکنن.برای اجرای کامل و بدون مشکل این کد باید از کامپایلر Lahey که برای ویندوز 32 بیت هست استفاده کنند.اگر هم ویندوز 32 بیت ندارید یا باید ویندوز مجازی بریزید یا اینکه اگر به فایل اجرایی این کد نیاز دارید از لینکی که گذاشتم فایل اجرایی رو که از کامپایلر 32 بیتی درست شده,دانلود کنید.با تشکر

 http://s8.picofile.com/file/8313708218/Toomas.exe.html

-------------------------------------------------------------------------------------------------------------------------------------
program toomas
implicit none
INTEGER::n,i,j,k,l
REAL::landa
REAL,ALLOCATABLE::a(:,:),r(:),x(:)
PRINT*

برای مشاهده کامل کد کلیک کنید

طبقه بندی: محاسبات عددی،
برچسب ها: کد فرترن روش توماس، کد فرترن حل ماتریس سه قطری توماس، الگوریم توماس در فرترن، الگوریتم توماس، ماتریس سه قطری،
تاریخ : شنبه 5 خرداد 1397 | 12:21 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن ریشه های معادله درجه ی دوم|ریشه های معادله درجه دوم در فرترن|ریشه های معادله درجه دوم به زبان فرترن|کد فرترن جواب های معادله درجه دوم|محمد ریحانی|reymoh.mihanblog.com

-------------------------------------------------------------------------------------------------------------------------------------------

کد فرترن برنامه ای که ضرایب a و b و c رو از معادله درجه دوم ax^2+bx+c=0 از کاربر میگیره و ریشه ها رو محاسبه میکنه و نمایش میده.اگر دلتا کمتر از صفر باشه هم ریشه ها رو به صورت یک عدد مختلط نمایش میده.

-------------------------------------------------------------------------------------------------------------------------------------
program daraje_2
implicit none
REAL::a,b,c,x1,x2,delta
PRINT*

برای مشاهده کامل کد کلیک کنید

طبقه بندی: کدنویسی عمومی،
تاریخ : شنبه 5 خرداد 1397 | 12:19 ق.ظ | نویسنده : محمد ریحانی | نظرات
reymoh.mihanblog.com|کد فرترن تبدیل مبنا از m به n|کد فرترن تبدیل مبنا از n به m|تبدیل مبنا از n به m در فرترن|تبدیل مبنا از n به m به زبان فرترن|تبدیل مبنا از n به m به فرترن|کد فرترن تغییر مبنا از مبنایی به مبنای دیگه|کد فرترن تغییر مبنا به عددی دیگر|محمد ریحانی|reymoh.mihanblog.com

-----------------------------------------------------------------------------------------------------------------------------------------

کد فرترن برنامه ای که عدد a را در مبنای m میگیره و سپس عدد n رو هم میگیره و عدد  a رو از مبنای m به مبنای n میبره و نمایش میده

-------------------------------------------------------------------------------------------------------------------------------------
program mabna_m_be_n
implicit none
INTEGER::a,m,n,k,s1,s2,j,i,r,a10,am
PRINT*

ادامه مطلب

طبقه بندی: کدنویسی عمومی،
برچسب ها: کد فرترن تبدیل مبنا از n به m، تبدیل مبنا، تغییر مبنا، کد فرترن تبدیل مبنا از m به n، کد فرترن تغییر مبنا از عددی به عددی دیگر،
تاریخ : شنبه 5 خرداد 1397 | 12:02 ق.ظ | نویسنده : محمد ریحانی | نظرات

تعداد کل صفحات : 3 :: 1 2 3



  • paper | رپورتاژ خبری | رپورتاژ
  • فال تاروت | فروش رپورتاژ آگهی ارزان قیمت