begin process at 2012 02 17 08:27:38
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > COORDONNÉES CARTÉSIENNES -> POLAIRES (ANGLE À PARTIR D'UN POINT)

COORDONNÉES CARTÉSIENNES -> POLAIRES (ANGLE À PARTIR D'UN POINT)


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Classé sous :coordonnees, polaires, angle, point, trigonometrie Niveau :Débutant Date de création :11/02/2004 Date de mise à jour :12/02/2004 19:08:11 Vu :12 606
Auteur : Vb Lover

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

voilà un petit code qui permet de trouver l'angle que fait un point (x,y) avec l'axe des x, et sa distance à l'origine.

En clair, il inverse les relations :

X = R * Cos(Angle)
Y = R * Sin(Angle)

Ce n'est pas très compliqué, mais il marche dans tous les cas, ce que je n'ai pas souvent vu sur ce site ... :)
L'angle final est donné en radian, et est compris entre 0 et 2 Pi.
Pour le convertir en degré : Angle = 180 * Angle / Pi

Source

  • ' Remarque :
  • ' Angle, R et Pi sont des variables globales
  • ' Pi = 3.1415926... ou Pi = 4*Atn(1)
  • Private sub Polaire(ByVal X As Single, ByVal Y As Single)
  • R = Sqr(X ^ 2 + Y ^ 2)
  • If R = 0 Then Exit sub
  • If X = 0 Then
  • Angle= Sgn(Y) * Pi / 2
  • Else
  • Angle = Atn(Y/X)
  • if X < 0 then Angle = Pi + Angle
  • End If
  • If Angle < 0 Then
  • Angle = Angle + 2 * Pi
  • End If
  • End sub 
' Remarque :
' Angle, R et Pi sont des variables globales
' Pi = 3.1415926... ou Pi = 4*Atn(1)


Private sub Polaire(ByVal X As Single, ByVal Y As Single)

R = Sqr(X ^ 2 + Y ^ 2) 
If R = 0 Then Exit sub

If X = 0 Then
  Angle= Sgn(Y) * Pi / 2
Else
  Angle = Atn(Y/X)
  if X < 0 then Angle = Pi + Angle
End If

If Angle < 0 Then
  Angle = Angle + 2 * Pi
End If

End sub



 Sources du même auteur

Source avec Zip SAVOIR SI UN POINT (3D) EST DANS UN TRIANGLE / PYRAMIDE
Source avec Zip Source avec une capture SUDOKU MANIA
Source avec Zip RENOMMER DES FICHIERS, AVEC INCRÉMENTATION
Source avec Zip PUISSANCE 4 AVEC IA
INVERSION DE MATRICES
Toutes les sources de Vb Lover

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5
Toutes les sources de la catégorie Maths

 Sources en rapport avec celle ci

Source .NET (Dotnet) CALCULER UN ANGLE par michael59330
RETROUVER UN POINT À PARTIR D'UN AUTRE POINT ET D'UNE DISTAN... par michael59330
Source avec Zip Source avec une capture INFO POINT DE COURBE DE GRAPHIQUE EXCEL, QUI FONCTIONNE COMM... par bigfish_le vrai
UN CDBL QUI GERE LES OPTIONS REGIONAL CONCERANT LE SEPARATEU... par Nic0s
Source avec Zip Source avec une capture POINT ET VIRGULE EN VB6 par APAT

Commentaires et avis

Commentaire de pcourtade le 14/05/2007 16:36:00

Merci Vb Lover je vais utiliser ce truc trés prochainement

Commentaire de RicoNuch le 01/08/2009 22:51:02 10/10

Merci Vb Lover.

Commentaire de Glennouchet le 05/01/2012 15:36:42 10/10

impec! merci d'avoir partagé!

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Angle d'une image... Assez urgent! :-) [ par WebMagique ] Je veux faire un jeu de course de voitures 2D en VB6...J'ai une image de voiture dont l'avant est à gaucheExemple: /¯¯¯|¯\¯¯¯¯¯|¯¯¯¯¯/|¯¯ Mouvement d'un PictureBox [ par Wite18 ] Bonjour!ce que je veux faire c'est ceci : faire partir une image dans un picture box a un poit au hasard dans ma form1 et la faire glisser sur les cot Probleme VB Excel! [ par boujou ] En fait, mon problème est le suivant et je n'arrive pas à m'en sortir :Comment puis-je recuperer les coordonnees (numero de ligne et lettre de la colo Rotations 90 ou autre angle rapides svp de l'aide [ par Anthomicro ] Salut tt le monde !j'ai fait une appli de retouche d'image et j'aimerais trouver des codes rapides pour la rotation d'image en vb sans dll.( moins de Écrire ligne texte (angle 90°) dans un picture box [ par boursicotteur ] J'essai d'écrire une ligne de texte avec un angle de 90 degrés dans un picturebox mais je ne trouve pas les instructions pour le faire.Merci pour votr Trigonometrie [ par legion91 ] extrait de code de mon projet de calcullette:Text5.Text = Sin(CDbl(Text1.Text) * 3.14159265358979 / 180)Text5.Text = Cos(CDbl(Text1.Text) * 3.14159265 Une ScrollBar Circulaire... [ par Daroylan ] Bonjour a tous,Tout d'abord, je vous previens, je ne suis pas developpeur mais peut-etre un jour le deviendrais-je.....Quoiqu'il en soit, pour une ide trait à angle droit [ par TouTenN ] BonjourAvec la commande LINE, je trace des traits à 45° mais leurs extrémités sont arrondies.Comment puis obtenir ces extrémités plates (à angles droi COMMENT AVOIRE LES COORDONNEES DE LA SOURIE EN ETANT SOUS WINOWS, [ par JJB ] JB JE VOUDRAI RECUPERER LES COORDONNEES ET LE BACCOLOR DU POINTEUR DANS MON PROGRAMME VB EN AYANT LE POINTEUR HORS DDE LA FENETRE DE VB? Connaître le sens de rotation d'une imprimante [ par PROGRAMMIX ] J'utilise du code de René38 pour réaliser des impressions de texte écrit verticalement.Malheureusement, le code utilisé ne fonctionne pas toujours de


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo Multiple Buttes of Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,139 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)