initial commit / add all books

1 files changed, 27 insertions, 0 deletions

diff --git a/149/CH4/EX4.22/ques22.sce b/149/CH4/EX4.22/ques22.sce
new file mode 100755
index 000000000..cdc77ff0c
--- /dev/null
+++ b/149/CH4/EX4.22/ques22.sce
@@ -0,0 +1,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);

+