2963bad7-89b0-4961-8521-9a874ee4c997 5 Carlos Barradas Grajales 4 5 false false 0 decimal
&[DATE] &[TIME] - &[FILENAME]
&[PAGENUM] / &[COUNT]
 <content> <p>Snippet: Operations with units</p> </content>

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 try 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 : 1 1 0.0033 m 3 ^ s / * 1 1 1 0 ¬ 1