diff options
Diffstat (limited to '3809/CH5')
| -rw-r--r-- | 3809/CH5/EX5.1/EX5_1.sce | 16 | ||||
| -rw-r--r-- | 3809/CH5/EX5.2/EX5_2.sce | 22 | ||||
| -rw-r--r-- | 3809/CH5/EX5.3/EX5_3.sce | 12 | ||||
| -rw-r--r-- | 3809/CH5/EX5.4/EX5_4.sce | 15 | ||||
| -rw-r--r-- | 3809/CH5/EX5.5/EX5_5.sce | 15 | ||||
| -rw-r--r-- | 3809/CH5/EX5.6/EX5_6.sce | 13 |
6 files changed, 93 insertions, 0 deletions
diff --git a/3809/CH5/EX5.1/EX5_1.sce b/3809/CH5/EX5.1/EX5_1.sce new file mode 100644 index 000000000..fd918436e --- /dev/null +++ b/3809/CH5/EX5.1/EX5_1.sce @@ -0,0 +1,16 @@ +//Chapter 5, Example 5.1 + +clc +//Initialisation' +i=5 //current in amp +r=100*10**-3 //radius in meter +pi=3.14 //pi + +//Calculation +l=2*pi*r //circumference +h=i/l //magnetic field strength + + + +//Results +printf("Magnetic field strength, H = %.2f A/m",h) diff --git a/3809/CH5/EX5.2/EX5_2.sce b/3809/CH5/EX5.2/EX5_2.sce new file mode 100644 index 000000000..925718d88 --- /dev/null +++ b/3809/CH5/EX5.2/EX5_2.sce @@ -0,0 +1,22 @@ +//Chapter 5, Example 5.2 + +clc +//Initialisation' +i=6 //current in amp +n=500 //no of turns +l=0.4 //mean circumference +pi=3.14 //pi +uo=4*pi*10**-7 //dielectric constant +a=300*10**-6 //area + +//Calculation +f=i*n //force +h=f/l //magnetic field strength +B=uo*h //magnetic induction +phi=B*a //total flux + +//Results +printf("(a) Force F = %d ampere-turns\n",f) +printf("(b) Magnetic Field Strength, H = %d A/m\n",h) +printf("(c) Magnetic Induction, B = %.2f mT\n",B*10**3) +printf("(d) Total Flux, phi = %.2f uWb\n",phi*10**6) diff --git a/3809/CH5/EX5.3/EX5_3.sce b/3809/CH5/EX5.3/EX5_3.sce new file mode 100644 index 000000000..d201ad944 --- /dev/null +++ b/3809/CH5/EX5.3/EX5_3.sce @@ -0,0 +1,12 @@ +//Chapter 5, Example 5.3 + +clc +//Initialisation' +di=3 //change in current w.r.t time +l=10*10**-3 //inductance in henry + +//Calculation +v=l*di //voltage induced + +//Results +printf("Voltage Induced V = %d mV",v*10**3) diff --git a/3809/CH5/EX5.4/EX5_4.sce b/3809/CH5/EX5.4/EX5_4.sce new file mode 100644 index 000000000..0d7a9c429 --- /dev/null +++ b/3809/CH5/EX5.4/EX5_4.sce @@ -0,0 +1,15 @@ +//Chapter 5, Example 5.4 + +clc +//Initialisation' +n=400 //no of turns +l=200*10**-3 //mean circumference +pi=3.14 //pi +uo=4*pi*10**-7 //dielectric constant +a=30*10**-6 //area + +//Calculation +L=(uo*a*n**2)/l //inductance + +//Results +printf("Inductance L = %d uH",L*10**6) diff --git a/3809/CH5/EX5.5/EX5_5.sce b/3809/CH5/EX5.5/EX5_5.sce new file mode 100644 index 000000000..6f210a1b7 --- /dev/null +++ b/3809/CH5/EX5.5/EX5_5.sce @@ -0,0 +1,15 @@ +//Chapter 5, Example 5.5 + +clc +//Initialisation' +L1=10 //inductance +L2=20 //inductance + + +//Calculation +Ls=L1+L2 //inductance in series +Lp=(L1*L2)/(L1+L2) //inductance in parallel + +//Results +printf("(a) Inductance in Series Ls = %d H\n",Ls) +printf("(b) Inductance in Parallel Lp = %.2f H\n",Lp) diff --git a/3809/CH5/EX5.6/EX5_6.sce b/3809/CH5/EX5.6/EX5_6.sce new file mode 100644 index 000000000..bd9880b74 --- /dev/null +++ b/3809/CH5/EX5.6/EX5_6.sce @@ -0,0 +1,13 @@ +//Chapter 5, Example 5.6 + +clc +//Initialisation' +L=10**-2 //inductance +I=5 //current in ampere + + +//Calculation +e=(1/2)*L*I**2 //stored energy + +//Results +printf("Stored Energy = %d mJ",e*10**3) |