已经解决了。很简答：

  A   <- exp( 16 )
  z1  <- format(A, scientific=TRUE, digit=7)
  z2  <- substring(z1, 1, 8)
# Power表示10次方的幂
# a表示排除科学计算后的值
  Power <- log( as.numeric( z1 ) / as.numeric( z2 ), 10 )   
  a   <- as.numeric( z2 )