**TI92P*main9fReduce Number To Nearest Metric v1.0 Rmetric Z@# da-decaڏR :dh-hectoڏRd:k-kiloڏR:@#M-megaڏR@#:@ #G-gigaڏR@ #:@ #T-teraڏR@ #:@#P-petaڏR@#:@#E-exaڏR@#:@#Z-zettaڏR@#:@#Y-yottaڏR@#:-----------------------?#d-deciڏR:?#c-centiڏR?#:?#m-milliڏR?#:?#-microڏR?#:?#n-nanoڏR?#:?#p-picoڏR?#:?#f-femtoڏR?#:?#a-attoڏR?#:?#z-zeptoڏR?#:?#y-yoctoڏR?#:If x=0 or x=1:Return xZmetric(n)e Nearest Metric Equivalent n: Real number e: Nearest metric equivalent Ex: metric(2000)=2kilo(-) Ex: metric(.002)=2milli(-) Frank P. Westlake -Y}