AutoHotkey Community

b := "a"
a := "1+2"
MsgBox % Eval(%b%)

MsgBox % Eval("-2+(-1+2)*3")

Eval(x) {   ; Evaluate arithmetic expression with numbers, + - / * ( )
   Return Eval#(RegExReplace(x,"-","#")) ; # = subtraction, to distinguish from sign
}

Eval#(x) {  ; Evaluate expression with numbers, + #(subtract) / * ( ). Recurse into (..)
   Return RegExMatch(x,"(.*)\(([^\(\)]+)\)(.*)",y) ? Eval#(y1 . Eval@(y2) . y3) : Eval@(x)
}

Eval@(x) {  ; Evaluate expression with numbers, + #(subtract) / *
   RegExMatch(x,"(.*)(\+|#)(.*)",y)    ; last + or -
   IfEqual y2,+, Return Eval@(y1) + Eval@(y3)
   IfEqual y2,#, Return Eval@(y1) - Eval@(y3)

   RegExMatch(x,"(.*)(\*|/)(.*)",y)    ; last * or /
   IfEqual y2,*, Return Eval@(y1) * Eval@(y3)
   IfEqual y2,/, Return Eval@(y1) / Eval@(y3)

   Return x ? x : 0                    ; empty expression: 0, number: unchanged
}

#include MathMONSTER (Core) by Laszlo.ahk

$^c::
    if gvCtrlCTicks
    {
        if (( A_TickCount - gvCtrlCTicks ) < 501 )
        {
            MonsterClip := ClipBoard
            if ( SubStr( MonsterClip, 0, 1) = "=" )
            {
                MonsterEval := Eval( SubStr(MonsterClip, 1, -1) )
                a := MonsterClip . MonsterEval
            }
            else
            {
                MonsterEval := Eval( MonsterClip )
                a := MonsterEval
            }
            ClipBoard := a
            caretx := A_CaretX
            carety := A_CaretY
            if ( carety > 150 )
                carety -= 25
            else
                carety += 20
            ToolTip, %a%,caretx,carety,2
            SetTimer, RemoveToolTipMonster, 1100
        }
        else
        {
            gvCtrlCTicks := A_TickCount
            Send ^c
        }
    }
    else
    {
        gvCtrlCTicks := A_TickCount
        Send ^c
    }
Return

RemoveToolTipMonster:
SetTimer, RemoveToolTipMonster, Off
ToolTip,,,,2
return

   If RegExMatch(x, "(\S*?)\s*:=\s*(.*)", y) {
      y := "x" . y1                    ; user vars internally start with x to avoid name conflicts
      Return %y% := Eval1(y2)
   }

   x := RegExReplace(x,"([a-z_A-Z]\w*)([^\w'»’]|$)","%x$1%$2") ; VAR -> %xVAR%

   If RegExMatch(x, "(\S*?)\s*:=\s*(.*)", y) {
      y := "mmx" . y1                    ; user vars internally start with x to avoid name conflicts
      Return %y% := Eval1(y2)
   }

   x := RegExReplace(x,"([a-z_A-Z]\w*)([^\w'»’]|$)","%mmx$1%$2") ; VAR -> %xVAR%

Note: To convert a radians value to degrees, multiply it by 180/pi (approximately 57.29578). To convert a degrees value to radians, multiply it by pi/180 (approximately 0.01745329252). The value of pi (approximately 3.141592653589793) is 4 times the arctangent of 1.

deg := 57.295779513082321
MsgBox % sin(30/deg)   ; sine of 30 degrees
MsgBox % deg*asin(0.5) ; arc sine of 0.5 in degrees

sin(30/180*pi)
180/pi*asin(0.5)

MsgBox % Eval("$16 5.85")