summaryrefslogtreecommitdiff
path: root/3775/CH2/EX2.4/Ex2_4.sce
blob: 949b80064c26b2b165fdfb85383367d41b15da54 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Ex 2.4 page 68

clc;
clear;
close;

// VG=0.5+8*IG -- eqn(1)
f=400; // Hz
delta=0.1 ; // (Duty Cycle)
P=0.5;//W
VS=12;// V

Tp=1/f*10**6;// us
// P= VG*IG -- eqn(2)
// solving eqn  1 and 2
//8*IG*IG**2+0.5*IG-P=0
p=[8, 0.5, -P] // polynomial for IG
IG=roots(p) ;// A 
IG=IG(2) ;// A (discarding -ve value)
VG=0.5+8*IG;// V
// VS=VG+IG*RS
RS=(VS-VG)/IG
printf('Value of resistance to be added in series = %.2f ohm',RS)