begin process at 2012 02 16 14:58:08
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Maths

 > RESOLUTION D'EQUATIONS TRIGONOMETRIQUES

RESOLUTION D'EQUATIONS TRIGONOMETRIQUES


 Information sur la source

Note :
Aucune note
Catégorie :Maths Classé sous :arccos, arcsin, cercle trigonometrique Niveau :Débutant Date de création :16/02/2008 Date de mise à jour :24/02/2008 00:54:37 Vu / téléchargé :15 090 / 482

Auteur : Abdelelansari

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

 Description

C'est un programme pour debutants pour la resolution d'equations trigonometriques sous  forme acos(wx)+bsin(wx)=c.
J'aime terminer ce programme en mettant les solutions de l'equation sur le cercle trigonometrique et tracer les rayons correspondants(vous pouvez le faire aussi)

Source

  • L'algorithme provient du bouquin des calculatrices programables que j'ais transformé à un programme en VB par mes connaissances de debutant.
L'algorithme provient du bouquin des calculatrices programables que j'ais transformé à un programme en VB par mes connaissances de debutant.

 Conclusion

J'aime la programation en VB et je fais de mon mieux car je n'ais pas fait de formation dans ce domaine (autoformation).
Donne-moi vos suggestions et conseils .
                             Merci infiniment

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

16 février 2008 23:07:23 :
Mettre les solutions de l'equation sur le cercle trigonometrique
24 février 2008 00:54:37 :
Correction de la grammaire

 Sources du même auteur

Source .NET (Dotnet) RESOLUTION D'EQUATIONS DU TROISIEME DEGRE'

 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

 Sources en rapport avec celle ci

FONCTIONS TRIGONOMÉTRIQUES par Simboy

Commentaires et avis

Commentaire de CFCTABLE le 23/02/2008 11:41:01

Private Sub Command1_Click()
    ' Rendre le programme plus lisible en
    ' -regroupant les déclarations de variables
    ' -en faisant des identations (décalages) sur  les boucles et conditions
    ' -ajoutant des explications en commentaires
    '
    ' Attention à width , height.. il est préférable de les associer à la feuille
    ' - equatrigo.Width etc...
    '
    ' utiliser un contrôle listbox plutot que le textcontrol dans ce cas précis..
    '
    ' Je vous ai remis un exemple pour mettre les solutions sur le cercle.
    ' Bon courage
    
    Dim PI As Double
    Dim D As Double
    Dim H As Double
    Dim E As Double
    Dim J As Double
    Dim N As Byte
    ReDim K(100) As Double
    ReDim L(100) As Double
    Dim wa, wb, WR As Integer
    
    PI = 4 * Atn(1)
    A = Val(Text1.Text)
    B = Val(Text2.Text)
    C = Val(Text3.Text)
    W = Val(Text4.Text)
    D = Sqr(A ^ 2 + B ^ 2)
    H = C / D
    If Abs(H) > 1 Then
        Text5(0).Text = " L'equation n'a pas de solution "
    Else
        E = Atn(-H / Sqr(-H * H + 1)) + 2 * Atn(1)
        J = Atn((B / D) / Sqr(-(B / D) * (B / D) + 1))
        For N = 0 To W - 1
            K(N) = (E + J + (2 * N * PI)) / W
            L(N) = (-E + J + (2 * N * PI)) / W
        Next N
        equatrigo.Width = Screen.Width * 0.54
        equatrigo.Height = Screen.Height * 0.88
        equatrigo.Left = (Screen.Width - Width) / 2
        equatrigo.Top = (Screen.Height - Height) / 2
        
        
        WR = 3200
        wa = Me.Width * 2 / 3
        wb = Me.Height / 2 + 800
        equatrigo.DrawWidth = 3
        equatrigo.PSet (wa, wb), vbRed
        equatrigo.Circle (wa, wb), WR, vbRed
        
        Text5(0).Text = "  " & K(0) & " et " & L(0)
        For N = 1 To W - 1
            Load Text5(N)
            Text5(N).Top = Text5(N - 1).Top + 850
            Text5(N).Visible = True
            Text5(N).Text = "  " & K(N) & " et " & L(N)
        Next N
        For N = 0 To W - 1
            equatrigo.Line (wa, wb)-(wa + WR * Cos(K(N)), wb + WR * Sin(K(N))), vbBlack
            equatrigo.Line (wa, wb)-(wa + WR * Cos(L(N)), wb + WR * Sin(L(N))), vbBlue
        Next N
    End If
End Sub

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" [ par labriji ] Salut : Je cherche un programme qui calcule les valeurs de :" racine nièmme "  et " arctan " et " arcsin "c-a-d  les bibliothéques


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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 : 4,618 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales