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

/* [wxMaxima: title   start ]
Aktienkurs berechnen
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1052
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
Gebiet: Finanzmathematik
******************************************

Alexander hat ursprünglich a1 = 200 Aktien vor j1 = 3 Jahren gekauft.
Inzwischen hat das Unternehmen einen Austausch des Aktienpakets
im Verhältnis v1 = 2/1 durchgeführt.
Dadurch hat sich bisher eine Wertsteigerung von p = 30% ergeben.
Der ursprüngliche Preis des Aktienpakets war P = 5200 €. Was ist
der momentane Preis (Kurs) einer Aktie?

Die Zahlenwerte sind nur beispielhaft.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
a1: read("Anzahl der gekauften Aktien");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
j1:read("Vor wie vielen Jahren wurden die Aktien gekauft?");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
v1:read("Verhältnis für den Tausch des Aktienpakets");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p:read("Wertsteigerung in %");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
P:read("Ursprüngliche Kosten für das Aktienpaket");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
a2:a1*v1;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
P2:P+P*p/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p2:P2/a2;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Der derzeitige Preis einer Aktie ist",p2,"€")$
/* [wxMaxima: input   end   ] */

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