database/covopalert.sql

   1
   2 CREATE OR REPLACE FUNCTION covop_alert(secs integer, strucs integer, roids integer
   3         , guards integer, gov governments, population integer) RETURNS integer
   4         AS $_$
   5         SELECT ((50 + COALESCE($4*5.0/($3+1.0),$6))
   6                 * (1.0+LEAST(COALESCE($1::float/$2,$6),0.30)*2
   7                         + (CASE $5
   8                                 WHEN 'Dic' THEN 0.20
   9                                 WHEN 'Feu' THEN -0.20
  10                                 WHEN 'Uni' THEN -0.10
  11                                 ELSE 0
  12                         END) + $6/100.0
  13                 ))::integer;
  14 $_$
  15         LANGUAGE sql IMMUTABLE;