summaryrefslogtreecommitdiff
path: root/3523/CH12/EX12.17.1/Ex12_1.sce
blob: ced0d28ff1aa45a7ecf90af8c6ccf71e6e650ddd (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
25
26
27
28
29
30
31
32
//Example 1// Ch 12
clc;
clear;
close;
// given data
r1=2;//inner coaxial cable radius
r2=5;//sheath radius over the insulation
Em1=40;//max stress in the insulation in kV/cm
Em2=25;//max stress in the insulation in kV/cm
epsilon1=6;
epsilon2=4;
x=Em1/Em2;
r=x*((epsilon1*r1)/(epsilon2));//radial thickness of the dielectric
printf("radial thickness of the dielectric %f cm",r)
inner=r-r1;//inner thickness of dielectric
outer=r2-r;//outer thickness of dielectric
printf("inner thickness of dielectric %f cm",inner)
printf("outer thickness of dielectric %f cm",outer)
V1=Em1*r1*log(r/r1);//voltage drop across dielectric in kV
V2=Em2*r*log(r2/r);//voltage drop across outer dielectric
printf("voltage drop across dielectric %f kV",V1)
printf("voltage drop across outer dielectric %f kV",V2)
pv = V1+V2;//peak voltage of cable
printf("peak voltage of cable %f kV",pv)
pvrms=pv/sqrt(2);
printf("peak voltage in rms %f kV",pvrms)