PI	OCTA	#400921fb54442d18	$\pi$
E	OCTA	#3fc999999999999a	$0,2$
$*$ berechnet $f(x)=x-E\cdot\sin(x)-M$
x	IS	$0
ra	IS	$1
e	IS	$2
M	IS	$3
temp	IS	$4
par	IS	$5

f	GET	ra,:rJ
	FLOT	temp,1
	LDO	e,E
	LDO	M,PI
	FLOT	temp,8
	FDIV	M,M,temp	$M=\pi/8$
	SET	par,x
	PUSHJ	temp,:Math:sin
	FMUL	temp,temp,e
	FSUB	temp,x,temp
	FSUB	x,temp,M
	PUT	:rJ,ra
	POP	1,0

$*$ Berechnet $f'(x)=1-E\cdot\cos(x)$	
fstr	GET	ra,:rJ
	FLOT	M,1
	LDO	e,E
	SET	par,x
	PUSHJ	temp,:Math:cos
	FMUL	temp,temp,e
	FSUB	x,M,temp
	PUT	:rJ,ra
	POP	1,0