Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна
| Категория реферата: Рефераты по технологии
| Теги реферата: реферат на тему жизнь, решебник 7
| Добавил(а) на сайт: Tihomira.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная