START

RESET

一般項

CHECK

l2 = Join({Sequence[-5, -1], Sequence[2, 5]})
Random = Random(0, 100)
stage: 0
n = 4 (slider from 4 to 10, step 1)
a = RandomElement(l2)
Pattern3: a
b = RandomElement(l2)
Pattern = If(0 ≤ Random ≤ 10, 3, 10 < Random < 50, 1, 50 ≤ Random ≤ 100, 2)
Pattern1(x) = a + ((x - 1) * b)
Pattern2(x) = (a * b^(x - 1))
l1 = Sequence(If[Pattern ≟ 1, Pattern1(i), Pattern ≟ 2, Pattern2(i), Pattern ≟ 3, (Pattern3 * i)], i, 1, n)
text1: "次の数列の一般項\ a_n\ を予想してみましょう。\\" + (LaTeX[l1]) + ""
FirstTime: {283, 18, 21, 17, 2, 2, 2019, "February", "Saturday", 7}
NowTime: {794, 30, 21, 17, 2, 2, 2019, "February", "Saturday", 7}
Time = 0.6 (slider from -5 to 5, step 0.1)
ElapsedTime: ((Element[NowTime, 3] - Element[FirstTime, 3]) * 3600) + (Element[NowTime, 3] * 60) - (Element[FirstTime, 3] * 60) + Element[NowTime, 2] - Element[FirstTime, 2]
InputBox1 = Textfield(Answer)
text3: "" + (LaTeX[If[Flag ≟ "true", "正解です", Flag ≟ "false", "不正解です", Flag ≟ "", ""]]) + ""
c: 10
text2: "" + (LaTeX[If[ElapsedTime > c, "まず次の数がいくつになるかを考えてみましょう\\"]]) + "" + (LaTeX[If[ElapsedTime > (c * 2), "nを動かして考えが正しいか確かめてみましょう\\"]]) + "" + (LaTeX[If[ElapsedTime > (c * 3) ∧ Pattern ≟ 1, "2つの項の差を見てみましょう\\", ElapsedTime > (c * 3) ∧ Pattern ≟ 2, "2つの項の比を見てみましょう\\", ElapsedTime > (c * 3) ∧ Pattern ≟ 3, "ずっと同じですね\\"]]) + "" + (LaTeX[If[ElapsedTime > (c * 4) ∧ Pattern ≟ 1, "初項が" + a + "、公差が" + b + "の等差数列です\\", ElapsedTime > (c * 4) ∧ Pattern ≟ 2, "初項が" + a + "、公比が" + b + "の等比数列です\\", ElapsedTime > (c * 4) ∧ Pattern ≟ 2, "nに関係なく" + a + "です。\\"]]) + ""

Tool: Tool1
Input: A
Output: h, g

B: (x(A), 0)
C: (0, y(A))
g = Segment(A, C)
h = Segment(A, B)