# RPN Calculator

## Recommended Posts

Reverse Polish Notation (RPN) is a math notation in which each operator follows its two operands. I own an HP 48G calculator which uses RPN, and when I tried to use the windows calculator I had so much trouble that I wrote my own calculator. Basically, it has a stack of numbers; any time an operator is pressed, that operation is carried out immediately on the two items on the bottom of the stack, or the stack and the input if there is anything in the input. This method reduces the requirements for parenthesis and makes calculating equations/functions relatively easy: instead of

(sqrt(5+8))/(8*9)

you would enter

5 ENTER 8 + SQRT 8 ENTER 9 * /

Practical implications

calc2.au3

Edited by darthwhatever

[font=arial, sans-serif]How is education supposed to make me feel smarter? Besides, every time I learn something new, it pushes some old stuff out of my brain. Remember when I took that home winemaking course, and I forgot how to drive?[/font][font=arial, sans-serif]<div>This is how you annoy a web developer.</span>[/font]

##### Share on other sites

Whoops. I was going to add the option for the user to add functions, but decided that was too much of a pain. Attached file is updated.

[font=arial, sans-serif]How is education supposed to make me feel smarter? Besides, every time I learn something new, it pushes some old stuff out of my brain. Remember when I took that home winemaking course, and I forgot how to drive?[/font][font=arial, sans-serif]<div>This is how you annoy a web developer.</span>[/font]

##### Share on other sites
• 1 year later...

if you just type a minus:

---------------------------
AutoIt Error
---------------------------
Line 265  (File "calc2.au3"):

\$aStack[uBound(\$aStack) - 1] -= \$iLast
\$aStack[^ ERROR

---------------------------
OK
---------------------------

regards,
TheAutomator
Edited by TheAutomator
##### Share on other sites

Thank you for shareing this will help a lot as I am also trying to make a Math Evalulator for a project I am working on.

On Error Resume Pulling Hair Out.

## Create an account

Register a new account

• ### Similar Content

• it recomended to use the builten function
_DateDiff

hello autoit team
i made a simple function to help me get the difference between to date
i liked to share it with you
the paramatrs of this function
is firstdate and lastedate
the two params is as the following
year/month/day hours:minuts:seconds
here is the function

#include <date.au3> func _dateBetween(\$s_firstDate, \$s_lastDate = default) if not (StringRegExp(\$s_firstDate, "((\d{4})\/(\d{2})\/(\d{2})\s(\d{2})\:(\d{2})\:(\d{2}))", 0) = 1) then Return SetError(1, 0, 0) if \$s_lastDate = default then \$s_lastDate = @year & "/" & @mon & "/" & @mday & " " & @hour & ":" & @min & ":" & @sec if not (StringRegExp(\$s_lastDate, "((\d{4})\/(\d{2})\/(\d{2})\s(\d{2})\:(\d{2})\:(\d{2}))", 0) = 1) then Return SetError(2, 0, 0) local \$a_FirstSplitDate = StringSplit(StringRegExpReplace(\$s_firstDate, "((.*)\s(.*))", "\$2"), "/", 2) local \$a_FirstSplitTime = StringSplit(StringRegExpReplace(\$s_firstDate, "((.*)\s(.*))", "\$3"), ":", 2) local \$a_lastSplitDate = StringSplit(StringRegExpReplace(\$s_lastDate, "((.*)\s(.*))", "\$2"), "/", 2) local \$a_LastSplitTime = StringSplit(StringRegExpReplace(\$s_lastDate, "((.*)\s(.*))", "\$3"), ":", 2) local \$i_firstDateValue = _DateToDayValue(\$a_FirstSplitDate[0], \$a_FirstSplitDate[1], \$a_FirstSplitDate[2]) local \$i_LastDateValue = _DateToDayValue(\$a_LastSplitDate[0], \$a_LastSplitDate[1], \$a_LastSplitDate[2]) if \$i_firstDateValue > \$i_LastDateValue then Return SetError(3, 0, 0) local \$i_totalDays = \$i_LastDateValue-\$i_firstDateValue if not (\$i_totalDays = 0) then if \$a_FirstSplitTime[0] <= \$a_lastSplitTime[0] then \$i_totalDays += 1 \$a_lastSplitTime[0] -= \$a_FirstSplitTime[0] elseIf \$a_FirstSplitTime[0] > \$a_lastSplitTime[0] then if \$i_totalDays > 0 then \$i_totalDays -= 1 \$a_FirstSplitTime[0] -= \$a_lastSplitTime[0] endIf endIf endIf local \$i_totalYears = 0 if \$i_totalDays >= 365 then While \$i_totalDays >= 365 \$i_totalYears += 1 \$i_totalDays -= 365 Wend endIf local \$i_TotalMonths = 0 if \$i_totalDays >= 30 then While \$i_totalDays >= 30 \$i_totalMonths += 1 \$i_totalDays -= 30 Wend endIf local \$i_totalWeeks = 0 if \$i_totalDays >= 7 then While \$i_totalDays >= 7 \$i_totalWeeks += 1 \$i_totalDays -= 7 Wend endIf \$i_totalSeconds = (((\$a_FirstSplitTime[0]*60)*60)+(\$a_FirstSplitTime[1]*60)+(\$a_FirstSplitTime[2]))-(((\$a_lastSplitTime[0]*60)*60)+(\$a_lastSplitTime[1]*60)+(\$a_LastSplitTime[2])) local \$minus = "" if \$i_totalSeconds < 0 then \$minus = "-" \$i_totalSeconds = StringReplace(\$i_totalSeconds, "-", "") endIf local \$i_totalHours = 0 if \$i_totalSeconds >= 3600 then While \$i_totalSeconds >= 3600 \$i_totalHours += 1 \$i_totalSeconds -= 3600 Wend endIf local \$i_totalminuts = 0 if \$i_totalSeconds >= 60 then While \$i_totalSeconds >= 60 \$i_totalminuts += 1 \$i_totalSeconds -= 60 Wend endIf local \$a_arrayReturn[7] \$a_arrayReturn[0] = \$i_totalYears \$a_arrayReturn[1] = \$i_totalMonths \$a_arrayReturn[2] = \$i_totalWeeks \$a_arrayReturn[3] = \$i_totalDays \$a_arrayReturn[4] = \$minus & \$i_totalHours \$a_arrayReturn[5] = \$minus & \$i_totalminuts \$a_arrayReturn[6] = \$minus & \$i_totalSeconds return \$a_arrayReturn endFunc
here is an example

\$a_calc = _dateBetween("2015/02/12 23:00:05", "2030/02/12 23:25:50") msgBox(64, "result", StringFormat("the difference is : %i years and %i months and %i weeks and %i days and %i hours and %i minuts and %i seconds", \$a_calc[0], \$a_calc[1], \$a_calc[2], \$a_calc[3], \$a_calc[4], \$a_calc[5], \$a_calc[6]))
with my greetings
• By imitto
Hello all!
I use Autoit for a while, already made some automation for a TV station's master control room with it. I made a UDF to easily work with PAL timecode and time with milliseconds, convert, add or subtract them. Feel free to use it if you want something like this
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Res_Description=PAL Timecode Calculator UDF #AutoIt3Wrapper_Res_LegalCopyright=horvath.imre@gmail.com #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ; ; #FUNCTION# ; Name...........: _tcAdd ; Description....: Returns addition of two timecodes ; Syntax.........: _tcAdd(\$fTc1, fTc2 [, \$fFormat = "P"]) ; ; Parameters.....: \$fTc1 - First timecode in hh:mm:ss.ff format ; \$fTc2 - Second timecode in hh:mm:ss.ff format ; \$fFormat - Time base - "P" (default): PAL (25 fps) ; "M" : millisecond ; ; Return value...: Sum of the two timecode in the selected format Func _tcAdd(\$fTc1, \$fTc2, \$fFormat = "P", \$fHourFormat = 1) Local \$fMs1 = _tcToMs(\$fTc1) Local \$fMs2 = _tcToMs(\$fTc2) Local \$fSumMs = \$fMs1 + \$fMs2 Return _msToTc(\$fSumMs, \$fFormat, \$fHourFormat) EndFunc ; #FUNCTION# ; Name...........: _tcsSub ; Description....: Returns addition of two timecodes ; Syntax.........: _tcSub(\$fTc1, fTc2 [, \$fFormat = "P"]) ; ; Parameters.....: \$fTc1 - First timecode in hh:mm:ss.ff format ; \$fTc2 - Second timecode in hh:mm:ss.ff format ; \$fFormat - Time base - "P" (default): PAL (25 fps) ; "M" : millisecond ; ; Return value...: Subtract \$fTc2 from \$fTc1 in the source format Func _tcSub(\$fTc1, \$fTc2, \$fFormat = "P") Local \$fMs1 = _tcToMs(\$fTc1) Local \$fMs2 = _tcToMs(\$fTc2) Local \$fSumMs = \$fMs1 - \$fMs2 If \$fSumMs < 0 Then \$fSumMs = _tcToMs("24:00:00.00") - (\$fSumMs * -1) EndIf Return _msToTc(\$fSumMs, \$fFormat) EndFunc ; #FUNCTION# ; Name...........: _tcToMs ; Description....: Returns timecode converted to total milliseconds ; Syntax.........: _tcToMs(\$fTc) ; ; Parameters.....: \$fTc - Timecode in hh:mm:ss.ff or hh:mm:ss:xxx format, where xxx are milliseconds ; ; Return value...: Milliseconds as an integer value Func _tcToMs(\$fTc) Local \$fTemp = StringSplit(\$fTc, ":.") Local \$fChr = StringLen(\$fTemp[4]) Switch \$fChr Case 2 Return (\$fTemp[4] * 40) + (\$fTemp[3] * 1000) + (\$fTemp[2] * 60000) + (\$fTemp[1] * 3600000) Case 3 Return (\$fTemp[4]) + (\$fTemp[3] * 1000) + (\$fTemp[2] * 60000) + (\$fTemp[1] * 3600000) EndSwitch EndFunc ; #FUNCTION# ; Name...........: _msToTc ; Description....: Converts total milliseconds to timecode ; Syntax.........: _msToTc(\$fIn, \$fFormat = "P", \$fHourFormat = 1) ; ; Parameters.....: \$fIn - Time in milliseconds ; \$fFormat - Output format "P": PAL TC (default) ; "M": hh:mm:ss.xxx where xxx are milliseconds ; \$fHourFormat - Hour format "1": max. value is 23, then starts from 0 (default) ; "0": hours can be more then 23 ; ; Return value...: Timecode as string in the selected format Func _msToTc(\$fIn, \$fFormat = "P", \$fHourFormat = 1) Switch \$fFormat Case "P" Local \$fFr = StringFormat("%02i", (StringRight(\$fIn, 3) - Mod(StringRight(\$fIn, 3), 40)) / 40) Case "M" Local \$fFr = StringFormat("%03i", StringRight(\$fIn, 3)) EndSwitch \$fIn = StringTrimRight(\$fIn, 3) Local \$fSec = StringFormat("%02i", Mod(\$fIn, 60)) \$fIn -= \$fSec Local \$fMinTot = \$fIn / 60 Local \$fMin = StringFormat("%02i", Mod(\$fMinTot, 60)) \$fIn -= \$fMin*60 Local \$fHourTot = \$fIn / 60 / 60 Switch \$fHourFormat Case 1 \$fHour = StringFormat("%02i", Mod(\$fHourTot, 24)) Case 0 \$fHour = StringFormat("%02i", \$fHourTot) EndSwitch Return(\$fHour & ":" & \$fMin & ":" & \$fSec & "." & \$fFr) EndFunc ; #FUNCTION# ; Name...........: _tcFormatChange ; Description....: Toggle TC format ; Syntax.........: _tcFormatChange(\$fTc) ; ; Parameters.....: \$fTc - Timecode in hh:mm:ss.ff or hh:mm:ss:xxx format, where xxx are milliseconds ; ; Return value...: PAL timecode or time with milliseconds as string, depends on input Func _tcFormatChange(\$fTc) Local \$fTemp = StringSplit(\$fTc, ":.") Local \$fChr = StringLen(\$fTemp[4]) Switch \$fChr Case 2 Return \$fTemp[1]&":"&\$fTemp[2]&":"&\$fTemp[3]&"."&StringFormat("%03i", \$fTemp[4]*40) Case 3 Return \$fTemp[1]&":"&\$fTemp[2]&":"&\$fTemp[3]&"."&StringFormat("%02i", (\$fTemp[4]-Mod(\$fTemp[4], 40))/40) EndSwitch EndFunc And the example script:
TC_CALC_example.au3
_PAL_TC_Calc.au3

• hi everyone!
I need some help with my rpn calculator.
I first translated it from vbscript to autoitscript and that's when i stumbled on problem one:
(46) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
\$Stack[ubound(\$Stack)] = \$Item
^ ERROR
After that (and i know this from testing it as a vbscript) it can't work with negative numbers:
"1 - - 2" to Reverse Polish notation = "1 - 2 -" gives me the build in error...

Can you guy's help me with my code pleas?
Func Print(\$what,\$er = 0) \$t = '' if \$err <> 0 then \$t = 'ERROR!' MsgBox(\$er,\$st,\$what) EndFunc Func RPN(\$Tokenarray) Local \$Stack = [] Local \$Result Local \$Operator_B Local \$Operator_A For \$Token = 0 To Ubound(\$Tokenarray) If Isoperator(\$Tokenarray[\$Token]) Then \$Operator_B = Pop(\$Stack) \$Operator_A = Pop(\$Stack) If \$Operator_A = "" Then Print("The user has not input sufficient values in the expression.",16) exit EndIf Switch \$Tokenarray[\$Token] Case "+" \$Result = Number(\$Operator_A,3) + Number(\$Operator_B,3) Case "-" \$Result = Number(\$Operator_A,3) - Number(\$Operator_B,3) Case "*" \$Result = Number(\$Operator_A,3) * Number(\$Operator_B,3) Case "/" \$Result = Number(\$Operator_A,3) / Number(\$Operator_B,3) Case "^" \$Result = Number(\$Operator_A,3) ^ Number(\$Operator_B,3) EndSwitch Push(\$Result,\$Stack) Else Push(\$Tokenarray[\$Token],\$Stack) EndIf Next If Ubound(\$Stack) > 1 Then Print("The user input has too many values.",16) Exit EndIf Return pop(\$Stack) EndFunc Func Push(\$Item, Byref \$Stack) If Ubound(\$Stack) > -1 Then Redim \$Stack[Ubound(\$Stack) + 1] \$Stack[Ubound(\$Stack)] = \$Item Else Local \$Stack = [\$Item] EndIf EndFunc Func Pop(\$Stack) \$pop = "" If Ubound(\$Stack) > -1 Then \$Pop = \$Stack[Ubound(\$Stack)] Redim \$Stack[Ubound(\$Stack) - 1] EndIf Return \$pop EndFunc Func Peek(\$Stack) \$peek = "" If Ubound(\$Stack) > -1 Then \$Peek = \$Stack(Ubound(\$Stack)) EndIf Return \$peek EndFunc Func Isoperator(\$Operator) Return StringInstr("+-*/^&<=>", \$Operator) <> 0 And StringLen(\$Operator) = 1 EndFunc Func Precedence(\$Operator) If Isoperator(\$Operator) Then Switch \$Operator case "^" Return 4 case "*","/" Return 3 case "+","-" Return 2 case "&" Return 1 case "<","=",">" Return 0 EndSwitch EndIf EndFunc ;################################################################################################## ; (4 - -5) = (4|-|-|5) = (4|-|5|-) ; input tokens rpn Global \$calculate_this = ["4","-","5","-"] Print(rpn(\$calculate_this)) thanks in advance ,
TheAutomator
• By guinness
I initially created this to improve my C# understanding and what a learning curve it was. So I decided to directly translate the C# source code I had into AutoIt as a way of showing off the >Stack UDF (which you will need). Of course it can be changed not to use the Stack UDF, but why reinvent the wheel and make life even more difficult.

If you don't understand RPN or the Shunting-Yard algorithm, then please look at the links below.

Sources: https://en.wikipedia.org/wiki/Shunting_yard_algorithm, https://en.wikipedia.org/wiki/Reverse_Polish_notation and http://www.slideshare.net/grahamwell/shunting-yard

#include <StringConstants.au3> #include "Stack.au3" Example() Func Example() ; Create postfix notation (RPN) from infix notation. ConsoleWrite(StringFormat('%s: == %s', '3 + 4 * 2 / ( 1 - 5 ) ^ 2 ^ 3', ShuntingYard_Parse('3 + 4 * 2 / ( 1 - 5 ) ^ 2 ^ 3')) & @CRLF) ConsoleWrite('Reference: 3 4 2 * 1 5 - 2 3 ^ ^ / +' & @CRLF) ConsoleWrite(@CRLF); A new line. ConsoleWrite(StringFormat('%s: == %s', '3 + 4', ShuntingYard_Parse('3 + 4')) & @CRLF) ConsoleWrite('Reference: 3 4 +' & @CRLF) ConsoleWrite(@CRLF); A new line. ; Expression from: http://www.slideshare.net/grahamwell/shunting-yard. ConsoleWrite(StringFormat('%s: == %s', '2 + (3 * (8 - 4))', ShuntingYard_Parse('2 + (3 * (8 - 4))')) & @CRLF) ConsoleWrite('Reference: 2 3 8 4 - * +' & @CRLF) ConsoleWrite(@CRLF); A new line. ; Calculate postfix notation (RPN) examples. ConsoleWrite('3 4 + == ' & ShuntingYard_Calculate('3 4 +') & @CRLF) ConsoleWrite('3 4 2 * 1 5 - 2 3 ^ ^ / + == ' & ShuntingYard_Calculate('3 4 2 * 1 5 - 2 3 ^ ^ / +') & @CRLF) ConsoleWrite('2 3 8 4 - * + == ' & ShuntingYard_Calculate('2 3 8 4 - * +') & @CRLF) EndFunc ;==>Example Func ShuntingYard_Calculate(\$sExpression) Local \$aChar = StringSplit(\$sExpression, '', \$STR_NOCOUNT), _ \$hStack = Stack(), _ ; Create a stack to push/pop to. \$iNumber1 = 0, \$iNumber2 = 2, _ \$sDigits = '', _ ; Hold string digits e.g. in case there are numbers greater than 1 digit long. \$sToken = '' ; Token. For \$i = 0 To UBound(\$aChar) - 1 \$sToken = \$aChar[\$i] If StringIsDigit(\$sToken) Then \$sDigits &= \$sToken ElseIf __ShuntingYard_IsOperator(\$sToken) Then \$iNumber2 = Stack_Pop(\$hStack) \$iNumber1 = Stack_Pop(\$hStack) Stack_Push(\$hStack, __ShuntingYard_Eval(\$iNumber1, \$iNumber2, \$sToken)) ElseIf StringIsSpace(\$sToken) And Not (\$sDigits == '') Then If StringIsInt(\$sDigits) Or StringIsFloat(\$sDigits) Then \$iNumber1 = Number(\$sDigits) Stack_Push(\$hStack, \$iNumber1) EndIf \$sDigits = '' \$iNumber1 = 0 EndIf Next Return Stack_Pop(\$hStack) EndFunc ;==>ShuntingYard_Calculate Func ShuntingYard_Parse(\$sExpression) Local \$aChar = StringSplit(\$sExpression, '', \$STR_NOCOUNT), _ \$bIsBracket = False, _ ; Is parenthesis. \$hStack = Stack(), _ ; Create a stack to push/pop to. \$sOutput, _ ; Output string. \$sToken = '' ; Token. For \$i = 0 To UBound(\$aChar) - 1 \$sToken = \$aChar[\$i] If StringIsDigit(\$sToken) Then ; If a digit add to the output string. \$sOutput &= \$sToken ElseIf __ShuntingYard_IsOperator(\$sToken) Then ; Check if a valid token. If __ShuntingYard_IsBracket(\$sToken) Then \$bIsBracket = \$sToken == '(' ; True if open bracket else False if closing. If \$bIsBracket Then ; Open bracket. Stack_Push(\$hStack, \$sToken) Else ; Closing bracket. \$sOutput &= ' ' Do ; Repeat until '(' is found. \$sOutput &= Stack_Pop(\$hStack) Until (Stack_Peek(\$hStack) == '(') Stack_Pop(\$hStack) EndIf Else \$sOutput &= " " ; Workaround for spacing and certain expressions. If Stack_Count(\$hStack) > 0 And __ShuntingYard_HasHigherPrecedence(\$sToken, Stack_Peek(\$hStack)) Then \$sOutput &= Stack_Pop(\$hStack) Stack_Push(\$hStack, \$sToken) \$sOutput &= " " ; Workaround for spacing and certain expressions. Else Stack_Push(\$hStack, \$sToken) EndIf EndIf EndIf Next If Stack_Count(\$hStack) > 0 Then ; Append what is left on the stack in reverse order. \$sOutput &= ' ' While (Stack_Count(\$hStack) > 0) \$sOutput &= Stack_Pop(\$hStack) & ' ' WEnd EndIf Return \$sOutput EndFunc ;==>ShuntingYard_Parse Func __ShuntingYard_Eval(\$iNumber1, \$iNumber2, \$sChar) Switch \$sChar Case '+' Return \$iNumber1 + \$iNumber2 Case '-', ChrW(8722) ; Char 8722 is - but the unicode char code Return \$iNumber1 - \$iNumber2 Case '*' Return \$iNumber1 * \$iNumber2 Case '/' Return \$iNumber1 / \$iNumber2 Case '^' Return \$iNumber1 ^ \$iNumber2 Case Else Return \$iNumber1 EndSwitch EndFunc ;==>__ShuntingYard_Eval Func __ShuntingYard_HasHigherPrecedence(\$sChar1, \$sChar2) Local \$iChar1 = __ShuntingYard_PrecendenceValue(\$sChar1), _ \$iChar2 = __ShuntingYard_PrecendenceValue(\$sChar2) If \$iChar1 = 0 And \$iChar2 = 0 Then Return False EndIf Return \$iChar1 <= \$iChar2 And Not (\$sChar1 == '^') EndFunc ;==>__ShuntingYard_HasHigherPrecedence Func __ShuntingYard_IsBracket(\$sChar) Return \$sChar == '(' Or \$sChar == ')' EndFunc ;==>__ShuntingYard_IsBracket Func __ShuntingYard_IsOperator(\$sChar) Return \$sChar == '+' Or \$sChar == '-' Or \$sChar == ChrW(8722) Or \$sChar == '*' Or \$sChar == '/' Or \$sChar == '^' Or \$sChar == '(' Or \$sChar == ')'; Char 8722 is - but the unicode char code. EndFunc ;==>__ShuntingYard_IsOperator Func __ShuntingYard_PrecendenceValue(\$sChar) Switch \$sChar Case '+', '-' Return 2 Case '*', '/' Return 3 Case '^' Return 4 Case Else Return 0 EndSwitch EndFunc ;==>__ShuntingYard_PrecendenceValue
• By careca
Ohm's Law Calculator, clear the field you need to calculate, power may give out zero, if both fields of power and amps are empty, clear power, and try again.
×

• Wiki

• Back

• #### Beta

• Git
• FAQ
×
• Create New...