blob: 6d4966f453827fb2b60af335b02d7048b02194bc (
plain)
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
|
clc
clear
mprintf('Mechanical vibrations by G.K.Grover\n Example 1.6.1\n')
//given data
//case 1
//a complex number is represented as Z=X+j*Y where j is imaginary
//V=3 +j*7
x1=3
y1=7
//calculations
r1=sqrt(x1^2+y1^2)
if (y1/x1)>0 then theta1=atan(y1/x1)
else theta1=%pi-atan(abs(y1/x1))
end
theta1=atan(y1/x1)
//case 2
//V=-5 +j*4
x2=-5
y2=4
//calculations
r2=sqrt(x2^2+y2^2)
if (y2/x2)>0 then theta1=atan(y2/x2)
else theta2=%pi-atan(abs(y2/x2))
end
//output
mprintf('case(i) V=3+j*7 is represented as V=%3.3f*e^(j*(%3.3f))\ncase(ii) V=-5+j*4 is represented as V=%3.3f*e^(j*(%3.3f))',r1,theta1,r2,theta2)
|
