summaryrefslogtreecommitdiff
path: root/413/CH4/EX4.5/Table_4_5.sce
blob: e38fbfbc0658759b335b2baaebdfb8ae71049ba9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
clear
function a=rat(x)
    a=(1.0018+0.6727*x +0.1598*x.*x)/(1-0.3263*x)    
endfunction
function a=che(x)
    a=0.9946+0.9973.*x+x.*x.*0.543+x.*x.*x.*0.1772
    endfunction
function out=tab4(y)   
out=[y,exp(y),che(y),exp(y)-che(y), rat(y),exp(y)-rat(y)]
endfunction
for y=-1:0.2:1
disp(tab4(y)')
end