added general lib

[physik/computational_physics.git] / general.c

diff --git a/general.c b/general.c
new file mode 100644 (file)
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;
+}