صفحه 2 از 2

Re: فرترن

ارسال شده: یک‌شنبه ۱۳۹۵/۸/۹ - ۱۴:۲۷
توسط عطر یاس
الگوریتم روش نصف کردن در فرترن
Bisection Method Algoritm

تصویر


عکس از یک مثال حل شده در فرترن به روش تصنیف و اجرای آن:

تصویر

تصویر

تصویر

Re: فرترن

ارسال شده: یک‌شنبه ۱۳۹۵/۸/۹ - ۱۴:۵۵
توسط You-See
دیدی نیازی به این کار نبود!

Re: فرترن

ارسال شده: پنج‌شنبه ۱۴۰۰/۳/۲۷ - ۱۳:۳۶
توسط msdkrdn
سلام دوستان
میشه برای ساختار درست این کد در فرترن راهنمایی کنید:

کد: انتخاب همه

Do i=0,1000,1
          T(i)=t-(i*TI)
          if (z(i) .EQ. 0.00) then
              z(i+1)=v*T(i)
          elseif (z(i) .EQ. A) then
              z(i+1)=A-v*T(i)
          endif   
          r1=sqrt(x**2+(z-z(i))**2)
      end do