Puntos

Tabla de valores

Gráfica

Dosis sucesivas

Tiempo (h)

\bgcolor{ffffff}{ Cantidad\;de\;fármaco\;en\;la\;sangre\;(μg/l)}

x (h)

y (μg/l)

Trinizol

Duflamat

Cardital

Formizulit

Dosis

pu = false
ta = false
gr = false
do = false
b = 4 (slider from 1 to 4, step 1)
lbase: {0.84, 0.97, 1.15, 0.5}
a = 2.4 (slider from 0 to 4, step 0.1)
f7 = Function(a * Element[lbase, b]^(x), 0.0, 12.0)
lfun = Sequence(f7(x - k), k, 0.0, 12.0)
lfun2 = Sequence(Sum[lfun, k], k, 1.0, 12.0)
h = Sequence(If[x ≥ s ∧ x < s + 1.0, Element[lfun2, s + 1.0]], s, 0.0, 11.0)
g11 = Element(h, 11.0)
g10 = Element(h, 10.0)
g9 = Element(h, 9.0)
g8 = Element(h, 8.0)
g7 = Element(h, 7.0)
g6 = Element(h, 6.0)
g5 = Element(h, 5.0)
g4 = Element(h, 4.0)
g3 = Element(h, 3.0)
g2 = Element(h, 2.0)
g1 = Element(h, 1.0)
g = Function(If[x < 1.0, g1(x), If[x < 2.0, g2(x), If[x < 3.0, g3(x), If[x < 4.0, g4(x), If[x < 5.0, g5(x), If[x < 6.0, g6(x), If[x < 7.0, g7(x), If[x < 8.0, g8(x), If[x < 9.0, g9(x), If[x < 10.0, g10(x), If[x < 11.0, g11(x)]]]]]]]]]]], 0.0, 12.0)
f3(x) = g(x - 1.0) - 3.0
f1 = Function(2.0 * a * Element[lbase, b]^(x - 1.0) - 3.0, 1.0, 12.0)
f4 = If(gr ≟ true, f1(x), If[do ≟ true, f3(x)])
esquina1a: Corner[4.0] + (4.32, -(10.32))
Porigen: esquina1a + (1.0, 1.0)
esquina2a: esquina1a + (12.0, 0.0)
Px = Point(Segment[Porigen, (x(esquina2a), y(Porigen))])
esquina4a: esquina1a + (0.0, 10.0)
esquina12: (esquina1a + esquina2a) / 2.0
esquina14: (esquina1a + esquina4a) / 2.0
esquina3a: esquina1a + (12.0, 10.0)
polígono1, esquina1a_1, esquina2a_1, esquina3a_1, esquina4a_1 = Polygon(esquina1a, esquina2a, esquina3a, esquina4a)
x20log = Sequence(Segment[(x(esquina1a) + 1.0 + s, y(esquina1a) + 1.0), (x(esquina1a) + 1.0 + s, y(esquina1a) + 1.0 - 0.1)], s, 1.0, x(esquina2a) - 1.0)
ejeX = Segment(esquina1a + (0.0, 1.0), esquina2a + (0.0, 1.0))
ejeY = Segment(esquina1a + (1.0, 0.0), esquina4a + (1.0, 0.0))
y20log = Sequence(Segment[(x(esquina1a) + 1.0, y(esquina1a) + 1.0 + s), (x(esquina1a) + 1.0 - 0.1, y(esquina1a) + 1.0 + s)], s, 1.0, y(esquina4a) - y(esquina1a) - 1.0)
x10log2 = Sequence(Text[s, (x(esquina1a) + If[s < 10.0, 0.95, 0.85] + s, y(esquina1a) + 1.0 - 0.42)], s, 1.0, x(esquina2a) - 2.0)
rayasver = Sequence(Segment[(x(Porigen) + k, y(esquina1a) + 1.0), (x(Porigen) + k, y(esquina4a))], k, 1.0, x(esquina2a) - 2.0)
rayashor = Sequence(Segment[(x(Porigen), y(esquina1a) + k), (x(esquina2a), y(esquina1a) + k)], k, 1.0, y(esquina4a) - y(esquina1a) - 1.0)
rotuver = Sequence(Text[s / 2.0, (x(Porigen) - If[s / 2.0 ≟ round(s / 2.0), 0.35, 0.55], y(Porigen) + s - 0.1)], s, 1.0, y(esquina4a) - y(esquina1a) - 2.0)
compr: f1(1.0)
P0 = Point(Segment[(1.0, -3.0), (1.0, 6.0)])
P1 = Point(Segment[(2.0, -3.0), (2.0, 6.0)])
P3 = Point(Segment[(4.0, -3.0), (4.0, 6.0)])
P2 = Point(Segment[(3.0, -3.0), (3.0, 6.0)])
P4 = Point(Segment[(5.0, -3.0), (5.0, 6.0)])
P5 = Point(Segment[(6.0, -3.0), (6.0, 6.0)])
P6 = Point(Segment[(7.0, -3.0), (7.0, 6.0)])
P7 = Point(Segment[(8.0, -3.0), (8.0, 6.0)])
P8 = Point(Segment[(9.0, -3.0), (9.0, 6.0)])
P9 = Point(Segment[(10.0, -3.0), (10.0, 6.0)])
P10 = Point(Segment[(11.0, -3.0), (11.0, 6.0)])
P11 = Point(Segment[(12.0, -3.0), (12.0, 6.0)])
lpuntos: {P0, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11}
linea = Sequence(Segment[Element[lpuntos, k], Element[lpuntos, k + 1.0]], k, 1.0, 11.0)
P: (x(Px), f4(x(Px)))
Py: (x(Porigen), y(P))
c = Segment(Py, P)
d = Segment(P, Px)
Lrayastaby = Sequence(Segment[(12.7 + k, 5.8), (12.7 + k, -(3.8))], k, 0.0, 2.0)
Lrayastabx = Sequence(Segment[(12.7, 5.8 - 0.8 * k), (14.7, 5.8 - 0.8 * k)], k, 0.0, 12.0)
Ltablax = Sequence(Text[k, (13.0 + If[k < 10.0, 0.12, 0.05], 4.5 - 0.8 * k)], k, 0.0, 10.0)
rotuver2 = Sequence(Text[s, (x(Porigen) - 0.35, y(Porigen) + s - 0.1)], s, 1.0, y(esquina4a) - y(esquina1a) - 2.0)
f5 = If(gr ≟ true, f1(x), If[do ≟ true, f3(x)])
Ltablay = Sequence(Text[If[gr ≟ true ∧ ta ≟ true, (f1(k + 1.0) + 3.0) / 2.0, If[do ≟ true, f4(k + 1.0) + 3.0, If[ta ≟ true ∧ gr ≟ false ∧ do ≟ false, (f1(k + 1.0) + 3.0) / 2.0]]], (14.0 - 0.05, 4.5 - 0.8 * k)], k, 0.0, 10.0)
texto10: "" + a + " μg/l"