Calcul de la distance minimale entre deux droites dans l'espace - coordonnées des deux points les plus proches et de leur mi

Soyez le premier à donner votre avis sur cette source.

Vue 22 713 fois - Téléchargée 1 041 fois

Description

Ce programme calcule la distance la plus courte entre deux droites quelconques dans l'espace, dans le cas général.
Il faut connaître deux points de chaque droite
Les deux points les plus proches entre les deux droites sonts calculés ainsi que leur milieu
On saisit les valeurs pour les points A et B d'une droite ainsi que C et D pour l'autre droite
Puis on lance par la commande CALCUL

Source / Exemple :


Dans le zip

Conclusion :


Merci pour vos commentaires

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
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
968
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
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.