summaryrefslogtreecommitdiff
path: root/2243/CH10/EX10.10/Ex10_10.sce
blob: 5e3f94b66ba612143a0db29e08c8d0e3b9465af3 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc();
clear;
//Given :
er = 6.75 ; // relative dielectric constant for glass
f = 10^9 ;// frequency in Hz
n = 1.5;// refractive index of glass
e0 = 8.85*10^-12; // dielectric constant in farad/m
//Pe = e0*(n^2 - 1)*E  , Pi = e0*(er - n^2)*E ,  P = Pi + Pe = e0*(er - 1)*E
//Percentage = [(e0*(er - n^2)*E)/(e0*(er -1)*E)]*100 , both the E's cancel each other
per = [(e0*(er - n^2))/(e0*(er -1))]*100;// percentage
printf("Percentage = %.1f",per);