// Scilab Code Ex8.1:  Page-8.33 (2004)
clc;clear;
M = 3300;    // Magnetization of ferromagnetic material, amp/metre
H = 220;    // Magnetic field strength, amp/metre
mu_r = M/H+1;    // Relative permeability, unitless
printf("\nRelative permeability = %d", mu_r);

// Result
// Relative permeability = 16