\START\
\COMMENT=
\NAME=SYMM
\FILE=symm.85P
0\->\SF1:0\->\SF2:0\->\W1:0\->\W2:0\->\W3:0\->\W4
ClLCD
Disp "   Schmedi@sax.de:"
Disp " Symmetrieberechnung"
Disp "---------------------"
InpSt "Funktion: ",SF1
\St>Eq\(SF1,SF2)
Disp ""
evalF(SF2,x,4.5)\->\W1
evalF(SF2,x,\(-)\4.5)\->\W2
evalF(SF2,x,7.125)\->\W3
evalF(SF2,x,\(-)\7.125)\->\W4
If W1==W2 and W3==W4
Then:Disp "Achsensymmetrisch"
Else:If abs W1==abs W2 and abs W3==abs W4
then:Disp "Punktsymmetrisch":Else:Disp "Keine Symmetrie":End:End:
""\->\SF1:""\->\SF2:""\->\W1:""\->\W2:""\->\W3:""\->\W4
Stop
\STOP\