summaryrefslogtreecommitdiff
path: root/215/CH10/EX10.4/ex10_4.sce
blob: 0d091c859034d1a4689c0fad58b8abaa0bfd84eb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
//Example 10.4
//Determine phasor current and time-domain current
printf("Given")
disp('Voltage is 8(-50 deg),Frequency is 100rad/s,Inductance is 4H')
L=4;
w=100;
Vamp=8;Vang=-50;
//Let current be I
Iamp=Vamp/(w*L)
Iang=-90+Vang
printf("I=%3.2f(%d deg) A \n",Iamp,Iang)
//In time domain
printf("i(t)=%3.2f *cos(%d*t%d) A",Iamp,w,Iang);