Программирование на языке высокого уровня
Задача погони Волк гонится за зайцем, который бежит по прямой с постоянной скоростью. Волк тоже бежит с постоянной скоростью и всегда по направлению к зайцу. В некоторый момент времени угол между направлениями их движения составляет 900, а расстояние между ними составляет L0.
Через какое время волк настигнет зайца, при условии, что его скорость больше? // исходные данные: скорости uz и uv, // положение волка yv, шаг времени dt double gamma = Math.PI / 2; double xz = 0, xv = 0, t = 0, L; for (;; t = t + dt) { // вывод координат ... xz = xz + dt * uz; gamma = Math.Atan2(yv, xz - xv); xv = xv + dt * uv * Math.Cos(gamma); yv = yv - dt * uv * Math.Sin(gamma); if (xv > xz) break; } // вывод окончательных результатов ... // вывод координат L = Math.Sqrt(yv*yv + (xz-xv)*(xz-xv)); textBox1.Text = textBox1.Text + String.Format("Волк({0:0}; {1:0})\t Заяц({2:0}; 0)\t L={3:0.0}\t угол={4:0.0}\r\n", xv, yv, xz, L, 180*gamma/Math.PI); // вывод окончательных результатов textBox1.Text = textBox1.Text + String.Format("\r\nL = {0:0.###}, t = {1:0.###}", L, t); Искусственный нейрон Одного искусственного нейрона достаточно, чтобы… …реализовать логическую функцию (AND, OR, NOT) …моделировать, например, поведение таракана,
который в случае опасности прячется в тёмное укрытие ...обыграть человека в «Орёл/решку»! public partial class Form1 : Form { int[] x, w; int N = 8, win, loss, guess; Random r = new Random(); private void button1_Click(object sender, EventArgs e) { int sum = 0; for (int i = 0; i < N; i++) sum += x[i] * w[i]; guess = (sum == 0)? r.Next(2): ((sum < 0)? 0: 1); label2.Text = "Вы загадали " + guess + "?"; } private void button_YES_Click(object sender, EventArgs e) { win++; // обучение нейрона ... } private void button_NO_Click(object sender, EventArgs e) { loss++; guess = (guess == 0) ? 1 : 0; // обучение нейрона ... } } // обучение нейрона int sign = 2 * guess - 1; for (int i = 0; i < N; i++) w[i] += sign * x[i]; for (int i = 0; i > N-1; i++) x[i] = x[i + 1]; x[N - 1] = sign;
Slaidy.com
