Unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "cmath"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
	this->max = 2;
	setlocale( LC_ALL, "Ukrainian" );

}

void TForm2::start_calc(long int count, int order){

  r = order/2;//âûñ÷èòóåì ðàäèóñ ñèñòåìû
  a = pow(count,(float)1/r);//êîëè÷åñòâî óçëîâ â îäíîì èçìåðåíèè
  d_max = a; //ñîõðàíèì çíà÷åíèå â èíò(îáðåæèì äðîáíóþ ÷àñòü åñëè îíà èìååòñÿ)
  a = a-d_max;// âûñ÷èòóåì ðàçíèöó ìåæäó ôëîàòîì è èíòîì
  if(a == 0){// åñëè ðàçíèöû íåòó òî ýòî èäåëüíûé ãèïåðêóá
	for(int i=0; i<r; i++)
	  number[i] = d_max;// çàïîìèíàåì è âûâîäèì


  }
  else// èíà÷å ïåðåõîäèì êî âòîðîé ÷àñòè, íàõîäèì îïòèìàëüíóþ ñòðóêòóðó
  {
    a = count;
    for(int i=0, b=count; i<r; i++)
	{
      a = pow(b,(float)1/(r-i));//íàõîäèì êîëè÷åñâòî óçëîâ â êàæäîì èçìåðåíèè(ïðè àêæäîì ïðîõîäå öûêëà îòíèìàåì 1 íàéäåíîå ðàíèèå èçìåðåíèå)
      max = 2;//óñòàíàâëèâàåì ìèíèìàëüíîå êîëè÷åñâòî óçëîâ 2 äëÿ èçìåðåíèÿ
      for(;max<a;)// öûêë äëÿ íàõîæäåíèÿ äâóõ ñàìûõ áëèçêèõ ÷èñåë èç ðÿäà ÷èñåë 2^N, îäíî ñíèçó äðóãîå ñâåðõó
      {
        min = max;   //çàïîìèíàåì íèæíþþ ãðàíèöó
        max = max*2; //âûïîíÿåì êàæäûé ðàç óìíîæåíèå íà 2, íàõîäèì âåðõíþþ
      }
	  number[i] = min;// âðåìåííî ñîõðàíÿåì ðåçóëüòàò, è ïðåäïîëîãàåì ÷òî îíè óæå âûáðàíû ïðàâèëüíî
      number[i+1] = max;
      min = a-min;// íàõîäèì ðàñòîÿíèå îò íèæíåãî ÷èñëà ê íàéäåííîìó ðàíèå ÷èñëó à
      max = max-a;// íàõîäèì ðàñòîÿíèå îò âåðõíåãî ÷èñëà ê íàéäåííîìó ðàíèå ÷èñëó à
      if(min>max)//ñðàâíèâàåì ðàñòîÿíèå, è îïðåäåëÿåì êàêîå êîðî÷å
		number[i] = number[i+1];//óñòàíàâëèâàåì íàéäåííîå çíà÷åíèå íà 1 ìåòîñòî, 2-å è ò.ä.
      b = b/number[i];//îòíèìàåì îò êîëè÷åñâòà óçëîâ íàéäåíûå óæå
      number[i+1] = b;//ïðåäïîëîãàåì ÷òî ýòî ïîñëåäíèé êðóã öûêëà
    }
  }
  if(flag_pair_value == false){
	  number[r] = 2;
	  number_nodes = number_nodes*2;
	  node_order++;
	  r++;
  }
  //öûêë êîòîðûé óïîðÿäî÷èò çíà÷åíèÿ â ìàñèâå
  for(int i=1;i<r;i++)
  {
	max = number[i-1];
	if(max>number[i])
    {
	  number[i-1] = number[i];
      number[i] = max;
	  i=0;
	}
  }
};
//---------------------------------------------------------------------------
void TForm2::find_sub_system(long int num, int order){
	for(int i = 0;;i++){
		order--;
	if(order>3)    //òîëüêî åñëè ïîðÿäîê 4 è áîëüøå
	{   //---------------------------------
		a = (float)order/2;
		if(a != (int)a)
		{                                  //ïðîâåðêà íà ïàðíîñòü
			order--;
			num = num/2;
			flag_pair_value = false;
		}
		else
		{
			flag_pair_value = true;
		}//--------------------------------
		start_calc(num, order);
		a = number[0];
		for(int i=1; i<r; i++)             //ðàñ÷åò ïààìåòðîâ
			if(number[i]>a)
				a = number[i];
		//---------------------------------
		if(flag_pair_value)
		{
			d_max = 2*num/a;         //äîìíîæàåì íà 2 è ñðàâíèâàåì ñ ÷àéëä áèñåêøèí
		}                            //åñëè ñòîëüêî æå - îïòèìàëüíàÿ
		else
		{
			d_max = 4*num/a;        //äëÿ íåïàðíûõ - íà 4 - òîæå ñàìîå
		}
		//---------------------------------
		if(d_max == child_bisection)  //åñëè ïîïàëî ïîä ïîëîâèíó ïîëíîé áèñåêöèè
		{
			str = IntToStr(number[0]);
			for(int i=1; i<r; i++)
			str = str + "*" + IntToStr(number[i]);
			Form2->Memo1->Lines->Add("");
			if(!flag_pair_value)
			{
				order++;
				num = num*2;
			}
			Form2->Memo1->Lines->Add("ϳä îïòèìàëüíèé âàð³àíò êîíô³ãóðàö³¿ ìåðåæ³ ç ïîðÿäêîì âóçëà d = " + IntToStr(order) + " ³ ðîçì³ðàìè - " +  str + " âóçë³â");
			calc_metrik(num, order);
		}
		else
		{
			if(i == 0)
			{
			Form2->Memo1->Lines->Add("ϳä îïòèìàëüí³ âàð³àíòè íå çíàéäåí³.");
			}
			break;
		}

	}
	else
	{
		if(i == 0)
		{
			Form2->Memo1->Lines->Add("ϳä îïòèìàëüí³ âàð³àíòè íå çíàéäåí³");
		}
		break;
	}
	}
}

 int value = 0; //äëÿ ñîõðàíåíèÿ àïàð âèòð äëÿ çàäàíîé êîíô
//---------------------------------------------------------------------------
void TForm2::calc_metrik(__int64 num, int order){
  if (conf == 0){
	   addCell(0, 0, "_");


	if (ComboBox1->ItemIndex == 3)
		addCell(0, 1, "óïåðêóá");
	else
	   addCell(0, 1, "Çàäàíà");

	   addCell(1, 0, "N");
	   addCell(2, 0, "d");
	   addCell(3, 0, "I");
	   addCell(4, 0, "D");
	   addCell(5, 0, "B");
	   addCell(6, 0, "W");
	   addCell(7, 0, "P");

	   conf++;
	   StringGrid1->RowCount += 1;
  }else {
	   addCell(0, conf+1, "O" + IntToStr(conf));
	   conf++;
	   StringGrid1->RowCount += 1;
  }



   //Ðîçðàõîâóºìî ê³ëüê³ñòü çâ'ÿçê³â
   d_max = num*order/2;

   Memo1->Lines->Add("ʳëüê³ñòü çâ'ÿçê³â (òîïîëîã³÷íà âàðò³ñòü) I = " + IntToStr(d_max));

   addCell(N, conf, IntToStr(num));   //ê³-ñòü  âóçë³â
   addCell(d, conf, IntToStr(order)); //ïîðÿäîê âóçë³â
   addCell(I, conf, IntToStr(d_max)); //ê³-ñòü çâ'ÿçê³â

   //Ðîçðàõîâóºìî ìàêñèìàëüíèé ä³àìåòð
   d_max = 0;
   for(int i=0; i<r; i++)
	   d_max = d_max+number[i]/2;

   Memo1->Lines->Add("Ìàêñèìàëüíèé ä³àìåòð (ìàêñèìàëüíà çàòðèìêà ïåðåäà÷³ ïîâ³äîìëåíü ì³æ íàéá³ëüø â³ääàëåíèìè âóçëàìè) D = " + IntToStr(d_max));
   addCell(D, conf, IntToStr(d_max));

   //Ðîçðàõîâóºìî øèðèíó á³ñåêö³¿
   a = number[0];
   for(int i=1; i<r; i++)
	  if(number[i]>a)
		 a = number[i];
   d_max = 2*num/a;

   Memo1->Lines->Add("Øèðèíà á³ñåêö³¿ (ì³í³ìàëüíà ê³ëüê³ñòü çâ'ÿçê³â ì³æ äâîìà ïîëîâèíàìè ìåðåæ³) B = " + IntToStr(d_max));
   addCell(B, conf, d_max);

   //Ðîçðàõîâóºìî àïàðàòóðí³ âèòðàòè
   d_max = num * ((7*order) - 3);

   Memo1->Lines->Add("Àïàðàòóðí³ âèòðàòè (ëîã³÷í³ åëåìåíòè) I = " + IntToStr(d_max));
   
   addCell(W, conf, IntToStr(d_max));

  if (conf == 1) { // Äëÿ çàäàíî¿ ìåðåæ³
	  value = d_max;
	  addCell(P, conf, "100%");
  } else{          //óñ³ íàñòóïí³
	float proc = ((float)(d_max)/(float)(value))*100;
	addCell(P, conf, IntToStr((int)proc) + "%");

	//TODO ôëîàò
  }
}
 boolean upper_optim = false;
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender){
   //ïîäãîòîâêà ôðîíò-åíäà------------------------------------------------------
	conf = 0;
	for(int i=0;i<StringGrid1->ColCount;i++) //î÷èùåííÿ òàáë
		for(int j=0; j<StringGrid1->RowCount;j++)
			StringGrid1->Cells[i][j] = "";

	 if (ComboBox1->ItemIndex == -1) {
		ShowMessage("Âèáåð³òü îäèí ³ç çâïðîïîíîâàíèõ âàð³àíò³â ïîøóêó!");
		return;
	}

	//çàáèðàåì ó þçâåðÿ çíà÷åíèÿ
	number_nodes = StrToInt(Form2->Edit1->Text);//êîëè÷åñòâî óçëîâ

	if(ComboBox1->ItemIndex != 3){
		node_order   = StrToInt(Form2->Edit2->Text);//ïîðÿäîê óçëà

		if(number_nodes>pow(2,20) || node_order<4 || node_order>20)
		{   // ïðîâåðêà íà ãðàíè÷íûå ïàðàìåòðû
			ShowMessage("Ââåäåí³ âàìè çíà÷åííÿ çíàõîäÿòüñÿ ïîçà ä³àïàçîíîì äîçâîëåíèõ ÷èñåë. Ïåðåêîíàéòåñü, ùî ââåäåí³ âàìè ÷èñëà âèêîíóþòü äàí³ óìîâè: ê³ëüê³ñòü âóçë³â íå á³ëüøå ÷èñëà 2^20, ïîðÿäîê âóçëà íå ïåðåâèùóå ÷èñëî 20 òà íå íèæ÷å ÷èñëà 4");
			return;
		}

		//ïðâåðêà íà ìèí çíà÷åíèå êîëè÷åñâòà óçëîâ ïðè çàäàíîì ïîðÿäêå
		if(number_nodes < pow(4,(node_order/2))){
			ShowMessage("Ïðè çàäàíèõ ðîçì³ðíîñòÿõ ìåðåæ³ âîíà íå ìຠñåíñó! Âàì ïîòð³áíî çá³ëüøèòè ê³ëüê³ñòü âóçë³â àáî çìåíøèòè ¿õ ïîðÿäîê.");
			return;
		}
	} else if (number_nodes>pow(2,20)){
		// ïðîâåðêà íà ãðàíè÷íûå ïàðàìåòðû
		ShowMessage("Ââåäåí³ âàìè çíà÷åííÿ çíàõîäÿòüñÿ ïîçà ä³àïàçîíîì äîçâîëåíèõ ÷èñåë. Ïåðåêîíàéòåñü, ùî ââåäåí³ âàìè ÷èñëà âèêîíóþòü äàí³ óìîâè: ê³ëüê³ñòü âóçë³â íå á³ëüøå ÷èñëà 2^20, ïîðÿäîê âóçëà íå ïåðåâèùóå ÷èñëî 20 òà íå íèæ÷å ÷èñëà 4");
		return;
	}


	a = number_nodes;  //ïðîâåðêà íà ïðåíàäëåæíîñòü ê ðÿäó ÷èñåë 2^N
	int count = 0;
	for(;a>=2;){        // áîëåå ºëåãàíòíûé âàðèàíò - a && !(a & (a - 1));
		a = a/2;        // íî íàì íóæåí êàóíò
		count++;
	}
	if(a != 1){
		for(;max<number_nodes;){
			min = max;
			max = max*2;
		}
		CheckBox1->Visible = true;
		CheckBox2->Visible = true;

		CheckBox1->Caption = min;
		CheckBox2->Caption = max;

		ShowMessage("Ðåêîìåíäóºòüñÿ ðîçì³ð ìåðåæ³ N=2^n! Âèáåð³òü îäíå ³ç äâîõ çàïðîïîíîâàí÷èõ âàð³àíò³â.");
		return;
	}else{
		CheckBox1->Checked = false;
		CheckBox2->Checked = false;
	}
//---------------------------------------------êîíåö ïðîâåðîê

	if (ComboBox1->ItemIndex == 3) {   //óñ³ ï³äîïòèìàëüí³
		node_order = count;
	}

	//ãðàíè÷íûé ðàçìåð ïðè êîòîðîì ìåðåæà íå åñòü ïîäîïòèìàëüíîé
	child_bisection = number_nodes/4;
	//----ïðîâåðêà ïîðÿäêà óçëà íà ïàðíîñòü
	a = (float)node_order/2;
	if(a != (int)a){
		node_order--;
		number_nodes = number_nodes/2;
		flag_pair_value = false;
	}else{
		flag_pair_value = true;
	}//------------------------------------

	if(flag_pair_value){
		if(count != node_order)
			Form2->Memo1->Lines->Add("Ìåðåæà ìຠã³ïåðêóá³÷íó êîíô³ãóðàö³þ ïðè ïîðÿäêó âóçëà d = " +  IntToStr(count));
		else 
			Form2->Memo1->Lines->Add("Ìåðåæà ìຠã³ïåðêóá³÷íó êîíô³ãóðàö³þ d = " +  IntToStr(count));
	}else{
		if(count != node_order+1)
			Form2->Memo1->Lines->Add("Ìåðåæà ìຠã³ïåðêóá³÷íó êîíô³ãóðàö³þ ïðè ïîðÿäêó âóçëà d = " +  IntToStr(count));
		else 
			Form2->Memo1->Lines->Add("Ìåðåæà ìຠã³ïåðêóá³÷íó êîíô³ãóðàö³þ d = " +  IntToStr(count));

	}

	//íà÷àëî ðàñ÷åòîâ (ðàñ÷åò - number[], r, a)
		start_calc(number_nodes, node_order);  //åñëè ïàðíîå òî ïåðåäàåì çíà÷åíèÿ as is
											   //åñëè íåò - òî íà 1 ïîðÿäîê ìåíüøå
	//ôîðìèðóåì ñòðîêó ñ êîíôèã ñåòè
	str = IntToStr(number[0]);
		for(int i=1; i<r; i++)
			str = str + "*" + IntToStr(number[i]);

	if (ComboBox1->ItemIndex == 0 || ComboBox1->ItemIndex == 2 || ComboBox1->ItemIndex == 1) {
		//çàäàíà ìåðåæà àáî ï³äîïòèìàëüí³ çíèçó
		Memo1->Lines->Add("");
		Memo1->Lines->Add("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -");
		Memo1->Lines->Add("Âõ³äí³ ïàðàìåòðè - N = " +  Form2->Edit1->Text + " d = " + Form2->Edit2->Text );

		Memo1->Lines->Add("Çíàéäåíà êîíô³ãóðàö³ÿ ìåðåæ³ - " +  str + " âóçë³â");
		calc_metrik(number_nodes, node_order);  //âûâîäèì çíà÷åíèÿ

	}

	if (ComboBox1->ItemIndex == 1) {
		find_sub_upper(number_nodes, node_order);
	}
	if (ComboBox1->ItemIndex == 2) {
		find_sub_system(number_nodes, node_order);
	}
	if (ComboBox1->ItemIndex == 3) {

		Memo1->Lines->Add("");
		Memo1->Lines->Add("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -");
		Memo1->Lines->Add("Âõ³äí³ ïàðàìåòðè - N = " +  Form2->Edit1->Text);

		Memo1->Lines->Add("óïåðêóá³÷íà êîíô³ãóðàö³ÿ ìåðåæ³ - " +  str + " âóçë³â");
		calc_metrik(number_nodes, node_order);  //âûâîäèì çíà÷åíèÿ

		find_sub_system(number_nodes, node_order);
	}

}
//---------------------------------------------------------------------------


void TForm2::find_sub_upper(long int num, int order){
for(int i = 0, c = 0;;i++){
	order++;
	if(order<20)    //òîëüêî åñëè ïîðÿäîê 20 è ìåíüøå
	{   //---------------------------------
		a = (float)order/2;
		if(a != (int)a)
		{                                  //ïðîåðêà íà ïàðíîñòü
			order--;
			num = num/2;
			flag_pair_value = false;
		}
		else
		{
			flag_pair_value = true;
		}//--------------------------------
		start_calc(num, order);
		a = number[0];
		for(int i=1; i<r; i++)             //ðàñ÷åò ïààìåòðîâ
			if(number[i]>a)
				a = number[i];
		//---------------------------------
		if(flag_pair_value)
		{
			d_max = 2*num/a;         //äîìíîæàåì íà 2 è ñðàâíèâàåì ñ ÷àéëä áèñåêøèí
		}                            //åñëè ñòîëüêî æå - îïòèìàëüíàÿ
		else
		{
			d_max = 4*num/a;        //äëÿ íåïàðíûõ - íà 4 - òîæå ñàìîå
		}
		
		if(d_max <= child_bisection || d_max == child_bisection*2)  //åñëè ïîïàëî ïîä ïîëîâèíó ïîëíîé áèñåêöèè
		{
			if(d_max == child_bisection*2)
				c++;
			if (c == 2) {
				break;
			}
			str = IntToStr(number[0]);
			for(int i=1; i<r; i++)
				str = str + "*" + IntToStr(number[i]);
			Form2->Memo1->Lines->Add("");
			if(!flag_pair_value)
			{
				order++;
				num = num*2;
			}
			Form2->Memo1->Lines->Add("ϳä îïòèìàëüíèé âàð³àíò êîíô³ãóðàö³¿ ìåðåæ³ ç ïîðÿäêîì âóçëà d = " + IntToStr(order) + " ³ ðîçì³ðàìè - " +  str + " âóçë³â");

			if (d_max >= child_bisection)
				calc_metrik(num, order);
		} else if (i == 0){
			Form2->Memo1->Lines->Add("ϳä îïòèìàëüí³ âàð³àíòè íå çíàéäåí³.");
			break;
		}

	}
	else
	{
		if(i == 0)
		{
			Form2->Memo1->Lines->Add("ϳä îïòèìàëüí³ âàð³àíòè íå çíàéäåí³");
		}
		break;
	}
}

}

void __fastcall TForm2::CheckBox1Click(TObject *Sender)
{
	if(Form2->CheckBox1->Checked == true)
  {
	Form2->CheckBox2->Enabled = false;
	Form2->Edit1->Text = Form2->CheckBox1->Caption;
  }
  else
	Form2->CheckBox2->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::CheckBox2Click(TObject *Sender)
{
   if(Form2->CheckBox2->Checked == true)
  {
	Form2->CheckBox1->Enabled = false;
	Form2->Edit1->Text = Form2->CheckBox2->Caption;
  }
  else
	Form2->CheckBox1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Edit1Click(TObject *Sender)
{
	  Form2->Edit1->Text = "";
      Form2->Edit1->Font->Color = clWindowText;

}
//---------------------------------------------------------------------------

void __fastcall TForm2::Edit2Click(TObject *Sender)
{
	  Form2->Edit2->Text = "";
	  Form2->Edit2->Font->Color = clWindowText;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormDestroy(TObject *Sender)
{
  Form1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Form1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::N2Click(TObject *Sender)
{
	Form1->Close();
    Form2->Close();
}
//---------------------------------------------------------------------------

   void TForm2::makeExcel(){

	WideString str;
	TStringList *sl = new TStringList;
	for(int i = 0 ; i<StringGrid1->RowCount ;++i){
		for(int j = 0; j< StringGrid1->ColCount;++j)

		str +=StringGrid1->Cells[j][i]+ "\t";
        sl->Add(Trim(str));
        str = "\n\r" ;
	SaveDialog1->InitialDir = GetCurrentDir();
	SaveDialog1->DefaultExt = "xls";
	}
	if (SaveDialog1->Execute()){
		sl->SaveToFile(SaveDialog1->FileName);
	}
	delete sl;

	}

void __fastcall TForm2::ExporttoExcel2Click(TObject *Sender)
{
	makeExcel();
}

inline void TForm2::addCell(int row, int column, String ss){
	 Form2->StringGrid1->Cells[row][column] = ss;
}

//---------------------------------------------------------------------------

void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{

	Edit2->Visible = !(ComboBox1->ItemIndex == 3);

}
//---------------------------------------------------------------------------

void __fastcall TForm2::N1Click(TObject *Sender)
{
	Form3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Exporttotxt1Click(TObject *Sender)
{

	SaveTextFileDialog1->InitialDir = GetCurrentDir();
	SaveTextFileDialog1->DefaultExt = "txt";

	if (SaveTextFileDialog1->Execute()){
		Memo1->Lines->SaveToFile(SaveTextFileDialog1->FileName, NULL);
	}

}
//---------------------------------------------------------------------------