# Steigung einer Alpenstrasse

## Problembeschreibung

***************************************
Dokumentnummer: D1537
***************************************
Eine Alpenstraße überwindet bei einer Horizontalentfernung dx in m
zwischen zwei Orten (ersichtlich aus einer Straßenkarte) einen 
Höhenunterschied dy. Berechne daraus die mittlere Steigung und den
Steigungswinkel.

Erstelle dazu ein geeignetes Maxima-Programm.

## Problemlösung

EINGABE

dx:read("Gib die Horizontalentfernung ein");

dy:read("Gib den Höhenunterschied ein");

VERARBEITUNG

Steigung:dy/dx;

Steigung_Prozent:Steigung*100;

g:tan(alpha)=Steigung;

l:solve(g,alpha);

l:l,numer;

alpha_rad:alpha,l[1];

alpha_grad:alpha_rad*180.0/%pi,numer;

alpha_grad:?truncate(alpha_grad*10+0.5)/10.0;

AUSGABE

print("Die Steigung ist in %",Steigung_Prozent)$

print("Der Steigungswinkel ist in °",alpha_grad)$