#include <GUIConstants.au3>
#include <Misc.au3>
#include <Array.au3>
#include <String.au3>
#include <Math.au3>

;From here on is the math stuff part

Global $iota = (Round( -1 ^ 1/2, 10))
Global $pi = (Round(22/7, 3))

;This func does the multiplication
Func _Multiply ($entermultiplyno1, $entermultiplyno2)
	If Not IsNumber($entermultiplyno1) Then
		Return (0)
	ElseIf Not IsNumber($entermultiplyno2) Then
		Return (0)
	Else
		Return ($entermultiplyno1*$entermultiplyno2)
	EndIf
EndFunc

;This func does the division
Func _Divide ($enterdivideno1, $enterdivideno2)
	If Not IsNumber($enterdivideno1) Then
		Return (0)
	ElseIf Not IsNumber($enterdivideno2) Then
		Return (0)
	Else
		Return ($enterdivideno1/$enterdivideno2)
	EndIf
EndFunc

;This func does the addition
Func _Add ($enteraddno1, $enteraddno2)
	If Not IsNumber($enteraddno1) Then
		Return (0)
	ElseIf Not IsNumber($enteraddno2) Then
		Return (0)
	Else
		Return ($enteraddno1+$enteraddno2)
	EndIf
EndFunc

;This func does the subtraction
Func _Subtract ($entersubtractno1, $entersubtractno2)
	If Not IsNumber($entersubtractno1) Then
		Return (0)
	ElseIf Not IsNumber($entersubtractno2) Then
		Return (0)
	Else
		Return ($entersubtractno1-$entersubtractno2)
	EndIf
EndFunc

;This func does the roots
Func _Root ($rootnumber, $root = 2)
	If Not IsNumber($rootnumber) Then
		Return (0)
	ElseIf Not IsNumber($root) Then
		Return (0)
	Else
		Return ($rootnumber ^ (1/$root))
	EndIf
EndFunc

;This func does the powers
Func _Power ($powernumber, $power = 2)
	If Not IsNumber($powernumber) Then
		Return (0)
	ElseIf Not IsNumber($power) Then
		Return (0)
	Else
		Return ($powernumber ^ $power)
	EndIf
EndFunc

;This func makes the entered nuber negative
Func _Negative ($negativenumber)
	If Not IsNumber($negativenumber) Then
		Return (0)
	Else
		If $negativenumber < 0 Then
			Return $negativenumber
		ElseIf $negativenumber > 0 Then
			Return (-1 * $negativenumber)
		ElseIf $negativenumber = 0 Then
			Return (0)
		Else
			Return (0)
		EndIf
	EndIf
EndFunc

Func _AbsoluteValue ($positivenumber)
	If Not IsNumber($positivenumber) Then
		Return (0)
	Else
		If $positivenumber > 0 Then
			Return $positivenumber
		ElseIf $positivenumber < 0 Then
			Return (-1 * $positivenumber)
		ElseIf $positivenumber = 0 Then
			Return (0)
		Else
			Return (0)
		EndIf
	EndIf
EndFunc

;This func calculates the surface area of various figures
Func _SurfaceArea($flag, $length = "n", $width = "n", $height = "n", $radius = "n")
	Switch $flag
		Case 0;Cube
			If Not IsNumber($length) Then
				Return (0)
			ElseIf Not IsNumber($width) Then
				Return (0)
			Else
				Return (6 * ($length * $width))
			EndIf
		Case 1;Cylinder
			If Not IsNumber($radius) Then
				Return (0)
			Else
				$circle = 2 * ((_Power($radius)) * $pi))
				$around = (2 * ($radius * $pi))
				Return ($circle+$around)
			EndIf
		Case 2;Sphere
			If Not IsNumber($radius) Then
				Return (0)
			Else
				Return (_Power($radius, 3) * $pi * 4)
			EndIf
		Case 3;Pyramid
			If Not IsNumber($length) Then
				Return (0)
			ElseIf Not IsNumber($width) Then
				Return (0)
			ElseIf Not IsNumber($height) Then
				Return (0)
			Else
				$base = $length*$width
				$trianglearea1 = ($length * $height)
				$trianglearea2 = ($width * $height)
				Return ($base + $trianglearea1 + $trianglearea2)
			EndIf
		Case Else
			Return (0)
	EndSwitch
EndFunc

;There is work to be done from here onwards

;This func calculates the volume of various figures
Func _Volume($flag, $length = "n", $width = "n", $height = "n", $radius = "n")
	Switch $flag
		Case 0;Cuboid
			If Not IsNumber($length) Then
				Return (0)
			ElseIf Not IsNumber ($width) Then
				Return (0)
			ElseIf Not IsNumber ($height) Then
				Return (0)
			Else
				Return ($length * $width * $height)
			EndIf
		Case 1;Cylinder
			If Not IsNumber($radius) Then
				Return (0)
			ElseIf Not IsNumber($height) Then
				Return (0)
			Else
				$circle = 2 * ((_Power($radius)) * $pi))
				Return ($circle * $height)
			EndIf
		Case 2;Sphere
			If Not IsNumber($radius) Then
				Return (0)
			Else
				Return (_Power($radius, 3) * $pi * (4/3))
			EndIf
		Case 3;PyramidIf Not IsNumber($length) Then
			If Not IsNumber($length) Then
				Return (0)
			ElseIf Not IsNumber ($width) Then
				Return (0)
			ElseIf Not IsNumber ($height) Then
				Return (0)
			Else
				$base = $length*$width
				Return (($base * $height)/3)
			EndIf
		Case Else
			Return (0)
	EndSwitch
EndFunc

;This func calculates the area of various figures
Func _Area($flag, $length = "n", $width = "n", $radius = "n", $leg1 = "n", $leg2 = "n", $base = "n")
	Switch $flag
		Case 0;Rectangle
			If Not IsNumber($length) Then
				Return (0)
			ElseIf Not IsNumber ($width) Then
				Return (0)
			Else
				Return ($length * $width)
			EndIf
		Case 1;Right Triangle
			If Not IsNumber($leg1) Then
				Return (0)
			ElseIf Not IsNumber ($leg2) Then
				Return (0)
			Else
				Return ($leg1 * $leg2)
			EndIf
		Case 2;Other Triangles
			If Not IsNumber($base) Then
				Return (0)
			ElseIf Not IsNumber ($height) Then
				Return (0)
			Else
				Return ($base * $height)
			EndIf
		Case 3;Circle
			If Not IsNumber($radius) Then
				Return (0)
			Else
				Return ((_Power ($radius)) * $pi)
			EndIf
		Case Else
			Return (0)
	EndSwitch
EndFunc

;This func calculates the perimeter of various figures
Func _Perimeter($flag, $length = "n", $width = "n", $radius = "n", $side1 = "n", $side2 = "n", $side3 = "n")
	Switch $flag
		Case 0;Rectangle
			If Not IsNumber($length) Then
				Return (0)
			ElseIf Not IsNumber ($width) Then
				Return (0)
			Else
				Return (2 * ($length + $width))
			EndIf
		Case 1;Triangles
			If Not IsNumber($leg1) Then
				Return (0)
			ElseIf Not IsNumber ($leg2) Then
				Return (0)
			ElseIf Not IsNumber($leg3)
				Return (0)
			Else
				Return ($side1 + $side2 + $side3)
			EndIf
		Case 2;Circle
			If Not IsNumber($radius) Then
				Return (0)
			Else
				Return (2 * $radius * $pi)
			EndIf
		Case Else
			Return 0
	EndSwitch
EndFunc