Kurvendiskussion:=proc(f)
begin
Nullstellen:=float(solve(f(x)=0,x));
print("Nullstellen=",Nullstellen);
Ableitungsfunktion:=f'(x);
print("f'(x)=",Ableitungsfunktion);
Nullstellen_Ableitung:=float(solve(f'(x)=0,x));
print("Nullstellen der ersten Ableitung=",Nullstellen_Ableitung);
print("f(",Nullstellen_Ableitung,")=",map(Nullstellen_Ableitung,f));
Ableitungsfunktion2:=f''(x);
print("f''(x)=",Ableitungsfunktion2);
HK_Extrema:=map(Nullstellen_Ableitung,f'');
print("f''(",Nullstellen_Ableitung,")=",HK_Extrema);
Nullstellen_Ableitung2:=float(solve(f''(x)=0,x));
print("Nullstellen der 2. Ableitungsfunktion=",Nullstellen_Ableitung2);
Ableitungsfunktion3:=f'''(x);
print("f'''(x)=",Ableitungsfunktion3);
print("f'''(",Nullstellen_Ableitung2,")=",map(Nullstellen_Ableitung2,f'''));
plotfunc2d(f(x),f'(x),f''(x),f'''(x));
end_proc: