1 files changed, 8 insertions, 0 deletions
diff --git a/50/CH6/EX6.18/ex_6_18.sce b/50/CH6/EX6.18/ex_6_18.sce
new file mode 100755
index 000000000..5a8165e09
--- /dev/null
+++ b/50/CH6/EX6.18/ex_6_18.sce
@@ -0,0 +1,8 @@
+// example 6.18,
+// caption: use of 4th order runge kutta method,
+
+// u'=f(t,u)
+// u'=-2tu^2
+deff('[z]=f(t,u)','z=-2*t*u^2');
+
+RK4(1,0,.4,.2,f)       // calling the function,
+\ No newline at end of file