# Lineare Funktion, Bestimmung von k und d

## Problembeschreibung

******************************************
Dokumentnummer: D1024
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************
In einer Geradengleichung sind k und d aus y=k*x+d
zu bestimmen.

## Problemlösung

EINGABE

gerade:read("Gib eine Gerade ein");

VERARBEITUNG

l:solve(gerade,y);

f:''rhs(l[1]);

f:expand(f);

koeff:bothcoeff(f,x);

k:koeff[1];

d:koeff[2];

AUSGABE

print("Die Steigung der Geraden ist",k)$

print("Der Abschnitt auf der y-Achse ist",d)$