database/covops2.sql

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