Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

* Pza(14)/.26,.26,.26,.26,.26,.26,.26,.27,.43,.67,

* .91,.9,.6,0./,

* Pzb(14)/3.95,3.95,3.9,3.75,2.7,1.6,1.2,.62,.4,.3,

* .2,.15,.12,0./,

* X(14)/0.,.0125,.025,.05,.1103,.15,.181,.3,.4304,

* .55,.65,.774,.9,1./ real*8 gamm(14)/44.,24.,16.,7.,5.,2.,1.5,-2.,-8.,-10.,-
11.,

* -12.,-12.,-12./ real*8
R(14)/1.,1.06,1.11,1.145,1.2,1.21,1.225,1.24,1.16,

* 1.15,1.07,.95,.815,.72/ real*8 alf,bett,q,t,Ln,Lk,ref,fin,sh,dfi,r1ef,r2ef,fif,

*
Myx(5),Mzx(5),L,Pyc(5),Pxc(5),Pzc(5),P(5),Xc(5),Xcc(5),xt,pi write(*,*) 'Введите начальное значение угла Fi' read(6,*) fin write(*,*) 'Введите конечное значение угла Fi' read(6,*) fi write(6,*) 'Введите начальную Xотн' read(6,*) Ln write(6,*) 'Введите конечную Xотн' read(6,*) Lk write(*,*) 'Введите значение угла BETTA' read(*,*) bett write(*,*) 'Введите значение угла ALFA' read(*,*) alf write(*,*) 'Введите значение q' read(*,*) q pi=4*datan(1) fi=fi*pi/180. fin=fin*pi/180. alf=alf*pi/180. bett=bett*pi/180.

L=5.6 sh=.003 dfi=2.*pi/1257. xt=Ln do 4 i=1,13 if(xt.lt.x(i)) goto 5

4 continue

5 i=i-1 do 103 ik=1,5

Pyc(ik)=0.

Pzc(ik)=0.

Pxc(ik)=0.

Myx(ik)=0.

Mzx(ik)=0.

Xc(ik)=0.

103 Xcc(ik)=0. write(*,*) 'Номер участка',i gamm(i)=gamm(i)*pi/180. do 1 t=Ln,Lk,sh if(xt.gt.x(i+1)) then i=i+1 write(*,*) 'Номер участка',i gamm(i)=gamm(i)*pi/180. endif do 2 fif=fin,fi,dfi c write(*,*) fif*180./pi,xt,r(i) c Учет пилона **********************************

C if((xt.gt.x(5).and.xt.lt.x(6)).and.

C * (fif.lt.1.449.or.fif.gt.1.693)) goto 6

C if((xt.gt.x(6).and.xt.lt.x(7)).and.

C * (fif.lt.1.344.or.fif.gt.1.798)) goto 6

C if(xt.gt.0.1103.and.(fif.gt.1.2915.and.fif.lt.1.85))

C * goto 3

Рекомендуем скачать другие рефераты по теме: зимнее сочинение, скачать диплом.



Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки