From 83548c62c8d83f637ef05a09f240a89f7ef02402 Mon Sep 17 00:00:00 2001
From: LinlyBoi <libkyy@e.email>
Date: Sun, 14 May 2023 21:57:26 +0300
Subject: [PATCH] hard work for wonton differentiation

---
 newton_differentiation.m | 54 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 newton_differentiation.m

diff --git a/newton_differentiation.m b/newton_differentiation.m
new file mode 100644
index 0000000..15cc2ec
--- /dev/null
+++ b/newton_differentiation.m
@@ -0,0 +1,54 @@
+Y = [] %it doesn't like when I don't add this
+function y = f_newt_diff1(Y,h)
+	y = ( Y(2) - Y(1) ) / h
+end
+
+function y = c_newt_diff1(Y,h)
+	y = ( Y(2) - Y(1) ) / ( 2 * h )
+end
+
+
+function y = b_newt_diff1(Y,h)
+	y = ( Y(1) - Y(2) ) / h
+end
+
+
+function y = newt_diff_fr(Y,X,x,h)
+	idx = find(X==x);
+	if (idx == length(X))
+		elems = [X(idx), X(idx-1)]
+		y = b_newt_diff1(elems,h)
+
+	elseif (idx == 1)
+		elems = [X(idx), X(idx+1)]
+		y = f_newt_diff1(elems,h)
+	else
+		elems = [X(idx), X(idx+1)]
+		y = c_newt_diff1(elems,h)
+	endif
+	endfunction
+
+
+
+
+
+
+
+
+
+
+
+
+
+function y = f_newt_diff2(Y,h)
+	Y =  ( Y(3) - 2 * Y(2) + Y(1) ) / h^2
+end
+
+function y = c_newt_diff2(Y,h)
+	Y = ( Y(3) - 2 * Y(2) + Y(1) ) / h^2
+end
+
+
+function y = b_newt_diff2(Y,h)
+	y =  ( Y(1) - 2 * Y(2) + Y(3) ) / h^2
+end