Input :

New Rule

Go

BLACK BOX

Guess for rule :

Doesn't match the data.

Reasonable, but not my rule.

Yes! How did you know?

Ready:

(Hit enter.)

ckn = 1
rtn: 4
N = 0
list2: {x}
g(x) = x
f(x) = x + 5
F(x) = g(f(x))
inpt = 3 (slider from -10 to 10, step 1)
InputBox1 = Textfield(inpt)
A: (-2.2, 4.6)
list1: {x + 5, x^(2) - 1, (2 * x) - 3, (x + 2)^(2), x / 2 + 1, 4 - x}
new = Random(1, Length[list1])
fnc = Random(0, 1)
otpt: F(inpt)
text1: "Output = " + otpt + ""
B = (-0.46, -0.56)
C: (-3, 3)
D: (-3, 1)
E: (1, 1)
G: (1, 3)
poly1, c, d, e, g_1 = Polygon(C, D, E, G)
t = 0 (slider from 0 to 1, step 0.01)
A': A + (t * (B - A))
text2: "" + inpt + ""
poly2 = Translate(Polygon[C, C + (1, 0), C + (1, 0.5), C + (0, 1)], (1, 0))
text3: "" + otpt + ""
poly3 = Translate(Mirror[poly2, C + (2, 0)], Vector[C, D])
inlist: {}
outlist: {}
A1 = Element(inlist, 1)
A2 = Element(inlist, 2)
A3 = Element(inlist, 3)
A4 = Element(inlist, 4)
A5 = Element(inlist, 5)
B1 = Element(outlist, 1)
B2 = Element(outlist, 2)
B3 = Element(outlist, 3)
B4 = Element(outlist, 4)
B5 = Element(outlist, 5)
guess = false
A15 = Element(inlist, 15)
A14 = Element(inlist, 14)
A13 = Element(inlist, 13)
A12 = Element(inlist, 12)
A11 = Element(inlist, 11)
A10 = Element(inlist, 10)
A9 = Element(inlist, 9)
A7 = Element(inlist, 7)
B6 = Element(outlist, 6)
B7 = Element(outlist, 7)
B8 = Element(outlist, 8)
B9 = Element(outlist, 9)
B10 = Element(outlist, 10)
B11 = Element(outlist, 11)
B12 = Element(outlist, 12)
B13 = Element(outlist, 13)
B14 = Element(outlist, 14)
B15 = Element(outlist, 15)
A8 = Element(inlist, 8)
A6 = Element(inlist, 6)
ckn_0 = Random(1, Length[list2])
rule(x) = x
list3 = Sequence(F(i), i, -5, 5)
InputBox2 = Textfield(rule)
list4 = Sequence(rule(i), i, -5, 5)
rt: list3 ≟ list4
check = false
list5 = Sequence(rule(Element[inlist, i]), i, 1, Length[inlist])
rsnbl: outlist ≟ list5