Генерация случайных чисел

Государственное бюджетное образовательное учреждение среднего профессионального образования Владимирской области

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

Специальность 09.02.03

Программирование в компьютерных системах Дисциплина «Математическое моделирование»

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

Тема: Генерация случайных чисел Пояснительная записка ВАМК.09.02.03.БЛР-112 ПЗ Выполнил: ________ /А.С. Никитин /

Проверил: ___________/ А. Е. Петров /

Владимир 2014

Цель работы: научиться строить последовательности псевдослучайных чисел и определять их близость к истинным законам распределения случайных чисел.

Оборудование: ПЭВМ, методические указания по выполнению лабораторной работы.

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

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

namespace WindowsFormsApplication1

{public partial class Form1: Form

{public Form1()

{InitializeComponent ();

}

private void button1_Click (object sender, EventArgs e)

{

double m1 = 0;

double m2 = 0;

double d = 0;

double o1 = 0, o2 = 0, o3 = 0;

textBox2.Text = «» ;

double x = Convert. ToDouble (maskedTextBox1.Text);

m1 = x/10 000;

m2 = Math. Pow (x/10 000,2);

for (int i=1; i <= 30; i++)

x = Math. Pow (x, 2);

string sx = Convert. ToString (x);

if (sx.Length == 7)

{

sx = sx. Remove (0, 1);

sx = sx. Remove (4, 2);

}

if (sx.Length == 8)

{

sx = sx. Remove (0, 2);

sx = sx. Remove (4, 2);

}

x = Convert. ToDouble (sx);

if ((x < 1000) || (x > 9999))

{ textBox2. Text = textBox2. Text + «Ошибка» +Environment.NewLine; return; }

else

{ textBox2. Text = textBox2. Text + sx + Environment. NewLine; }

m1 = m1 + x / 10 000;

m2 = m2 + Math. Pow (x / 10 000, 2);

}

m1 = m1 / 30;

m2 = m2 / 30;

d = m2 — Math. Pow (m1,2);

o1 = Math. Abs (m1 — 0.5) / 0.5;

o2 = Math. Abs (m2 — 0.33 333) / (0.33 333);

o3 = Math. Abs (d — 0.8 333) / (0.8 333);

textBox1.Text = Convert. ToString (Math.Round (m1,3));

textBox4.Text = Convert. ToString (Math.Round (m2,3));

textBox5.Text = Convert. ToString (Math.Round (d, 3));

textBox6.Text = Convert. ToString (Math.Round (o1,3));

textBox7.Text = Convert. ToString (Math.Round (o2,3));

textBox8.Text = Convert. ToString (Math.Round (o3,3));

private void button2_Click (object sender, EventArgs e)

{

if (maskedTextBox2.Text == «»)

{

MessageBox.Show («Ошибка»);

return;

}

else

{

double n = Convert. ToDouble (maskedTextBox2.Text);

if ((n < 1000) || (n > 9999) || (maskedTextBox2.Text == «»))

{

MessageBox.Show («Ошибка»);

return;

}

else

{

textBox3.Text = «» ;

for (double chi = n; chi <= n + 100; chi++)

{

int o = 0;

double ch = chi;

for (int i = 1; i <= 30; i++)

{

ch = Math. Pow (ch, 2);

string sch = Convert. ToString (ch);

if (sch.Length == 7)

sch = sch. Remove (0, 1);

sch = sch. Remove (4, 2);

}

if (sch.Length == 8)

{

sch = sch. Remove (0, 2);

sch = sch. Remove (4, 2);

}

ch = Convert. ToDouble (sch);

if ((ch >= 1000) && (ch <= 9999))

{ o = o + 1; }

if (o == 30)

{ textBox3. Text = textBox3. Text + chi + Environment. NewLine;

Результаты работы программы: