1 files changed, 7 insertions, 0 deletions
diff --git a/548/CH7/EX7.1/7_01.sce b/548/CH7/EX7.1/7_01.sce
new file mode 100755
index 000000000..373dc37e3
--- /dev/null
+++ b/548/CH7/EX7.1/7_01.sce
@@ -0,0 +1,7 @@
+funcprot(0);
+function[y] = f(x,y)
+    z = poly(0,'z');
+    y = x^2+y^2+ z^2;
+endfunction
+ans= derivat(f(1,1)); // finding derivative with respect to z at some point x,y;
+disp(ans,"derivative of x^2+y^2+ z^2 with respect to z:");