збільшення прибутковості від придбання цінних паперів за рахунок диверсифікації вкладень і формування портфеля інвестицій.
У курсовій роботі був розглянутий варіант побудови оптимального портфеля, запропонований Г.Марковіца, на основі якого було створено програму для розрахунку оптимального набору цінних паперів у портфелі інвестицій. p align="justify"> Створене додаток дозволяє також розрахувати очікувану дохідність і стандартне відхилення вже створеного портфеля.
Список використаної літератури
1.М.С. Красс, Б.П. Чуприна. Математика для економістів. - СПб: В«ПітерВ», 2005. - 464 с. p>. Колеман В.А. Математична економіка. М.: В«ЮнітіВ» 1998. - 390 с. p> 3. <# "justify"> Додаток
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, Menus, TeeProcs, TeEngine, Chart, Spin,, ComCtrls, ToolWin, Series, Math, ImgList, AppEvnts; _Risk_or_Profit = class (TForm): TToolBar;: TStatusBar; _Input_date: TStringGrid; _Correlation: TStringGrid; _Input_count: TSpinEdit;: TChart;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TButton; _Risk_or_Profit: TRadioGroup;: TLabel; _Risk_or_Profit: TEdit;: TButton;: TLabel; _Result: TStringGrid;: TLineSeries;: TLineSeries; : TButton;: TOpenDialog;: TSaveDialog;: TEdit;: TLabel;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TApplicationEvents;: TImageList; NReadyPortfolioClick (Sender: TObject ); NExitClick (Sender: TObject); FormCreate (Sender: TObject); SG_Input_dateKeyPress (Sender: TObject; var Key: Char); SG_CorrelationKeyPress (Sender: TObject; var Key: Char); E_Risk_or_ProfitKeyPress (Sender: TObject; var Key: Char ); SE_Input_countChange (Sender: TObject); BClearClick (Sender: TObject); BCalculationClick (Sender: TObject); Graph; Get_Date: boolean; BDrawGraphClick (Sender: TObject); SG_CorrelationSelectCell (Sender: TObject; ACol,: Integer; var CanSelect: Boolean); SG_CorrelationMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); SG_CorrelationExit (Sender: TObject); NOpenClick (Sender: TObject); NSaveClick (Sender: TObject); NAboutClick (Sender: TObject) ; ApplicationEvents1Hint (Sender: TObject);
{Private declarations}
{Public declarations}; myarray = array [1 .. 100] of real; = array [1 .. 100,1 .. 100] of real; _Risk_or_Profit: UAboutMe;
{$ R *. dfm} TForm_Risk_or_Profit.NReadyPortfolioClick (Sender: to SEValue to SEValue TObject);;; TForm_Risk_or_Profit.FormCreate (Sender: TObject); _Input_date.Cells [0,0]: = 'Показник | Номер TObject; Key: Char); key of
'0 '.. '9', # 8, ',':; key: = # 0;;; TForm_Risk_...
