(12:00,36)

אתחול

M(t) = M_0q^t

עקוב אחר קצב ההשתנות

M_0=

q =

כמות החומר נתונה

זמן נתון

M_0=

q =

%

t

M(t)

ניקוי מסך

t = 0 (slider from 0 to 40, step 1)
M_0 = 50 (slider from 1 to 100, step 1)
q = 0.75 (slider from 0 to 1, step 0.01)
f(x) = M_0 * q^(x)
g: 50 * 0.8^(t / 3)
t_1: t + 6
text5: "M = (" + t_1 + ":00," + g + ")"
A: (t, f(t))
B: (x(A) + 1, f(x(A) + 1))
c = OrthogonalLine(A, yAxis)
d = OrthogonalLine(B, c)
C = Intersect(d, c)
e = Segment(A, C)
h = Segment(C, B)
text7: "M(t)=" + (LaTeX[M_0]) + "∙" + (LaTeX[q]) + "^{t}"
a = false
inputBox1 = Textfield(M_0)
inputBox2 = Textfield(q)
D = Point(yAxis)
b = OrthogonalLine(D, yAxis)
E = Intersect(f, b, (0.7756602607445379, 39.99999999938929))
i = OrthogonalLine(E, xAxis)
F = Point(xAxis)
j = OrthogonalLine(F, xAxis)
G = Intersect(f, j, (11.890304398941137, 1.6345958608030238))
k = OrthogonalLine(G, yAxis)
H = Intersect(k, yAxis)
I = Intersect(i, xAxis)
l = Segment(D, E)
m = Segment(E, I)
n = Segment(F, G)
p = Segment(G, H)
o = false
r = false
J = (0, -0.8536776820917851)
K = (20, -0.8536776820917851)
s = Line(J, K)
a_1 = OrthogonalLine(J, s)
c_1 = Circle(J, M_0)
d_1 = OrthogonalLine(K, s)
L: (0, M_0)
b_1 = OrthogonalLine(L, a_1)
M: (0, f(t))
e_1 = OrthogonalLine(M, a_1)
N = Intersect(d_1, b_1)
poly1, j_1, l_1, n_1, k_1 = Polygon(J, L, N, K)
O = Intersect(d_1, e_1)
poly2, j_2, m_1, o_1, k_2 = Polygon(J, M, O, K)
text8: "" + (f(0)) + " גרם"
f_1(x) = M_0 * q^(x)
inputBox1_1 = Textfield(M_0)
inputBox2_1 = Textfield(q)
L_1: (0, M_0)
text8_1: "" + (f(t)) + " גרם"
percent: f(t) / f(0) * 100
text9: "\frac{" + (LaTeX[f(t)]) + "}{" + (LaTeX[f(0)]) + "}=" + (LaTeX[percent]) + ""
text1: "קצב הדעיכה: " + ((1 - q) * 100) + "%  בשעה"
A2 = 0
A3 = 1
A4 = 2
A5: 2 * A4 - A3
A6: 2 * A5 - A4
A7: 2 * A6 - A5
A8: 2 * A7 - A6
A9: 2 * A8 - A7
A10: 2 * A9 - A8
A11: 2 * A10 - A9
A12: 2 * A11 - A10
A13: 2 * A12 - A11
A14: 2 * A13 - A12
A15: 2 * A14 - A13
B2: f(A2)
B3: f(A3)
B4: f(A4)
B5: f(A5)
B6: f(A6)
B7: f(A7)
B8: f(A8)
B9: f(A9)
B10: f(A10)
B11: f(A11)
B12: f(A12)
B13: f(A13)
B14: f(A14)
B15: f(A15)
A16: 2 * A15 - A14
A17: 2 * A16 - A15
B16: 2 * B15 - B14
B17: 2 * B16 - B15
text2 = TableText({{A1, B1}, {A2, B2}, {A3, B3}, {A4, B4}, {A5, B5}, {A6, B6}, {A7, B7}, {A8, B8}, {A9, B9}, {A10, B10}, {A11, B11}, {A12, B12}, {A13, B13}, {A14, B14}, {A15, B15}, {A16, B16}, {A17, B17}}, "c_|")
R: (43, 45 - 2.9 * t)
Q: (43, 42 - 2.9 * t)
P: (25, 45 - 2.9 * t)
S: (25, 42 - 2.9 * t)
poly3, p_1, r_1, q_1, s_1 = Polygon(P, R, Q, S)

Tool: שיעורי נקודה (command שיעורינקודה)
נקודה
Input: A
Output: d, c

a = OrthogonalLine(A, xAxis)
b = OrthogonalLine(A, yAxis)
B = Intersect(b, yAxis)
C = Intersect(a, xAxis)
c = Segment(B, A)
d = Segment(A, C)