//find susceptibilty and relative permeability of a superconductor
//Ex:16.1
clc;
clear;
close;
b=0;
//m=-h
//m=x*h

//==>> -h=x*h
x=-1;//from above realtions
disp(x,"Susceptibility of superconductor = ");
ur=x+1;//relative permeability
disp(ur,"Relative permeability of superconductor = ");