Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
clc
clear all
clearvars
syms x
f = input('Enter the function:')
df = diff(f,x);
ddf = diff(df,x);
r = solve(df);
f = inline(vectorize(f));
df = inline(vectorize(df));
ddf = inline(vectorize(ddf));
ezplot(f,[min(double(r))-1,max(double(r))+1])
hold on
for i = 1:1:numel(r)
a(i) = f(r(i))
if ddf(r(i)) > 0
disp(['min f at:',num2str(double(r(i))), 'its value:',num2str(double(a(i)))])
plot(r(i),f(r(i)),'*r')
else if ddf(r(i)) < 0
disp(['max f at:',num2str(double(r(i))), 'its value:',num2str(double(a(i)))])
plot(r(i),f(r(i)),'*r')