n then min: = m [i];; (mp max) then
begin.MessageBox ('Вибачте, бажана прибутковість повинна бути в межах ефективностей цінних паперів!', 'Помилка!');
exit;; mp
LComment.Caption: = 'Увага! Зазначена прибутковість НЕ лежить на ефективній кордоні! '+ # 9 # 13
+ 'Отриманому рівнем ризику відповідає більша прибутковість, рівна' + floattostr (roundto (max_Profit (minrisk (mp)), -4)) + # 9 # 13 # 9 # 13;. Text: = 'Мінімальний ризик портфеля:' + floattostr (roundto (minrisk (mp), -4));
end;
: begin: = strtofloat (E_Risk_or_Profit.Text);
except.MessageBox ('Вибачте, Ви не ввели допустимий рівень ризику', 'Помилка!');
exit;;: = Max_Profit (risk);. Text: = 'Максимальна прибутковість портфеля:' + floattostr (roundto (mp, -4));;;: = false; i: = 1 to number_of_stocks do: = ((mbm-mp * ebm) * BE [i] + (mp * ebe-mbe) * BM [i])/(ebe * mbm-mbe * mbe); x <0 then a: = true;
_Result.Cells [i, 1]: = floattostr (roundto (x, -4));; a then.Caption: = LComment.Caption + 'Оскільки частка паперів негативна, то необхідно провести угоду "short sale", '+ # 9 # 13
+ 'виключити папери цього виду з портфеля і вирішити завдання заново.';
end;; TForm_Risk_or_Profit.BDrawGraphClick (Sender: TObject); Get_Date then.Clear;. Clear;;;;; TForm_Risk_or_Profit.SG_CorrelationSelectCell (Sender: TObject;, ARow: Integer; var CanSelect: Boolean) ; ACol = ARowbegin CanSelect: = False; exit; end; _CorrelationExit (Sender);: = ARow;: = ACol;; TForm_Risk_or_Profit.SG_CorrelationMouseUp (Sender: TObject;: TMouseButton; Shift: TShiftState; X, Y: Integer); _CorrelationExit (Sender);; TForm_Risk_or_Profit.SG_CorrelationExit (Sender: TObject); abs (StrToFloat (SG_Correlation.Cells [SelectedCol, SelectedRow])) <= 1 then SG_Correlation.Cells [SelectedRow, SelectedCol]: = SG_Correlation.Cells [SelectedCol, SelectedRow ]
else ('Вибачте, кореляція не може бути більше 1!');
// зчитуємо з файлу прибутковості
for i: = 1 to SEValue do
begin (f, a); _Input_date.Cells [i, 1]: = FloatToStr (a);;
// зчитуємо з файлу ріскіi: = 1 to SEValue do (f, a); _Input_date.Cells [i, 2]: = FloatToStr (a);;
// зчитуємо з файлу корреляціюi: = 1 to SEValue doj: = 1 to SEValue do (f, a); _Correlation.Cells [i, j]: = FloatToStr (a);; (f );;; TForm_Risk_or_Profit.NSaveClick (Sender: TObject); f: file of
// записуємо у файл прибутковості
