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




kmax=-10000;kmin=10000



do j=2,numr-1

  do i=1,numc-1



   k1=floor(d(i,j+1)/dx)  

   k2=floor(d(i+1,j)/dx)

   K3=floor(d(i+1,j-1)/dx)

   K4=floor(d(i+1,j+1)/dx)



   if(k1.lt.k2.and.K3.lt.K2.AND.k4.le.k2)then

    nn1=k2-k1

 

    do l=1,nn1

      kn=k1+(l-1)

     

          n(j,kn)=n(j,kn)+1

          nc(kn)=nc(kn)+1

         

          if(kmin>kn) kmin=kn

          if(kmax<kn) kmax=kn



      end do

    end if

  end do

end do



در واقع شرط if ای که بالا تعریف شده همون شرط تو در تو جدید هست
قبل از اون فقط شرط if شامل k1 & k2 می شده و nn1 هم که نقاط رو میشمرده
اما آیا نیازی هست که پارامتر جدیدی اضافه کنم که نقاط حاصل از k3 , k4 رو هم بشمره
البته مسلما خیر چون من هر دو شرط رو با هم میخوام
اما مطمئن نیستم خروجی nn1 درست عمل میکنه و هر دو خروجی مورد نظر من رو باهم بشمره
با تشکر پیشاپیش