\START\
\COMMENT=
\NAME=LINFUNK
\FILE=linfunk.85P
ClLCD
Disp "  Schmedi@sax.de:"
Disp " Lineare Funktionen"
Disp "  Anstiegsgleichung "
Disp "---------------------"
Disp ""
Disp "Eingabe Punkt 1 !"
Input "x-Wert:",LX
Input "y-Wert:",LY
Disp "Eingabe Punkt 2 !"
Input "x-Wert:",LX2
Input "y-Wert:",LY2
Disp "---------------------"
((LY2-LY)/(LX2-LX))\->\LM
Disp "Anstieg m="
Outpt(7,12,LM)
(\tan^-1\ LM)\->\L\LC-alpha\
Disp "Winkel \LC-alpha\=":Outpt(7,11,L\LC-alpha\)
If LM>0:Then:Disp "Funktion ist steigend":Else:Disp "Funktion ist falle\#\
nd":End
(LY-(LM*LX))\->\LN1
Disp "n=":Outpt(7,4,LN1)
Outpt(8,1,"f(x)="):Outpt(8,6,LM):Outpt(8,12,"*x+"):Outpt(8,16,LN1)
""\->\LN1:""\->\LM:""\->\LX:""\->\LY:""\->\LY2:""\->\LX2:""\->\L\LC-alpha\\#\

Stop
\STOP\