B is beginpunt. Ligt B op rode deel van de vraagcurve, dan elasticiteit e<-1

P

Q

Beginprijs

nieuwe prijs

f(x) = (-0.8 * x) + 4
g(x) = If[0 ≤ x ≤ 5, (x * f(x))]
Z = Point(yAxis)
h = OrthogonalLine(Z, yAxis)
A = Intersect(f, h, 1)
i = OrthogonalLine(A, xAxis)
Y = Point(yAxis)
j = OrthogonalLine(Y, yAxis)
B = Intersect(f, j, 1)
k = OrthogonalLine(B, xAxis)
E = Intersect(g, xAxis, 1)
F = Intersect(k, xAxis)
G = Intersect(i, xAxis)
vierhoek1, c, d, f_1, e = Polygon(Y, B, F, E)
vierhoek2, b, a, g_1, e_1 = Polygon(Z, A, G, E)
l = Segment(Y, B)
m = Segment(B, F)
n = Segment(Z, A)
p = Segment(A, G)
H = Intersect(g, k, 1)
I = Intersect(g, i, 1)
q = OrthogonalLine(H, yAxis)
J = Intersect(f, yAxis, 1)
K = Intersect(f, g, 2)
r = Segment(J, K)
L = Intersect(g, yAxis, (0, 0))
vierhoek3, c_1, d_1, f_2, l_1 = Polygon(Y, B, F, L)
vierhoek4, b_1, a_1, g_2, l_2 = Polygon(Z, A, G, L)
M = Intersect(f, g, (5, 0))
s = Segment(J, M)
N = Intersect(q, yAxis)
t = Ray(N, H)
O: (2.5, 5)
h_1 = OrthogonalLine(O, xAxis)
P = Intersect(h_1, s)
i_1 = Segment(J, P)
j_1 = Segment(P, M)
ΔQ: x(A) - x(B)
ΔP: y(A) - y(B)
x_A: x(A)
y_A: y(A)
e_v: (ΔQ / ΔP * y_A / x_A)
elasticiteit: "e_v\;=\;\frac{" + (LaTeX[ΔQ]) + "}{" + (LaTeX[ΔP]) + "}  \times \frac{" + (LaTeX[y_A]) + "}{" + (LaTeX[x_A]) + "}=" + (LaTeX[e_v]) + ""
Z_t: (x(Z) - 1, y(Z))
p_1(x) = If[0 ≤ x ≤ 5, g'(x)]