begin process at 2012 02 13 23:47:55
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > INVCOS, INVSIN & DETECTEPOINTOFCERCLE: PRÉCIS

INVCOS, INVSIN & DETECTEPOINTOFCERCLE: PRÉCIS


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Classé sous :invcos, invsin Niveau :Débutant Date de création :05/02/2001 Vu :2 656
Auteur : Warning

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

InvCos donne la valeur d'un angles à partir de son cosinus.

InvSin donne la valeur d'un angles à partir de son sinus.

DetectePointOfCercle donne l'absisse d'un point d'un cercle à partir de son ordonné, ou l'inverse.

Source

  • Function InvCos(ValueCos As Double)
  • If ValueCos = 0 Then
  • InvCos = 90
  • Else
  • Dim Pi, ValueSin, ValueTan, Result
  • Pi = (4 * Atn(1))
  • ValueSin = Sqr(1 - ((ValueCos) ^ 2))
  • ValueTan = ValueSin / ValueCos
  • Result = Atn(ValueTan) * (180 / (4 * Atn(1)))
  • If Result < 0 Then
  • InvCos = 180 + Result
  • Else
  • InvCos = Result
  • End If
  • End If
  • End Function
  • Function InvSin(ValueSin As Double)
  • If ValueSin = 0 Then
  • InvSin = 0
  • Else
  • Dim Pi, ValueCos, ValueTan, Result
  • Pi = (4 * Atn(1))
  • ValueCos = Sqr(1 - ((ValueSin) ^ 2))
  • ValueTan = ValueSin / ValueCos
  • Result = Atn(ValueTan) * (180 / (4 * Atn(1)))
  • If Result < 0 Then
  • InvSin = 180 + Result
  • Else
  • InvSin = Result
  • End If
  • End If
  • End Function
  • Function DetectePointOfCercle(Rayon, Position, Party)
  • If Party = 1 Then
  • DetectePointOfCercle = Rayon - (Rayon * (Sin(InvCos((Rayon - Position) / Rayon) * ((4 * Atn(1)) / 180))))
  • Else
  • DetectePointOfCercle = Rayon + (Rayon * (Sin(InvCos((Rayon - Position) / Rayon) * ((4 * Atn(1)) / 180))))
  • End If
  • End Function 
Function InvCos(ValueCos As Double)
If ValueCos = 0 Then
InvCos = 90
Else
Dim Pi, ValueSin, ValueTan, Result
Pi = (4 * Atn(1))
ValueSin = Sqr(1 - ((ValueCos) ^ 2))
ValueTan = ValueSin / ValueCos
Result = Atn(ValueTan) * (180 / (4 * Atn(1)))
If Result < 0 Then
InvCos = 180 + Result
Else
InvCos = Result
End If
End If
End Function

Function InvSin(ValueSin As Double)
If ValueSin = 0 Then
InvSin = 0
Else
Dim Pi, ValueCos, ValueTan, Result
Pi = (4 * Atn(1))
ValueCos = Sqr(1 - ((ValueSin) ^ 2))
ValueTan = ValueSin / ValueCos
Result = Atn(ValueTan) * (180 / (4 * Atn(1)))
If Result < 0 Then
InvSin = 180 + Result
Else
InvSin = Result
End If
End If
End Function

Function DetectePointOfCercle(Rayon, Position, Party)
If Party = 1 Then
DetectePointOfCercle = Rayon - (Rayon * (Sin(InvCos((Rayon - Position) / Rayon) * ((4 * Atn(1)) / 180))))
Else
DetectePointOfCercle = Rayon + (Rayon * (Sin(InvCos((Rayon - Position) / Rayon) * ((4 * Atn(1)) / 180))))
End If
End Function



 Sources du même auteur

Source avec Zip Source avec une capture GESTION CARACTÈRE ÉTRANGÉ AINSI/UNICODE (RUSSES, CHINOIS, JA...
Source avec Zip GRAVITÉ/SATELLISATION ET REBOND (REGLES DE TRIGONOMÉTRIE ET ...
Source avec Zip Source avec une capture FORME D'UN FORMULAIRE(NOUVELLE MÉTHODE)-(SANS LES API 'REGIO...
Source avec Zip Source avec une capture TPE - EXE DISASSEMBLER / UN DÉSASSEMBLEUR DE PROGRAMME
Source avec Zip Source avec une capture TOOLBAR DEPLACABLE ET DETACHABLE DE LA FENETRE...
Toutes les sources de Warning

 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

Commentaires et avis

Commentaire de Tiscripteur le 10/04/2004 16:19:35

Tu devrais donner des explications pour cette fonction:
Function DetectePointOfCercle(Rayon, Position, Party)
A quoi correspondent les paramètres ?

Moi, j'ai cherché comment détecter un hit avec un disque pour un jeu que je faisais pour mon petit frère... Ta fonction, c'est la même chose avec un cercle si je comprend bien...

Donc, j'ai cherché environ 30 secondes. J'en suis arrivé à la conclusion suivante: Si un point apparitient à un disque, c'est que la distance entre ce point et le centre du cercle est inférieure ou égale au rayon. Si c'est seulement égal, il apparitient au cercle.

J'ai donc codé ça:
Carre1 = CentreRocherX - PointCoorX
Carre2 = CentreRocherY - PointCoorY
Carre3 = Rayon
Carre1 = Carre1 * Carre1
Carre2 = Carre2 * Carre2
Carre3 = Carre3 * Carre3
If Carre3 &gt;= Carre1 + Carre2 Then Boom = True

CentreRocherX, CentreRocherY: Coordonnées X et Y du centre du cercle
PointCoorX, PointCoorY: Coordonnées X et Y du point
Rayon: Rayon du cercle

S'il y a des gens que ça intéresse, servez-vous...

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Renewable Energy is Within Reach
Photo Single Large Rock Formation in 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 : 0,749 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)