blob: 85bc3862655fb096b803a06688203955495609ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//Chapter-5, Example 5.20, Page 182
//=============================================================================
clc
clear
//INPUT DATA
R=10;//resistance in ohms
L=0.1;//inductance in henry
f=50;//frequency in hz
//CALCULATIONS
Xl=(2*%pi*f*L);//inductive reactance in ohms
Z=R+((%i)*(Xl));//impedance in ohms
Y=inv(Z);//admittance in mho
disp(Y);
y=abs(Y);//admittance in mho
mprintf("admittance is %1.5f mho",y);
//=================================END OF PROGRAM======================================================================================================
|
