// Scilab code Ex8.2 Page:241 (2006)
clc; clear;
n = 3e+028;    // Spin density of electrons in a ferromagnetic material, per cubic meter
mu = 3e-023;    // spin magnetic moment of a ferromagnetic material, Square Ampere 
M_s = n*mu;    // Saturation magnetization of a ferromagnetic material, Per Ampere
printf("\nSaturation magnetization of a ferromagnetic material = %1.0e ampere per meter", M_s);

// Result 
// Saturation magnetization of a ferromagnetic material = 9e+005 ampere per meter