Programm für Pivot/simplex

[Quiricia]

hallo, ich bräuchte für meinen cfx-9850g ein programm was folgendes kann [URL]http://college.hmco.com/mathematics/shared/content/gcp/ti85/pivot85.pdf[/URL]
leider hab ich das prog nur für einen ti-85 und auch kein datenkabel, müßte also den code haben.
wäre ganz lieb wenn mir jemand helfen könnte

so und dann noch eine frage...bei einem quellcode von casio selbst steht immer ein das gibts aber als zeichen auf meinen taschenrechner gar nicht.

[caspro]

PIVOT:

Dim Mat A
List Ans[1]->R
ClrText
"PIVOT ROW"
?->P
"PIVOT COLUMN"
?->Q
1%Mat A[P,Q]->N
*Row (N,A,P
For 1->I To R
If I=P
Then Goto 2
IfEnd
-Mat A[I,Q]->M
*Row+ (M,A,P,I
Lbl 2
Next
Mat A

Für % die Taste [ab/c] benutzen.

Das andere Thema auch mal ansehen:
"Wie mache ich Lineare Optimierung, Transportoptimierung, Bas..."