A fixed point basic calculator for DASH. Post: 303027179

Sponsored Content

Operating Systems OS X (Apple) A fixed point basic calculator for DASH. Post 303027179 by Corona688 on Monday 10th of December 2018 12:39:51 PM

12-10-2018

Registered User

There was a bug in my version above. Arithmetic involving negative numbers worked, the edge case was the display of them. One 'edge' was that I completely forgot to display the sign, at all, ever. Still trying to fix the 0.073 problem.

Code:

DP=3
MOD=1000

function ftofix {       # ftofix OUTPUTNAME "3.14"
        _VAR="$1"
        _OLDIFS="$IFS"
        IFS="."
                set -- $2 # Set $1, $2, etc, splitting on "."
        IFS="$_OLDIFS"
        local FRAC=$2
        local _N=$1

        [[ "${_N}" =  "0" ]] && _N=""
        [[ "${_N}" = "-0" ]] && _N="-"

        for((X=0; X<DP; X++))
        do
                D="${FRAC:$X:1}"
                [[ -z "$D" ]] && D="0"
                _N="${_N}$D" # Prepend digits to N
        done
        read $_VAR <<EOF
${_N}
EOF

}

function fixtof {
        _VAR="$1"
        _N="$2"
        _SIGN=""
        ((_N<0)) && _SIGN="-" && ((_N=-_N))
        _S=`printf "%s%d.%0${DP}d" "${_SIGN}" $((_N/MOD)) $((_N%MOD))`
        read $_VAR <<EOF
$_S
EOF
}

AA="3.14159"
BB="-2.0"

ftofix A $AA
ftofix B $BB

# Multiplcation
fixtof CC $(((A*B)/MOD))
echo "$AA * $BB = $CC"

# Division
fixtof DD $(( (A*MOD)/B ))
echo "$AA / $BB = $DD"

# Addition and Subtraction
fixtof EE $(( B - A ))
echo "$BB - $AA = $EE"
fixtof FF $(( A - B ))
echo "$AA - $BB = $FF"
fixtof GG $(( A + B ))
echo "$AA + $BB = $GG"

Code:

3.14159 * -2.0 = -6.282
3.14159 / -2.0 = -1.570
-2.0 - 3.14159 = -5.141
3.14159 - -2.0 = 5.141
3.14159 + -2.0 = 1.141

Corona688

View Public Profile for Corona688

Visit Corona688's homepage!

Find all posts by Corona688

7 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Fibre connection Point to Point SUN

Anyone know of a guide or instructions for Solaris I got to configure a SBUS HBA to talk to a tape robot. I have done this on a switch but not point to point. just going HBA >>>>> TAPE Fibre simple two nodes Kie

2. UNIX for Dummies Questions & Answers

dash after ampersant

Hi! I'm new in these forums and more or less new with Unix. So... here is the question: does anyone know where is redirected the output of a command when you put >&- after it? Does it means any standard file descriptor? Thanks!

3. Shell Programming and Scripting

How to perform a hexdump using dd from start point to end point?

hi, I would like to ask or is it possible to dump a hex using dd from starting point to end point just like the "xxd -s 512 -l 512 <bin file>" I know the redirect hexdump -C but i can't figure it out the combination options of dd. Hope someone can share their knowledge.. Thanks in...

4. Post Here to Contact Site Administrators and Moderators

How to sum up data in fixed width file with decimal point?

5. Shell Programming and Scripting

Fixed mount point for a USB cardreader (Raspberry Pi, UDEV)

Hey all! :) I'm trying to create a fixed mount point for an usb cardreader. I've found a script on a raspberry pi forum which does the following: usb stick is plugged in -> script checks the mount point for data -> script starts copying the files automatically -> script unmounts the...

6. UNIX for Beginners Questions & Answers

How to create a new mount point with 600GB and add 350 GBexisting mount point? IN AIX

How to create a new mount point with 600GB and add 350 GBexisting mount point Best if there step that i can follow or execute before i mount or add diskspace IN AIX Thanks

7. Shell Programming and Scripting

A dash to GOTO or a dash from GOTO, that is the question...

Well, guys I saw a question about GOTO for Python. So this gave me the inspiration to attempt a GOTO function for 'dash', (bash and ksh too). Machine: MBP OSX 10.14.3, default bash terminal, calling '#!/usr/local/bin/dash'... This is purely a fun project to see if it is possible in PURE...

LEARN ABOUT OPENSOLARIS

tk_getdash

Tk_GetDash(3TK) 					       Tk Library Procedures						   Tk_GetDash(3TK)

__________________________________________________________________________________________________________________________________________________

NAME

       Tk_GetDash - convert from string to valid dash structure.

SYNOPSIS

       #include <tk.h>

       int
       Tk_GetDash(interp, string, dashPtr)

ARGUMENTS

       Tcl_Interp	    *interp(in)
				      Interpreter to use for error reporting.

       CONST char *	    string(in)
				      Textual value to be converted.

       Tk_Dash	 *dashPtr   (out)     Points to place to store the dash pattern value converted from string.
_________________________________________________________________

DESCRIPTION

       These  procedure  parses  the  string and fills in the result in the Tk_Dash structure. The string can be a list of integers or a character
       string containing only [.,-_] or spaces. If all goes well, TCL_OK is returned. If string doesn't have the proper syntax then  TCL_ERROR	is
       returned, an error message is left in the interpreter's result, and nothing is stored at *dashPtr.

       The  first possible syntax is a list of integers. Each element represents the number of pixels of a line segment. Only the odd segments are
       drawn using the "outline" color. The other segments are drawn transparent.

       The second possible syntax is a character list containing only 5 possible characters [.,-_ ]. The space can be used to  enlarge	the  space
       between other line elements, and can not occur as the first posibion in the string. Some examples:
	   -dash .     = -dash {2 4}
	   -dash -     = -dash {6 4}
	   -dash -.    = -dash {6 4 2 4}
	   -dash -..   = -dash {6 4 2 4 2 4}
	   -dash {. }  = -dash {2 8}
	   -dash ,     = -dash {4 4}

       The  main  difference  of this syntax with the previous is that it it shape-conserving. This means that all values in the dash list will be
       multiplied by the line width before display. This assures that "." will always be displayed as a dot and "-" always as a dash regardless of
       the line width.

       On  systems where only a limited set of dash patterns, the dash pattern will be displayed as the most close dash pattern that is available.
       For example, on Windows only the first 4 of the above examples are available. The last 2 examples will  be  displayed  identically  as  the
       first one.

KEYWORDS

       dash, conversion

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +--------------------+-----------------+
       |  ATTRIBUTE TYPE    | ATTRIBUTE VALUE |
       +--------------------+-----------------+
       |Availability	    | SUNWTk	      |
       +--------------------+-----------------+
       |Interface Stability | Uncommitted     |
       +--------------------+-----------------+
NOTES

       Source for Tk is available on http://opensolaris.org.

Tk									8.3							   Tk_GetDash(3TK)