Fichier noeud_02.jps — Modifié le 13 Février 2008 à 11 h 50

noeud_02.pdf
Source
%% d'apres les donnees de
%% http://www.mathcurve.com/courbes3d/noeuds/noeudenhuit.shtml

-7 6 setxrange
-7 4 setyrange
50 setxunit

10 0 15 SetCamPos
0 0 0 SetCamView

-10 10 setxrange3d
-3 3 setyrange3d
2 setlinejoin


/g {
3 dict begin
   settvar
#rpn# 3*Cos(t)+5*Cos(3*t)
#rpn# 3*Sin(t)+5*Sin(3*t)
#rpn# Sin(5*t/2)*Sin(3*t) + Sin(4*t) -Sin(6*t)
end
} def

/g' {
3 dict begin
   settvar
#rpn# -3*Sin(t)-15*Sin(3*t)
#rpn# 3*Cos(t)+15*Cos(3*t)
#rpn# 2.5*Cos(5*t/2)*Sin(3*t) + 3*Sin(5*t/2)*Cos(3*t) + 4*Cos(4*t) -6*Cos(6*t)
end
} def

/g'' {
3 dict begin
   settvar
#rpn# -3*Cos(t)-45*Cos(3*t)
#rpn# -3*Sin(t)-45*Sin(3*t)
#rpn# -(2.5)^2*Sin(5*t/2)*Sin(3*t) + 7.5*Cos(5*t/2)*Cos(3*t) + 7.5*Cos(5*t/2)*Cos(3*t) - 9*Sin(5*t/2)*Sin(3*t) - 16*Sin(4*t) +36*Sin(6*t)
end
} def


% 0 pi 2 mul {g} CourbeR3
% stop

.1 setlinewidth
%/aretescachees false def

GetCamPos setlightsrc
%solidgridOff

0 pi 2 mul (g) .2 [400 8] newtube
dup [.5 .6] solidputhuecolors
drawsolid**

20 setfontsize
setTimes
(Noeud en 8, représentation de Paul Bourke)
0 ymin uctext