1 files changed, 8 insertions, 0 deletions
diff --git a/1952/CH12/EX12.28/Ex28.sce b/1952/CH12/EX12.28/Ex28.sce
new file mode 100755
index 000000000..4eb918ad8
--- /dev/null
+++ b/1952/CH12/EX12.28/Ex28.sce
@@ -0,0 +1,8 @@
+// Additional solved examples , Example 28 , pg 344
+H=2000  //magnetizing field  (in  A/m)
+phi=5*10^-5   //magnetic  flux   (in Wb)
+A=0.2 *10^-4  //area  (in m^2)
+B=phi/A    //magnetic flux density   (in Wb/m^2)
+u=B/H    //permeability    (in H/m)
+printf("permeability (in  H/m )=")
+disp(u)