
\psset{plotpoints=1001}
\def\Cardio{1 t cos add 2 mul}
\def\DerivCardio{t sin -2 mul}
\begin{pspicture}(-2,-4)(4,4)%\psgrid
\polarplot{0}{360}{\Cardio}
%\multido{\n=10+10}{36}{\polarplotput{\n}{\Cardio}{\pstGeonode[PointName=A_{\n}]{A_\n}}}
\psset{Derive=\DerivCardio, linecolor=red, arrows=<->}
\multido{\n=10+20}{18}{\polarplottangent{\n}{2}{\Cardio}}
%\polarplottangent{80}{2}{\Cardio}
\end{pspicture}