/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Silberlegierung mischen
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1084
Quelle: http://www.edhelper.com
******************************************

Thomas hat eine Silberlegierung mit p1 % Silber.
Toni hat eine Silberlegierung mit p2 % Silber.
Wie viel muss Thomas beisteuern, wenn die beiden eine Menge m
mit p3 % Silber herstellen wollen?
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
p1:read("Gib den Prozentsatz Silber in der ersten Legierung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p2:read("Gib den Prozentsatz Silber in der zweiten Legierung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
m:read("Gib die Masse der Mischung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p3:read("Gib den Prozentsatz Silber in der Mischung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
g1:x+y=m;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g2:p1*x+p2*y=p3*m;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve([g1,g2],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x1:ev(x,l[1][1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y1:ev(y,l[1][2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x1:x1,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x1:floor(x1*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y1:y1,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y1:floor(y1*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Menge von Thomas =",x1)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Menge von Anton =",y1)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$