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

Программа оптимизации рискового портфеля
Экономико-математическое моделирование, Программа оптимизации рискового портфеля, Реферат ... 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 do ...
... out4; end; b[i,j]:=z; b[j,i]:=z; if i<>j then begin E[i,j]:=0; end; end; end; writeln; ma:=0; for i:=1 to n do begin if m[i]>ma then ma:=m[i]; end; mi ...


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... 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 ...
... 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


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


Моделирование работы банка [нестрогое соответствие]
Экономико-математическое моделирование, Моделирование работы банка, Диплом ... 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 := 1 to y ...
... pp[j, y-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 ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... введите элементы массива'); for i:=1 to m do for j:=1 to n do read(x[i,j]); end; procedure moped(m,n:integer;var y:m); var i,j,c,k:integer; X:mas; ...
... будет выглядеть так'); for i:=1 to m do for j:=1 to n do if i>j then if x[i,j] > x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2; for i:=1 to m do for j:=1 to n ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... 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 ...


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


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... stime(st); until not DTErr; gotoxy(11,y+1); writeln(stime(st) div 60,':',stime(st) mod 60); end; procedure writedat(b:dat); begin write(b.time div 60, ...
... 1440)) mod 1440; delay:=(delay div 1440)+((a.time+(delay mod 1440)) div 1440); while delay+b.day>DayInMonth(b.month,b.year) do begin delay:=delay-1- ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... K=',k:3,' L=',l:3,' M=',m:3); writeln; writeln('':25,'Введите вещественные числа A,B,C,D,E,F:'); readln(a,b,c,d,e,f); writeln('':20,'стандартная форма ...
... i:=1 to n do begin d:=d+2; for j:=1 to n do begin b[j,i]:=d+a[j,i]; gotoxy(i*6,j+3); writeln(a[j,i]:3:1) end; end; writeln; writeln('преобразованная ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if t>0 then begin x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0, ...
... key:=true; break; end; end; if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} ...