summaryrefslogtreecommitdiff
path: root/3763/CH6/EX6.2/Ex6_2.sce
blob: d0378541d16693d4d3c7689811bd0d31b8a1f3a9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
clear
//
//
//

//Variable declaration
rho=10**10   //resistivity(ohm m)
d=10**-3    //thickness(m)
A=10**4*10**-6    //area(m**2)
V=10**3    //voltage(V)
f=50     //power frequency(Hz)
epsilonr=8
epsilon0=8.84*10**-12
tan_delta=0.1

//Calculation
Rv=rho*d/A 
dl_DC=V**2/Rv      //DC dielectric loss(watt)
C=A*epsilon0*epsilonr/d
dl_AC=V**2*2*%pi*f*C*tan_delta     //AC dielectric loss(watt)

//Result
printf("\n DC dielectric loss is %0.0f  *10**-3 watt",dl_DC*10**3)
printf("\n AC dielectric loss is %0.2f  *10**-3 watt",dl_AC*10**3)