Unit of Measurement and Order of Magnitude Snippets w3b5urf3r (Ing.Davide Carpi) 2 5 decimal
&[DATE] &[TIME] - &[FILENAME]
&[PAGENUM] / &[COUNT]
 <p>Snippet: Operations with units</p>

Unit of Measurement

return Unit of Measurement of input #number if #number have no unit return 1 if #number is a string return 0

#number UoM #number IsString ¬ #num2str #number abs eval num2str : units #num2str ' findstr stack : units 1 el 0 > divisions #num2str / findstr stack : divisions 1 el 0 > #num2str #num2str 1 divisions 1 el 1 - substr #num2str divisions 1 el 1 + substr 2 1 mat : #num2str #num2str 1 2 1 mat : if i 1 : i 2 ≤ i i 1 + : units #num2str i el ' findstr stack : brackets #num2str i el { findstr stack : units 1 el 0 > #uom #num2str i el units 1 el substr : brackets 1 el 0 > #num2str i el {1* #uom concat : #num2str i el {1* #uom } concat : if 2 1 line #num2str i el {1} : if 3 1 line for #num2str 1 el / #num2str 2 el concat str2num 4 1 line 1 if 3 1 line 0 if 1 1 line :

Order of Magnitude

return the Order of Magnitude (the integer part of the logarithm, obtained by truncation) of the input #number #PoT: - 0 to obtain the Order of Magnitude; - 1 to obtain the result in Powers of Ten. #eval can be: - "e" to obtain the Order of Magnitude estimate; - any other value for the Order of Magnitude as defined.

#number #PoT #eval OoM #number IsString ¬ #number 0 ≠ #num #number abs #number UoM / eval : #eval e ≡ #out #num 10 log 0 round : #out #num 10 log trunc : if 2 1 line #out ∞ - : if #PoT 1 ≡ 10 #out ^ #out if 2 1 line 0 if 1 1 line :

Rounding

round the number "#number" to "#places" places, according to the default SMath output unit

#number #places dRound #UoM #number UoM : #number #UoM / #places round #UoM * 2 1 line :

round the number "#number" to "#places" places, according to the output unit "#unit"

#number #places #unit uRound #number #unit / #places round #unit * :

Truncation

returns the integer part of a number "#number", according to the default SMath output unit

#number dTrunc #UoM #number UoM : #number #UoM / trunc #UoM * 2 1 line :

returns the integer part of a number "#number", according to the ouput unit "#unit"

#number #unit uTrunc #number #unit / trunc #unit * :

Floor

returns the next lowest integer value by rounding down "#number", according to the default SMath output unit

#number dFloor #UoM #number UoM : #number #UoM / 0 ≥ #number #UoM / trunc #UoM * #number #UoM / trunc 1 - ( #UoM * if 2 1 line :

returns the next lowest integer value by rounding down "#number", according to the ouput unit "#unit"

#number #unit uFloor #number #unit / 0 ≥ #number #unit / trunc #unit * #number #unit / trunc 1 - ( #unit * if :

Ceiling

returns the next highest integer value by rounding up "#number", according to the default SMath output unit

#number dCeil #UoM #number UoM : #number #UoM / 0 ≥ #number #UoM / trunc 1 + ( #UoM * #number #UoM / trunc #UoM * if 2 1 line :

returns the next highest integer value by rounding up "#number", according to the ouput unit "#unit"

#number #unit uCeil #number #unit / 0 ≥ #number #unit / trunc 1 + ( #unit * #number #unit / trunc #unit * if : 567840.667895 Pa *

unit of measurement:

 1 Pa *

order of magnitude:

as defined: trunc(log10(A))

estimate: round(log10(A))

order of magnitude

 5 6 1 10 5 ^ * 1 10 6 ^ *

power of ten

round() with defined output units:

 567840.667895 Pa * 567840.67 Pa * kPa 567.840667895 kPa 567.84 MPa 0.5678406679 MPa 0.57

round() with default output units:

 567840.667895 Pa * 567840.67 Pa * kPa 567.840667895 kPa 567.84067 MPa 0.5678406679 MPa 0.56784067

floor() and ceil() with defined output units:

 567840 Pa * 567841 Pa * 567841 Pa * - 567840 Pa * - kPa 567 kPa 568 kPa 568 - kPa 567 -

floor() and ceil() with default output units:

 567840 Pa * 567841 Pa * 567841 Pa * - 567840 Pa * - kPa 567.84 kPa 567.841 kPa 567.841 - kPa 567.84 -