Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET В кассе есть монеты по 2, 5 и 10 рублей. Сколькими способами можно выдать сдачу на некоторую сумму Sum, значен https://www.cyberforum.ru/ pascalabc-net/ thread1829836.html
Какая то дичь, нужно сделать с for
PascalABC.NET Найти среднее арифметическое значение чисел массива
Написали код; в 9 строке пишет: ,, - Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла,, в 12 строке пишет ,, - Program1.pas(12) : Нельзя преобразовать тип real к integer .....
Вычисление суммы ряда циклом For PascalABC.NET
как решит задачу которая на картинке с помощью примера кода
PascalABC.NET Нерекурсивное нахождение неопределенного интеграла Задача на нахождение неопределенного интеграла от функции X^m*cos(a*x) Нужно написать нерекурсивную процедуру к рекурсивной версии этой задачи.Рекурсивную я написала,но не уверена в нерекурсивной... https://www.cyberforum.ru/ pascalabc-net/ thread1829672.html
PascalABC.NET Программирование https://www.cyberforum.ru/ pascalabc-net/ thread1829654.html
Постройке кривую Коха в ABC Pascal. Спаасибо.
PascalABC.NET Программа "лабиринт"
Нужен код на PascalABC . (Программа "лабиринт". Программа генерирует сложный лабиринт и помещает в произвольную точку фигуру человека. Пользователь должен найти выход из лабиринта)
PascalABC.NET Игра "Найди одинаковые картинки"
Парни напишите код на PascalABC.NET ,буду очень благодарен. (Игра - найди одинаковые картинки, способствующая развитию зрительной памяти. Задача: убрать все карточки с поля за минимальное число...
PascalABC.NET Ошибка времени выполнения: Индекс находился вне границ массива var zoo: array of string; i:integer; begin zoo:='a'; zoo:='bak'; zoo:='c'; write(zoo,' '); end.в чем проблема не могу понять? Я только начал учиться. https://www.cyberforum.ru/ pascalabc-net/ thread1829525.html
PascalABC.NET Проверить max суммы матрицы m на n https://www.cyberforum.ru/ pascalabc-net/ thread1829313.html
Написать программу, которая с помощью процедуры проверяет max сумму построенную в матрице m на n и выводит ее. Заранее спасибо!
PascalABC.NET Свойство объекта - что я делаю не так? uses GraphABC, ABCObjects; var block: array of RectangleABC; begin // Не буду загромождать кодом - Здесь я заполняю массив block block.Bordered := false; // дальше не важно... Вопрос... https://www.cyberforum.ru/ pascalabc-net/ thread1829253.html
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
20.10.2016, 14:08 0

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

20.10.2016, 14:08. Просмотров 2298. Ответов 7
Метки (Все метки)

Ответ


kpiut, на входе, что из перечисленного известно?
k-коэффициент жесткости
h-коэффициент трения
m-масса
Ф0 - начальная фаза
что-то еще?

Добавлено через 3 часа 17 минут
для начала вот зависимости скорости от времени и координаты, проверьте нигде я не наврал?
диф. уравнение из http://window.edu.ru/resource/... ессов.pdf:
https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{d^2x}{dt^2}=-\frac{k}{m}(x+\Delta l_0)-\frac{f}{m}*\frac{dx}{dt}+g
решал.

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
const g=9.81;
      n=40;
var
  v:array of real;
  x:array of real;
  t:array of real;
  i:integer:=0;
begin
  SetLength(v,n+5);
  SetLength(x,n+5);  
  SetLength(t,n+5);  
  var m:=readlnreal('Масса=');
  var k:=readlnreal('Коэффициент жесткости=');
  var f:=readlnreal('Коэффициент трения=');
  var tmax:=readlninteger('tmax=');
  t[0]:=0;
  var dt:=tmax/n;
  var dl:=m*g/k;
  v[0]:=readlnreal('v0=');
  x[0]:=readlnreal('x0=');
  //решаем дифуру (d^2x/dt^2)=-k/m*x0-f/m*(dx/dt)*g
  v[1]:=v[0]+(-k/m*(x[0]+dl)-f/m*v[0]+g)*dt/2;
  x[2]:=x[0]+v[1]*dt;
  i:=1;
  repeat
   i:=i+1;
   v[i]:=v[i-1]+(-k/m*(x[i]+dl)-f/m*v[i-1]+g)*dt; if i=1 then v[1]:=v[1]/2;
   x[i+1]:=x[i]+v[i]*dt;
   t[i]:=t[i-1]+dt;
  until t[i]>=tmax;
  for i:=0 to i do writelnformat('t[{0}]={3};x[{0}]={1};v[{0}]={2}',i,x[i],v[i],t[i]);
end.


Вернуться к обсуждению:
Построить амплитудно-частотную характеристику пружинного маятника
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2016, 14:08
Готовые ответы и решения:

Смоделировать колебания пружинного маятника
Помогите, составить программу, моделирующую колебания пружинного маятника (колебания происходят в...

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

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

Как построить фазово-частотную характеристику аудиосигнала?
Здраствуйте! Кто нибудь знает как построит Фазочастотною характеристику аудиосигнала? Ачх я как то...

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