summaryrefslogtreecommitdiff
path: root/1964/CH12/EX12.8/ex12_8.sce
blob: d2904b4f9e6c6a760f3d2a6628c6b1e265ca7701 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Chapter-12, Example 12.8, Page 349
//=============================================================================
clc
clear
//INPUT DATA
Rl=100;//resistance of load in ohms
f=60;//frequency in hz
ripplefactor=0.04;
//CALCULATIONS
L=Rl/(3*sqrt(2)*(2*%pi*f*ripplefactor));//inductance
mprintf("inductance is %1.4f H",L);
//=================================END OF PROGRAM======================================================================================================