TIEMPO

C

INICIO

A1: 0
B1: 3
A2: 1
B2: 4
A3: 2
B3: 5
A4: 3
B4: 5
A5: 4
B5: 5
A6: 5
B6: 5
A7: 6
B7: 5
A8: 7
B8: 6
A9: 8
B9: 7
A10: 9
B10: 7
A11: 10
B11: 7
A12: 11
B12: 7
A13: 12
B13: 11
A14: 13
B14: 15
A15: 14
B15: 26
A16: 15
B16: 41
A17: 16
B17: 53
A18: 17
B18: 82
A19: 18
B19: 93
A20: 19
B20: 118
A21: 20
B21: 164
A22: 21
B22: 203
A23: 22
B23: 251
A24: 23
B24: 316
A25: 24
B25: 367
A26: 25
B26: 405
A27: 26
B27: 475
A28: 27
B28: 585
A29: 28
B29: 717
A30: 29
B30: 848
A31: 30
B31: 993
A32: 31
B32: 1094
a = 2175 (slider from 0 to 5000, step 1)
b = 505.1 (slider from -10 to 1000, step 0.05)
c = 3.4 (slider from -5 to 10, step 0.01)
d = 27500 (slider from 0 to 100000, step 1)
l1: {(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), (A18, B18), (A19, B19), (A20, B20), (A21, B21), (A22, B22), (A23, B23), (A24, B24), (A25, B25), (A26, B26), (A27, B27), (A28, B28), (A29, B29), (A30, B30), (A31, B31), (A32, B32)}
e = 4.5 (slider from -10 to 10, step 0.5)
g = -42.5 (slider from -50 to 20, step 0.5)
A33: 32
B33: 1215
l2: {(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), (A18, B18), (A19, B19), (A20, B20), (A21, B21), (A22, B22), (A23, B23), (A24, B24), (A25, B25), (A26, B26), (A27, B27), (A28, B28), (A29, B29), (A30, B30), (A31, B31), (A32, B32), (A33, B33)}
tiempo = 10 (slider from 0 to 60, step 0.5)
B = Intersect(xAxis, yAxis)
f = Circle(B, tiempo)
C(t) = If[7 ≤ t < 60, g + (a * (1 + (b * ℯ^(((-t) - e) / c))) / (1 + (d * ℯ^(((-t) - e) / c))))]
A, D = Intersect(f, xAxis)
h = OrthogonalLine(D, xAxis)
E = Intersect(C, h)
i = OrthogonalLine(E, yAxis)
F = Intersect(yAxis, i)
j = Segment(F, E)
k = Segment(E, D)
H: (x(E), y(E) + 100)
G: (x(E) + 2.5, y(E))
A34: 33
B34: 1378
l: (2 * 3)
velcov(t) = If[7 ≤ t ≤ 60, ((((-a) * b) * exp(((-t) - e) / c)) + ((a * d) * exp(((-t) - e) / c))) / ((c * (1 + (d * exp(((-t) - e) / c)))^(2)))]
u(t) = If[7 ≤ t ≤ 60, (((-a) * b) * exp(((-t) - e) / c)) + ((a * d) * exp(((-t) - e) / c))]
v(t) = If[7 ≤ t ≤ 60, (c * (1 + (d * exp(((-t) - e) / c)))^(2))]
ud(t) = If[7 ≤ t ≤ 60, ((((-a) * b) * exp(((-t) - e) / c)) * (-1 / c)) + (((a * d) * exp(((-t) - e) / c)) * (-1 / c))]
vd(t) = If[7 ≤ t ≤ 60, (((2 * c) * (1 + (d * exp(((-t) - e) / c)))) * (-1 / c))]
acelcov(t) = If[7 ≤ t ≤ 60, ((-((v(t) * ud(t)) - (u(t) * vd(t))))) / v(t)^(2)]
I = Intersect(velcov, k)
J = Intersect(h, k)
K = Intersect(h, k)
L = Intersect(h, k)
M = Intersect(h, k)
N = Intersect(h, k)
O = Intersect(h, k)
P = Intersect(h, k)
Q = Intersect(h, k)
R = Intersect(h, k)
S = Intersect(h, k)
T = Intersect(acelcov, h)
A35: 34
B35: 1510
l3: {(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), (A18, B18), (A19, B19), (A20, B20), (A21, B21), (A22, B22), (A23, B23), (A24, B24), (A25, B25), (A26, B26), (A27, B27), (A28, B28), (A29, B29), (A30, B30), (A31, B31), (A32, B32), (A33, B33), (A34, B34), (A35, B35)}