%Plotting Melting Point and Boiling Point;  
%find Tungston
plot(MeltingPt,'r');
hold on;
plot(BoilingPt,'y');
%make sure zoom is off at this point!
zoom off;
disp('click on the maximum Boiling Point');
el=ginput(1);
elnum=round(el(1));
disp(Symbol(elnum,:));
hold off;