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+2*LEAST(COALESCE($1::float/CASE $2
   7                         WHEN 0 THEN 1 ELSE $2 END,$6),0.30)
   8                         + (CASE $5
   9                                 WHEN 'Dic' THEN 0.20
  10                                 WHEN 'Feu' THEN -0.20
  11                                 WHEN 'Uni' THEN -0.10
  12                                 ELSE 0
  13                         END) + $6/100.0
  14                 ))::integer;
  15 $_$
  16         LANGUAGE sql IMMUTABLE;