diff options
Diffstat (limited to '75/CH4')
| -rwxr-xr-x | 75/CH4/EX4.10/ex_9.sce | 5 | ||||
| -rwxr-xr-x | 75/CH4/EX4.8/ex_7.sce | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/75/CH4/EX4.10/ex_9.sce b/75/CH4/EX4.10/ex_9.sce index b3ba594e2..15d7a7339 100755 --- a/75/CH4/EX4.10/ex_9.sce +++ b/75/CH4/EX4.10/ex_9.sce @@ -1,7 +1,8 @@ - // PG (227) +// PG (227) deff('[y]=f(x)','y=exp(x)') -c3=0.994571+0.997308*x+0.542991*x^2+0.177347*x^3; +x = -1:0.01:1; +c3=0.994571+0.997308*x+0.542991*x.^2+0.177347*x.^3; norm(exp(x)-c3,'inf') // as obtained in the example 6, c4 = 0.00547, T4(x) = (-1) diff --git a/75/CH4/EX4.8/ex_7.sce b/75/CH4/EX4.8/ex_7.sce index 01c0b0149..8ef400009 100755 --- a/75/CH4/EX4.8/ex_7.sce +++ b/75/CH4/EX4.8/ex_7.sce @@ -1,4 +1,4 @@ - // PG (220) +// PG (220) deff('[y]=f(x)','y=exp(x)') @@ -22,7 +22,9 @@ C4=2*(integrate('exp(cos(x))*cos(4*x)','x',0,3.14))/(3.14) C5=2*(integrate('exp(cos(x))*cos(5*x)','x',0,3.14))/(3.14) // we obtain +x=0:.01:%pi; // defining the range of x + c1=1.266+1.130*x; -c3=0.994571+0.997308*x+0.542991*x^2+0.177347*x^3; +c3=0.994571+0.997308*x+0.542991*x.^2+0.177347*x.^3; norm(exp(x)-c1,'inf') norm(exp(x)-c3,'inf')
\ No newline at end of file |