Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/18: Рейтинг темы: голосов - 18, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 19.12.2013
Сообщений: 64
1

Смоделировать колебания пружинного маятника

23.12.2013, 17:48. Просмотров 3548. Ответов 1
Метки нет (Все метки)


Помогите, составить программу, моделирующую колебания пружинного маятника (колебания происходят в направлении оси у).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2013, 17:48
Ответы с готовыми решениями:

Вертикальные колебания пружинного маятника!
Написать прогу чтоб маятник был вертикально и ходил вниз и в верх на пружинке :good: помогите...

Моделирование вынужденных колебаний пружинного маятника
Тело массой m, закрепленное на пружине жесткостью k, совершает вынужденные колебания под действием...

Построить амплитудно-частотную характеристику пружинного маятника
Построить амплитудно-частотную характеристику пружинного маятника.Программа должна выводить...

Смоделировать вынужденные колебания маятника Дафинга
народ помогите пожалуйста написать программу ! задание выглядит так : С модулировать вынужденные...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30867 / 20189 / 7874
Регистрация: 22.10.2011
Сообщений: 35,049
Записей в блоге: 6
23.12.2013, 19:03 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses
  GraphABC;
 
const
  a = 2;
  k = 0.01; // Жёсткость пружины
  turns = 20; // Количество витков пружины
  friction = 0.99; // Часть энергии рассеивается в виде тепла
 
var
  stop: boolean := false;
 
procedure KeyDown(Key: integer);
begin
  stop := true;
end;
 
var
  y: integer; // Положение маятника
  v: single;  // Скорость маятника
 
begin
  OnKeyDown := KeyDown;
  LockDrawing;
  repeat
    Window.Clear;
    v := v * friction + a - (k * y);
    y := round(y + v);
    Ellipse(Window.Center.X - 10, y - 10, Window.Center.X + 10, y + 10);
    MoveTo(Window.Center.X - 10, 0);
    for var i := 1 to turns do
      LineTo(Window.Center.X + 10 * -(i and 1), round(y / turns * i));
    redraw;
    sleep(100);
  until stop;
end.
(Идея взята вот тут: Создание пружинного маятника)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2013, 19:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Динамические колебания маятника.
помогите кто сможет: 1. Написать программу которая определяет два упорядоченных по возрастанию...

Гармонические колебания пружинного маятника
Груз массой m=1,095кг , подвешенный к пружине жесткостью к=1,2Н/м , совершает незатухающие...

Уравнение колебания пружинного маятника в среде
Тело радиуса r на пруж. маятнике колеблется в жидкости - его оттягивают вниз и отпускают. нужно...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.