[R] Besoin d'aide pour un petit calcul

[pierrotm777]

Bonjour,

J'ai un petit problème de calcul .

J'ai une variable ($pente) qui peut varier de +45° à -45° et une variable ($slider) qui peut aller de 65536 à 0.

En fait:
si la variable $pente = +45° ou supérieure, ma variable $slider doit valoir 65536
si la variable $pente = 0° ma variable $slider doit valoir 32768
si la variable $pente = -45 ° ou inférieure, ma variable $slider doit valoir 0.

Comment puis je écrire cela svp afin de connaitre la valeur de $slider pour $pente compris entre + et - 45°

Merci par avance.

[sksbir]

bonjour
ton énoncé est incomplet : quelle valeur doit avoir slider entre -45 et 45? tu précises pour 0, mais pas pour les autres valeurs de la fourchette.

si c'est idem 0 pour entre -45 et 45 alors

tu fais ça en 3 tests.

if ($PENTE >= 45) then
$slider=65535
elseif ($pente >-45 ) and ( $pente <45) then
$slider=32768
else
$slider=0
endif

[pierrotm777]

C'est bien mon problème.
J'ai eu la même idée que vous et j'avais pensé à trois tests aussi:

Code : Tout sélectionner

If $pente > 0 Then $slider = Round(Abs(65536/$pente)
If $pente < 0  Then $slider = Round(Abs(1/$pente))
If $pente = 0  Then $slider = 32768

Je viens de penser à une solution de calcul assez simple.
Si mon slider possède 20 positions, il en a alors 10 entre +-45° .

Mais cela ne me donne pas une solution au ° prét , bien que je pense que cela devrait suffire .
Il faudrait donc diviser (65536-32768)/9 et 45/9 avec une solution de 5° en 5°.

Qu'en pensez vous ?

[matwachich]

Désolé sksbir mais ta réponse n'a rien à voir!

voila!

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 178, 104, 432, 246)
$Label1 = GUICtrlCreateLabel("Pente", 8, 40, 32, 17)
$Label2 = GUICtrlCreateLabel("Slider", 8, 8, 30, 17)
$Input1 = GUICtrlCreateInput("", 48, 8, 121, 21)
$Input2 = GUICtrlCreateInput("", 48, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 56, 72, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _calc()

    EndSwitch
WEnd

Func _calc()
    $pente = GUICtrlRead($Input1)
    If $pente > 45 Or $pente < -45 Then Return

    $slider = (65536/90)*($pente+45)
    GUICtrlSetData($Input2, $slider)
EndFunc

Au fait, voici le raisonnement:
Tu veut ça:
- P = 45 => S = 65536
- P = 0 => S = 32768
- P = -45 => S = 0

Si on prend une nouvelle variable P2 = P + 45, on aura:
- P + 45 = 90 => S = 65536
- P + 45 = 45 => S = 32768
- P + 45 = 0 => S = 0
Donc:
- P2 = 90 => S = 65536
- P2 = 45 => S = 32768
- P2 = 0 => S = 0

C'est déja plus facile à résoudre!
prenons le premier cas:
S = (65536 / 90) x P2
=> S = (65536 / 90) x (P + 45)

Et voici l'équation qui donne S à partir de P

(Et ouais, j'ai eu 19/20 en math au bac!!! )

[pierrotm777]

Je test ça , mais cela m'a l'air d'être ce dont j'ai besoin !

[Iste]

Heu ouais enfin, c'est qu'un simple produit en croix hein

Sinon, pensez a rendre vos fonctions aussi génériques que possible

Code : Tout sélectionner

Func _calc($pente)
    Local $slider, $penteAbs
    
    $penteAbs = $pente
    If $penteAbs < -45 Then $penteAbs = -45
    If $penteAbs > 45 Then $penteAbs = 45
    
    $slider = (65536/90)*($penteAbs+45)
    
    Return $slider
EndFunc

Et également a utiliser les balises de code dans vos messages.

[sksbir]

Désolé sksbir mais ta réponse n'a rien à voir!

A mon tour d'être désolé, mais je maintiens ce que j'ai dit : l'énoncé est incomplet, car il n'est précisé nulle part que la variable de sortie doit avoir une valeur linéaire de 0 à 655535 en fonction de la variable d'entrée dans la fourchette -45 à +45

Ceci dit, belle extrapolation, et belle réalisation

[pierrotm777]

Merci à tous pour votre intérêt pour mon problème qui est bien résolu.

[matwachich]

C'est vrai que c'est pas complete comme énoncé, mais regarde cette phrase:
"connaitre la valeur de $slider pour $pente compris entre + et - 45°"

Elle veut tout dire!!!

M'enfin bref! tout est bien qui fini bien!

PS: désolé pour les balises

[pierrotm777]

L'essentiel est d'être compris !