Initial data commit

Task/Euler-method/Tcl/euler-method-1.tcl

@@ -0,0 +1,9 @@
+proc euler {f y0 a b h} {
+    puts "computing $f over \[$a..$b\], step $h"
+    set y [expr {double($y0)}]
+    for {set t [expr {double($a)}]} {$t < $b} {set t [expr {$t + $h}]} {
+	puts [format "%.3f\t%.3f" $t $y]
+	set y [expr {$y + $h * double([$f $t $y])}]
+    }
+    puts "done"
+}

Task/Euler-method/Tcl/euler-method-2.tcl

@@ -0,0 +1,7 @@
+proc newtonCoolingLaw {time temp} {
+    expr {-0.07 * ($temp - 20)}
+}
+
+euler newtonCoolingLaw 100 0 100 2
+euler newtonCoolingLaw 100 0 100 5
+euler newtonCoolingLaw 100 0 100 10