CALCUL DE LA DISTANCE MINIMALE ENTRE DEUX DROITES DANS L'ESPACE - COORDONNÉES DE

Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
- - Dernière réponse : lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
- 30 janv. 2012 à 22:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/35051-calcul-de-la-distance-minimale-entre-deux-droites-dans-l-espace-coordonnees-des-deux-points-les-plus-proches-et-de-leur-milieu

Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
j'ai un peu de mal....

soit les droites sont parallèles, auquel ca, la distance la plus proche est 0

soit elles sont parallèles, auquel ca, la distance minimale est de toute facon la seule distance que tu peux obtenir...

coté code :

l'utilisation de
Global ax, ay, az, bx, by, bz, cx, cy, cz, dx, dy, dz, a, b, c, d, e, f
Global g, h, i, j, k, l, m, n, o, p, q, dt, r, s, t, u, v, x, X2, z, Z2, y, Y2
Global X1, Y1, z1, xm, ym, zm
est tout simplement inconcevable, nous ne sommes plus en Basic sur CPC6128...

le code :
Dim ax, ay, az, bx, by, bz, cx, cy, cz, dx, dy, dz, a, b, c, d, e, f As Double
Dim g, h, i, j, k, l, m, n, o, p, q, dt, r, s, t, u, v, X, X2, z, Z2, Y, Y2 As Double
Dim X1, Y1, z1, xm, ym, zm As Double

ne déclare que f, Y2 et zm en tant que double, les autres sont tous des Variant

por le reste, les commentaire gaches un peu la lecture, mais les calculs mis en oeuvre me parraissent un peu trop complexes
cs_juju12
Messages postés
966
Date d'inscription
samedi 3 avril 2004
Statut
Membre
Dernière intervention
4 mars 2010
4 -
2 droites non parallèles ne se croisent pas nécessairement dans l'espace...
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
ah ok, "dans l'espace" veux dire en 3D....
pourquoi chercher des mots simples...
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
Salut, plusieurs remarques.

1) Un des deux form inutile, le module aussi
2) mauvaise déclaration des variables :
Global ax, ay, az, bx, by, bz, cx, cy, cz, dx, dy, dz, a, b, c, d, e, f où est passé le type de données ???
Dim X1, Y1, z1, xm, ym, zm As Double seule zm est déclarée en double, le reste l'est en Variant...

Comme pour ton autre source sur le même thème, une mise à jour est nécessaire il me semble...

Renfield ==> "dans l'espace" est le terme mathématique approprié. "en 3D" le sous entend, mais il n'y a pas que l'espace qui est en 3 dimensions...
@+
cs_bgu
Messages postés
4
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2006
-
Je n'ai pas regardé ton code.
Mais le zip "Methode de calcul.zip" me servira.
Merci.
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour BGU.

Tout commentaire sur ce zip sera intéressant.
A plus et Merci.
valentin_02
Messages postés
1
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
7 janvier 2007
-
bonjour,

comment je lance votre programme ?
mon pc ne reconnais aucune de ces extensions, meme si moi je sais que c'est du vb :S ?
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
du VB6, nous sommes d'accord
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour VALENTIN_02

Comme te l'a suggéré RENFIELD, il te faut avoir VB6
pour pouvoir utiliser les sources en VB6 qui sont déposées
sur CodeS SourceS
Des exécutables en .exe ne sont pas autorisés.

A plus.
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour.

Voici l'adresse où l'on peut télécharger la version
installable du programme "Distance droite droite":

http://jolopop31.free.fr/JP/VB6/Distance droite droite/Package

Double-cliquer sur "Package",(une fois qu'il a été téléchargé).
Il faut ensuite lancer l'installation par le setup.exe.
Puis quand l'installation est terminée,
Faire: Démarrer ... Tous les programmes ... projet1 ... projet1

Sur le Sîte " CodeS SourceS ", on a pas l'autorisation
de mettre à disposition des programmes contenant des fichiers avec l'extension " .exe ".
Pour tout renseignements, ne pas hésiter.
A plus
JP
cs_supergrey
Messages postés
475
Date d'inscription
vendredi 27 juin 2003
Statut
Membre
Dernière intervention
20 septembre 2010
-
Bonjour, et merci pour ta source, j'avais besoin de cette methode dans un programme c++, apparemment elle fonctionne parfaitement !
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour SUPERGREY et, avec beaucoup de retard, merci pour ton appréciation.
C'est toujours bien de savoir pour quelle occasion cette source a pu servir.
A plus.
Bububibibobo
Messages postés
1
Date d'inscription
mardi 25 janvier 2011
Statut
Membre
Dernière intervention
25 janvier 2011
-
Bonjour !

Je vous remercie pour ce dossier, je me suis servi du "Methode de calcul.zip" pour mon projet portant sur l'utilisation de la stéréo-vision.
Les premiers résultats paraissent excellent !
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour Bububibibobo
Merci à toi aussi pour tes précisions
A plus
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour.

Voici l'adresse où l'on peut télécharger la version
installable du programme "Distance droite droite":

http://jolopop31.free.fr/JP/VB6/Distance droite droite/Dist-droite-droite.rar

Extraire les fichiers du .rar
Il faut ensuite lancer l'installation par le setup.exe.
Puis quand l'installation est terminée,
Faire: Démarrer ... Tous les programmes ... projet1 ... projet1

A plus
JP
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
Tous les programmes ... projet1 ... projet1

pas très propre, ça...
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour Renfield.
Effectivement j'aurais dû nommer "projet1" de manière plus explicite.
Je vais modifier mes infos.
A plus et merci pour cette remarque.
lexsty
Messages postés
173
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017
-
Bonjour.suite à la remarque de Renfield :

Voici l'adresse où l'on peut télécharger la version
installable du programme "Distance droite droite":

http://jolopop31.free.fr/JP/VB6/Distance droite droite/Dist-droite-droite.rar

Extraire les fichiers du .rar
Il faut ensuite lancer l'installation par le setup.exe.
Puis quand l'installation est terminée,
Faire: Démarrer ... Tous les programmes ... Dist droite droite ... Distance droite droite.

A plus