Clean up database directory

[ndwebbie.git] / database / functions / covop_alert.sql

diff --git a/database/functions/covop_alert.sql b/database/functions/covop_alert.sql
new file mode 100644 (file)
index 0000000..1d3d2a6
--- /dev/null
+++ b/database/functions/covop_alert.sql
@@ -0,0 +1,16 @@
+
+CREATE OR REPLACE FUNCTION covop_alert(secs integer, strucs integer, roids integer
+       , guards integer, gov governments, population integer) RETURNS integer
+       AS $_$
+       SELECT ((50 + COALESCE($4*5.0/($3+1.0),$6))
+               * (1.0+2*LEAST(COALESCE($1::float/CASE $2
+                       WHEN 0 THEN 1 ELSE $2 END,$6),0.30)
+                       + (CASE $5
+                               WHEN 'Dic' THEN 0.20
+                               WHEN 'Feu' THEN -0.20
+                               WHEN 'Uni' THEN -0.10
+                               ELSE 0
+                       END) + $6/100.0
+               ))::integer;
+$_$
+       LANGUAGE sql IMMUTABLE;