Похожие работы на «Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе »

Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... i:=1 to n-e-c do begin writeln; for j:=1 to s do write(FRpRx[i,j]:4); end; sea; write('FEL'); for i:=1 to e do begin writeln; for j:=1 to l do write
... i:=1 to c do begin writeln; for j:=1 to l do write(FCL[i,j]:4); end; sea; write('FRpL'); for i:=1 to n-1-e-c do begin writeln; for j:=1 to l do write( ...


Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления
Технология, Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления, ... for i:=1 to 4 do Writeln; Writeln(' Параметры АД:'); Writeln; Writeln(' As =',A1:6,' Ar =',A2:6); Writeln(' Ks =',K1:6,' Kr =',K2:6); Writeln(' Ls` ...
... GetVectorString(ST11));Writeln(Result,GetVectorString(ST12)); Write(Result,GetVectorString(ST13));Writeln(Result,GetVectorString(ST21)); Write(Result, ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... i]; {----делаем нули под ведущим элементом----} for k:=i+1 to m-1 do begin d[k]:=d[k]-d[i]*c[k,i]; for j:=m-1 downto i do c[k,j]:=c[k,j]-c[i,j]*c[k,i] ...
... a_1[i,j]:=-a[i,j]; {-===находим матрицу значений главных компонент F===-} for i:=1 to m do for j:=1 to n do begin s:=0; for k:=1 to m do s:=s+a_1[i,k] ...


Программа оптимизации рискового портфеля [нестрогое соответствие]
Экономико-математическое моделирование, Программа оптимизации рискового портфеля, Реферат ... 1 to n do {дублирование матриц} begin for v:=1 to n do begin B1[c,v]:=B[c,v]; e1[c,v]:=e[c,v]; end; end; for k:=1 to n do begin B[i,k]:=B1[i,k]/b1[i,i ...
... i]+e[i,j]; end; end; for i:=1 to n do {формирование вектора-столбца Bm} begin for j:=1 to n do begin Bm[i]:=Bm[i]+m[j]*e[i,j]; end; end; for i:=1 to n ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... matrix;n:byte); var i,j,l:byte; s:real; begin for i:=1 to n do for j:=1 to n do t[i,j]:=0; for j:=1 to n do begin s:=0; for l:=1 to j-1 do s:=s+sqr(t[ ...
... 1 to n do begin s:=0; for l:=1 to j-1 do s:=s+t[i,l]*t[j,l]; t[i,j]:=(a[i,j]-s)/t[j,j] end; end; end; procedure MulMatrix(a:matrix;ma,na:byte;b:matrix ...


Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя [нестрогое соответствие]
Математика, Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя , Работа Курсовая ... k-м столбце нулевой, то система не имеет однозначного решения } If l = 0 then begin Gauss := false; Exit; end; { Меняем местом l-ую строку с k-ой } If ...
... a[i, i]) then begin Seidel := false; Exit; end; end; Repeat m := 0; For i := 1 to n do begin { Вычисляем суммы } s1 := 0; s2 := 0; For j := 1 to i - 1 ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... 0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) end; if (mode=2) then for j:=1 to 12 do if (mthe[j,1]=upcase(st[i])) and ...
... st[i])-ord('0'); if ((mode mod 2)=0) and (c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if mode=1 then ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... for j:=1 to 30 do begin loc_calc[j]:=0; shift[j]:=0; end; j:=1; repeat j:=j+1; write(f,ln(j):10:2); for i:=1 to 30 do with cell[i] do begin loc_calc[i ...
... i:=1 to 30 do with cell[i] do begin for j:=2 to 100 do begin z:=round(sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j- 1]))); shift[z]:=shift ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... применить и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... List):Byte; Var j:Byte; Ex:Boolean; Begin If l<>Nil Then Begin j:=1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; Ex ...
... Begin j:=1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; While (l<>Nil) and (l^.Name<>x.Name) Do l:=l^.Next; If l< ...