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

/* [wxMaxima: title   start ]
Bremsweg
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1073
Quelle: Johann Weilharter,
             Physik
******************************************

Ein PKW macht eine Notbremsung. Wenn man die Reaktionszeit und
die sogenannte Bremsverzögerung nicht berücksichtigt, dann ist der
Bremsweg s=v²/2a

v ist die Anfangsgeschwindigkeit in m/s
a ist die Bremsverzögerung:
a = 7,5 m/s² -> trockene Fahrbahn
a = 5,5 m/s² -> nasse Fahrbahn
a = 1    m/s² -> eisige Fahrbahn

Erstelle ein Programm, welches nach Eingabe des Straßenzsutandes
(trocken, nass oder eisig)und der Anfangsgeschwindigkeit in km/h
den Bremsweg ausrechnet und ausgibt. 
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
strassenzustand:read("Gib den Strassenzustand ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG (Zuweisung der Bremsverzögerung)
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
if strassenzustand=trocken then ev(a:7.5)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if strassenzustand=nass then ev(a:5.5)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if strassenzustand=eisig then ev(a:1)$
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
v:read("Gib die Geschwindigkeit in km/h ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
v:v*1000/3600.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
v:floor(v*1000+0.5)/1000.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s:v**2/(2*a);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s:floor(s*1000+0.5)/1000.0;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Der Bremsweg ist",s,"m bei einer Verzögerung von",a,"m/s²")$
/* [wxMaxima: input   end   ] */

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