Tests CourbeNiv.teg

Salut!

Je viens de charger le fichier mais je n'ai pas tout à fait la même chose que toi:



Quant au repère orthonormé, il y est!



Explications:

- pour orthonormer ou non le repère tu cliques le bouton Fenetre 3D, lis bien tu verras qu'en mettant 1 ou 0 en dernière valeur on a cette possibilité.

- pour les couleurs: quand tu cliques le boutons Courbes de niveau tu vois la listes des niveaux courants et les couleurs courantes affectées, si tu changes la liste des niveaux il est préférable d'effacer la liste des couleurs qui suit, sinon TeXgraph reprend les mêmes, il s'il en manque ben.... tu as ls bizarreries que tu as constatées.

PS: j'oubliais! tu as une autre version de ce fichier dans les exemples de la 1.94.

Bonjour,

J'ai téléchargé ce beau fichier qui devrait me rendre service.
Un truc qui m'échappe : j'essaie de rajouter un point sur ma surface mais les coordonnées dans le repère ne correspondent pas à ce que je vois à l'écran
Par exemple Origin ne correspond pas au point (0,0,0) de ma surface. Comment faire ?

PC

Bonjour PC,

C'est là que le bât blesse! En effet, pour que l'utilisateur n'aie pas à jongler pour trouver la bonne fenêtre graphique correspondant à sa surface, j'utilise une matrice 3d pour que la boite naturelle de la surface vienne coïncider avec la boite [-5,5]x[-5,5]x[-5,5], par conséquent si tu veux placer un point A par exemple, il faut le transformer pour placer son image: A'=mtransform3d(A, Matrix3d), comme cela n'est pas commode du tout, je te propose de créer une macro, appelons-la f, qui fait cette transformation:

Code:


mtransform3d(%1, Matrix3d)


Une fois cette macro créée, au lieu de dessiner A, tu dessines f(A). Avec la version 1.93 on ne peut pas éviter cette gymnastique, mais on pourra avec la prochaine!

Impec, merci

PC

Je dois admettre que j'ai testé tes dernières modifications un peu rapidement!!!

J'avais pas lu le texte des fenetre de saisie, donc si c'est expliqué ici, alors j'ai forcément passé a côté...

En tout cas, ton fichier est (presque) parfait!!! T'as réfléchis au lignes de niveaux pour les surfaces paramétrées? Ca pourrait être utile...

Alphonse Capriani a écrit:
En tout cas, ton fichier est (presque) parfait!!!

Merci!!!

T'as réfléchis au lignes de niveaux pour les surfaces paramétrées? Ca pourrait être utile...

Cela serait utile sans aucun doute, et j'y réfléchis! Disons que pour une surface implicite f(x,y,z)=0 le problème serait assez simple à résoudre, pour z fixé on a une courbe implicite en (x,y), c'est ce que j'utilise pour les courbes de niveau du fichier actuel.

Sinon j'ai une solution géométrique on section la surface avec le plan z=cte, chaque facette va donner un segment ou rien, on trace ensuite la liste des segments, mais quand on zoom ce n'est pas très joli, on voit les raccords.

Ah ouais...

T'aurais un exemple pour voir ce que ca donne en fenêtre "normale" et après avoir zoomer?

Alphonse Capriani a écrit:Ah ouais...

T'aurais un exemple pour voir ce que ca donne en fenêtre "normale" et après avoir zoomer?

Je n'ai pas trop le temps de faire les snapshots, donc je te mets le code d'un exemple (1.94):

Code:


% TeXgraph version 1.94 beta-0
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-4.7368#5.4947#-1.5631#8.242#0.97737379660851#0.97737379660851##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0.5#0.5#0.5#0.5#0#1#1##
% Affectation des Variables theta et phi et type de perspective
18##[theta:=-1.862, phi:=1.1144, OriginalCoord(1),ModelView(ortho)]##
% Déclaration des Macros
% Déclaration des Eléments graphiques
% objet1 (Utilisateur)
18##[FillStyle:=1,tMin:=-5,tMax:=5]##
14#objet1#[S:=GetSurface([u+i*v,u*v*exp(-u)], 5*i,10*i,35+35*i),
 S1:=SortFacet(S),
 DrawPolyNC(S,1),
 FillStyle:=none, Width:=4, Color:=red,
 Ligne3D(
 Map( if Re(z)=Re(jump) then {facette}
      f1:=ClipFacet(facette,[[0,2],vecK],f2,inter),
      if Fvisible(facette) then inter,jump fi,
      facette:=Nil
      else Insert(facette,z)
      fi, z, S1)
 ,0)
]
#-1##


En effet, je viens de tester ton exemple et il est vrai que ca donne des résultats pas très nets. En voici la preuve en image : (J'ai changé la fonction de ton exemple car elle illustrait mal les problèmes rencontrés)


Désolé pour la taille excessive de la première image.

J'ai repris mon fameux exemple (que je trouve assez joli). La ligne de niveau z=2.6 pose alors problème ce qui n'était heureusement pas le cas en utilisant ton merveilleux fichier!!!

Je ne pense pas qu'il y a ait de problème car il y a une partie de la courbe qui est sur des facettes visibles mais qui est en réalité cachée par une autre partie de la surface. J'ai le même problème avec l'autre fichier! Et pour countourner ce problème je vois la solution suivante: dessiner la courbe en même temps que les facettes! Essaye cet élément graphique à la place de l'autre:

Code:


[S:=GetSurface([u+i*v,(u+v)/(2+cos(u)*sin(v))], 5*i,10*i,35+35*i),
 S1:=SortFacet(S,i),
 
 Map( if Re(z)=Re(jump) then {facette}
      f1:=ClipFacet(facette,[[0,2.6],vecK],f2,inter),
      FillStyle:=full, Width:=2,Color:=black,
      Ligne3D([facette,z],1),
      if Fvisible(facette) then
        FillStyle:=none, Width:=4,Color:=red,
        Ligne3D(inter,0)
      fi,
      facette:=Nil
      else Insert(facette,z)
      fi, z, S1)
] 


En effet, le problème précédent est résolu!!! En voici la preuve :

Reste le problème des zooms intenses (800 ou plus) où on voit les raccords, mais là...

Ouais : en même temps, je sais pas s'il est souvent utile de zoomer a x800 voir plus!!

Ce que je veux dire, c'est que s'il n'y a pas d'autre alternative, celle ci reste acceptable...