summaryrefslogtreecommitdiff
path: root/3745/CH1/EX1.7/Ex1_7.sce
blob: a4eea876d9c2f4c83f9bf36d7ac5e01a50c8137f (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
// Ex 7 Page 347

clc;clear;close;
// Given
//v=100*sin(314*t)
R=25;//ohm
C=80;//uF
omega=314;//radian
Vm=100;//V

Xc=1/omega/(C*10**-6);//ohm
Z=sqrt(R**2+Xc**2);//ohm
Im=Vm/Z;//A
theta=atan(Xc/R);//radian
printf("equation for instant current:")
mprintf("\n i=%.2f*sin(%d*t+%.2f)",Im,omega,theta)
P=(Im/sqrt(2))**2*R;//W
mprintf("\n Power consumed = %.1f W",P)
Vcm=Im*Xc;//V 
//(when i=Im/2)
i=0.5*Im;//A
//vc=Vcm*sin(314*t+theta-%pi/2)
//i=Im*sin(314*t+theta)
tt=asin(i/Im) ;//radian tt=314*t+theta
vcm=Vcm*sin(tt-%pi/2)
mprintf("\n Voltage across capacitor = %.1f V(+ve & -ve)",abs(vcm))