HField={10,25,50,75,108,137,160,180,200,235,285,320,365,480,560,660,800,1000,1150,1550,1840,2250,2800,3450,4350,5500,7707,11863,15839,21076,27281,35289,45642,59046,76413,98907,128000,134764,141880,149364,157235};BField={0.0025,0.0066,0.0151,0.0264,0.05,0.1,0.15,0.2,0.25,0.35,0.5,0.6,0.7,0.9,1.,1.1,1.2,1.3,1.354,1.45,1.5,1.55,1.6,1.65,1.7,1.75,1.81,1.89,1.945,2.,2.05,2.1,2.15,2.2,2.25,2.3,2.35,2.36,2.37,2.38,2.39};BHData=Transpose[{BField,BField/HField}];