Difference between revisions of "Махало"
(5 intermediate revisions by the same user not shown) | |||
Line 161: | Line 161: | ||
</pre></code> | </pre></code> | ||
− | == Числено интегриране == | + | == [[Числено интегриране]] == |
При численото решаване, знаем началната стойност на функцията и [[производна|начина по който тя се изменя]]. С тези входни данни, точка по точка се изчислява всяка следваща стойност на функцията. | При численото решаване, знаем началната стойност на функцията и [[производна|начина по който тя се изменя]]. С тези входни данни, точка по точка се изчислява всяка следваща стойност на функцията. | ||
− | Най-лесният алгоритъм за тази цел е | + | Най-лесният алгоритъм за тази цел е [http://en.wikipedia.org/wiki/Euler_method методът на Ойлер]. |
Ето какво образно показано изпълнява ode45() | Ето какво образно показано изпълнява ode45() | ||
<code><pre> | <code><pre> | ||
% Метод на Ойлер за интегриране | % Метод на Ойлер за интегриране | ||
− | dt = 0. | + | g= 9.8; l = 5; % константи |
− | t = 0:dt: | + | T = 20; % максимална стойност, до която ще интегрираме |
+ | dt = 0.0001; % колкото по-малко, толкова по-точно и по-бавно | ||
+ | t = 0:dt:T; % интервала, който ще разгледаме | ||
+ | points = T/dt; | ||
− | + | %масив, където ще се съхранят всички точки | |
+ | ydot = zeros(1,points+1); | ||
+ | y = zeros(1,points+1); | ||
% Начални условия | % Начални условия | ||
Line 178: | Line 183: | ||
ydot(1) = 0; | ydot(1) = 0; | ||
− | for i = 1: | + | for i = 1:T/dt |
y(i+1) = y(i) + ydot(i)*dt; | y(i+1) = y(i) + ydot(i)*dt; | ||
ydot(i+1) = ydot(i) - g/l*sin(y(i))*dt; | ydot(i+1) = ydot(i) - g/l*sin(y(i))*dt; | ||
Line 185: | Line 190: | ||
</pre></code> | </pre></code> | ||
+ | Друг вариант | ||
+ | <code><pre> | ||
+ | g= 9.8; l = 5; % константи | ||
+ | order = 2; | ||
+ | T = 20; | ||
+ | dt = 0.0001 | ||
+ | points = T/dt; | ||
+ | %y = zeros(1,points); | ||
+ | %t = zeros(1,points); | ||
+ | |||
+ | x(1) = 17*pi/180; | ||
+ | x(2) = 0; | ||
+ | |||
+ | for i = 1:points | ||
+ | |||
+ | fxt(1) = x(2); | ||
+ | fxt(2) = - g/l*sin(x(1)); | ||
+ | |||
+ | for count = 1:order | ||
+ | x(count) = x(count) + dt*fxt(count); | ||
+ | end | ||
+ | y(i+1) = x(1); | ||
+ | t(i+1) = t(i) + 1; | ||
+ | end | ||
+ | plot(t, y) | ||
+ | </pre></code> | ||
+ | |||
+ | И вариант на C | ||
+ | <code><pre> | ||
+ | #include <stdio.h> | ||
+ | #include <math.h> | ||
+ | |||
+ | /* Variables defined here are global. */ | ||
+ | float x[2],xdot[2]; /* Define states and state derivatives */ | ||
+ | float t,dt; /* Time and integration interval global */ | ||
+ | int nstate; /* Number of states and state equations */ | ||
+ | float g = 9.8, l = 5; | ||
+ | |||
+ | /* State Equations */ | ||
+ | int state_eqns(void) | ||
+ | { | ||
+ | xdot[0] = x[1]; | ||
+ | xdot[1] = -g/l*sin(x[0]) ; | ||
+ | return 0; | ||
+ | } | ||
+ | |||
+ | /* Euler Integration Algorithm */ | ||
+ | void euler(void) | ||
+ | { | ||
+ | int count = 0; | ||
+ | state_eqns(); | ||
+ | while (count<nstate) | ||
+ | { | ||
+ | x[count] = x[count] + dt*xdot[count]; | ||
+ | count = count+1; | ||
+ | } | ||
+ | t = t + dt; | ||
+ | return; | ||
+ | } | ||
+ | |||
+ | int main(void) | ||
+ | { | ||
+ | int index,iterations; | ||
+ | float Tmax; | ||
+ | |||
+ | /* Data Input Section *******************************************/ | ||
+ | printf(" Input data for the simulation. \n"); | ||
+ | printf("\n"); | ||
+ | |||
+ | printf("Input the total time for your simulation.\n"); | ||
+ | scanf("%f",&Tmax); | ||
+ | |||
+ | printf("Input the sample time for your simulation.\n"); | ||
+ | scanf(" %f",&dt); | ||
+ | |||
+ | /* Initialization section ***************************************/ | ||
+ | t=0.; /* Initialize time & states*/ | ||
+ | index=0; | ||
+ | nstate=2; /* First order system - 1 state */ | ||
+ | |||
+ | x[0] = 0.2967; /* 17*pi/180 */ | ||
+ | xdot[0] = 0; | ||
+ | x[1] = 0.; | ||
+ | xdot[1] = 0.; | ||
+ | |||
+ | index = 0; | ||
+ | iterations = Tmax/dt; | ||
+ | /* Do simulation calculations and print results ************************/ | ||
+ | while (index<=iterations) | ||
+ | { | ||
+ | euler(); | ||
+ | printf("t(%i)=%12.4f; m(%i)=%12.4f; \n",index,t,index,x[0]); | ||
+ | index = index + 1; | ||
+ | } | ||
+ | return 0; | ||
+ | } | ||
+ | </pre></code> | ||
+ | '''Вариант с PHP''' | ||
+ | <code><pre> | ||
+ | <? | ||
+ | // Метод на Ойлер за интегриране | ||
+ | $g= 9.8; $l = 5; //'константи'; | ||
+ | $T = 20; //максимална стойност, до която ще интегрираме | ||
+ | $dt = 0.001; // колкото по-малко, толкова по-точно и по-бавно | ||
+ | |||
+ | |||
+ | //%масив, където ще се съхранят всички точки | ||
+ | $ydot = 0; | ||
+ | $y = array(0,0); | ||
+ | |||
+ | //% Начални условия | ||
+ | $y[1] = 17*pi()/180; | ||
+ | $ydot = 0; | ||
+ | |||
+ | for ($i = 1; $i <= $T/$dt; $i++) | ||
+ | { | ||
+ | array_push($y,($y[$i] + $ydot*$dt)); | ||
+ | $ydot = $ydot - $g/$l*sin($y[$i])*$dt; | ||
+ | } | ||
+ | |||
+ | print_r($y); | ||
+ | |||
+ | ?> | ||
+ | </pre></code> | ||
+ | == Връзки == | ||
+ | [http://dw.georgievi.net/ivan/ Бифилярно махало, Пружинно махало, Физично махало] | ||
Latest revision as of 10:10, 5 January 2013
Цел: Създаване на връзки между диференциране и диференциални уравнения.
Постановка: Математическо махало. (Съпротивлението на въздуха се пренебрегва). Да се намери зависимостта на махалото спрямо времето, т.е. функцията на движение на махалато.
Анализ: Във всеки момент махалото се движи с различна скорост и ускорение, зависещи от ъгъла на отклонение на махалото.
Contents
Производни, разстояние, скорост и ускорение.
Движението на махалото се извършва по окръжност с радиус равен на дължината на нишката, на която е окачено махалото. От тук, следва че:
За да изразим скоростта ползваме първата производна (изменението на разстоянието за единица време). Изменя се само ъгълът, а дължината на нишката е константа и се запазва:
По да изразим ускорението, използваме втората производна
(1)
Сили действащи на махалото
Под внимание се взема само силата действаща по посока на движението. Допирателната по окръжността на движение (тангенциалната сила ( танго -> допир)). Перпендикулярната сила (нормалната ) се неутрализира.
За махалото (2)
Диференциално уравнение на махало
От (1) и (2)
Решаване на диференциалното уравнение
Има два подхода при решаване на диференциални уравнения, аналитичен и числен. При конкретното уравнение са възможни и двата подхода, но аналитичният метод може да се използва за . В този случай диференциалното уравнение ще се преобразува в линейно от втори ред.
Аналитично решение
Полагаме , от тук - хомогенно диференциално уравнение от 2-ри ред
Уравнението е от вида , затова лесно могат да се намерят решения във вида , където за r се решава уравнението , a именно:
от тук =>
За получаване на конкретно решение ще зададем начални условия. Примерно в началното положение , махалото е отклонено на градуса и пуснато свободно, т.е. с нулева начална скорост.
=>
За решение на задача при малки ъгли се получава
e ъгловата скорост с която ще се движи махалото.
От тук
Визуализация на решението с Matlab
Имаме следните начални условия:
l = 5; % m
g = 9.8; % m/s^2
theta_0 = 17; % degree
theta_0r = 17*pi/180 % ъгъл в радиани
omega = sqrt(g/l); % ъгловата скорост
t = 0:0.1:20; % интуитивно си избираме подходящ интервал за изследване
theta = theta_0r*cos(omega.*t); % Фундаментална формула, с който започва анализа на трептенията
% За тези с по-малко въображение и тези, които искат да представят резултатите на други
plot(t,theta);
xlabel('t [s]'), ylabel('theta [rad]');
axis([ 0 20 -0.4 0.4]);
title('Matematichesko mahalo');
% Само трябва да добавим съпротивление на въздуха; вятър;
% маса на нишката, която държи махалото; трептене на опoрната точка и да решим за всякакви начални условия.
Аналитично решение с Matlab
Общо решение:
syms g l;
y = dsolve('D2y = -(g/l)*y', 't')
%решение
% yC15*exp((t*(-g*l)^(1/2))/l) + C16/exp((t*(-g*l)^(1/2))/l)
Частно решение с начални условия
% l=5, g=9.8, 0.3 = 17*pi*180
y = dsolve('D2y = -(9.8/5)*y','Dy(0)=0, y(0) =0.3','t')
%решение
% y = (3*cos((7*t)/5))/10
Числено решаване с Matlab
Решението се състои в две части. Първо се създава файл - функция описваща уравнението Второ изпълнява се функцията ode45();
Функция mah1
function ds = mah1(t, yy, l , g)
% t е променливата, по която диференцираме, в случая не се ползва
% защото не е част от уравнението
% y функцията, която търсим
% dy e нейната първа производна
% d^2y/dt^2 + g/l*sin(y) = 0 - matematichesko mahalo
y = yy(1); % Тези два реда са за онагледяване,
dy = yy(2); % стойностите за уу може дирктно да се
% запишат в долните изрази.
ds(1,1) = dy; % <=> ( y(t) )' = dy(t)
ds(2,1) = -g/l*sin(y); % <=> ( dy(t) )' = -g/l*sin(y)
% ds са конкретни числови стойности
end
Скрипт за извикване на ode45()
g=9.8;
l=5;
x0 = [17*pi/180; 0]; % начални условия
t = 0:0.01:20;
options = [] ; % за сега не ни интересуват
[t,x] = ode45(@mah1,t,x0,options,l,g);
plot(t, x(:,1)); % make the plot
title('Reshenie mat. mahalo s ode45()');
Числено интегриране
При численото решаване, знаем началната стойност на функцията и начина по който тя се изменя. С тези входни данни, точка по точка се изчислява всяка следваща стойност на функцията.
Най-лесният алгоритъм за тази цел е методът на Ойлер. Ето какво образно показано изпълнява ode45()
% Метод на Ойлер за интегриране
g= 9.8; l = 5; % константи
T = 20; % максимална стойност, до която ще интегрираме
dt = 0.0001; % колкото по-малко, толкова по-точно и по-бавно
t = 0:dt:T; % интервала, който ще разгледаме
points = T/dt;
%масив, където ще се съхранят всички точки
ydot = zeros(1,points+1);
y = zeros(1,points+1);
% Начални условия
y(1) = 17*pi/180;
ydot(1) = 0;
for i = 1:T/dt
y(i+1) = y(i) + ydot(i)*dt;
ydot(i+1) = ydot(i) - g/l*sin(y(i))*dt;
end
plot(t, y)
Друг вариант
g= 9.8; l = 5; % константи
order = 2;
T = 20;
dt = 0.0001
points = T/dt;
%y = zeros(1,points);
%t = zeros(1,points);
x(1) = 17*pi/180;
x(2) = 0;
for i = 1:points
fxt(1) = x(2);
fxt(2) = - g/l*sin(x(1));
for count = 1:order
x(count) = x(count) + dt*fxt(count);
end
y(i+1) = x(1);
t(i+1) = t(i) + 1;
end
plot(t, y)
И вариант на C
#include <stdio.h>
#include <math.h>
/* Variables defined here are global. */
float x[2],xdot[2]; /* Define states and state derivatives */
float t,dt; /* Time and integration interval global */
int nstate; /* Number of states and state equations */
float g = 9.8, l = 5;
/* State Equations */
int state_eqns(void)
{
xdot[0] = x[1];
xdot[1] = -g/l*sin(x[0]) ;
return 0;
}
/* Euler Integration Algorithm */
void euler(void)
{
int count = 0;
state_eqns();
while (count<nstate)
{
x[count] = x[count] + dt*xdot[count];
count = count+1;
}
t = t + dt;
return;
}
int main(void)
{
int index,iterations;
float Tmax;
/* Data Input Section *******************************************/
printf(" Input data for the simulation. \n");
printf("\n");
printf("Input the total time for your simulation.\n");
scanf("%f",&Tmax);
printf("Input the sample time for your simulation.\n");
scanf(" %f",&dt);
/* Initialization section ***************************************/
t=0.; /* Initialize time & states*/
index=0;
nstate=2; /* First order system - 1 state */
x[0] = 0.2967; /* 17*pi/180 */
xdot[0] = 0;
x[1] = 0.;
xdot[1] = 0.;
index = 0;
iterations = Tmax/dt;
/* Do simulation calculations and print results ************************/
while (index<=iterations)
{
euler();
printf("t(%i)=%12.4f; m(%i)=%12.4f; \n",index,t,index,x[0]);
index = index + 1;
}
return 0;
}
Вариант с PHP
<?
// Метод на Ойлер за интегриране
$g= 9.8; $l = 5; //'константи';
$T = 20; //максимална стойност, до която ще интегрираме
$dt = 0.001; // колкото по-малко, толкова по-точно и по-бавно
//%масив, където ще се съхранят всички точки
$ydot = 0;
$y = array(0,0);
//% Начални условия
$y[1] = 17*pi()/180;
$ydot = 0;
for ($i = 1; $i <= $T/$dt; $i++)
{
array_push($y,($y[$i] + $ydot*$dt));
$ydot = $ydot - $g/$l*sin($y[$i])*$dt;
}
print_r($y);
?>