VPF::Дисперсия и график - Форум программистов

Avatar1

Дата 15.10.2012, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.10.2012

Репутация: нет
Всего: нет

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

Код


void __fastcall TForm1::Button1Click(TObject *Sender)
{const int razod =50;
 const int razdv = razod * 2;
 String perv, vtor;
 int ss,sd,i,j, x, n[razod], m[razod], nm[razdv];
  double  disp,sredn;
 
  ss=0;
  sd=0;
  Memo1->Clear();
 
  srand(time(0));
  
  for(i = 0; i <razod; i++)
   perv += IntToStr( n[i] = 5 * ( rand( ) % 6 + 1 ) + 1 ) + "  ";
  Edit1->Text = perv;
 
  
  for(i = 0; i < razod; i++)
   vtor += IntToStr( m[i] = 5 * ( rand( ) % 6 + 1 ) + 1 ) + "  ";
  Edit2->Text = vtor;
 
 
  
  for(i = 0; i < razdv; i++)
   nm[i] = (i <razod)?n[i]:m[i % razod];
 
 
  //Сортировка  по возрастанию, метод пузырька
   for (j=0; j<razdv - 1;j++)
    for(i = 0; i < razdv - 1; i++)
     {
      if(nm[i] > nm[i + 1])
       {
        x = nm[i];
        nm[i] = nm[i + 1];
        nm[i + 1] = x;
       }
     }
 
  
  for(i = 0; i < razdv; i++)
  {
   Form1->Memo1->Lines->Add(IntToStr(i+1)+" --- "+nm[i]); 
   ss+=nm[i];                        
  }
  sredn=ss*0.01;                      
  Edit3->Text =sredn;
 
  for(i = 0; i < razdv; i++)
  sd+=nm[i]*nm[i]-sredn*sredn;
  disp=sd*0.01;
  Edit4->Text =disp;
 
 
 }

Заранее спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »