Приложения

Приложение 1

Рынок ипотечных кредитов в России

Источник: 79, стр. 39 и материалы автора.

Приложение 2.

Величина ежемесячных платежей за жилье в процентах от его полной стоимости (в числителе - Z) и значение частного коэффициента переплат (в знаменателе - К'....) ппи f = 0. м = 12.

Источник: 9, стр. 59

Приложение 3. Инвестиционный потенциал российских регионов в 2000-2001 гг.

Продолжение Приложения 3.

Доставляющие инвестиционного потенциала расположены в порядке убывания экспертных весов.

Источник: «Эксперт» [№ 41, (301)]

Приложение 4.

Текст компьютерной программы «Альянс»

Авторы: Заслуженный экономист РФ, Д.Э.Н., профессор Богатая Ю.В., Коннов В.Н.

Программная реализация: Болтушкин С.Н.

CC=g++

INCLUDE= d.*∕opt∕usr∕include c.7opt∕usr∕include include

CCFLAGs= $(patsubst %, -1%, S(∣NCLUDE)) -mwindows -mthreads -mwin32

LNKR=g++

LNKRFLAGS= -Lc7opt∕usr∕lib -Ld:/opt/usr/lib -IfIvw -IfItk -lfltk_forms -lfltk_gl -lgdi32 -Icomctl32 -Iwsock32 -mwindows -mthreads -mwin32

FLUID=Auid

tst: test.exe

./test.exe&

obj∕%.o: src∕%.cxx

S(CC) S(CCFLAGS) -c -o $@ $<

S(CC) S(CCFLAGS) -M -o S(patsubst obj∕%.o, deps∕%.bak, S@) $< echo -ne "obj∕"> Sfpatsubst obj∕%.o, deps∕%.d, $@) cat S(patsubst obj7%.o, deps∕%.bak, $@) » Sfpatsubst obj∕%.o, deps∕%.d, $@) rm -f Sfpatsubst obj∕%.o, deps∕%.bak, $@)

# S(CC) S(CCFLAGS) -M -c -o S(patsubst obj∕%.o, deps∕%.d, $@) S^

# S(CC) S(CCFLAGS) -M -c -o S(ρatsubst obj∕%.o, deps∕%.d, $@) S^

obj∕%.o: obj∕%.cxx

S(CC) S(CCFLAGS) -c -o $@ $^A

%.exe: obj∕%.o

S(LNKR) -o $@ $^AS(LnkRFLAGS)

# obj∕main.o obj∕IPKDataBase.o obj∕IPKDBNavigator.o obj∕IPKEditor.o obj∕IPKChart.o obj∕IPKChartDraw.o obj∕IPKMarket.o

test.exe: Sfpatsubst src∕%cxx, obj∕%o, Sfwildcard src∕*.cxx))

S(LNKR) -o $@ S^a S(LnkRFLAGS)

clean:

rm -f Sfwildcard obj∕*.o test.exe)

pack: clean

(tar-c . I gzip -c9 > ..∕IPK1-'date +%Y-%m-%d-%H-%M-%S'.tar.gz)&

out: clean

(tar -c .

include $(wildcard deps∕*.d)

# data file for the Fltk User Interface Designer (fluid) version 1.0100 header_-name {.h} codename {.cxx} decl Conclude } {selected public

}

Function {} {open

}{

FMWindow {} {open

xywh {220 209 800 506} type Double color 7 align 16 visible

}{

Fl_-Group {} {open

image {pictures∕title256.bmp} xywh {0 0 800 450} align 16

}O

Fl Button {} {

label {Выбор жилья}

callback {system("part1.exe");)

xywh {5 455 385 45} box SHADOW_BOX down box FLAT BOX color 3 labelfont 5 labelsize 26 labelcolor 32

}

FI Button {} {

label {Анализ развития}

callback {system("part2.exe");)

xywh {410 455 385 45} box SHADOW_BOX down_box FLAT_BOX color 91 labelfont 5 labelsize 26 labelcolor 32

}

}

}

tfinclude

#include

#define min(x,y) ((xy)7(y).∙(x));

void BSPolygon"lnsert(BSPoint p, int pn) {

for(int i=PCount;i>pn;i—)

Pθints[i]=Points[i-1];

Points[pn]=p; PCount++;

void BSPoIygon-DeIetefint pn) {

for(int i=pn;i=O)

return 60;

return 35;

' }

void IPKChartETable::get_style( FIv StyIe &s, int R, int C )

{

const char *st;

Flv_Table::get_style(s,R,C); U Get standard style

s.font( (FI_Font)(s.font()+FL_BOLD));

∕∕ return ;

I* if(RQ2n));

int Qx = (int)(min(m->Q1x,m->Q2x));

int Tn = (int)(max(m->T1n,m->T2n));

int Tx = (int)(min(m->T1x,m->T2x));

if((m->QLst[C]QLst[C]>=Qn)&&(m->Z(m->QLst[C],Tn+R)ZI))

{

SJoreground(FLBLACK);

s.background((FI_Color)0x15C5D100);

J

else

{

SJoreground(FL-YELLOW);

s.background(FLRED);

}*/

if (R==row())

{

s.background(FLGRAY);

SJoreground(FL-WHITE);

}

}

IPKChartETable::IPKChartETable( int X, int Y, int W, int H, const char ^wI=O₁IPKMarket ^wHirkt=O₁IPKChartTabIe ^wt=0):

FlV-TabIe(X₁Y₁W₁H₁I)

{

m = mrkt;

tbl = t;

cols(3);

rows(50);

feature(FLVF-HEADERS);

#include

include

#include

void IPKChartPnl::draw_BG()

{

A-CoIor(OxFFFFFFOO);

A_rectf(0,0,w(),h());

A-Color(OxeOAeOOO);

A_rectf(brdr,brdr,w()-brdH2,h()-brdr*2);

}

void IPKChartPnl"draW-Grid()

{

double Xn = m->CP.Xn, Xx = m->CP.Xx; double PixLenX = (w() - 2*brdr)∕(Xx-Xn);

AJine-StyIetFL-SOLID, 1); A-CoIor(OxO);

AJine(brdr,h()-brdr,w()-brdr,h()-brdr);

for(int i=(int)Xn;iT1n,m->T2n));

int Tx = (int)(min(m->T1x,m->T2x));

int Qn = (int)(max(m->Q1n,m->Q2n));

int Qx = (int)(min(m->Q1x,m->Q2x));

IPKChartForm *wnd = (IPKChartForm*)window();

double f= max(m->f1n,m->f2x);

double Xn = m->CP.Xn, Xx = m->CP.Xx;

double Yn = m->CP.Yn, Yx = m->CP.Yx;

double PixLenX = (w() - 2*brdr)∕(Xx-Xn);

double PixLenY = (h() - 2*brdr)∕(Yx-Yn);

Acolor(OxAOAOAOOO);

for(int i=0;(m->QLst[i]>0)&&(iQLst[i];

A-Color(OxAOAOAOOO);

fljine(

brdr,

h() - (Y-Yn) * PixLenY - brdr,

w()-brdr,

h() - (Y-Yn) * PixLenY - brdr

);

char buf[8];

sprintf(buf,"S%i",m->QLst[i]); A_color(0x0);

A~draw(buf,

brdr,

h() - (Y-Yn) * PixLenY - brdr

);

}

for(int T=Tn;TQLst[i]>0)&&(iQLst[i];

double X = m->Z(m->QLst[i],T);

if((m->QLst[i]QLst[i]>=Qn)&&(XZI))

A_color(0x0);

else

A-Color(OxFFOOOOOO);

int rds = 3;

if(

(wnd->pnlTools->tbl->row() == T-Tn)&& (wnd->pnlTools->tbl->col() == i)

)

{

rds = 6;

A-CoIor(OxOO);

A_line_style(FL_SOLID, 2);

A_line(

brdr + (X-Xn) * PixLenX,

h() - brdr,

brdr + (X-Xn) * PixLenX,

brdr

);

AJine(

brdr,

h() - (Y-Yn) * PixLenY - brdr,

w()-brdr,

h() - (Y-Yn) * PixLenY - brdr

);

A-Cθlor(0xFF16EE00);

}

A_line_style(FL_SOLID, 3);

fl_-circle(

brdr + (X-Xn) * PixLenX₁ h() - (Y-Yn) * PixLenY - brdr, rds

);

}

A-Color(OxAOAOAOOO);

A-line(

brdr + (m->Z(Yn,T)-Xn) * PixLenX₁ h() - (0) * PixLenY - brdr, brdr + (m->Z(Yx,T)-Xn) * PixLenX, h() - (Yx-Yn) * PixLenY - brdr

);

char buf[8];

sprintf(buf,"%2i",T);

A-CoIor(OxO);

A-draw(buf,

brdr + (m->Z(Yx,T)-Xn) * PixLenX, h() - (Yx-Yn) * PixLenY - brdr

);

}

}

void IPKChartPnI::draw_B() {

double Xn = m->CP.Xn, Xx = m->CP.Xx; double Yn = m->CP.Yn, Yx = m->CP.Yx; double PixLenX = (w() - 2*brdr)∕(Xx-Xn); double PixLenY = (h() - 2*brdr)∕(Yx-Yn);

BSPoIygon pol = m->B();

A-COlor(FL-GREEN);

A_line_style(FL_SOLID, 3); A-beginJine();

for(int і ≈ 0;iCP.Xn, Xx = m->CP.Xx; double Yn = m->CP.Yn, Yx = m->CP.Yx; double PixLenX = (w() - 2*brdr)∕(Xx-Xn); double PixLenY = (h() - 2*brdr)∕(Yx-Yn);

BSPoIygon pol = m->R();

fl_-color(OxaOffaOOO); flJinβ-Style(FL-SOLID, 3); fl_begin_polygon();

for(int і = 0;iCP.Xn, Xx = m->CP.Xx; double Yn = m->CP.Yn, Yx = m->CP.Yx;

double PixLenX = (w() - 2*brdr)∕(Xx-Xn);

double PixLenY = (h() - 2*brdr)∕(Yx-Yn);

BSPoIygon pol = m->S();

A-CoIor(FL-BLUE); fl_line_style(FL_SOLID, 3); fl_begin_line();

for(int і = 0;iCatchMouse();

}

void IPKChartPnI:XatchMouse(Void)

{

double Xn = m->CP.Xn, Xx = m->CP.Xx;

double Yn = m->CP.Yn, Yx = m->CP.Yx;

double PixLenX = (w() - 2*brdr)∕(Xx-Xn);

double PixLenY = (h() - 2*brdr)∕(Yx-Yn);

double Xp = (FI::event_x()-brdr)/PixLenX+Xn;

double Yp = ((h()-FI::event_y())-brdr)/PixLenY+Yn;

int Tn = (int)(max(m->T1n,m->T2n));

int Tx = (int)(min(m->T1x,m->T2x));

double f = max(m->f1 n,m->f2x);

double Ro=9999999.9,To=0,io=0;

for(int T=Tn;TQLst[i]>0)&&(iQLst[i];

double X = m->Z(m->QLst[i],T);

if((Y-Yp)*(Y-Yp)+(X-Xp)*(X-Xp)pnlTools->tbl->col(io); frm->pnlTools->tbl->row(To-Tn);

if(frm->pnlTools->tbl2)

{

frm->pnlT ools->tbl2->col(io);

frm->pnlT ools->tbl2->row(T o-Tn);

}

/**/

} End