summaryrefslogtreecommitdiff
path: root/149/CH4/EX4.22/ques22.sce
blob: cdc77ff0ce6ac068f6465184a53ae4ca58a382fc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
//ques22
disp('Here we need to find find the limit of f(x) at x=0')
syms x
y=(x*%e^x-log(1+x))/x^2;
//disp('The limit at x=0 is : ');
//l=limit(y,x,0);
//disp(l)
f=1;
while f==1
yn=x*%e^x-log(1+x);
yd=x^2;
yn1=diff(yn,'x',1);
yd1=diff(yd,'x',1);
x=0;
a=eval(yn1);
b=eval(yd1);
if a==b then
  yn=yn1;
  yd=yd1;
else
  f=0;

end
end
h=a/b;
disp(h);