Осуществление разработки ИС

// заполнение StringGrid значениями из Excel-таблицы

Variant vCells = MyExcel. OlePropertyGet («Cells»);

int** Mas2 = new int*[iRowsCount-1];

for (int i=0; i<=iRowsCount-1; i++)

Mas2 [i]=new int [iColsCount-1];

AnsiString *name_ind= new AnsiString [iRowsCount-1];

ss=vCells. OlePropertyGet («Item», iFirstRow, iFirstCol);

if (CompareText (ss, «»)!= 0)

{

for (int i = iFirstRow+1; i < iFirstRow+iRowsCount; i++)

{

for (int j = iFirstCol+1; j < iFirstCol+iColsCount; j++)

{

AnsiString iValue = vCells. OlePropertyGet («Item», i, j);

Mas2 [i-2] [j-2]=StrToInt(iValue);

}

name_ind [i-2]=vCells. OlePropertyGet («Item», i, 1);

}

MyExcel. OleProcedure («Quit»); // закрытие Excel

float *m= new float [iRowsCount-1];

float *sko= new float [iRowsCount-1];

float *var= new float [iRowsCount-1];

for (int i = 0; i <iRowsCount-1; i++)

{m[i]=0;

sko[i]=0;

var[i]=0;

float Quality=0;

// расчет математического ожидания

for (int j = 0; j < iColsCount-1; j++)

{

// цикл по оценкам (от 5 до 1)

m[i]=m[i]+Mas2 [i] [j]*(4-j+1);

Quality=Quality+Mas2 [i] [j];

}

m[i]=m[i]/Quality;

// расчет СКО

// цикл по оценкам

for (int j = 0; j < iColsCount-1; j++)

for (int k = 0; k <Mas2 [i] [j]; k++)

sko[i]=sko[i]+(((4-j+1) - m[i])*((4-j+1) - m[i]));

sko[i]=sqrt (sko[i]/Quality);

// расчет коэффициента вариации

var[i]=sko[i]/m[i];

}

// отбор индикаторов

int l=0; // счетчик отобранных индикаторов

for (int i = 0; i <iRowsCount-1; i++)

{

// цикл по количеству индикаторов

if ((m[i]>=3.4)&&(var[i]<0.3))

{ost = new mm;

ost->name=name_ind[i];

ost->ii=i;

List->Add(ost);

fm_risk->SpisOI->Lines->Add(((mm*) List->Items[l])->name+» «+IntToStr(((mm*) List->Items[l])->ii));

l=l+1;

}

}}

}

if (ss. Length()<10)

{

MessageBox (0, «Файл excel пуст», «Ошибка», MB_OK);

}

}

void __fastcall Tfm_risk: OtbIndClick (TObject *Sender)

{

OtborID();

}

// -

void __fastcall Tfm_risk: ZokClick (TObject *Sender)

{

ZagrIND();

}

// -

void __fastcall Tfm_risk: ZeoClick (TObject *Sender)

{ZagrEO();

}

// -

void __fastcall Tfm_risk:OPClick (TObject *Sender)

{

TList *Listt= new TList;

struct mmm {

AnsiString name;

int ii;

}*pr;

// Вычисления

Rez->Lines->Clear();

obsh_ind=new float*[z];

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

obsh_ind[i] = new float[2];

for (int j = 0; j < z; j++) // цикл по количеству экспертов

for (int i = 0; i < x; i++) // цикл по количеству критериев

{for (int q = 0; q < w; q++)

{

obsh_ind[j] [q]=obsh_ind[j] [q]+MassKrit[i] [j] [q];

}

}

for (int j = 0; j < z; j++)

for (int q = 0; q < w; q++)

{

obsh_ind[j] [q]=obsh_ind[j] [q]/x;

}

obsh_pr= new float**[z];

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

obsh_pr[i]=new float*[y];

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

{for (int j=0; j<y; j++)

obsh_pr[i] [j]=new float[w];

}

for (int k = 0; k < z; k++)

for (int j = 0; j < y; j++)

for (int q = 0; q < w; q++)

obsh_pr[k] [j] [q]=0;

for (int k = 0; k < z; k++)

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

for (int j = 0; j < y; j++)

for (int q = 0; q < w; q++)

{

obsh_pr[k] [j] [q]=obsh_pr[k] [j] [q]+ MassVs2 [i] [j] [k] [q];

}

for (int k = 0; k < z; k++)

for (int j = 0; j < y; j++)

for (int q = 0; q < w; q++)

{

obsh_pr[k] [j] [q]=obsh_pr[k] [j] [q]/x;

}

// *************************

MassVs1= new float*[y];

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

MassVs1 [i]=new float[z];

Projects= new float[z];

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

{

for (int j = 0; j < y; j++)

{

MassVs1 [j] [i]=(obsh_pr[i] [j] [1]+alpha*obsh_pr[i] [j] [0])/(alpha+1);

}

Projects[i]=(obsh_ind[i] [1]+alpha*obsh_ind[i] [0])/(alpha+1);

}

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

for (int j = 0; j < y; j++)

for (int j = 0; j < z; j++)

ProjectsYporiad= new float[y];

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

{ProjectsYporiad[i]=0;

for (int j = 0; j < z; j++)

{

ProjectsYporiad[i]=ProjectsYporiad[i]+Projects[j]* MassVs1 [i] [j];

}

pr = new mmm;

pr->name=name_proj[i];

pr->ii=i;

Listt->Add(pr);

}

int k, m;

float b;

int *id=new int[y];

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

{id[i]=i;

}

int hh;

for (int i = 0; i < y-1; i++)

{

k=y-i-1; //k - номер последнего элемента в проверяемой части массива}

m=k; //m - номер элемента с наибольшим значением}

for (int j = 0; j < y-i; j++)

{

if (ProjectsYporiad[j] < ProjectsYporiad[m])

{m = j; // запоминаем значение «m»

}

hh=id[k];

id[k]=id[m];

id[m]=hh;

b= ProjectsYporiad[k];

ProjectsYporiad[k]= ProjectsYporiad[m];

ProjectsYporiad[m]= b; // переставляем элементы

}

}

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

Rez->Lines->Add(((mmm*) Listt->Items [id[i]])->name +» «+ FloatToStr (ProjectsYporiad[i]));

}

// -

void __fastcall Tfm_risk: SettingsClick (TObject *Sender) // обработчик кнопки меню настройки

{

fm_rsk=this;

fm_options->Show();

}

// -

void __fastcall Tfm_risk: ExitClick (TObject *Sender) // обработчик кнопки меню выход

{

Close();

}

// -

void __fastcall Tfm_risk: OtborClick (TObject *Sender) // обработчик нажатия кнопки отбора критериев

{

OtborID();

}

// -

void __fastcall Tfm_risk: Click (TObject *Sender) // обработчик нажатия кнопки оценки значимости критериев

{

ZagrIND();

}

// -

void __fastcall Tfm_risk: ZagrEcspClick (TObject *Sender) // обработчик нажатия кнопки загрузка экспертных оценок

{

ZagrEO();

}

// -

void __fastcall Tfm_risk:N5Click (TObject *Sender) // обработчик нажатия кнопки выпадающего меню отбор критериев

{

OtborID();

}

// -

void __fastcall Tfm_risk:N6Click (TObject *Sender) // обработчик нажатия кнопки выпадающего меню оценки значимости критериев

{

ZagrIND();

}

// -

void __fastcall Tfm_risk:N7Click (TObject *Sender) // обработчик нажатия кнопки выпадающего меню загрузка экспертных оценок

{

ZagrEO();

}

// -

void __fastcall Tfm_risk: OtborClick (TObject *Sender)

{

TList *Listt= new TList;

struct mmm {

AnsiString name;

int ii;

}*pr;

// Вычисления пошли

Rez->Lines->Clear();

obsh_ind=new float*[z];

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

obsh_ind[i] = new float[2];

for (int j = 0; j < z; j++)

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

{for (int q = 0; q < w; q++)

{

obsh_ind[j] [q]=obsh_ind[j] [q]+MassKrit[i] [j] [q];

}

}

for (int j = 0; j < z; j++)

for (int q = 0; q < w; q++)

{

obsh_ind[j] [q]=obsh_ind[j] [q]/x;

}

obsh_pr= new float**[z];

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

obsh_pr[i]=new float*[y];

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

{for (int j=0; j<y; j++)

obsh_pr[i] [j]=new float[w];

}

for (int k = 0; k < z; k++)

for (int j = 0; j < y; j++)

for (int q = 0; q < w; q++)

obsh_pr[k] [j] [q]=0;

for (int k = 0; k < z; k++)

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

for (int j = 0; j < y; j++)

for (int q = 0; q < w; q++)

{

obsh_pr[k] [j] [q]=obsh_pr[k] [j] [q]+ MassVs2 [i] [j] [k] [q];

}

for (int k = 0; k < z; k++)

for (int j = 0; j < y; j++)

for (int q = 0; q < w; q++)

{

obsh_pr[k] [j] [q]=obsh_pr[k] [j] [q]/x;

}

// *************************

MassVs1= new float*[y];

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

MassVs1 [i]=new float[z];

Projects= new float[z];

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

{

for (int j = 0; j < y; j++)

{ // 1.5 1

MassVs1 [j] [i]=(obsh_pr[i] [j] [1]+alpha*obsh_pr[i] [j] [0])/(alpha+1);

}

Projects[i]=(obsh_ind[i] [1]+alpha*obsh_ind[i] [0])/(alpha+1);

}

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

for (int j = 0; j < y; j++)

for (int j = 0; j < z; j++)

ProjectsYporiad= new float[y];

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

{ProjectsYporiad[i]=0;

for (int j = 0; j < z; j++)

{

ProjectsYporiad[i]=ProjectsYporiad[i]+Projects[j]* MassVs1 [i] [j];

}

pr = new mmm;

pr->name=name_proj[i];

pr->ii=i;

Listt->Add(pr);

}

int k, m;

float b;

int *id=new int[y];

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

{id[i]=i;

}

int hh;

for (int i = 0; i < y-1; i++)

{

k=y-i-1; // {k - номер последнего элемента в проверяемой части массива}

m=k; // {m - номер элемента с наибольшим значением}

for (int j = 0; j < y-i; j++)

{

if (ProjectsYporiad[j] < ProjectsYporiad[m])

{m = j; // {запоминаем значение «m»}

}

hh=id[k];

id[k]=id[m];

id[m]=hh;

b= ProjectsYporiad[k];

ProjectsYporiad[k]= ProjectsYporiad[m];

ProjectsYporiad[m]= b; // {переставляем элементы}

}

}

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

Rez->Lines->Add(((mmm*) Listt->Items [id[i]])->name +» «+ FloatToStr (ProjectsYporiad[i]));

}

// -

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