summaryrefslogtreecommitdiff
path: root/2378/CH1/EX1.11/Exa_1_11.sce
blob: a61918dfef6a6f981c154827c62dd5b20fbab2fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//addition of harmonic motion
//Exa_2_11
clc;
clear;
close;

A=sqrt((10+15*cos(2))^2 + (15*sin(2))^2);

alpha=atand((15*sin(2))/(10+15*cos(2)));

disp("x(t)=R*%e^(i*(omega*t+alpha))");
disp("where ");
disp(A,"A =");
disp(alpha,"alpha =");