[R] Algèbre ?

[Affen]

Bonjour à tous!,

Alors voilà, je post ici pour me renseigner et savoir si vous pouviez faire un scrypt .au3
pouvant résoudre les équations algébrique du genre: "(a²(B³xa³))³=B³xB³xa²".

Merci d'avance en attendant une réponse.

[L4crymal]

Lol... c'est déjà compliquer en vrai, alors après si il faut le faire en prog :p

[OmegAMRS]

ouuuu je sens le mal de crâne poindre...

[Yogui]

idem je ne suis plus certain d'y arriver à la main alors le programmer :s trop de paramètre et trop de règle à prendre en compte

[Affen]

idem je ne suis plus certain d'y arriver à la main alors le programmer :s trop de paramètre et trop de règle à prendre en compte

C'est ce que je mettais dis aussi^^. même un pro aurais de la difficulté.

Merci de vos réponses, vous pouvez fermer le topic

[jbnh]

En soi, si tu connais toi la technique, il y a aucun problème. Il suffit seulement de faire des +, -, * et / (des opérations quoi).

Cherche la méthode de résolution, le code doit etre très simple.

Néanmoins, Je ferme le topic a ta demande.

[20100]

Je n'ai pas très bien compris l'ecriture de ton équation (a²(B³xa³))³=B³xB³xa², de la manière dont je l'ai compris elle est équivalente à ((a*a*a*a*a)*(B*B*B)*x)³ = B*B*B*x*B*B*B*x*a*a et donc très simple à résoudre, en tout les cas voila un exemple pour la résolution de cette équation.

;(E) <=> (a²(B³xa³))³=B³xB³xa²
; 1) Si a=0 alors tout B réel et tout x réel sont solutions de (E)
; 2) Si B=0 alors tout a réel et tout x réel sont solutions de (E)
; 3) Si a!=0 et B!=0
; (E) <=> (a²(B³xa³))³=B³xB³xa²
; (E) <=> ((a*a*a*a*a)*(B*B*B)*x)³ = B*B*B*x*B*B*B*x*a*a
; (E) <=> expo(a,15) * expo(B,9) * expo(x,3) = expo(B,6) * expo(a,2) * expo(x,2)
; (E) <=> expo(a,13) * expo(B,3) * expo(x,3) - expo(x,2) = 0
; (E) <=> expo(x,2) * [ (expo(a,13) * expo(B,3))*x - 1] = 0
; Alors x = 0 ou bien x = 1 / (expo(a,13) * expo(B,3))

Code : Tout sélectionner

Func _expo($x, $puissance)
    Local $result = $x
    Select      
    Case $puissance = 0
        $result = 1
    Case $puissance > 1
        For $i=1 To $puissance-1 Step 1
            $result = $result * $x
        Next
    Case $puissance < 0
        $result = 1/_expo($x, -$puissance)
    EndSelect
    Return $result
EndFunc

Func _resolve($a, $B)
ConsoleWrite("--------------------------------------------------------------------"&@CRLF)
ConsoleWrite("Resoudre l'équation (E) <=> (a²(B³xa³))³=B³xB³xa² avec a="&$a&" et B="&$B&@CRLF)
    Select
    Case $a=0
        ConsoleWrite("Comme a=0 alors tout B réel et tout x réel sont solutions de (E)"&@CRLF)
    Case $B=0
        ConsoleWrite("Comme B=0 alors tout a réel et tout x réel sont solutions de (E)"&@CRLF)
    Case ($a<>0 AND $B<>0)
        ConsoleWrite("x = 0 et x = "&1 / (_expo($a,13) * _expo($B,3))&" sont solutions de (E)"&@CRLF)
    EndSelect
EndFunc

 _resolve(1, 2)