1.1 --- a/update/core-update.v2.0.8-v2.0.9.sql	Mon May 14 14:36:54 2012 +0200
     1.2 +++ b/update/core-update.v2.0.8-v2.0.9.sql	Tue May 15 12:46:30 2012 +0200
     1.3 @@ -388,4 +388,308 @@
     1.4      "member"."id"%TYPE )
     1.5    IS 'Notable information about a delegation chain for unit, area, or issue; See "delegation_info_type" for more information';
     1.6  
     1.7 +CREATE OR REPLACE FUNCTION "calculate_ranks"("issue_id_p" "issue"."id"%TYPE)
     1.8 +  RETURNS VOID
     1.9 +  LANGUAGE 'plpgsql' VOLATILE AS $$
    1.10 +    DECLARE
    1.11 +      "issue_row"         "issue"%ROWTYPE;
    1.12 +      "policy_row"        "policy"%ROWTYPE;
    1.13 +      "dimension_v"       INTEGER;
    1.14 +      "vote_matrix"       INT4[][];  -- absolute votes
    1.15 +      "matrix"            INT8[][];  -- defeat strength / best paths
    1.16 +      "i"                 INTEGER;
    1.17 +      "j"                 INTEGER;
    1.18 +      "k"                 INTEGER;
    1.19 +      "battle_row"        "battle"%ROWTYPE;
    1.20 +      "rank_ary"          INT4[];
    1.21 +      "rank_v"            INT4;
    1.22 +      "done_v"            INTEGER;
    1.23 +      "winners_ary"       INTEGER[];
    1.24 +      "initiative_id_v"   "initiative"."id"%TYPE;
    1.25 +    BEGIN
    1.26 +      SELECT * INTO "issue_row"
    1.27 +        FROM "issue" WHERE "id" = "issue_id_p"
    1.28 +        FOR UPDATE;
    1.29 +      SELECT * INTO "policy_row"
    1.30 +        FROM "policy" WHERE "id" = "issue_row"."policy_id";
    1.31 +      SELECT count(1) INTO "dimension_v"
    1.32 +        FROM "battle_participant" WHERE "issue_id" = "issue_id_p";
    1.33 +      -- Create "vote_matrix" with absolute number of votes in pairwise
    1.34 +      -- comparison:
    1.35 +      "vote_matrix" := array_fill(NULL::INT4, ARRAY["dimension_v", "dimension_v"]);
    1.36 +      "i" := 1;
    1.37 +      "j" := 2;
    1.38 +      FOR "battle_row" IN
    1.39 +        SELECT * FROM "battle" WHERE "issue_id" = "issue_id_p"
    1.40 +        ORDER BY
    1.41 +        "winning_initiative_id" NULLS LAST,
    1.42 +        "losing_initiative_id" NULLS LAST
    1.43 +      LOOP
    1.44 +        "vote_matrix"["i"]["j"] := "battle_row"."count";
    1.45 +        IF "j" = "dimension_v" THEN
    1.46 +          "i" := "i" + 1;
    1.47 +          "j" := 1;
    1.48 +        ELSE
    1.49 +          "j" := "j" + 1;
    1.50 +          IF "j" = "i" THEN
    1.51 +            "j" := "j" + 1;
    1.52 +          END IF;
    1.53 +        END IF;
    1.54 +      END LOOP;
    1.55 +      IF "i" != "dimension_v" OR "j" != "dimension_v" + 1 THEN
    1.56 +        RAISE EXCEPTION 'Wrong battle count (should not happen)';
    1.57 +      END IF;
    1.58 +      -- Store defeat strengths in "matrix" using "defeat_strength"
    1.59 +      -- function:
    1.60 +      "matrix" := array_fill(NULL::INT8, ARRAY["dimension_v", "dimension_v"]);
    1.61 +      "i" := 1;
    1.62 +      LOOP
    1.63 +        "j" := 1;
    1.64 +        LOOP
    1.65 +          IF "i" != "j" THEN
    1.66 +            "matrix"["i"]["j"] := "defeat_strength"(
    1.67 +              "vote_matrix"["i"]["j"],
    1.68 +              "vote_matrix"["j"]["i"]
    1.69 +            );
    1.70 +          END IF;
    1.71 +          EXIT WHEN "j" = "dimension_v";
    1.72 +          "j" := "j" + 1;
    1.73 +        END LOOP;
    1.74 +        EXIT WHEN "i" = "dimension_v";
    1.75 +        "i" := "i" + 1;
    1.76 +      END LOOP;
    1.77 +      -- Find best paths:
    1.78 +      "i" := 1;
    1.79 +      LOOP
    1.80 +        "j" := 1;
    1.81 +        LOOP
    1.82 +          IF "i" != "j" THEN
    1.83 +            "k" := 1;
    1.84 +            LOOP
    1.85 +              IF "i" != "k" AND "j" != "k" THEN
    1.86 +                IF "matrix"["j"]["i"] < "matrix"["i"]["k"] THEN
    1.87 +                  IF "matrix"["j"]["i"] > "matrix"["j"]["k"] THEN
    1.88 +                    "matrix"["j"]["k"] := "matrix"["j"]["i"];
    1.89 +                  END IF;
    1.90 +                ELSE
    1.91 +                  IF "matrix"["i"]["k"] > "matrix"["j"]["k"] THEN
    1.92 +                    "matrix"["j"]["k"] := "matrix"["i"]["k"];
    1.93 +                  END IF;
    1.94 +                END IF;
    1.95 +              END IF;
    1.96 +              EXIT WHEN "k" = "dimension_v";
    1.97 +              "k" := "k" + 1;
    1.98 +            END LOOP;
    1.99 +          END IF;
   1.100 +          EXIT WHEN "j" = "dimension_v";
   1.101 +          "j" := "j" + 1;
   1.102 +        END LOOP;
   1.103 +        EXIT WHEN "i" = "dimension_v";
   1.104 +        "i" := "i" + 1;
   1.105 +      END LOOP;
   1.106 +      -- Determine order of winners:
   1.107 +      "rank_ary" := array_fill(NULL::INT4, ARRAY["dimension_v"]);
   1.108 +      "rank_v" := 1;
   1.109 +      "done_v" := 0;
   1.110 +      LOOP
   1.111 +        "winners_ary" := '{}';
   1.112 +        "i" := 1;
   1.113 +        LOOP
   1.114 +          IF "rank_ary"["i"] ISNULL THEN
   1.115 +            "j" := 1;
   1.116 +            LOOP
   1.117 +              IF
   1.118 +                "i" != "j" AND
   1.119 +                "rank_ary"["j"] ISNULL AND
   1.120 +                "matrix"["j"]["i"] > "matrix"["i"]["j"]
   1.121 +              THEN
   1.122 +                -- someone else is better
   1.123 +                EXIT;
   1.124 +              END IF;
   1.125 +              IF "j" = "dimension_v" THEN
   1.126 +                -- noone is better
   1.127 +                "winners_ary" := "winners_ary" || "i";
   1.128 +                EXIT;
   1.129 +              END IF;
   1.130 +              "j" := "j" + 1;
   1.131 +            END LOOP;
   1.132 +          END IF;
   1.133 +          EXIT WHEN "i" = "dimension_v";
   1.134 +          "i" := "i" + 1;
   1.135 +        END LOOP;
   1.136 +        "i" := 1;
   1.137 +        LOOP
   1.138 +          "rank_ary"["winners_ary"["i"]] := "rank_v";
   1.139 +          "done_v" := "done_v" + 1;
   1.140 +          EXIT WHEN "i" = array_upper("winners_ary", 1);
   1.141 +          "i" := "i" + 1;
   1.142 +        END LOOP;
   1.143 +        EXIT WHEN "done_v" = "dimension_v";
   1.144 +        "rank_v" := "rank_v" + 1;
   1.145 +      END LOOP;
   1.146 +      -- write preliminary results:
   1.147 +      "i" := 1;
   1.148 +      FOR "initiative_id_v" IN
   1.149 +        SELECT "id" FROM "initiative"
   1.150 +        WHERE "issue_id" = "issue_id_p" AND "admitted"
   1.151 +        ORDER BY "id"
   1.152 +      LOOP
   1.153 +        UPDATE "initiative" SET
   1.154 +          "direct_majority" =
   1.155 +            CASE WHEN "policy_row"."direct_majority_strict" THEN
   1.156 +              "positive_votes" * "policy_row"."direct_majority_den" >
   1.157 +              "policy_row"."direct_majority_num" * ("positive_votes"+"negative_votes")
   1.158 +            ELSE
   1.159 +              "positive_votes" * "policy_row"."direct_majority_den" >=
   1.160 +              "policy_row"."direct_majority_num" * ("positive_votes"+"negative_votes")
   1.161 +            END
   1.162 +            AND "positive_votes" >= "policy_row"."direct_majority_positive"
   1.163 +            AND "issue_row"."voter_count"-"negative_votes" >=
   1.164 +                "policy_row"."direct_majority_non_negative",
   1.165 +            "indirect_majority" =
   1.166 +            CASE WHEN "policy_row"."indirect_majority_strict" THEN
   1.167 +              "positive_votes" * "policy_row"."indirect_majority_den" >
   1.168 +              "policy_row"."indirect_majority_num" * ("positive_votes"+"negative_votes")
   1.169 +            ELSE
   1.170 +              "positive_votes" * "policy_row"."indirect_majority_den" >=
   1.171 +              "policy_row"."indirect_majority_num" * ("positive_votes"+"negative_votes")
   1.172 +            END
   1.173 +            AND "positive_votes" >= "policy_row"."indirect_majority_positive"
   1.174 +            AND "issue_row"."voter_count"-"negative_votes" >=
   1.175 +                "policy_row"."indirect_majority_non_negative",
   1.176 +          "schulze_rank"           = "rank_ary"["i"],
   1.177 +          "better_than_status_quo" = "rank_ary"["i"] < "rank_ary"["dimension_v"],
   1.178 +          "worse_than_status_quo"  = "rank_ary"["i"] > "rank_ary"["dimension_v"],
   1.179 +          "multistage_majority"    = "rank_ary"["i"] >= "rank_ary"["dimension_v"],
   1.180 +          "reverse_beat_path"      = "matrix"["dimension_v"]["i"] >= 0,
   1.181 +          "eligible"               = FALSE,
   1.182 +          "winner"                 = FALSE,
   1.183 +          "rank"                   = NULL  -- NOTE: in cases of manual reset of issue state
   1.184 +          WHERE "id" = "initiative_id_v";
   1.185 +        "i" := "i" + 1;
   1.186 +      END LOOP;
   1.187 +      IF "i" != "dimension_v" THEN
   1.188 +        RAISE EXCEPTION 'Wrong winner count (should not happen)';
   1.189 +      END IF;
   1.190 +      -- take indirect majorities into account:
   1.191 +      LOOP
   1.192 +        UPDATE "initiative" SET "indirect_majority" = TRUE
   1.193 +          FROM (
   1.194 +            SELECT "new_initiative"."id" AS "initiative_id"
   1.195 +            FROM "initiative" "old_initiative"
   1.196 +            JOIN "initiative" "new_initiative"
   1.197 +              ON "new_initiative"."issue_id" = "issue_id_p"
   1.198 +              AND "new_initiative"."indirect_majority" = FALSE
   1.199 +            JOIN "battle" "battle_win"
   1.200 +              ON "battle_win"."issue_id" = "issue_id_p"
   1.201 +              AND "battle_win"."winning_initiative_id" = "new_initiative"."id"
   1.202 +              AND "battle_win"."losing_initiative_id" = "old_initiative"."id"
   1.203 +            JOIN "battle" "battle_lose"
   1.204 +              ON "battle_lose"."issue_id" = "issue_id_p"
   1.205 +              AND "battle_lose"."losing_initiative_id" = "new_initiative"."id"
   1.206 +              AND "battle_lose"."winning_initiative_id" = "old_initiative"."id"
   1.207 +            WHERE "old_initiative"."issue_id" = "issue_id_p"
   1.208 +            AND "old_initiative"."indirect_majority" = TRUE
   1.209 +            AND CASE WHEN "policy_row"."indirect_majority_strict" THEN
   1.210 +              "battle_win"."count" * "policy_row"."indirect_majority_den" >
   1.211 +              "policy_row"."indirect_majority_num" *
   1.212 +              ("battle_win"."count"+"battle_lose"."count")
   1.213 +            ELSE
   1.214 +              "battle_win"."count" * "policy_row"."indirect_majority_den" >=
   1.215 +              "policy_row"."indirect_majority_num" *
   1.216 +              ("battle_win"."count"+"battle_lose"."count")
   1.217 +            END
   1.218 +            AND "battle_win"."count" >= "policy_row"."indirect_majority_positive"
   1.219 +            AND "issue_row"."voter_count"-"battle_lose"."count" >=
   1.220 +                "policy_row"."indirect_majority_non_negative"
   1.221 +          ) AS "subquery"
   1.222 +          WHERE "id" = "subquery"."initiative_id";
   1.223 +        EXIT WHEN NOT FOUND;
   1.224 +      END LOOP;
   1.225 +      -- set "multistage_majority" for remaining matching initiatives:
   1.226 +      UPDATE "initiative" SET "multistage_majority" = TRUE
   1.227 +        FROM (
   1.228 +          SELECT "losing_initiative"."id" AS "initiative_id"
   1.229 +          FROM "initiative" "losing_initiative"
   1.230 +          JOIN "initiative" "winning_initiative"
   1.231 +            ON "winning_initiative"."issue_id" = "issue_id_p"
   1.232 +            AND "winning_initiative"."admitted"
   1.233 +          JOIN "battle" "battle_win"
   1.234 +            ON "battle_win"."issue_id" = "issue_id_p"
   1.235 +            AND "battle_win"."winning_initiative_id" = "winning_initiative"."id"
   1.236 +            AND "battle_win"."losing_initiative_id" = "losing_initiative"."id"
   1.237 +          JOIN "battle" "battle_lose"
   1.238 +            ON "battle_lose"."issue_id" = "issue_id_p"
   1.239 +            AND "battle_lose"."losing_initiative_id" = "winning_initiative"."id"
   1.240 +            AND "battle_lose"."winning_initiative_id" = "losing_initiative"."id"
   1.241 +          WHERE "losing_initiative"."issue_id" = "issue_id_p"
   1.242 +          AND "losing_initiative"."admitted"
   1.243 +          AND "winning_initiative"."schulze_rank" <
   1.244 +              "losing_initiative"."schulze_rank"
   1.245 +          AND "battle_win"."count" > "battle_lose"."count"
   1.246 +          AND (
   1.247 +            "battle_win"."count" > "winning_initiative"."positive_votes" OR
   1.248 +            "battle_lose"."count" < "losing_initiative"."negative_votes" )
   1.249 +        ) AS "subquery"
   1.250 +        WHERE "id" = "subquery"."initiative_id";
   1.251 +      -- mark eligible initiatives:
   1.252 +      UPDATE "initiative" SET "eligible" = TRUE
   1.253 +        WHERE "issue_id" = "issue_id_p"
   1.254 +        AND "initiative"."direct_majority"
   1.255 +        AND "initiative"."indirect_majority"
   1.256 +        AND "initiative"."better_than_status_quo"
   1.257 +        AND (
   1.258 +          "policy_row"."no_multistage_majority" = FALSE OR
   1.259 +          "initiative"."multistage_majority" = FALSE )
   1.260 +        AND (
   1.261 +          "policy_row"."no_reverse_beat_path" = FALSE OR
   1.262 +          "initiative"."reverse_beat_path" = FALSE );
   1.263 +      -- mark final winner:
   1.264 +      UPDATE "initiative" SET "winner" = TRUE
   1.265 +        FROM (
   1.266 +          SELECT "id" AS "initiative_id"
   1.267 +          FROM "initiative"
   1.268 +          WHERE "issue_id" = "issue_id_p" AND "eligible"
   1.269 +          ORDER BY
   1.270 +            "schulze_rank",
   1.271 +            "vote_ratio"("positive_votes", "negative_votes"),
   1.272 +            "id"
   1.273 +          LIMIT 1
   1.274 +        ) AS "subquery"
   1.275 +        WHERE "id" = "subquery"."initiative_id";
   1.276 +      -- write (final) ranks:
   1.277 +      "rank_v" := 1;
   1.278 +      FOR "initiative_id_v" IN
   1.279 +        SELECT "id"
   1.280 +        FROM "initiative"
   1.281 +        WHERE "issue_id" = "issue_id_p" AND "admitted"
   1.282 +        ORDER BY
   1.283 +          "winner" DESC,
   1.284 +          "eligible" DESC,
   1.285 +          "schulze_rank",
   1.286 +          "vote_ratio"("positive_votes", "negative_votes"),
   1.287 +          "id"
   1.288 +      LOOP
   1.289 +        UPDATE "initiative" SET "rank" = "rank_v"
   1.290 +          WHERE "id" = "initiative_id_v";
   1.291 +        "rank_v" := "rank_v" + 1;
   1.292 +      END LOOP;
   1.293 +      -- set schulze rank of status quo and mark issue as finished:
   1.294 +      UPDATE "issue" SET
   1.295 +        "status_quo_schulze_rank" = "rank_ary"["dimension_v"],
   1.296 +        "state" =
   1.297 +          CASE WHEN EXISTS (
   1.298 +            SELECT NULL FROM "initiative"
   1.299 +            WHERE "issue_id" = "issue_id_p" AND "winner"
   1.300 +          ) THEN
   1.301 +            'finished_with_winner'::"issue_state"
   1.302 +          ELSE
   1.303 +            'finished_without_winner'::"issue_state"
   1.304 +          END,
   1.305 +        "ranks_available" = TRUE
   1.306 +        WHERE "id" = "issue_id_p";
   1.307 +      RETURN;
   1.308 +    END;
   1.309 +  $$;
   1.310 +
   1.311  COMMIT;