F_z(v)=\frac{1}{2} \; ρ_z \; S \; C_z \; v²

masse \;  volumique \;  de \;  l'air \;  en  \; kg/m^{3}

surface \; alaire \; en \; m^{2}

coefficient \; de \; résistance \; aérodynamique

déplacer le point A 
pour faire varier v

ρ_z = 1.225 (slider from 0.3 to 1.225, step 0.005)
S = 11.6 (slider from 10 to 25, step 0.1)
C_z = 0.3 (slider from 0 to 1.5, step 0.01)
f(x) = ((((0.5 * ρ_z) * S) * C_z) * (x / 3.6)^(2))
g(x) = If[0 ≤ x ≤ 300, f(x)]
A = Point(g)
a = OrthogonalLine(A, yAxis)
b = OrthogonalLine(A, xAxis)
B = Intersect(a, yAxis)
C = Intersect(b, xAxis)
c = Segment(B, A)
d = Segment(C, A)
α: x(A)
β: y(A)
texte2: "" + β + " N"
texte1: "" + α + " km/h"
alpha: ceil(α)
portance: (ceil(β / 10) * 10)
texte8: "v=" + (LaTeX[alpha]) + " \; km/h"
Curve(x) = ?
texte9: "F_z(" + (LaTeX[alpha]) + ")=" + (LaTeX[portance]) + " \; N"