Похожие работы на «Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя »

Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя
Математика, Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя , Работа Курсовая ... местом 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 := b[k]; b[k] := b
... 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, j] := a[i, j] - q * a[k, j]; b[i] := b[i] - q * b[k]; end; ...


Аппроксимация
Программирование и комп-ры, Аппроксимация, Курсовая ... 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 n do r
... 1;end; p:=0; for j:=1 to n do begin if p1[j]>0 then begin if abs(a[r,j])>p then begin p:=abs(a[r,j]);s:=j;end; end;end; if p=0 then begin writeln(fo, ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... 1 to m do for i:=1 to m do begin s:=0; for k:=1 to n do s:=s+z[k,j]*z[k,i]; r[j,i]:=s/n end; {-выводим матрицу R-} writeln('Матрица парных корреляций
... 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 ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... s:=0; for j:=1 to nc do s:=s+a[i,j]*b[j]; c[i]:=s end; end else begin writeln('Неверные размеры матриц !!! '); halt end; end; Procedure SwapVector(var ...
... a[i,j]*m[k]; b[k]:=b[k]-b[i]*m[k] end; end; end; Procedure GetX(a:matrix;b:vector;n:byte;var x:vector); var k,l:byte; s:real; begin x[n]:=b[n]/a[n,n] ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная 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('Неверные размеры матриц !!! '); halt end; end; Procedure SubMatr(a: ...
... s:real; begin for i:=1 to n do begin s:=0; for j:=1 to n do s:=s+a[i,j]*b[j]; b[i]:=s; end; end; Procedure SubVect(a,b:vector;var c:vector;n:byte) ...


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... из структурной матрицы.} procedure MGSS; begin for s:=1 to n do begin i:=s;j:=s; while i<=n do begin while j<=m do begin if STM[i,j]<>0 then begin p
... i;g:=j;i:=n;j:=m end;j:=j+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 ...


Программа оптимизации рискового портфеля [нестрогое соответствие]
Экономико-математическое моделирование, Программа оптимизации рискового портфеля, Реферат ... 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]; {делим строки на разрешающий элемент} E ...
... 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 ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... 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('Неверные размеры ...
... 0; for k:=j+1 to n do s:=s+t[k,j]*x[k]; x[j]:=(y[j]-s)/t[j,j]; end; end; var a,at,at2,t:matrix; b,b2,y,x:vector; n:byte; begin writeln('Введите ...


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... AGrid.ColCount, Pred(AGrid.RowCount)); for i := 1 to AMatrix.RowCount do for j := 0 to AMatrix.ColCount do begin if j = 0 then k := AMatrix.ColCount ...
... 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- ...


Методы решения некорректно поставленных задач [нестрогое соответствие]
Математика, Методы решения некорректно поставленных задач, Курсовая ... for i:=1 to 3 do begin for j:=1 to 3 do write(Ar[i,j],' '); writeln; end;} end; Function AllRight:boolean; begin writeln(f,'­Ґўп§Є Ї° 1-=г н"-вг
... TransA; Det:=0.000125; {-} for i:=1 to 3 do begin S:=0; for j:=1 to 3 do begin S:=S+At[i,j]*U[j]; B[i]:=S end; end; {-} for i:=1 to 3 do for j:=1 to 3 ...