summaryrefslogtreecommitdiff
path: root/2234/CH3/EX3.25/ex3_25.sce
blob: 2ab19833942d8cc8abfc034d4ff1946ae6a4f5fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc;
f=300;  //frequency in Hz
r=1;  //distance in metre
i=2;  //current in Ampere
area=0.1;  //area in metre square
mo=4*(%pi)*10^-7;  //constant
H=i/(2*(%pi)*r);  //calcualting H field rms
disp(H,"H field intensity (rms) in A/m = ");  //displaying H field
Hp=H*sqrt(2);  //peak H
disp(Hp,"H field intensity (peak) in A/m = ");  //displaying result
Bp=(Hp*mo);  //calculating B peak in Tesla
disp(Bp,"Flux peak in Tesla = ");  //displaying B
vp=2*(%pi)*f*Bp;  //calculating v peak
disp(vp,"Peak voltage in volt = ");  //displaying result