function y=pwr10(x)
 y=10.^x;