This presentation is the property of its rightful owner.
Sponsored Links
1 / 17

Студент: Ляченков А.В. Научный руководитель: Евсиков Ю.А. PowerPoint PPT Presentation


  • 145 Views
  • Uploaded on
  • Presentation posted in: General

Выпускная работа бакалавра «Цифровое моделирование и исследование характеристик системы фазовой автоподстройки при совместном действии сигнала и шума». Студент: Ляченков А.В. Научный руководитель: Евсиков Ю.А. Задание на выпускную работу бакалавра.

Download Presentation

Студент: Ляченков А.В. Научный руководитель: Евсиков Ю.А.

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


4988467

: ..

: ..


4988467

  • ;

  • ;

  • ;

  • , ;

  • .


4988467

  • () , , . . , .

  • , , , .

  • , . , (), . , , . .

  • , , . , , , , .. , , .


4988467


4988467

  • , , . , .


4988467

  • , . : , , , .

  • , , . 8- , : , , , , - , , . , .


Fortran

FORTRAN

  • FORTRAN 66 (1972): IBM Fortran IV.

  • FORTRAN 77 (1980): :

  • (OPEN, CLOSE) PRINT.

  • .

  • IF IF THEN ELSE IF THEN END IF, INCLUDE.

  • .

  • 3 7. .

  • .

  • ( , ). , , - - READ WRITE.


Fortran1

FORTRAN

FORTRAN.


Fortran2

FORTRAN

  • FORTRAN90 (1991): .

  • . IMPLICIT NONE, TYPE, ALLOCATABLE, POINTER, TARGET, NAMELIST.

  • . DO END DO ( ), DO WHILE, CYCLE, SELECT CASE ( IF GOTO), , END.

  • ( ).

  • (ALLOCATE, DEALLOCATE, NULLIFY).

  • ( ),

  • , , , , . .

  • , . . . , .

  • , , TRIM ( ) REPEAT( ) .


Fortran3

FORTRAN

  • FORTRAN95 (1997):

  • . FORALL, , WHERE, . FORALL WHERE, , . , , , .

  • FORTRAN2003 (2004): . . :

  • - .

  • C.

  • .

  • FORTRAN2008: (Co-ArraysFortran). 15, .


4988467


4988467


4988467


Fortran4

FORTRAN-

complex j/(0.,1.)/,Uc,Usm,Uupch,Uao,Upg,D,Uf,Ush

real V(600),Fi,dt0,Sy,Uafd,Ak,x1,x2,Ug

Uc=(10.,0.)

Uupch=(0.,0)

Ug=5

Upg=Ug

Uop=1

Fi=0

write(*,*)'vvedite dt0'

read *,dt0

write(*,*)'vvedite w0'

read *,w0

write(*,*)'vvediteSy'

read *,Sy


Fortran5

FORTRAN-

write(*,*)'vvediteAk'

read *,Ak

D=cexp(j*w0)

do I=1,600

call random(x1)

call random(x2)

Ush=Ak*cmplx(x1-0.5,x2-0.5)

Uc=Uc*D

Usm=0.5*conjg(Uc+Ush)*Upg

Uupch=Uupch*(1-dt0)+dt0*Usm

Uao=1.27*(Uupch/cabs(Uupch))

Uafd=real(conjg(Uao)*Uop)

Uf=Uf*(1-dt0)+dt0*Uafd

Fi=Fi+dt0*Sy*Uf

Upg=Ug*cexp(j*Fi)

V(I)=Uafd

end do

call graf(V,600,1)

stop

end


4988467

( )

  • : dt0=.01, =-.01, Sy=2.

Ak=0

Ak=20

Ak=100


4988467

( )

  • : dt0=.01, =.01, Sy=2.

Ak=0

Ak=20

Ak=100

Ak=300


  • Login