summaryrefslogtreecommitdiff
path: root/3745/CH1/EX1.32/Ex1_32.sce
blob: 49d2cc5a587c28d57989ff83756b3e322c5a1b74 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
// Ex 32 Page 375

clc;clear;close;
// Given
L=30;//H
C=10*10**-6;//F
RL=8*10**3;//ohm
f=50;//Hz

r=sqrt(2)/12/(2*%pi*f)**2/L/C*100;//%
Lc=2*RL/6/(2*%pi*f);//H
printf("ripple factor = %.1f percent",r)
printf("\n Critical inductance, Lc=%.1f H",Lc)