Калужские рефераты


Дипломы, курсовые по матметодам математическим методам в экономике

Скачать реферат:

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

  1    2    3    4     5  

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;
writeln;
writeln;
out1:
writeln;
writeln(' Введите количество видов ценных бумаг, из которых вы хотите ');
write(' сформировать портфель (не более 10): ');
readln(n);
if (n<=0) or (n<>int(n)) or (n>10) then
begin
writeln(' Ошибка ввода! Число должно быть натуральным и меньше 10 ! ');
goto out1;
end;
writeln;

writeln(' Введите эффективности (доходности) ценных бумаг:');
for i:=1 to n do
begin
E[i,i]:=1;
out2:
write(' ',i,'-ого вида : ');
readln(m[i]);
if (m[i]<0) then
begin
writeln(' Ошибка ввода! Число должно быть положительным! ');
goto out2;
end;
end;
writeln;
writeln('!!! При вводе рисков и совместных вариаций ценных бумаг следует');
writeln(' быть внимательным, так как программа не расчитана на линейную');
writeln(' связь доходностей ценных бумаг. Поэтому рекомендуется не вводить');
writeln(' пропорциональные риски и совместные вариации ценных бумаг!!!');
writeln;
writeln(' Введите риск (среднее квадратическое отклонение(СКО)) ценных бумаг: ');
for i:=1 to n do
begin
out3:
write(' ',i,'-ого вида : ');
readln(z);
if (z<0) then
begin
writeln(' Ошибка ввода! Число должно быть положительным! ');
goto out3;
end;
b[i,i]:=z*z;
end;

writeln;
writeln(' Введите совместную вариацию (корреляционный момент) ценных бумаг.');

  1    2    3    4     5  

Скачан: 12 раз.

Скачать диплом, курсовую, реферат, контрольную

Понравилось? тогда жми кнопку!

Лучшие студенческие анекдоты

Поиск


Реклама