View source for Custom Extra Scripts (TeaScript)

This is a list of useful custom scripts made for the TeaScript language. Feel free to use any of the scripts you find here, and contribute any script that you may find useful!

For an explanation on how to create a custom script, check [[TeaScript Syntax#Scripts|here]].

<br />

==Adding Your Own Script==
This is a template so you can add your own functions.

===Name of Script===
Created by: user

Requisites: optional


Here is an explanation or notes of the function. Make sure to underline number values, and italicize string values.

<code><u>returnval</u> = functionname(<u>number</u>, ''string)''</code><syntaxhighlight lang="vb" line="1">
script funcname(a as double, b as string, return double)

end script
</syntaxhighlight><br />

==Conversions==

===rad2deg===
Created by: SetaYoshi

Requisites: None


Converts a radian value to degrees

<code><u>degrees</u> = rad2deg(<u>radians</u>'')''</code><syntaxhighlight lang="vb" line="1">
script rad2deg(r as double, return double)
	return r*180/pi
end script
</syntaxhighlight>
===deg2rad===
Created by: SetaYoshi

Requisites: None


Converts a degree value to radians

<code><u>radians</u> = deg2rad(<u>degrees</u>'')''</code><syntaxhighlight lang="vb" line="1">
script deg2rad(r as double, return double)
	return r*pi/180
end script
</syntaxhighlight>

==Math Functions==

===logn===
Created by: SetaYoshi

Requisites: None


Does a log operation at any base

<code><u>y</u> = logn(<u>x</u>, <u>base</u>'')''</code><syntaxhighlight lang="vb" line="1">
script logn(x as double, b as double, return double)
   return log(x)/log(b)
end script
</syntaxhighlight>

===sqrn===
Created by: SetaYoshi

Requisites: None


Does a root at any base

<code><u>y</u> = sqrn(<u>x</u>, <u>base</u>'')''</code><syntaxhighlight lang="vb" line="1">
script sqrn(x as double, n as double, return double)
	return x^(1/n)
end script
</syntaxhighlight>


===factorial===
Created by: SetaYoshi

Requisites: None


Performs a factorial operation

<code><u>y</u> = factorial(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script factorial(x as double, return double)
	dim i as integer
	dim v as double = 1
	for i = 1 to x
		v = v*i
	next
	return v
end script
</syntaxhighlight>


===modul===
Created by: SetaYoshi

Requisites: None


A more accurate modulus operator

<code><u>y</u> = modul(<u>x</u>, <u>n</u>'')''</code><syntaxhighlight lang="vb" line="1">
script modul(x as double, n as double, return double)
	if n = 0 then return 0
	if n > 0 and x > 0 then return x - n*fix(x/n)
	if n > 0 then return n - abs(x - n*fix(x/n))
	if x > 0 then return x + n*(fix(x/abs(n)) + 1)
	return	abs(n*fix(x/n)) + x	
end script
</syntaxhighlight>


===min===
Created by: SetaYoshi

Requisites: None


Returns the smaller number

<code><u>y</u> = min(<u>a</u>, <u>b</u>'')''</code><syntaxhighlight lang="vb" line="1">
script min(a as double, b as double, return double)
  if a < b then return a
  return b
end script
</syntaxhighlight><br />
===max===
Created by: SetaYoshi

Requisites: None


Returns the larger number

<code><u>y</u> = max(<u>a</u>, <u>b</u>'')''</code><syntaxhighlight lang="vb" line="1">
script max(a as double, b as double, return double)
  if a < b then return a
  return b
end script
</syntaxhighlight>
===midd===
Created by: SetaYoshi

Requisites: None


Returns the middle number

<code><u>y</u> = midd(<u>a</u>, <u>b</u>, <u>c</u>'')''</code><syntaxhighlight lang="vb" line="1">
script midd(a as double, b as double, c as double, return double)
	if (a > b and b > c) or (c > b and b > a) then return b
	if (a > c and c > b) or (b > c and c > a) then return c
    return a
end script
</syntaxhighlight>

==Range Functions==

===coil===
Created by: SetaYoshi

Requisites: None


Forces a number to loop between a range

<code><u>y</u> = coil(<u>min</u>, <u>max</u>, <u>n</u>'')''</code><syntaxhighlight lang="vb" line="1">
script coil(a as double, b as double, n as double, return double)
    return ((a - b) mod (n - b + a)) + b
end script
</syntaxhighlight>
===wrap===
Created by: SetaYoshi

Requisites: None


A modified version of coil that is more practical for counting

<code><u>y</u> = coil(<u>min</u>, <u>max</u>, <u>n</u>'')''</code><syntaxhighlight lang="vb" line="1">
script coil(a as double, b as double, n as double, return double)
    return ((a - b - 1) mod (n - b + a)) + b
end script
</syntaxhighlight>
===tie===
Created by: SetaYoshi

Requisites: None


A less flexible form of coil

<code><u>y</u> = tie(<u>min</u>, <u>max</u>, <u>n</u>'')''</code><syntaxhighlight lang="vb" line="1">
script tie(a as double, b as double, n as double, return double)
	if n < a then return b - (a - n)
	if n > b then return a - (b - n)
	return n
end script
</syntaxhighlight>
===knot===
Created by: SetaYoshi

Requisites: None


An alternate form of tie that is more practical for counting.

<code><u>y</u> = knot(<u>min</u>, <u>max</u>, <u>n</u>'')''</code><syntaxhighlight lang="vb" line="1">
script knot(a as double, b as double, n as double, return double)
	if n < a then return b - (a - n - 1)
	if n > b then return a - (b - n + 1)
	return n
end script
</syntaxhighlight>
===brace===
Created by: SetaYoshi

Requisites: None


When the number overflows, it will snap to the opposite boundary

<code><u>y</u> = brace(<u>min</u>, <u>max</u>, <u>n</u>'')''</code><syntaxhighlight lang="vb" line="1">
script brace(a as double, b as double, n as double, return double)
	if n < a then return b
	if n > b then return a
	return n
end script
</syntaxhighlight>

===clamp===
Created by: SetaYoshi

Requisites: None


When the number overflows, it will snap to the current boundary

<code>y = clamp(min, max, n'')''</code><syntaxhighlight lang="vb" line="1">
script clamp(a as double, b as double, n as double, return double)
	if n < a then return a
	if n > b then return b
	return n
end script
</syntaxhighlight>

==Trig==

===Basic===

====c_sin====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate sin

<code><u>y</u> = c_sin(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_sin(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/factorial(2*n + 1)*z^(2*n + 1)
	next
	return v
end script
</syntaxhighlight>
====c_cos====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate cos 

<code><u>y</u> = c_cos(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_cos(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/factorial(2*n)*z^(2*n)
	next
	return v
end script

</syntaxhighlight>
====c_cos====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate cos 

<code><u>y</u> = c_cos(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_cos(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/factorial(2*n)*z^(2*n)
	next
	return v
end script

</syntaxhighlight>
====c_tan====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate tan 

<code><u>y</u> = c_tan(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_tan(x as double, return double)
	dim n as integer
	dim z as double = modul(x, 2*pi)	
	dim c as double
	dim s as double
	for n = 0 to 10
		c = c + (-1)^n/factorial(2*n)*z^(2*n)
	next
	if c = 0 then return 0	
	for n = 0 to 10
		s = s + (-1)^n/factorial(2*n + 1)*z^(2*n + 1)
	next
	return s/c
end script
</syntaxhighlight>
====c_csc====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate csc 

<code><u>y</u> = c_csc(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_csc(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/factorial(2*n + 1)*z^(2*n + 1)
	next
	if v = 0 then return 0
	return 1/v
end script
</syntaxhighlight>
====c_sec====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = c_sec(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_sec(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/factorial(2*n)*z^(2*n)
	next
	if v = 0 then return 0
	return 1/v
end script
</syntaxhighlight>
====c_cot====
Created by: SetaYoshi

Requisites: '''modul, factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = c_cot(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_cot(x as double, return double)
	dim n as integer
	dim z as double = modul(x, 2*pi)	
	dim c as double
	dim s as double
	for n = 0 to 10
		s = s + (-1)^n/factorial(2*n + 1)*z^(2*n + 1)
	next
	if s = 0 then return 0
	for n = 0 to 10
		c = c + (-1)^n/factorial(2*n)*z^(2*n)
	next
	return c/s
end script
</syntaxhighlight>

===Inverse Trig===

====arcsin====
Created by: SetaYoshi

Requisites: '''factorial'''


Using taylor expansion to calculate arcsin

<code><u>y</u> = arcsin(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_arcsin(x as double, return double)
	dim n as integer
	dim v as double
	if abs(x) > 1 then return 0
	for n = 0 to 10
		v = v + factorial(2*n)/(4^n*factorial(n)^2*(2*n + 1))*x^(2*n + 1)
	next
	return v
end script
</syntaxhighlight>
====arccos====
Created by: SetaYoshi

Requisites: '''factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = arccos(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_arccos(x as double, return double)
	dim n as integer
	dim v as double
	if abs(x) > 1 then return 0
	for n = 0 to 10
		v = v + factorial(2*n)/(4^n*factorial(n)^2*(2*n + 1))*x^(2*n + 1)
	next
	return pi/2 - v
end script
</syntaxhighlight><br />
====arctan====
Created by: SetaYoshi

Requisites: '''factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = arctan(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arctan(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/(2*n + 1)*z^(2*n + 1)
	next
	return v
end script
</syntaxhighlight>
====arccsc====
Created by: SetaYoshi

Requisites: '''factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = arccsc(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_arccsc(x as double, return double)
	dim n as integer
	dim v as double
	if abs(x) > 1 then return 0
	dim z as double = 1/x
	for n = 0 to 10
		v = v + factorial(2*n)/(4^n*factorial(n)^2*(2*n + 1))*z^(2*n + 1)
	next
	return v
end script
</syntaxhighlight>
====arcsec====
Created by: SetaYoshi

Requisites: '''factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = arcsec(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arcsec(x as double, return double)
	dim n as integer
	dim v as double
	if abs(x) > 1 then return 0
	dim z as double = 1/x
	for n = 0 to 10
		v = v + factorial(2*n)/(4^n*factorial(n)^2*(2*n + 1))*z^(2*n + 1)
	next
	return v
end script
</syntaxhighlight>
====arccot====
Created by: SetaYoshi

Requisites: '''factorial'''


Using taylor expansion to calculate sec

<code><u>y</u> = arccot(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arccot(x as double, return double)
	dim n as integer
	dim v as double
	dim z as double = modul(x, 2*pi)
	for n = 0 to 10
		v = v + (-1)^n/(2*n + 1)*z^(2*n + 1)
	next
	return pi/2 - v
end script
</syntaxhighlight>
===Hyperbolic===
<br />
====sinh====
Created by: SetaYoshi

Requisites: none


The hyperbolic form of sin

<code><u>y</u> = sinh(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_sinh(x as double, return double)
	return 0.5*(exp(x) - exp(-x))
end script
</syntaxhighlight>
====cosh====
Created by: SetaYoshi

Requisites: none


The hyperbolic form of cos

<code><u>y</u> = cosh(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script cosh(x as double, return double)
	return 0.5*(exp(x) + exp(-x))
end script
</syntaxhighlight>
====tanh====
Created by: SetaYoshi

Requisites: none


The hyperbolic form of tan

<code><u>y</u> = tan(<u>x</u>'')''</code><syntaxhighlight lang="vb">
script tanh(x as double, return double)
	return (exp(x) - exp(-x))/(exp(x) - exp(-x))
end script
</syntaxhighlight>

====csch====
Created by: SetaYoshi

Requisites: none


The hyperbolic form of csc

<code><u>y</u> = csc(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script csch(x as double, return double)
	return 2/(exp(x) - exp(-x))
end script
</syntaxhighlight>

====sech====
Created by: SetaYoshi

Requisites: none


The hyperbolic form of sec

<code><u>y</u> = sech(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script sech(x as double, return double)
	return 2/(exp(x) + exp(-x))
end script
</syntaxhighlight>

====coth====
Created by: SetaYoshi

Requisites: none


The hyperbolic form of sec

<code><u>y</u> = coth(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script coth(x as double, return double)
	return (exp(x) - exp(-x))/(exp(x) - exp(-x))
end script
</syntaxhighlight>

===Hyperbolic Inverse===

====arcsinh====
Created by: SetaYoshi

Requisites: none


The hyperbolic inverse form of sin

<code><u>y</u> = arcsinh(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arcsinh(x as double, return double)
    return log(x + sqr(x^2 + 1))
end script
</syntaxhighlight>

====arccosh====
Created by: SetaYoshi

Requisites: none


The hyperbolic inverse form of cos

<code><u>y</u> = arccosh(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arccosh(x as double, return double)
    return log(x + sqr(x^2 - 1))
end script
</syntaxhighlight>

====arctanh====
Created by: SetaYoshi

Requisites: none


The hyperbolic inverse form of tan

<code><u>y</u> = arctanh(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arctanh(x as double, return double)
    return 0.5*log((1 + x)/(1 - x))
end script
</syntaxhighlight>

====arccsch====
Created by: SetaYoshi

Requisites: none


The hyperbolic inverse form of csc

<code><u>y</u> = arcscsh(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script arccsch(x as double, return double)
    if x = 0 then return 0
    return log((1 + sqr(1 + x^2))/x)
end script
</syntaxhighlight>

====arcsech====
Created by: SetaYoshi

Requisites: none


The hyperbolic inverse form of sec

<code><u>y</u> = arcsech(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_arcsech(x as double, return double)
    if x = 0 then return 0
    return log((1 + sqr(1 - x^2))/x)
end script
</syntaxhighlight>

====arccoth====
Created by: SetaYoshi

Requisites: none


The hyperbolic inverse form of cot

<code><u>y</u> = arccoth(<u>x</u>'')''</code><syntaxhighlight lang="vb" line="1">
script c_arccoth(x as double, return double)
    if x >= -1 and x <= 1 then return 0
    return 0.5*log((x + 1)/(x - 1))
end script
</syntaxhighlight>