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

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

19.10.2016, 15:42. Просмотров 2201. Ответов 7
Метки нет (Все метки)

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

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

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

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

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

7
Эксперт Pascal/Delphi
6438 / 4350 / 4660
Регистрация: 05.06.2014
Сообщений: 21,282
19.10.2016, 15:50 2
kpiut, вам же давали ссылки на подобные программы. Еще в июне.
Более того, вы заказывали эту курсовую во фриланс.

Не по теме:

Что, совсем никак?

0
0 / 0 / 0
Регистрация: 25.06.2016
Сообщений: 15
19.10.2016, 15:51  [ТС] 3
никак( Если бы получилось,сюда не обратились.
0
ФедосеевПавел
19.10.2016, 20:53
  #4

Не по теме:

kpiut, вы напишите формулы, по которым будет строится график. Только не отправляйте на какую-нибудь ссылку. Приведите прямо здесь итоговые формулы и ясный план программы. Построить график по формуле - здесь куча таких программ. Даже думать не придётся - скопировать и изменить формулу в одной строке.
Смысл в том, что ради вас лично я не готов изучать курс физики, выводить формулы ни за спасибо, ни за оплату (тем паче, что во фрилансе вы не получили ответ).

0
Эксперт Pascal/Delphi
2357 / 1277 / 1483
Регистрация: 29.08.2014
Сообщений: 4,600
20.10.2016, 14:08 5
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
Модератор
Эксперт по электронике
7410 / 3629 / 1424
Регистрация: 01.02.2015
Сообщений: 11,314
Записей в блоге: 2
20.10.2016, 22:27 6
Мне, почему-то кажется, что требуется построить модель вынужденных колебаний пружинного маятника. Тогда будет смысл в АЧХ - подобие передаточной функции.
1
Эксперт Pascal/Delphi
2357 / 1277 / 1483
Регистрация: 29.08.2014
Сообщений: 4,600
21.10.2016, 10:58 7
Лучший ответ Сообщение было отмечено kpiut как решение

Решение

ФедосеевПавел, да, правильно кажется. Я домой уходил, поэтому не доделал. Там в решение нужно внести внешнюю силу типа как член Аcos(wt). Пробежаться по частотам, получить отношение максимальной амплитуды к максимальной амплитуде при внешней силе и нарисовать по оси ординат отношение амплитуд, по оси абсцисс частоту w. В принципе тут уравнение численно решать не нужно ( просто интересно было диплом вспомнить), достаточно взять готовое решение и его нарисовать. как-то так.

Добавлено через 7 часов 12 минут
kpiut, вот АЧХ
формулу использовал эту:
https://www.cyberforum.ru/cgi-bin/latex.cgi?A=\frac{F_0}{m\sqrt{(\frac{k}{m}-\omega^2)^2+(\frac{f\omega}{m})^2}}

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
uses GraphAbc;
const n=1000;
var
  i:integer;
  a,w:array[0..n] of real;
  F0:real:=3;//амплитуда
  m:real:=1;//масса
  k:real:=5;//жесткость
  f:real:=0.5;//коэффициет трения
  Mx:real:=0;
begin
  for i:=0 to n do begin
    w[i]:=i/100;//частота
    a[i]:=F0/m/sqrt(sqr(k/m-sqr(w[i]))+sqr(f*w[i]/m));
    mx:=max(a[i],mx);
  end;
  Window.Maximize;
  clearwindow;
  var Oy:=WindowHeight div 2;
  var dx:=WindowWidth/n;
  var dy:=Oy/mx-10;
  SetPenColor(clBlack);
  line(0,oy,windowwidth,oy);line(0,0,0,windowheight);
  textout(5,oy+10,'0');
  textout(windowwidth-35,oy-20,'w, Гц');
  textout(10,10, 'A');
  MoveTo(round(w[0]*dx),oy-round(a[0]*dy));
  for i:=0 to n do begin 
    lineto(round(dx*i),oy-round(a[i]*dy),clRed);
    if i mod 20=0 then TextOut(round(dx*i),oy+10,format('{0:0.##}',w[i]));
  end;
  TextOut(0,Oy+40,format('собственная частота={0:0.##} Гц',sqrt(k/m)));
end.
2
0 / 0 / 0
Регистрация: 25.06.2016
Сообщений: 15
24.10.2016, 14:31  [ТС] 8
Большое спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2016, 14:31

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

Построить амплитудно-фазовую характеристику объекта с передаточной функцией
Люди помогите построить в MathCad амплитудно-фазовую характеристику объекта с передаточной...

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

Рассчитать частотную характеристику K(w)
Для заданной электрической цепи рассчитать частотную характеристику K(w)

Создание пружинного маятника
Глупая ситуация, обещал девушке помочь с курсовой при том что я вообще не понимаю программирования...


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

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

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