% TeXgraph version 1.94 beta-4 % Fenetre Xmin Xmax Ymin Ymax Xscale Yscale 100#-3.03403949024438#3.17517374034714#-3.70886987385491#2.5003433567366#1.61050999999999#1.61050999999999## % Marges gauche droite haut bas cadre gestion_couleur comptgraph 101#0#0#0#0#0#1#4## % Affectation des Variables theta et phi et type de perspective 18##[theta:=0.5236, phi:=1.1096,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(ortho)]## 18##InputMac("Animation.mac")## % Déclaration des Variables Globales 15#Lsphere#invstereo( lplan(0) )## 15#num#2## 15#S#Sphere( Origin,1,20,20)## 15#plan#[2.5+2.5*i,-1,2.5-2.5*i,-1,-2.5-2.5*i,-1,-2.5+2.5*i,-1,jump]## 15#pas#2+Ent( Nops3d( lplan(0) )/20 )## 15#intervalle#[-15,15, 200] { [tMin, tMax, NbPoints] }## 15#Lplan#lplan(0)## 15#A#[0.71637965685905-1.93853328533446*i,-0.99]## % Déclaration des Macros 16#invstereo#{ invstereo( liste2D du plan ) -> liste3D: inverse de la projection stéréograhique} MapBy(Map3D( 1.01*[$z:=Z[1],4*$z/(abs(z)^2+4),1-8/(abs(z)^2+4)], Z, $L),L,%1,jump)## 16#text3d0#"$x$"## 16#text3d1#"$y$"## 16#f#{parametrage f(t): courbe plane plan xOy } {cos(%1*2)*exp(i*%1)*2} {%1+i/%1} (2-1/%1)*exp(i*%1/2)## 16#text3d2#"$z$"## 16#MakeFrame#[{code pour dessiner la frame n° %1} if %1>20 then if %1=21 then A:=Nil fi, Inc(theta,-pi/5), elif %1>1 then $k:=0, repeat Inc(k,1), if numRe(jump) then Inc(num,1) else Inc(k,-1) fi fi until k=pas od, A:=Lplan[num-1,2] fi, ReCalc(objet1) ]## 16#OnBeginAnim#[{exécutée au lancement de l'animation} ]## 16#OnEndAnim#[{exécutée à la fin de l'animation} ]## 16#Initialiser#[{valeurs par défaut de vos paramètres} num:=2, A:=Lplan[num-1,2], theta:=30*deg, ReCalc(objet1) ]## 16#Tempo#1000## 16#NbFrames#30## 16#Nom#"/home/pfradin/.TeXgraph/stereographie"## 16#Init#ReCalc()## 16#lplan#[ tMin:=intervalle[1], tMax:=intervalle[2], NbPoints:=intervalle[3], $coinS:=Xmin+i*Ymax, $coinI:=Xmax+i*Ymin, Fenetre(-15+10*i,15-10*i), MapBy( Map( [$z,-0.99], z, L ), $L, Get(Courbe(f(t),5),%1), jump), Fenetre(coinS,coinI) ]## % Déclaration des Eléments graphiques % init (Utilisateur) 18##[tMin:=0,tMax:=6.2832]## 14#init#[ background(full,CplColor(gold)), view3D(-2.5,2.5,-2.5,2.5,-2,2), plan:=getplan([0,-1,vecK]), view3D(-2.75,2.75,-2.75,2.75,-2,2), ]#-1## % objet1 (Utilisateur) 18##[FillColor:=13027764,tMin:=-3.1416,tMax:=3.1416]## 14#objet1#[$A':=invstereo(A), Build3D( [1, darkseagreen, plan], [1,navajowhite+0.8*i, SortFacet(S,1)], {sphere: elimination des facettes cachees} axes3d([0,-1],gold,-0.01+4*i), {axes en tube} {labels} [3+i,white,small,[[Xsup+0.25,-1],[i,0]]], [3+i,white+i,small,[[i*(Ysup+0.25),-1],[1,0]]], [3+i,white+2*i,small,[[0,Zsup],[i,0.25]]], [2, green, 8, lplan(1)], {courbe plane} if num>0 then [2, red, 8, Lsphere[1,num]],Re(jump)-i, {courbe sphere} [1,saddlebrown,lineTube([0,1,A],0.01,4)],Re(jump)-i, {tube pole-plan} [3, black, 8,[A,A',0,1]], {points} fi, ), Display3D(), {parties caches LineStyle:=dotted, Width:=8, Color:=gold, Ligne3D([2.5,-1,-2.5,-1,jump,i*2.5,-1,-i*2.5,-1,jump,0,Zinf,0,Zsup],0), Color:=blue, Ligne3D(Lplan[1,2*num],0), Color:=red, Ligne3D(Lsphere[1,2*num],0), Color:=saddlebrown, Ligne3D([A,0,1],0)} ]#-1## % legende (Utilisateur) 18##[FillColor:=16777215,tMin:=-3.034,tMax:=3.1752]## 14#legende#[ Width:=12, Color:=green, Ligne([-0.15-3.5*i,0.15-3.5*i],0), Color:=white, LabelDot(0.15-3.5*i,"$\rho(t)=2-\frac1t$","E",0) ]#-1##