Похожие работы на «Электроснабжение»

Электроснабжение
Технология, Электроснабжение, Курсовая ... элемента*) 3. for k=1 to n do (*найти ведущий элемент*) 4 Amax <= |A[k,k]| 5 Imax <= k 6 for i=k+1 to n do 7 if |[i,k]| > Amax then 8. Amax <= |A[i
... и исключение по столбцам*) 8. for j=k+1 to n do 3.8.1. Amax<=A[Imax,j] 2. A[Imax,j]<=A[k,j] 3. A[k,j]<=Amax 4. if Amax<>0 then for i=k+1 to n do A


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... 1 end;i:=i+1 end; if p>s then for j:=1 to m do begin PR[j]:=STM[s,j]; STM[s,j]:=STM[p,j]; STM[p,j]:=PR[j] end; if g<>s then begin for i:=1 to n do b[i ...
... 1 then for j:=s to m do STM[i,j]:=STM[s,j]-STM[i,j]; if STM[i,s]=-1 then for j:=s to m do STM[i,j]:=STM[s,j]+STM[i,j] end;end; end; writeln('Матрица ...


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... do for j := 0 to AMatrix.ColCount do begin if j = 0 then k := AMatrix.ColCount else k := j; if CropStr(AGrid.Cells[j, i]) = '' then AGrid.Cells[j, i] ...
... StrToFloat(StringGrid_Roots.Cells[j, 2]); end; for j := 1 to Order do begin if Odd (j) then K := -1 else K := +1; mKp[Order-Pred(j), 1] := - mA[Order- ...


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


Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя [нестрогое соответствие]
Математика, Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя , Работа Курсовая ... Exit; end; { Меняем местом l-ую строку с k-ой } If l <> k then begin For j := 1 to n do begin t := a[k, j]; a[k, j] := a[l, j]; a[l, j] := t; end; t ...
... l]; b[l] := t; end; { Преобразуем матрицу } For i := k + 1 to n do begin q := a[i, k] / a[k, k]; For j := 1 to n do If j = k then a[i, j] := 0 else a[ ...


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... i]:=1/(1+exp(-sumFirstSecond)); end; for i := 1 to ThirdLayerUnits do begin sumSecondThird:=0; for j := 1 to SecondLayerUnits do begin sumSecondThird: ...
... end; indicator:=0; while indicator=0 do begin for i:=1 to numberneurons do begin wij:=0; for j:=1 to numberneurons do begin if i<>j then wij:=wij+w[i, ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... mc:=ma; nc:=nb; for k:=1 to mc do for j:=1 to nc do begin s:=0; for i:=1 to nc do s:=s+a[k,i]*b[i,j]; c[k,j]:=s end; end else begin writeln('Неверные ...
... end; var a,at,at2,t:matrix; b,b2,y,x:vector; n:byte; begin writeln('Введите размерность матрицы коэффициентов ');readln(n); writeln('Введите элементы ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... if J>=0 then repeat if (Frac(N.b / k) = 0) then begin if (Frac(N.y / k) = 0) then if (j=k) then begin N.b:=N.b / k; N.x:=N.x / k; N.y:=N.y / k; Break; ...
... Esc - Отмена)'); {считаем координаты выхода} c:=0; cTmp:=0; repeat if i=1 then SolveOprtel(Matr[1], MainF, c, XResult, YResult) else for j:=1 to i-1 ...


Аппроксимация [нестрогое соответствие]
Программирование и комп-ры, Аппроксимация, Курсовая ... i:=1 to n do r[i]:=1; for j:=1 to m+1 do begin c[1,j]:=0; b[j]:=0; for i:=1 to n do begin c[1,j]:=c[1,j]+r[i]; b[j]:=b[j]+r[i]*y[i]; end; for i:=1 to ...
... r[i]*x[i]; end; for i:=1 to m do begin for j:=1 to m do c[i+1,j]:=c[1,j+1]; c[i+1,m+1]:=0; for j:=1 to n do c[i+1,m+1]:=c[i+1,m+1]+r[j]; for j:=1 to n ...


Моделирование работы банка [нестрогое соответствие]
Экономико-математическое моделирование, Моделирование работы банка, Диплом ... to S do for y := 0 to L[j] do pp[j, y] := P[j, y]; { Поиск q(y) } for j := 1 to S do for y := 0 to L[j] do begin qq[j, y] := Q[j, 0] + pp[j, y]; for i ...
... i]; end; { Поиск r(y) } for j := 1 to S do for y := 0 to L[j] do begin rr[j, y] := R[j, 0] + qq[j, y]; for i := 1 to y do if R[j, i] + qq[j, y-i] > rr ...