% skladani kmitu
clear;
clc;
# vymazeme nastaveni vykreslovani
__gnuplot_raw__ "reset;";
# nastavuje opet vykresleni plnou carou
__gnuplot_set__ data style lines;
% 1. perioda
f1=input('Zadejte frekvenci f1: ');
% 2. perioda
f2=input('Zadejte frekvenci f2: ');
% 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;
% mez pro vykreslovani
T=100/gcd(round(100*f1),round(100*f2));
% cas
t=linspace(0,2*T,600);
x=a1*sin(2*pi*f1*t);
y=a2*sin(2*pi*f2*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;
