Re: [Gambas-user-fr] Recursivite en gambas3

[PHG <fre...@gm...>]

Te souhaite bonne vendanges depuis l'€spagne du haut de mes 75!
Merci.

El jue., 20 sept. 2018 12:49, Fabien Bodard <gam...@gm...> escribió:

> Je vais tâcher de répondre avant le 76 ème 😊 du haut de mes 40.
>
> Il faut juste me laisser un peu de temps.. je suis en pleine vendange...
> mais le problème est vraiment intéressant et j'ai ma petite idée
>
> Le mar. 18 sept. 2018 23:56, Pierre Henri <pie...@gm...>
> a écrit :
>
>> Merci Fabien
>> en effet, mon probleme de rhombo fait partie d'un de mes projets.
>>
>> Je ne vias pas entrer dans le détail du Rhmbo, sauf que a partir d'un
>> formulaire dans le quel je
>> present les differents parametres du rhombo, je voudrai a partir
>> seulement de 2 parametres calculer les autres et eventuellement signaler
>> les erreurs..
>> ci-dessous. La recursivité dans le cas où l'arete
>>
>> la fonction que j'ai developpée qui me parait un peu 'lourde' ne
>> fonctionne pas dans tous les cas...
>> Y aurait-il une solution ? je voie pas très bien avec mes 75 printemps!
>>
>> 'CALCUL ROMBO EN FONCTION DE AU MOINS 2 6 PARAMETRES DEFINIS CI-DESSOUS
>> '1 Arete (les 4 aretes du rombo ont toutes la meme dimension)
>> '2 Rayon du cercle inscrit dans le rombo
>> '3 D1 premiere diagonale ( les diagonales sont perpendiculaires dans un
>> rombo)
>> '4 D2 deuxieme diagonale
>> '5 Alpha  angle diagonale 1 avec arete
>> '6 Beta   angle diagonale 2 avec arete
>> '7 perimetre (resultat)
>> '8 surface (resultat)
>> '9 centre de gravite (resultat)
>>
>> Public Function RomboCalcul() As Integer
>>
>>     Dim err As Integer
>>
>>     If arete > 0 Then
>>
>>         If d1 > 0 Then
>>             'calcul des angles a partir de D1 et arete
>>
>>             alpha = 2 * ASin(d1 / (2 * arete))
>>             beta = 2 * ACos(d1 / (2 * arete))
>>
>>         Else If d2 > 0 Then
>>             'calcul des angles a partir de D2 et arete
>>
>>             alpha = 2 * ACos(d2 / (2 * arete))
>>             beta = 2 * ASin(d2 / (2 * arete))
>>         Endif
>>         'ici les angles ont été calculés a partir de l'arete et d'une des
>> deux diagonales
>>         'on calcule le rayon inscrit dans le rombo
>>         ' rayon = Sqr(((d1 / 2) ^ 2) + ((d2 / 2) ^ 2))    '1) pythagore
>> facile pais
>>         ' rayon = (arete / 2) * Sin(alpha)                '2)
>>         rayon = (arete / 2) * Sin(beta)                   '3)
>>
>>         perimetre = arete * 4                   'un rombo a ses 4 cotes
>> egaux
>>
>>         surface = (arete ^ 2) * Sin(alpha)    'calcul de la surface
>> methode 1
>>         'ou surface=arete^2*sin(beta)
>>         'gravite=d2/2                        '
>>         gravite = arete * Cos(alpha / 2)    'cette methode on ne sait pas
>> si on a d1 ou d2
>>
>>         'calculer la  diagonale eventuellement manquante
>>         If d1 > 0 And d2 = 0 Then
>>             'calculer d2 a ce niveau on a alpha et beta calculés
>>             d2 = 2 * Cos(alpha / 2)
>>             'd2=2 sin(beta/2)                   'autre methode
>>
>>         Else If d1 = 0 And d2 > 0 Then
>>             'calculer d1 a ce niveau on a alpha et beta calculés
>>             d1 = 2 * arete * Sin(alpha / 2)
>>             'd1=2*arete*cos(beta/2)             'autre methode
>>         Endif
>>
>>     Else
>>         'ici l'arete n'est pas définie
>>         'dans ce cas, il nous faut au moins 2 diagonales
>>         'ou une diagonale et un angle
>>         'tout ca pour calculer l'arête !
>>         ' on commence par les diagonales
>>         If d1 > 0 And d2 > 0 Then
>>             'les deux diagonales sont définies
>>             arete = Sqr((d1 / 2) ^ 2 + (d2 / 2) ^ 2)
>>
>>             romboCalcul()     'calculer les autres parametres
>>
>>         Endif
>>     Endif
>>
>> End
>>
>>
>> Le 18 septembre 2018 à 09:46, Fabien Bodard <gam...@gm...> a
>> écrit :
>>
>>> Pour moi et mon niveau en math il va falloir être plus clair ... quel
>>> est le rapport entre la récurssivité et un rhombo ?
>>>
>>> Un rhombo étant pour moi un losange ...
>>>
>>> Le lun. 17 sept. 2018 à 20:15, Pierre Henri <
>>> pie...@gm...> a écrit :
>>>
>>>> Bonjour,
>>>> Confronte a un probleme de résolution trigonométrique je ne sais
>>>> comment résoudre ce problème.
>>>> Il s'agit de calculer un rhombo à partir de deux paramètres quels
>>>> qu'ils soient.
>>>> Merci de vos conseils et aide.
>>>> _______________________________________________
>>>> Gambas-user-fr mailing list
>>>> Gam...@li...
>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user-fr
>>>>
>>>
>>>
>>> --
>>> Fabien Bodard
>>>
>>>
>>> _______________________________________________
>>> Gambas-user-fr mailing list
>>> Gam...@li...
>>> https://lists.sourceforge.net/lists/listinfo/gambas-user-fr
>>>
>>>
>> _______________________________________________
>> Gambas-user-fr mailing list
>> Gam...@li...
>> https://lists.sourceforge.net/lists/listinfo/gambas-user-fr
>>
> _______________________________________________
> Gambas-user-fr mailing list
> Gam...@li...
> https://lists.sourceforge.net/lists/listinfo/gambas-user-fr
>