Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Eb=4e5; c6=1e-6;

T10=300.0; c7=15e-12; r1=0.01; l2=0.2e-9; r3=1; l3=0.6e-9; r4=0.0005; l4=0.01e-9; { крутим } r5=100; l5=100e-9;

Eds=3.8; l6=35e-9; l7=0.12e-9;

ll0=0.03; {sm} llk=0.046; maxpoint=1000000000; z0=39.43e3;

Type FL=EXTENDED;
Type ry=array[1..1100]of FL;
Type tt=array[1..N]of FL;

var sign,g1,sign1,sign2,sign3:ry; oldy1,oldy:array[1..10] of integer;

K1,y,f,w:tt;

delta_i,frequency,old_f,old_cur,di,oldc1,oldc2,c1,l1, sign0,d_visir,bn,iv1,iv11,iv12,x,h,vp1,smax,f0,s0,Vs,Vs1, y1,s1,ppp:FL;

mark,count,fcount,point,deltax,fsign,gd,oldx,oldx1,dh,dj, visir_1,visir_2,visir_3,visir_4,k,aaa,i,ii,iii,phas_x, phas_y:integer;

round,fpoint,iii1,loop:longint;

visir_f,visir_f1,visir_s,power,size_x,size_y:real;

c:char;

P: Pointer;

Size: Word; s:string;

Procedure current; var U:real; { BAX } begin

Vs:=eds/(Eb*Lg);

Vs1:=Vs*Vs*Vs;

Vs:=(1+0.265*Vs1/(1-T10*5.3E-4))/(1+Vs1*Vs);

Vs:=1.3E7*Eds*Vs/T10; if y[3]3.6 then u:=y[3]+2 else begin if f[3]>0 then u:=y[3] else u:=y[3]+2; end; iv12:=sqr(sqr(u/eb/Lg)); iv11:=mm1*u/Lg+vs*iv12; iv1:=q1*n123*s123*iv11/(1+iv12); end;

procedure kzp; { КЗП } var ll2:FL; begin l1:=0.2e-9; c1:=0.1e-12;

llv:=ll0/sqrt(1-sqr(ll0/llk));

z:=z0*Sin(6.28*lll/llv)/Cos(6.28*lll/llv);

if z=visir_f1) then begin if (visir_f10) then begin setcolor(0); outtextxy(540,75,'___________'); setcolor(13); line(540,70,620,70); str((visir_f/visir_f1):5:3,s); outtextxy(540,75,s); end; end else begin if (visir_f0) then begin setcolor(0); outtextxy(540,75,'___________'); setcolor(13); str((visir_f1/visir_f):5:3,s); outtextxy(540,75,s); end; end; end;

procedure v12; { вывод информации физиров 1 и 2 } begin d_visir:=1e-9*abs(visir_2-visir_1)*(xmax-xmin)/(xgmax- xgmin);

setcolor(0); outtextxy(540,255,'___________'); outtextxy(540,35,'___________');

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



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

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