a = 4.4 (slider from 0.1 to 5, step 0.1)
b = 2.5 (slider from 0.1 to 5, step 0.1)
d = CurveCartesian((a * cos(t)), (b * sin(t)), t, 0°, 360°)
incr = 0.08726646259971647 rad (slider from 5° to 30°, step 0.08726646259971647)
PuntiQ = Sequence(((a * cos(i)), (b * sin(i))), i, 0°, 360° - incr, incr)
lungh = Length(PuntiQ)
Tang = Sequence(Tangent[Element[PuntiQ, i], d], i, 1, lungh)
Perp = Sequence(OrthogonalLine[Element[PuntiQ, i], Element[Tang, i]], i, 1, lungh)