Курасов Виктор Борисович

Обсуждение

Анджей, Y-m-d H:i

subroutine vivo_v_fajl(n1,n2,l1,l2) !vizov proceduri! integer n1,i,j,l1,l2,n2 real S open(1,file='c:\objektik.txt') do j=2,n1,1 do i=2,n2,1 S=3.16*(suma(i,j,L1,L2,c)+suma(j,i,L2,L1,c))**(2.0/5.0) !Write(1,*) i,s write(1,»(e23.16,\)») s if (i==n2) write(1,*)

end do print*,j end do close(1)

end subroutine vivo_v_fajl

end program kvadratielementov !Glavnaja programa zakonchilacj!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !NACINAJU funkciju suma! real function suma(n1,n2,L1,L2,c) integer L1,L2,dl,n1,n2,n1s real n11,n22,n1sp,n1sn,ph,el,c(0:30),dw,nnn !nnn,n11,n22-kvantovie chisla effektivnie real nn real w1,w2,S,dWp,dWn,Ws1n,Ws1p REAL S11,S1,S12 integer nmax1s

!ZADAJU PARAMETRI

!write(*,*) L2

! V etoj strochke dolzhno vichisljatsja effektivnoe kvantovoe chislo !ono vichisljaetsja nizhe

!PRINT*,n1,n2,l1,l2,c(2) nmax1s=l1+1 n11=n1-c(L1)

n22=n2-c(L2) w1=-1.0/(2.0*n11*n11) w2=-1.0/(2.0*n22*n22) S=0

!NACHINAEM SUMIROVANIE PO n1s DO n1s=n1-1,L1,-1

if (l1>0) then n1sn=n1s-c(L1-1) Ws1n=-1.0/(2.0*n1sn*n1sn) dWn=abs1) w2sn=w2+dWn end if

n1sp=n1s-c(L1+1) Ws1p=-1.0/(2.0*n1sp*n1sp) dWp=abs2) w2sp=w2+dWp

!S1=sechenie(w2,w2sn,L1-1,c) !PRINT*,»S1=»,S1 s1=0 if (L1>0) then

				 if((dWn>=abs(w2)).AND
1) Ws1n-w1
2) Ws1p-w1
Ваш комментарий. Вики-синтаксис разрешён:
 
teachers/курасов.txt · Последние изменения: Y-m-d H:i (внешнее изменение)
Наверх
CC Attribution-Noncommercial-Share Alike 3.0 Unported
Driven by DokuWiki Recent changes RSS feed Valid CSS Valid XHTML 1.0