summaryrefslogtreecommitdiff
path: root/1964/CH5/EX5.34/ex5_34.sce
blob: 2401bc38be4250b75b7981b71e0cd0c9cc3ff43e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter-5, Example 5.34, Page 197
//=============================================================================
clc
clear
//INPUT DATA
R=20;//resistance in ohms
L=0.2;//inductance in H
C=100;//capacitance in uF 
//resistance will be non-inductive only at reosnant frequency
//CALCULATIONS
fr=(1/(2*%pi*(sqrt(L*C*10^-6))))*(sqrt((L-(C*10^-6*(R)^2))/(L)));//resonant frequency in hz
mprintf("Thus resonant frequency is %2.2f hz\n",fr);
Rf=(L)/(C*R*10^-6);//non-inductive resistance
mprintf("Thus value of non-inductive resistance is %d ohms",Rf);
//=================================END OF PROGRAM======================================================================================================