% skladani kmitu
clear;
clc;
# vymazeme nastaveni vykreslovani
__gnuplot_raw__ "reset;";
# nastavuje opet vykresleni plnou carou
__gnuplot_set__ data style lines;
% 1. perioda
T1=input('Zadejte periodu T1: ');
% 2. perioda
T2=input('Zadejte periodu T2: ');
% 1. amplituda
A1=input('Zadejte amplitudu A1: ');
% 2. amplituda
A2=input('Zadejte amplitudu A2: ');
% fazovy posuv mezi skladanymi kmity v radianech
phi=input('Zadejte fazovy rozdil phi ve stupnich: ')/180*pi;
% Vypocet spolecneho nasobku
T=lcm(T1,T2);
% definice casoveho intervalu, pro ktery budeme vykreslovat
t=linspace(0,T,500);
x=A1*sin(2*pi/T1*t);
y=A2*sin(2*pi/T2*t+phi);
% vykresleni:
% nastaveni stejneho meritka na osach
__gnuplot_set__ decimalsign ',';
__gnuplot_set__ grid
__gnuplot_set__ mxtics
__gnuplot_set__ mytics
__gnuplot_set__ tics out
__gnuplot_set__ xlabel "t(s)"
__gnuplot_set__ ylabel "y1+y2 (m)"
__gnuplot_set__ title "Skladani kmitu"
% krivka
plot(t,x+y);
# vymazeme nastaveni vykreslovani
__gnuplot_raw__ "reset;";
# nastavuje opet vykresleni plnou carou
__gnuplot_set__ data style lines;
