# Math!

## Recommended Posts

ok got bored soo made some scripts, soo all you school children heres something what would help u with ur homework...

i didnt but all the divide and stuff their pointless...

Squareroot

```\$x = InputBox("Square", "Number", "", "", 50, 50 , 100, 100)
\$y = sqrt(\$x)
MsgBox(0, "", \$x & " Squareroot is " & \$y)```

Percent calculator (May be wrong but who knows dont remember percent much)

```\$x = InputBox("Percent calculator", "Enter the time amount in MilliSeconds.", "", "", 50, 50, 100, 100)
\$y = Number(\$x*0.01)
MsgBox(0, "", " 1% of " & \$x &" is " & \$y)```

```\$x = InputBox("Square
Equation", "nr 1 ex: x+5x-3=0 nr 1 is 5 (reduced)", "", "", 50, 50 , 100, 100)
\$x2 = InputBox("Square
Equation", "nr 2 ex: x+5x-3=0 nr 2 is -3 (reduced)", "", "", 50, 50 , 100, 100)
\$t = number(\$x/2)
\$z = number(\$t*\$t-\$x2)
\$y = sqrt(\$z)
\$anwser = MsgBox(0, "Answer", & "X1 is " \$answer1 & " and X2 is " & \$answer2)```

Unreduced Square Equation

```\$x = InputBox("Square Equation", "nr 1 ex: 3x+5x-3=0 nr 1 is 3 (unreduced)", "", "", 50, 50 , 100, 100)
\$x2 = InputBox("Square Equation", "nr 2 ex: 3x+5x-3=0 nr 2 is 5 (unreduced)", "", "", 50, 50 , 100, 100)
\$x3 = InputBox("Square Equation", "nr 3 ex: 3x+5x-3=0 nr 2 is -3 (unreduced)", "", "", 50, 50 , 100, 100)
\$t = number(\$x2*\$x2)
\$z = number(\$t-(4*\$x*\$x3))
\$y = sqrt(\$z)
\$anwser = MsgBox(0, "Answer", & "X1 is " \$answer1 & " and X2 is " & \$answer2)```

well some much for that didnt have time to make more... if anyone got some more then ur free to post (And pls ppl dont start bitching why i post soo pointless things... its an example and u never know when u need them)

Creator Of Xtreme DevelopersPixel Pattern UDFTray GUI UDFMathssend & recive register scriptMouse Control via Webcam ##### Share on other sites

Wow - fresh post, 0 replies and already a 5 star rating - it must be really good ...

SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script

wannabe "Unbeatable" Tic-Tac-Toe

Paper-Scissor-Rock ... try to beat it anyway :)

##### Share on other sites

to find intersection points of circles

```func intcircles(\$x0,\$y0,\$r1,\$x1,\$y1,\$r2)
Local \$xp2, \$yp2, \$dx, \$dy, \$d
Local \$return

\$dx = \$x1 - \$x0;
\$dy = \$y1 - \$y0;

\$d = sqrt((\$x1 - \$x0)^2 + (\$y1 - \$y0)^2)

If (\$d > (\$r1 + \$r2)) or (\$d < (\$r1 - \$r2)) Then
SetError(1);unsaluveable
Return \$return
EndIf

;Determine the distance from point 0 to point 2.
\$a = (\$r1^2 - \$r2^2 + \$d^2) / (2.0 * \$d)

;Determine the coordinates of point 2. */
\$x2 = \$x0 + (\$dx * \$a/\$d);
\$y2 = \$y0 + (\$dy * \$a/\$d);

;Determine the distance from point 2 to either of the intersection points.
\$h = sqrt((\$r1*\$r1) - (\$a*\$a))

; Now determine the offsets of the intersection points from point 2.
\$rx = -\$dy * (\$h/\$d);
\$ry = \$dx * (\$h/\$d);

; Determine the absolute intersection points. ;
\$return = (\$x2 + \$rx);+(\$d/2)
\$return = (\$x2 - \$rx);+(\$d/2)
\$return = (\$y2 + \$ry);-(\$d/2)
\$return = (\$y2 - \$ry);-(\$d/2)

ConsoleWrite("\$a = " & \$a & @crlf)

ConsoleWrite("\$d = " & \$d & @crlf)
ConsoleWrite("\$dx = " & \$dx & @crlf)
ConsoleWrite("\$dy = " & \$dy & @crlf)

ConsoleWrite("\$return 1 = " & \$return & @crlf)
ConsoleWrite("\$return 2 = " & \$return & @crlf)
ConsoleWrite("\$return 3 = " & \$return & @crlf)
ConsoleWrite("\$return 4 = " & \$return & @crlf)

return \$return

EndFunc```

example

```#include <GUIConstantsEx.au3>
#include <GDIPLus.au3>
#include <WinAPI.au3>
#include <ScreenCapture.au3>

Global \$gui, \$pic, \$circ1x, \$circ1y, \$circ1r, \$s4, \$s5, \$circ2r, \$msg

\$gui = GUICreate("Theo test", 800, 600)
\$pic = GUICtrlCreatePic("", 0, 0, 600, 600)

GUICtrlCreateLabel("Circle 1 x", 630, 35)
\$circ1x = GUICtrlCreateSlider(600, 50, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 400)

GUICtrlCreateLabel("Circle 1 y", 630, 135)
\$circ1y = GUICtrlCreateSlider(600, 150, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 300)

\$circ1r = GUICtrlCreateSlider(600, 250, 200, 50)
GUICtrlSetLimit(-1, 300, 10)
GUICtrlSetData(-1, 75)

GUICtrlCreateLabel("Circle 1 x", 630, 335)
\$circ2x = GUICtrlCreateSlider(600, 350, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 300)

GUICtrlCreateLabel("Circle 2 y", 630, 435)
\$circ2y = GUICtrlCreateSlider(600, 450, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 200)

\$circ2r = GUICtrlCreateSlider(600, 550, 200, 50)
GUICtrlSetLimit(-1, 300, 10)
GUICtrlSetData(-1, 175)

GUISetState()

test(\$pic, 400, 300, 75, 300, 200, 175)

While 1
\$msg = GUIGetMsg()
Switch \$msg
Case \$GUI_EVENT_CLOSE
Exit
Case \$circ1x, \$circ1y, \$circ1r, \$circ2x, \$circ2y, \$circ2r
refresh()
EndSwitch
WEnd

Func refresh()
consolewrite("blarb" & @crlf)
Local \$c1x, \$c1y, \$c1r, \$c2x, \$c2y, \$c2r
\$image = test(\$pic, \$c1x, \$c1y, \$c1r, \$c2x, \$c2y, \$c2r)
return \$image
EndFunc

Func test(\$ctrl, \$circ1x, \$circ1y, \$circ1r, \$circ2x, \$circ2y, \$circ2r)
Local \$hBmp, \$hPen, \$hBitmap1, \$hGraphic, \$hBitmap2, \$OldBmp, \$one, \$two

\$hBmp = _WinAPI_CreateBitmap(600, 600, 1, 32)

_GDIPlus_Startup()

\$hPen = _GDIPlus_PenCreate(0xFFFFFFFF)

;~ ConsoleWrite("0x" & Hex(200 / \$lines + 55,2) & "FFFFFF" & @crlf)

\$hBitmap1 = _GDIPlus_BitmapCreateFromHBITMAP(\$hBmp)
\$hGraphic = _GDIPlus_ImageGetGraphicsContext(\$hBitmap1)
_GDIPlus_GraphicsSetSmoothingMode(\$hGraphic, 4)

_GDIPlus_GraphicsDrawEllipse(\$hGraphic, \$circ1x - (\$circ1r), \$circ1y - (\$circ1r), \$circ1r*2, \$circ1r*2, \$hPen)
_GDIPlus_GraphicsDrawEllipse(\$hGraphic, \$circ2x - (\$circ2r), \$circ2y - (\$circ2r), \$circ2r*2, \$circ2r*2, \$hPen)

\$var = intcircles(\$circ1x, \$circ1y, \$circ1r, \$circ2x, \$circ2y, \$circ2r)

_GDIPlus_GraphicsDrawEllipse(\$hGraphic,\$var - 5,\$var - 5,10,10,\$hPen)
_GDIPlus_GraphicsDrawEllipse(\$hGraphic,\$var - 5,\$var - 5,10,10,\$hPen)

\$hBitmap2 = _GDIPlus_BitmapCreateHBITMAPFromBitmap(\$hBitmap1)
\$oldbmp = GUICtrlSendMsg(\$ctrl, 0x0172, 0, \$hBitmap2)
If \$OldBmp Then _WinAPI_DeleteObject(\$OldBmp)
_WinAPI_DeleteObject(\$hBitmap2)

_GDIPlus_GraphicsDispose(\$hGraphic)
_GDIPlus_BitmapDispose(\$hBitmap1)
_GDIPlus_PenDispose(\$hPen)
_GDIPlus_Shutdown()
_WinAPI_DeleteObject(\$hBmp)

EndFunc   ;==>fracircle

Func Angle(\$x1, \$y1, \$Ang, \$Length, \$round = 0)
If \$Ang >= 360 Then \$Ang -= 360
Local \$Return
\$Return = \$x1 + (\$Length * Cos(\$Ang / 180 * 3.14159265358979))
\$Return = \$y1 - (\$Length * Sin(\$Ang / 180 * 3.14159265358979))
If \$round = 1 Then
\$Return = Round(\$Return)
\$Return = Round(\$Return)
EndIf
Return \$Return
EndFunc   ;==>Angle

func intcircles(\$x0,\$y0,\$r1,\$x1,\$y1,\$r2)
Local \$xp2, \$yp2, \$dx, \$dy, \$d
Local \$return

\$dx = \$x1 - \$x0;
\$dy = \$y1 - \$y0;

\$d = sqrt((\$x1 - \$x0)^2 + (\$y1 - \$y0)^2)

If (\$d > (\$r1 + \$r2)) or (\$d < (\$r1 - \$r2)) Then
SetError(1);unsaluveable
Return \$return
EndIf

;Determine the distance from point 0 to point 2.
\$a = (\$r1^2 - \$r2^2 + \$d^2) / (2.0 * \$d)

;Determine the coordinates of point 2. */
\$x2 = \$x0 + (\$dx * \$a/\$d);
\$y2 = \$y0 + (\$dy * \$a/\$d);

;Determine the distance from point 2 to either of the intersection points.
\$h = sqrt((\$r1*\$r1) - (\$a*\$a))

; Now determine the offsets of the intersection points from point 2.
\$rx = -\$dy * (\$h/\$d);
\$ry = \$dx * (\$h/\$d);

; Determine the absolute intersection points. ;
\$return = (\$x2 + \$rx);+(\$d/2)
\$return = (\$x2 - \$rx);+(\$d/2)
\$return = (\$y2 + \$ry);-(\$d/2)
\$return = (\$y2 - \$ry);-(\$d/2)

ConsoleWrite("\$a = " & \$a & @crlf)

ConsoleWrite("\$d = " & \$d & @crlf)
ConsoleWrite("\$dx = " & \$dx & @crlf)
ConsoleWrite("\$dy = " & \$dy & @crlf)

ConsoleWrite("\$return 1 = " & \$return & @crlf)
ConsoleWrite("\$return 2 = " & \$return & @crlf)
ConsoleWrite("\$return 3 = " & \$return & @crlf)
ConsoleWrite("\$return 4 = " & \$return & @crlf)

return \$return

EndFunc```

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

## Create an account

Register a new account

• ### Recently Browsing   0 members

×

• Wiki

• Back

• #### Beta

• Git
• FAQ
×
• Create New...