; [j, k]: = E [j, k];;; l: = 1 to number_of_stocks do [i, l]: = B1 [i, l]/B1 [i, i]; [i, l]: = E1 [ i, l]/B1 [i, i]; a: = 1 to number_of_stocks doa <> i then [a, l]: = (B1 [a, l] - (B1 [a, i] * B1 [i , l]/B1 [i, i])); [a, l]: = (E1 [a, l] - (B1 [a, i] * E1 [i, l]/B1 [i, i]) );;;;; i: = 1 to number_of_stocks do [i]: = 0; j: = 1 to number_of_stocks do [i]: = BE [i] + E [i, j];;; i: = 1 to number_of_stocks do [i]: = 0; j: = 1 to number_of_stocks do [i]: = BM [i] + M [j] * E [i, j];;;: = 0;: = 0;: = 0;: = 0; i: = 1 to number_of_stocks do: = ebe + BE [i];: = ebm + BM [i];: = mbm + M [i] * BM [i];: = mbe + M [i] * BE [i];;; TForm_Risk_or_Profit. Graph; i: integer;, max, profit: real;: = m [1]; i: = 2 to number_of_stocks dom [i]> max then max: = m [i];;: = m [1]; i: = 2 to number_of_stocks dom [i] = max;: = min;. AddXY (minRisk (profit), profit);: = profit + (max-min)/100; profit> = mbe/ebe;; Max_Profit (risk: real): real; i: integer;: real;: = m [1 ]; i: = 2 to number_of_stocks dom [i]> max then: = m [i];;: = bisection (mbe/ebe, max, risk);: = mPr;; TForm_Risk_or_Profit.BCalculationClick (Sender: TObject) ; i: integer;, min: real;: boolean; Get_Date then;. Caption: =''; RG_Risk_or_Profit. ItemIndex of
: begin: = strtofloat (E_Risk_or_Profit. Text);. MessageBox ('Вибачте, Ви не ввели бажану прибутковість!', 'Помилка!');;; p align="justify">// перевірка, чи лежить введена прибутковість між мінімальною і максимальною
max: = m [1]; i: = 2 to number_of_stocks dom [i]> max then max: = m [i];;: = m [1]; i: = 2 to number_of_stocks dom [i] max) then
begin. MessageBox ('Вибачте, бажана прибутковість повинна бути в межах ефективностей цінних паперів!', 'Помилка!'); p align="justify"> exit;; mp
LComment. Caption: = 'Увага! Зазначена прибутковість НЕ лежить на ефективній кордоні! '+ # 9 # 13
+ 'Отриманому рівнем ризику відповідає більша прибутковість, рівна' + floattostr (roundto (max_Profit (minrisk (mp)), - 4)) + # 9 # 13 # 9 # 13;
EditResult. Text: = 'Мінімальний ризик портфеля:' + floattostr (roundto (minrisk (mp), - 4));;
: begin: = strtofloat (E_Risk_or_Profit. Text);. MessageBox ('Вибачте, Ви не ввели допустимий рівень ризику', 'Помилка!'); p align="justify"> 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 + 'Оскільки ч...
