summaryrefslogtreecommitdiff
path: root/3773/CH4/EX4.1/Ex4_1.sce
blob: aaf28c96d63c8300e60b93b46d9288adcc4472dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Chapter 4: Radiation
//Example 4-4.1
clc;

//Variable Initialization
theta = 30              //Angle of radiation (degrees)
epsilon_0 = 8.854e-12   //Permittivity of free space (F/m)
I_dl = 10               //Current in length dl (A-m)
r = 100e3               //Distance of point from origin (m)

//Calculation
E_mag = (I_dl*sin(theta*%pi/180))/(4*%pi*epsilon_0)                        //Magnitude of Electric field vector (V/m)
H_mag = (I_dl*sin(theta*%pi/180))/(4)                        //Magnitude of Magnetic field vector (T)

//Result
disp(E_mag,"The magnitude of E vector in V/m ")
mprintf("\nThe magnitude of H vector is %.3f /pi T", H_mag)