X-Git-Url: https://hackdaworld.org/gitweb/?p=physik%2Fcomputational_physics.git;a=blobdiff_plain;f=general.c;fp=general.c;h=b92f8e8efd3b059970a37300ff7997e8741c3eae;hp=0000000000000000000000000000000000000000;hb=1f172cee5738b87844ca151b22a62bdbdff7b7f5;hpb=345e0e95bea02628a790e751d992f2ff6b37bf4b

diff --git a/general.c b/general.c
new file mode 100644
index 0000000..b92f8e8
--- /dev/null
+++ b/general.c
@@ -0,0 +1,20 @@
+/* general functions */
+
+double fak(int l) {
+	double result=1;
+	while(l--) result*=l;
+	return result;
+}
+
+double fak2(int l) {
+	double result=1;
+	while(l>0) {
+		result*=l;
+		l-=2;
+	}
+	return result;
+}
+
+double absolute_value(double l) {
+	return l<0?-l:l;
+}