Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

EngNotation ( number ; digits )

Express a number in engineering notation

  Average rating: 4.3 (27 votes) Log in to vote

Paul Smith unafilliated http://facebook.com/psmithw

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* EngNotation ( number; digits ) EngNotation ( -.0000400001195 ; 8 ) >>> -40.000120 μ Uses standard engineering symbols from fempto to peta and "e" notation for values outside those limits. Expresses all values in powers of 10^3, so ".4" would be "400 m". rounds to the number of digits passes to the function. Non-recursive due to the use of the logarithm function. milli micro nano pico fempto kilo mega giga tera peta engineering thousands large numbers rounding */ Let ( [ f1 = number ; f2 = digits /* sign */ ; n0 = Abs ( f1 ) ; s1 = If ( f1 < 0 ; "-" ; "" ) /* magnitudes */ ; m1 = If ( n0 ; Log ( n0 ) ; 0 ) ; m2 = Div ( m1 ; 3 ) ; m3 = m2 * 3 ; m4 = Mod ( m1 ; 3 ) /* place values */ ; p1 = f2 - ( Div ( m4 ; 1 ) + 1 ) /* minimized number */ ; n1 = Round ( SetPrecision ( Abs ( f1 ) / ( 10 ^ m3 ) ; Abs ( m1 ) + 3 ) ; p1 ) ; n2 = GetAsBoolean ( PatternCount ( n1 ; "." ) ) ; n3 = f2 + n2 - Length ( n1 ) ; n4 = Right ( SerialIncrement ( "0" ; SetPrecision ( 10 ^ ( n3 ) ; n3 + 3 ) ) ; n3 ) ; n5 = n1 & If ( n3 > 0 ; If ( not n2 ; "." ) & n4 ) /* exponential */ ; e0 = Abs ( m2 ) ; e1 = If ( m2 < 0 ; GetValue ( " m¶ μ¶ n¶ p¶ f" ; e0 ) ; GetValue ( " K¶ M¶ G¶ T¶ P" ; e0 ) ) ; e2 = "e" & If ( Abs ( m3 ) = m3 ; "+" ) & ( m3 ) ; e3 = If ( Abs ( m2 ) > 5 ; e2 & " " ; e1 ) /* calculate */ ; r0 = s1 & n5 & e3 ; r1 = s1 & n5 & e2 ; r2 = If ( IsValidExpression ( r1 ) ; r0 ; "?" ) ] ; r2 ) Click to copy

Uses standard engineering symbols from fempto to peta and "e" notation for values outside those limits.

Expresses all values in powers of 10^3, so ".4" would be "400 m". rounds to the number of digits passes to the function.

Non-recursive due to the use of the logarithm function.

 

Comments

		comment, VR Feb 21, 2015
Couldn't this be simpler? Compare: http://www.briandunning.com/cf/220

		Paul Smith, NC Feb 24, 2015
/* Edit: some bug fixes for number rounding and refactored code for readability */ /* EngNotation ( number; digits ) EngNotation ( -.0000400001195 ; 8 ) >>> -40.000120 μ Uses standard engineering symbols from fempto to peta and "e" notation for values outside those limits. Non-recursive due to the use of the logarithm function. */ Let ( [ numAbs = Abs ( number ) ; numSign = If ( number < 0 ; "-" ; "" ) ; digitsPower = If ( numAbs ; Floor ( Log ( numAbs ) ) ; 0 ) ; digits10e3s = Div ( digitsPower ; 3 ) ; digits10e1s = digits10e3s * 3 ; roundPlaces = ( digits + digits10e1s ) - ( digitsPower + 1 ) ; precisePlaces = 3 + digits - digitsPower ; numTerm = Round ( SetPrecision ( numAbs / ( 10 ^ digits10e1s ) ; preciseplaces ) ; roundplaces ) ; zerosAdd = digits + GetAsBoolean ( PatternCount ( numTerm ; "." ) ) - Length ( numTerm ) ; zerosExtra = Right ( SerialIncrement ( "0" ; SetPrecision ( 10 ^ ( zerosAdd ) ; zerosAdd + 1 ) ) ; zerosAdd ) ; outTerm = numTerm & If ( zerosAdd > 0 ; If ( not GetAsBoolean ( PatternCount ( numTerm ; "." ) ) ; "." ) & zerosExtra ) ; ePower = "e" & If ( Abs ( digits10e1s ) = digits10e1s ; "+" ) & ( digits10e1s ) ; eSymbol = GetValue ( If ( digits10e3s < 0 ; " m¶ μ¶ n¶ p¶ f" ; " K¶ M¶ G¶ T¶ P" ) ; Abs ( digits10e3s ) ) ; outSymbol = If ( Abs ( digits10e3s ) > 5 ; ePower & " " ; eSymbol ) ] ; If ( IsValidExpression ( numSign & outTerm & ePower ) ; numSign & outTerm & outSymbol ; "?" ) )

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: