Реферат Створення комп'ютерного додатки для розрахунку оптимального набору цінних паперів у портфелі інвестицій

or_Profit.SG_CorrelationKeyPress (Sender: TObject; Key: Char); key of

'0 '.. '9', # 8, ',', '-':; key: = # 0;;; TForm_Risk_or_Profit.E_Risk_or_ProfitKeyPress (Sender: TObject; Key: Char); key of

'0 '.. '9', # 8, ',':; key: = # 0;;; TForm_Risk_or_Profit.SE_Input_countChange (Sender: TObject); i: integer;: = SE_Input_count. Value; i: = 1 to SEValue TObject); i, j: integer; i: = 1 to SEValue doj: = 1 to SEValue do: = (a + b)/2;: = MinRisk (c)-risk; y1 * y2 <0b: = cbegin a: = c; y1: = y2; to number_of_stocks do [i, i]: = 1; [i]: = strtofloat (SG_Input_date.Cells [i, 1]);

except ('Вибачте, Ви не ввели прибутковість' + intToStr (i) + '-й паперу!');

result: = False;;; _of_stocks [i]: = strtofloat (SG_Input_date.Cells [i, 2]);

except ('Вибачте, Ви не ввели ризик' + intToStr (i) + '-й паперу!');

result: = False;;; [i, i]: = sqr (deviation_of_stocks [i]);; i: = 1 to number_of_stocks doj: = i +1 to number_of_stocks doB [i, j ]: = strtofloat (SG_Correlation.Cells [j, i]) * deviation_of_stocks [i] * deviation_of_stocks [j];

except ('Вибачте, Ви не ввели кореляцію' + intToStr (i) + '-ий і' + intToStr (j) + '-ої паперів!');

result: = False;;; [j, i]: = B [i, j]; [i, j]: = 0; [j, i]: = 0;;;; base; i, j, k, l, a: integer; i: = 1 to number_of_stocks doj: = 1 to number_of_stocks dok: = 1 to number_of_stocks do [j, k]: = B [j, k]; [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 to number_of_stocks dom [i]> max then max: = m [i];;: = 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);

except.MessageBox ('Вибачте, Ви не ввели бажану прибутковість!', 'Помилка!');;;

// перевірка, чи лежить введена прибутковість між мінімальною і максимальною

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]