P(x)

Q(x)

P+Q

P-Q

P+Q

P-Q

k = 0.8 (slider from -5 to 5, step 0.1)
a_0 = 2.5 (slider from -5 to 5, step 0.5)
n = -1 (slider from -1 to 1, step 2)
b_0 = 0 (slider from -5 to 5, step 1)
a_3 = -1 (slider from -5 to 5, step 0.5)
a_2 = -2 (slider from -5 to 5, step 0.5)
a_1 = 3 (slider from -5 to 5, step 0.5)
b_3 = 1 (slider from -5 to 5, step 1)
b_2 = 0 (slider from -5 to 5, step 1)
b_1 = -2 (slider from -5 to 5, step 1)
P(x) = (a_3 * x^(3)) + (a_2 * x^(2)) + (a_1 * x) + a_0
Q(x) = (b_3 * x^(3)) + (b_2 * x^(2)) + (b_1 * x) + b_0
c_3: (a_3 * k)
c_2: (a_2 * k)
c_1: (a_1 * k)
c_0: (a_0 * k)
S(x) = (c_3 * x^(3)) + (c_2 * x^(2)) + (c_1 * x) + c_0
texto1: "P(x) = " + P + ""
a = 1 (slider from -8 to 8, step 0.1)
A: (a, 0)
b = OrthogonalLine(A, xAxis)
AQ = Intersect(Q, b, 1)
AP = Intersect(P, b, 1)
AS = Intersect(S, b, 1)
c = Segment(A, AQ)
d = Segment(A, AS)
e = Segment(A, AP)
pp: P(a)
pq: y(AQ)
ps: y(AS)
texto7: "Q(" + a + ")=" + pq + ""
R(x) = (-Q(x))
texto9b: "(" + P + ") + (" + Q + ") =
=  " + S + ""
texto9d: "( " + pp + " ) + ( " + pq + " ) = " + ps + ""
texto2: "k = " + k + ""
texto8: "R ( " + a + " ) = " + ps + ""
texto9: "k = " + k + ""
texto6: "P(" + a + ") = " + pp + ""
texto9c: " " + k + " · ( " + P + " )  =  " + S + ""
texto9e: "k · P(" + a + ") = " + k + " · ( " + pp + ") = " + ps + ""
texto3: "R(x)  = k ·P(x) =  " + S + ""