Реферат Генерація випадкових чисел

Тема: Новые рефераты

Державне бюджетне освітня установа середньої професійної освіти

Володимирській області

«Володимирський авіамеханіческій коледж»

Спеціальність 09.02.03

Програмування в комп'ютерних системах

Дисципліна «Математичне моделювання»

Лабораторна робота № 3

Тема: Генерація випадкових чисел

Пояснювальна записка

ВАМК.09.02.03.БЛР - 112 ПЗ

Виконав: ________ А.С.. Нікітін/

Перевірив: ___________/А.Є. Петров/

Владимир +2014

Мета роботи: навчитися будувати послідовності псевдовипадкових чисел і визначати їх близькість до істинним законам розподілу випадкових чисел.

Обладнання: ПЕОМ, методичні вказівки по виконанню лабораторної роботи.

Завдання: Сформувати стійку послідовність псевдовипадкових чисел, використовуючи метод «середини квадрата». Для послідовності з 20 чисел визначити середнє значення чисел, середнє значення квадратів чисел і дисперсію.

Лістинг програмного коду (основний процедури)

програма послідовність середина квадрат

namespace WindowsFormsApplication1

{public partial class Form1: Form

{public Form1 ()

{InitializeComponent ();

} void button1_Click (object sender, EventArgs e)

{m1=0; m2=0; d=0; o1=0, o2=0, o3=0; .Text= raquo ;; x=Convert.ToDouble (maskedTextBox1.Text );=x/10000;=Math.Pow (x/10000,2); (int i=1; i lt;=30; i ++)=Math.Pow (x, 2); sx=Convert.ToString (x ); (sx.Length == 7)

{= sx.Remove (0, 1);=sx.Remove (4, 2);

} (sx.Length == 8)

{= sx.Remove (0, 2);=sx.Remove (4, 2);

}=Convert.ToDouble (sx); ((x lt; +1000) || (x gt; +9999))

{textBox2.Text=textBox2.Text + Помилка + Environment.NewLine; return; }

{textBox2.Text=textBox2.Text + sx + Environment.NewLine; }=M1 + x/10000;=m2 + Math.Pow (x/10000, 2);

}=m1/30;=m2/30;=m2 - Math.Pow (m1,2);=Math.Abs ??(m1 - 0.5)/0.5;=Math.Abs ??(m2 - 0.33333)/(0.33333 );=Math.Abs ??(d - 0.08333)/(0.08333) ;. Text=Convert.ToString (Math.Round (m1,3)) ;. Text=Convert.ToString (Math.Round (m2,3));.Text=Convert.ToString (Math.Round (d, 3)) ;. Text=Convert.ToString (Math.Round (o1,3)) ;. Text=Convert.ToString (Math.Round (o2,3)) ; .Text=Convert.ToString (Math.Round (o3,3)); void button2_Click (object sender, EventArgs e)

{(maskedTextBox2.Text == )

{. Show ( Помилка ) ;;

}

{n=Convert.ToDouble (maskedTextBox2.Text); ((n lt; 1000) || (n gt; 9999) || (maskedTextBox2.Text == ))

{. Show ( Помилка ) ;;

}

{. Text= raquo ;; (double chi=n; chi lt;=n + 100; chi ++)

{o=0; ch=chi; (int i=1; i lt;=30; i ++)

{= Math.Pow (ch, 2); sch=Convert.ToString (ch); (sch.Length == 7)=sch.Remove (0, 1);=sch.Remove (4, 2) ;

} (sch.Length == 8)

{= sch.Remove (0, 2);=sch.Remove (4, 2);

}=Convert.ToDouble (sch);