largeur

épaisseur

courbure

longueur

épaisseur

décalage

hauteur

allongement

longueur

angle

largeur

longueur

décalage

hauteur

allongement

largeur

épaisseur

courbure

longueur

angle

hauteur

décalage

centre vue

ailes

carlingue

queue

empanage

Auteur : Patrick Clément

aa = 7.3 (slider from 1 to 10, step 0.1)
ac = 0.89 (slider from 0 to 1, step 0.01)
ad = 1.2 (slider from 0 to 5, step 0.1)
A: (aa, 0)
ca = 17.5 (slider from 0 to 20, step 0.1)
cc = 2.5 (slider from -5 to 5, step 0.1)
cd = 6.1 (slider from 0 to 12, step 0.1)
ch = -0.3 (slider from -5 to 5, step 0.1)
ce = 1.6 (slider from 0 to 5, step 0.1)
carl = Surface(cd + real((1 / 2 * (cc + ((cc - ca) * ℯ^((ί * t))) + ca^(2) / (cc + ((cc - ca) * ℯ^((ί * t))))))), (cos(v) * imaginary((1 / 2 * (cc + ((cc - ca) * ℯ^((ί * t))) + ca^(2) / (cc + ((cc - ca) * ℯ^((ί * t)))))))), ch + ((ce * sin(v)) * imaginary((1 / 2 * (cc + ((cc - ca) * ℯ^((ί * t))) + ca^(2) / (cc + ((cc - ca) * ℯ^((ί * t)))))))), t, 0, (2 * π), v, 0, π)
al = 21 (slider from 0 to 50, step 0.1)
avx = 8.16 (slider from 0 to 12, step 0.01)
qa = -3 (slider from -10 to 0, step 0.1)
qc = 1.3 (slider from -5 to 5, step 0.1)
qd = 12.3 (slider from 0 to 20, step 0.1)
qh = 1.8 (slider from -5 to 12, step 0.1)
qe = 3 (slider from -5 to 5, step 0.1)
aile = Surface((avx * abs(v)) + real((1 / 2 * (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))) + aa^(2) / (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))))))), (al * v), imaginary((1 / 2 * (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))) + aa^(2) / (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))))))), t, 0, (2 * π), v, -1, 1)
z1 = CurveCartesian(real((1 / 2 * (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))) + aa^(2) / (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))))))), imaginary((1 / 2 * (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))) + aa^(2) / (ac + (ί * ad) + ((ac + (ί * ad) - aa) * ℯ^((ί * t))))))), t, 0, (2 * π))
ea = 2.1 (slider from 0 to 5, step 0.1)
ec = 0.29 (slider from 0 to 1, step 0.01)
ed = 0.42 (slider from 0 to 1, step 0.01)
el = 9.2 (slider from 0 to 12, step 0.1)
evx = 4.9 (slider from 0 to 12, step 0.1)
eh = 0.7 (slider from -5 to 5, step 0.1)
edx = 1 (slider from -5 to 10, step 0.1)
queue = Surface(cd + qd + real((1 / 2 * (qc + ((qc - qa) * ℯ^((ί * t))) + qa^(2) / (qc + ((qc - qa) * ℯ^((ί * t))))))), (cos(v) * imaginary((1 / 2 * (qc + ((qc - qa) * ℯ^((ί * t))) + qa^(2) / (qc + ((qc - qa) * ℯ^((ί * t)))))))), ch + qh + ((qe * sin(v)) * imaginary((1 / 2 * (qc + ((qc - qa) * ℯ^((ί * t))) + qa^(2) / (qc + ((qc - qa) * ℯ^((ί * t)))))))), t, 0, (2 * π), v, 0, π)
a = true
b = false
c = false
d = false
emp = Surface(cd + qd + edx + (evx * abs(v)) + real((1 / 2 * (ec + (ί * ed) + ((ec + (ί * ed) - ea) * ℯ^((ί * t))) + ea^(2) / (ec + (ί * ed) + ((ec + (ί * ed) - ea) * ℯ^((ί * t))))))), (el * v), qh + ch + eh + imaginary((1 / 2 * (ec + (ί * ed) + ((ec + (ί * ed) - ea) * ℯ^((ί * t))) + ea^(2) / (ec + (ί * ed) + ((ec + (ί * ed) - ea) * ℯ^((ί * t))))))), t, 0, (2 * π), v, -1, 1)