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

/* [wxMaxima: title   start ]
Aufeinander folgende ganze Zahlen
   [wxMaxima: title   end   ] */

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

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

Wir betrachten n aufeinander folgende ganze Zahlen. Die Summe der
ersten m1 Zahlen ist um u kleiner als die Summe der restlichen m2
Zahlen. Was sind das für Zahlen?

Testdaten: n = 5
                   m1 = 2
                   u = 42
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
n:read("Wie viel aufeinanderfolgende Zahlen");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
m1:read("Wie viele erste Zahlen für die erste Summe");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
u:read("Um wie viel ist die erste Summe kleiner als die zweite");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
m2:n-m1;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
zahlen:makelist(x+i,i,1,n);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s1:sum(zahlen[i],i,1,m1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s2:sum(zahlen[i],i,m1+1,n);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:s1+u=s2;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
zahlen:makelist(x+i,i,1,n);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die gesuchten Zahlen sind",zahlen)$
/* [wxMaxima: input   end   ] */

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