Реферат: Программа оптимизации рискового портфеля

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

begin {нахождение констант}

ebe:=ebe+be[i]; {суммирование по стоблцу}

ebm:=ebm+bm[i];

mbm:=mbm+m[i]*bm[i];

mbe:=mbe+m[i]*be[i];

end;

end;

procedure vvod ;

label out1, out2, out3, out4, out5;

var z:real; mi,ma:real;

begin

writeln;

writeln(' КУРСОВОЙ ПРОЕКТ');

writeln;

writeln;

writeln(' ПО ДИСЦИПЛИНЕ МАТЕМАТИЧЕСКИЕ МЕТОДЫ ФИНАНСОВО-ЭКОНОМИЧЕСКОГО АНАЛИЗА');

writeln;

writeln(' АВТОР: БОЛДИН СЕРГЕЙ, ФИНМЕН II-3.');

writeln;

writeln(' ТЕМА: ЗАДАЧА ОПТИМИЗАЦИИ РИСКОВОГО ПОРТФЕЛЯ.');

writeln;