blob: 1a6e3c71b5e81d4387ad9d7d89ac42566527fdb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
//Chapter 9 : Electromagnetic Theory
clear;
//Variable declaration
myu0=4*%pi*10**-7
r=2 //radius of Hemisphere
epsilon0=8.85*10**-12
P0=1000 //Power
//Calculations
E=((P0*sqrt(myu0/epsilon0))/(16*%pi))**(1/2)
H=P0/(16*%pi*E)
//Result
mprintf("Intensity of Electric field E= %.2f V/m" ,E)
mprintf("\nIntensity of Magnetic field H= %.2f amp. turn/m" ,H)
|
