Bienvenue sur les forums conseil & création · S'enregistrer

Se connecter automatiquement

Forums » Programmation » Programme du simplexe · Envoyer le lien

Par azerty, le 14 Fév 2004, 02:13 Revenir en haut de page Répondre en citant

Je posséde une caculatrice de type CASIO 8800, je souhaiterai prendre connaissance du programme du simplexe que l'on utilise en recherche opérationnelle ou en statistique.
merci
Par Cédric, le 14 Fév 2004, 14:58 Revenir en haut de page Répondre en citant

Citation:
je souhaiterai prendre connaissance du programme du simplexe que l'on utilise en recherche opérationnelle ou en statistique

"Prendre connaissance" ?! Tu veux dire que tu souhaites un programme qui calcule les solutions par la méthode du simplexe ?!

N'ayant pas de Casio je ne peux pas te donner de programme complet mais ça t'aidera certainement de voir un programme similaire pour Texas Instrument ?! si tu as des questions sur le fonctionnement d'une fonction sur Casio demandes toujours...

Si vraiment tu ne connais pas la programmation ou que tu cherches des programmes d'exemple, il existe un ouvrage dédié aux mathématiques sur Casio (programmes utilitaires).

Citation:
Programme du simplexe sur Texas Instrument :
Lbl 9:ClrHome:Disp "%SIMPLEXE%"
Disp "1-INPUT"
Disp "2-DISP"
Disp "3-CALC"
Disp "4-RESULT"
Input A
If A=1:Goto 1
If A=2:Goto 2
If A=3:Goto 3
If A=4:Goto 4
Return
Lbl 1
Disp "Max(Ax+By)":Input "A=",A
Input "B=",B
{A,B}->L5:0->N
Lbl 8:ClrHome
Disp "Contrainte",N
Disp "Ax+By<=C"
Disp "{0}=End"
Input "{A,B,C}=",L6
If 1=Dim L6: Goto 9
N+1->N
L6(1)->L5(3N):L6(2)->L5(3N+1):L6(3)->L5(3N+2)
Goto 8
Lbl 2
Disp "Fct a Max",{L5(1),L5(2)}
(Dim L5-2)/3->N
Disp "CONTRAINTES",N
For (I,1,N)
Disp {L5(3I),L5(3I+1),L5(3I+2)}
End
Input I:Goto 9
Lbl 3
Disp "Computing..."
Prgm_Simplex
Lbl 4
If 2>Dim L6
Then: Disp "PAS DE SOL":Else
Disp "Max=",A
If 5>Dim L6
Then:Disp "Point:"
Else:Disp "Droite:":End
Disp L6:End
Input I: Goto 9
-1e90->A:{0}->L6:(Dim L5-2)/3->N
For (I,I,N-1)
3I->U
For (J,I+1,N)
3J->V
L5(U)*L5(V+1)-L5(U+1)*L5(V)->C
If C<>0:Then
(L5(U+2)*L5(V+1)-L5(V+2)*L5(U+1))/C->X
(L5(V+2)*L5(U)-L5(U+2)*L5(V))/C->Y
Max(Seq(L5(3K)X+L5(3K+1)Y-L5(3K+2),K,1,N,1))->D
IF 0>=D:Then
X*L5(1)+Y*L5(2)->D:Disp {I,J,D}
If D=A:Then
Dim L6->C
I->L6(C+1):J->L6(C+2):X->L6(C+3):Y->L6(C+4)
End
If D>A:Then
D->A:{I,J,X,Y}->L6:End
End:End
End:End


@+, Cédric.

Forums » Programmation » Programme du simplexe · Envoyer le lien