Модели пенсионной схемы

Поскольку, в классе задач моделирования процессов кристаллизации и плавления простых кристаллов других аналогов не обнаружено, то для оценки уровня качества используем существующие разработки, выполняющие некоторые аналогичные функции, предоставляемых разработанным программным продуктом и не удовлетворяющие пользователя по ряду причин (интерфейс, достоверность выдаваемых данных и др.).

Можно рассмотреть гипотетический вариант, имеющий максимальную оценку по всем выбранным показателям.

Перечень основных показателей качества:

количество функций;

2) интерфейс;

3) быстродействие;

4) объём памяти.

Расчет обобщенных показателей качества проводим по формуле:

, (6.6)

где - коэффициент веса.

Абсолютные значения показателей качества рассчитываются по формуле:

, (6.7)

где - значение показателя собственного ПП,

- значение показателя гипотетического ПП.

Расчет обобщенных показателей качества приведен в таблице 6.6.

Таблица 6.6 - Расчет обобщенных показателей качества

Уровень качества нашего продукта составляет 0.9 по отношению к гипотетическому, т.е. наш продукт обладает 90% от возможностей гипотетического программного продукта.

В данном разделе была рассчитана себестоимость и цена программного продукта, рассчитаны обобщённые показатели качества разработки. Программный продукт имеет хорошие показатели качества. Он обладает высокой надёжностью, долговечностью, уменьшает временные затраты пользователей при проведении исследований в данной предметной области.

ВЫВОДЫ

В работе была сформулирована и поставлена задача разработки инструментальных средств моделирования пенсионного фонда открытого типа.

Проанализирована математическая модель как задача математического программирования. Разработан алгоритм построения пенсионных схем различными методами формирования открытого пенсионного фонда. На основании этого алгоритма создан программный продукт, реализующий этот алгоритм. Программный продукт написан в среде С#.

Используя полученную модель, произведен анализ рассмотренных индивидуальных актуарных методов расчета пенсионной схемы.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

Листинг программы

Program.cs

using System;

using System.Collections.Generic;

using System.Windows.Forms;

namespace pensia

{

static class Program

{

/// <summary>

/// The main entry point for the application.

/// </summary>

[STAThread]

static void Main()

{

Application.EnableVisualStyles();

Application.SetCompatibleTextRenderingDefault(false);

Application.Run(new Form1()); }}}

Pensia_Calc.cs

using System;

using System.Collections.Generic;

using System.Text;

using System.IO;

namespace pensia

{

class Pensia_Common

{

internal double F0, FirstPay, vCoeff, index;

internal int a, R;

internal List<double> Px, PayT, mt;

internal double s(int t)

{

double ss = 1;

for (int i = 0; i < t; i++)

ss *= Px[i];

return ss;

}

public List<double> Funds, Pensias;

public List<double> GetPX()

{

return Px;

}

public void LoadData(string FileName)

{

StreamReader DataStream = new StreamReader(FileName);

Px = new List<double>();

PayT = new List<double>();

mt = new List<double>();

Pensias = new List<double>();

Funds = new List<double>();

for (int i = 0; i < 100 - a; i++)

Px.Add(Convert.ToDouble(DataStream.ReadLine()));

DataStream.Close();

}

public void Init(double F0, double FirstPay, double vCoeff, int a, int R, double index)

{

this.F0 = F0;

this.FirstPay = FirstPay;

this.vCoeff = vCoeff;

this.a = a;

this.R = R;

this.index = index;

}

public List<double> GetPayFunction()

{

return mt;

}

private double P(int t, int x)

{

double p = 1;

for (int i = x - a; i < x + t - a; i++)

p *= Px[i];

return p;

}

private double ListSumm(List<double> lst)

{

double summ = 0;

for (int i = 0; i < lst.Count; i++)

summ += lst[i];

return summ;

}

internal void CalcPensia()

{

double b = 0;

for (int i = R; i < 100; i++)

b += Math.Pow(1 + index, i - R) * P(i - a, a);

double Pens0 = CalcFullFunds() / (vCoeff * b);

for (int i = 0; i < 100 - R; i++)

Pensias.Add(Pens0 * Math.Pow(1 + index, i - R));

}

internal double CalcFullFunds()

{

double Funds = F0;

for (int i = 0; i < R - a; i++)

Funds += PayT[i]; //P(i,a) * PayT[i] * vCoeff;

return Funds;

}

internal void CalcFunds()//t- натуральное исчисление( от а до 100)

{

CalcPensia();

// double Funds = 0;

Funds.Add(0);

for (int i = 1; i < R - a; i++)

Funds.Add(Funds[i - 1] + PayT[i - 1]); //P(i, a) * PayT[i] * vCoeff;

for (int i = R - a; i < 100 - a; i++)

Funds.Add(Funds[i - 1] - Pensias[i - R + a]); } }

class Pensia_Uni_Credit : Pensia_Common

{

public void Calc()

{

double ss = R - a;

double Sigma = 1 / ss;

for (int i = 0; i < R - a; i++) //uni-credit

{

mt.Add(Sigma);

PayT.Add(FirstPay);

}

CalcFunds(); } }

class Pensia_Linear : Pensia_Common

{

public void Calc()

{

double Sigma = 1 / ((R - a) * (1 + 0.15 * (R - a))); //линейный

mt.Add(Sigma);

PayT.Add(FirstPay);

double Fnds = PayT[0] / mt[0];

for (int i = 1; i < R - a; i++)

{

mt.Add(Sigma * (1 + 0.3 * i));

PayT.Add(Fnds * mt[i]);

}

CalcFunds();

}

}

class Pensia_Exp_Inc : Pensia_Common

{

public void Calc()

{

double coeff = (Math.Exp(0.05) + 1) / (Math.Exp(0.1) - 1);

double Sigma = 1 / (coeff * (Math.Exp(0.05 * (R - a + 1)) - 1)); //экспоненциальный c ускорением

mt.Add(Sigma);

PayT.Add(FirstPay);

double Fnds = PayT[0] / mt[0];

for (int i = 1; i < R - a; i++)

{

mt.Add(Sigma * Math.Exp(0.05 * i));

PayT.Add(Fnds * mt[i]);

}

CalcFunds();

}

}

class Pensia_Exp_Des : Pensia_Common

{

public void Calc()

{

double coeff = (Math.Exp(-0.05) + 1) / (Math.Exp(-0.1) - 1);

double Sigma = 1 / (coeff * (Math.Exp(-0.05 * (R - a + 1)) - 1)); //экспоненциальный c замедлением

mt.Add(Sigma);

PayT.Add(FirstPay);

double Fnds = PayT[0] / mt[0];

for (int i = 1; i < R - a; i++)

{

mt.Add(Sigma * Math.Exp(-0.05 * i));

PayT.Add(Fnds * mt[i]);

}

CalcFunds(); } }

class Pensia_EAN : Pensia_Common

{

public void Calc()

{

double coeff = 0; //EAN

for (int i = 0; i < Px.Count; i++)

coeff += s(i);

double Sigma = 1 / (coeff * vCoeff);

mt.Add(Sigma * vCoeff);

PayT.Add(FirstPay);

double Fnds = PayT[0] / mt[0];

for (int i = 1; i < R - a; i++)

{

mt.Add(Sigma * vCoeff * s(i));

PayT.Add(Fnds * mt[i]);

}

CalcFunds(); } }

class Pensia_Calc

{

public Pensia_Uni_Credit PUC = new Pensia_Uni_Credit();

public Pensia_Linear PL = new Pensia_Linear();

public Pensia_Exp_Inc PEI = new Pensia_Exp_Inc();

public Pensia_Exp_Des PED = new Pensia_Exp_Des();

public Pensia_EAN PE = new Pensia_EAN();

public void LoadData(string FileName)

{

PUC.LoadData(FileName);

PL.LoadData(FileName);

PEI.LoadData(FileName);

PED.LoadData(FileName);

PE.LoadData(FileName);

}

public void Init(double F0, double FirstPay, double vCoeff, int a, int R, double index)

{

PUC.Init(F0, FirstPay, vCoeff, a, R, index);

PL.Init(F0, FirstPay, vCoeff, a, R, index);

PEI.Init(F0, FirstPay, vCoeff, a, R, index);

PED.Init(F0, FirstPay, vCoeff, a, R, index);

PE.Init(F0, FirstPay, vCoeff, a, R, index);

}

public void CalcAll()

{

PUC.Calc();

PL.Calc();

PEI.Calc();

PED.Calc();

PE.Calc(); }

}

}

Form1.cs

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

using System.IO;

using ZedGraph;

using pensia;

namespace pensia

{

public partial class Form1 : Form

{

int R;

int a;

Pensia_Calc Pensias;

public Form1()

{

InitializeComponent();

}

private void btn_Close_Click(object sender, EventArgs e)

{

Close();

}

double[] GetColumn(DataGridView Grid, int Col)

{

double[] c = new double[Grid.RowCount];

for (int i = 0; i < Grid.RowCount; i++)

c[i] = Convert.ToDouble(Grid[Col, i].Value);

return c;

}

private void button1_Click(object sender, EventArgs e)

{

R=Convert.ToInt16(text_R.Text);

a=Convert.ToInt16(text_a.Text);

double F0 = Convert.ToDouble(text_F0.Text);

double FirstPay = Convert.ToDouble(text_FirstPay.Text);

double index = Convert.ToDouble(text_index.Text);

Pensias = new Pensia_Calc();

Pensias.Init(F0,FirstPay, 1 / (Convert.ToDouble(text_rCoeff.Text) + 1),a,R,index);

if (openFileDialog1.ShowDialog() != DialogResult.OK)

return;

Pensias.LoadData(openFileDialog1.FileName);

List<double> px = Pensias.PE.GetPX();

GridView_Px.Rows.Add(Pensias.PE.GetPX().Count);

for (int i = 0; i < px.Count; i++)

{

GridView_Px[0, i].Value = i+a;

GridView_Px[1, i].Value = px[i];

}

Pensias.CalcAll();

DrawMX();

DrawFunds();

DrawPensias();

}

void DrawFunds()

{

GraphPane MyGr2 = zg2.GraphPane;

PointPairList Chart21 = new PointPairList();

PointPairList Chart22 = new PointPairList();

PointPairList Chart23 = new PointPairList();

PointPairList Chart24 = new PointPairList();

PointPairList Chart25 = new PointPairList();

MyGr2.CurveList.Clear();

for (int i = 0; i < R-a ; i++)

Chart21.Add(i + a, Pensias.PE.Funds[i]);

for (int i = 0; i < R - a; i++)

Chart22.Add(i + a, Pensias.PED.Funds[i]);

for (int i = 0; i < R - a; i++)

Chart23.Add(i + a, Pensias.PEI.Funds[i]);

for (int i = 0; i < R - a; i++)

Chart24.Add(i + a, Pensias.PL.Funds[i]);

for (int i = 0; i < R - a; i++)

Chart25.Add(i + a, Pensias.PUC.Funds[i]);

MyGr2.XAxis.Title.Text = "Год участия";

MyGr2.YAxis.Title.Text = "Накопленный фонд";

MyGr2.Title.Text = "График накопленного фонда";

MyGr2.AddCurve("E", Chart21, Color.Red, SymbolType.None);

MyGr2.AddCurve("ED", Chart22, Color.Blue, SymbolType.None);

MyGr2.AddCurve("EI", Chart23, Color.Black, SymbolType.None);

MyGr2.AddCurve("L", Chart24, Color.Green, SymbolType.None);

MyGr2.AddCurve("UC", Chart25, Color.Gold, SymbolType.None);

zg2.AxisChange();

zg2.Invalidate();

}

void DrawMX()

{

GraphPane MyGr = zg1.GraphPane;

PointPairList Chart1 = new PointPairList();

PointPairList Chart2 = new PointPairList();

PointPairList Chart3 = new PointPairList();

PointPairList Chart4 = new PointPairList();

PointPairList Chart5 = new PointPairList();

MyGr.CurveList.Clear();

for (int i = 0; i < R - a; i++)

Chart1.Add(i + a, Pensias.PE.mt[i]);

for (int i = 0; i < R - a; i++)

Chart2.Add(i + a, Pensias.PED.mt[i]);

for (int i = 0; i < R - a; i++)

Chart3.Add(i + a, Pensias.PEI.mt[i]);

for (int i = 0; i < R - a; i++)

Chart4.Add(i + a, Pensias.PL.mt[i]);

for (int i = 0; i < R - a; i++)

Chart5.Add(i + a, Pensias.PUC.mt[i]);

MyGr.XAxis.Title.Text = "Год участия";

MyGr.YAxis.Title.Text = "Функция накопления";

MyGr.Title.Text = "График функции накопления";

MyGr.AddCurve("E", Chart1, Color.Red, SymbolType.None);

MyGr.AddCurve("ED", Chart2, Color.Blue, SymbolType.None);

MyGr.AddCurve("EI", Chart3, Color.Black, SymbolType.None);

MyGr.AddCurve("L", Chart4, Color.Green, SymbolType.None);

MyGr.AddCurve("UC", Chart5, Color.Gold, SymbolType.None);

zg1.AxisChange();

zg1.Invalidate();

}

void DrawPensias()

{

GraphPane MyGr = zg3.GraphPane;

PointPairList Chart1 = new PointPairList();

PointPairList Chart2 = new PointPairList();

PointPairList Chart3 = new PointPairList();

PointPairList Chart4 = new PointPairList();

PointPairList Chart5 = new PointPairList();

MyGr.CurveList.Clear();

for (int i = 0; i < 100 - R; i++)

{

Chart1.Add(i + R, Pensias.PE.Pensias[i]);

Chart2.Add(i + R, Pensias.PED.Pensias[i]);

Chart3.Add(i + R, Pensias.PEI.Pensias[i]);

Chart4.Add(i + R, Pensias.PL.Pensias[i]);

Chart5.Add(i + R, Pensias.PUC.Pensias[i]);

}

MyGr.XAxis.Title.Text = "Год участия (пенсионер)";

MyGr.YAxis.Title.Text = "Пенсия";

MyGr.Title.Text = "График пенсионных выплат";

MyGr.AddCurve("E", Chart1, Color.Red, SymbolType.None);

MyGr.AddCurve("ED", Chart2, Color.Blue, SymbolType.None);

MyGr.AddCurve("EI", Chart3, Color.Black, SymbolType.None);

MyGr.AddCurve("L", Chart4, Color.Green, SymbolType.None);

MyGr.AddCurve("UC", Chart5, Color.Gold, SymbolType.None);

zg3.AxisChange();

zg3.Invalidate();

}

private void button2_Click(object sender, EventArgs e)

{

Close();

} } }

Размещено на Allbest.ru