Имитационное моделирование кредитных отношений

В данном курсовом проекте была построена имитационная модель кредитной системы коммерческого банка с использованием С++, которая рассчитывает количество выданных банком кредитов за период моделирования, общую сумму кредитов, среднюю дневную величину кредитованных банком средств, суммарный за период моделирования и среднемесячный доход банка от выданных кредитов.

Список использованной лит

ературы

1. Емельянов А.А. «имитационное моделирование экономических процессов» 2002г

2. Советов В.Я., Яковлев С.А. «Моделирование системы» 2001г.

3. Соболь И.М. «Метод Монте-Карло» 1968г.

4. Шеннон Р. «Имитационное моделирование систем – искусства и науки» 1978г.

5. «Машинные имитационные эксперименты с моделями экономических систем» под редакцией Нейлера.

6. Бусленко М.П. «Моделирование сложных систем».

7. Кеольтон В., Лод А. «Имитационное моделирование. Классика CS» издание 3-е, 2004г.

Приложение1

#include<iostream.h>

#include<math.h>

#include<string.h>

#define T (5*365ul)

#define N 100

#define RIN uniform(1,10)

#define RON exponentiol(1.0/120)

#define RSUMCR uniform(1e5,1e7)

#define H 0.2

#define C (125*125*125*125*5)

float rand(void)

{ static unsigned long int U=C; U*=C; return float(U)/0xFFFFFFFFul;

}

int discrete(float p[])

{ int i=0; float x,s; x=rand(); s=p[0]; while (s<x) { i++; s+=p[i]; } return i;

}

float exponentiol(float lambda)

{ return -log(rand())/lambda;

}

float uniform (float a, float b)

{ return rand ()*(b-a)+a;

}

void main(void)

{ unsigned long int tin, ton[N], t, n=0, nOtkaz=0, i, j, temp; float s,sTotal=0,d,dTotal=0; for(i=0;i<N;i++) ton[i]=-1; tin=RIN; for(t=0;t<T;t++) { for(i=0;i<N;i++) if(ton[i]==t) { ton[i]=-1; n++; } if(t==tin) { j=0; while(ton[j]!=-1 && j<N) j++; if(j<N) { temp=RON; ton[j]=t+temp; s=RSUMCR; sTotal+=s; d=s*H/100; dTotal+=d; } else nOtkaz++; tin=RIN+t; } } cout<<"Obshgee chislo vydannyh kreditov " << n << endl; cout<<"Obshgee chislo otkazov v vydache kredita " << nOtkaz << endl; cout<<"Obshaja summa vydannyh kreditov " << sTotal/1000000 << " mln. rub." << endl; cout<<"Srednjaja dnevnaja summa kreditovannyh bankom sredstv " << sTotal/T << " rub." << endl; cout<<"Summarnyi dohod banka za period " << dTotal/1000000 << " mln. rub." << endl; cout<<"Srednemesjachnyi dohod " << dTotal/(5*12) << " rub." << endl;

Приложение 2

Вывод машинного эксперимента

 Скачать реферат