summaryrefslogtreecommitdiff
path: root/260/CH9/EX9.4/9_4.sce
blob: bc8e7b2955915992e658c16df946a7c157133b0f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

//Eg-9.4
//pg-394

clear
clc
clc;
clear;

deff('[z]=f(x)','z=(x^4-2*x^2)*sin(x)');
x1=-1:.2:1;
//values of fx obtained manually

fx1=[.841471;0.624387;.333365;.114645;.015576;0;-.015576;-.114645;-.333365;-.624387;-.841471];

plot(x1,feval(x1,f));
set(gca(),"auto_clear","off")
plot(x1,fx1,'*');