1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
-- ----------------------------------------------------------------------------------------------- --
-- Skrypt rozszerzający funkcjonalność Teamów o możliwość liczenia wyników turnieju metodą Pattona --
-- Autor: mkl --
-- ----------------------------------------------------------------------------------------------- --
-- Wersja dla turnieju liczonego BAMami --
-- Ta wersja jest fajna, bo: --
-- * działa --
-- * nie generuje całego mnóstwa pustych protokołów - część BAMowa liczy się normalnie BAMami --
-- Ta wersja jest niefajna, bo: --
-- * BAMy w Teamach liczą różnicę +/- 10 jako nieremis, więc w protokole jest 2:0/0:2, --
-- więc jest "po cichu" wyrównywane w jednym worze raze z wyrównaniami za saldo, --
-- więc generuje całe mnóstwo pytań "a panie sędzio, czemu tu jest 2:0, jak miało być 1:1" --
-- ----------------------------------------------------------------------------------------------- --
-- Instrukcja obsługi: --
-- * uruchomić w bazie turnieju skrypt co najmniej raz po założeniu turnieju, --
-- a przed wpisaniem pierwszego wyrównania "właściwego" (tj. faktycznej kary/wyrównania --
-- z turnieju) --
-- * uruchomić kazdorazowo celem przeliczenia wyników --
-- Potencjalne problemy: --
-- * wyrównania wklepywane z Teamów mogą sprawiać problemy (nie są dostatecznie przetestowane) --
-- * nie mam zielonego pojęcia, czy i jak powinny obchodzić mnie wyniki niezapisowe w rozdaniach --
-- Szczególne wymagania dla bazy danych: --
-- * uprawnienia do tworzenia tabel --
-- * uprawnienia do tworzenia widoków --
-- * uprawnienia do tworzenia i uruchamiania wyzwalaczy --
-- Kontrolnie tworzone są tabele/widoki z przedrostkiem patton_, pozwalające w razie czego ogarnąć,--
-- co się dzieje. --
-- ----------------------------------------------------------------------------------------------- --
-- Widok trzymający rozdania, w których są już oba zapisy - tylko te rozdania są dalej brane pod uwagę.
DROP VIEW IF EXISTS patton_boards;
CREATE VIEW patton_boards AS
SELECT rnd, segment, tabl, board FROM scores WHERE score IS NOT NULL GROUP BY rnd, segment, tabl, board HAVING COUNT(*) = 2;
-- Tabela kompilująca wyniki rozdań, zestawiająca zapisy z obu stołów oraz wyrównania względem BAMów (dla rozdań, gdzie pada remis +/- 10)
DROP TABLE IF EXISTS patton_scores;
CREATE TABLE patton_scores (
rnd INT, -- z bazy Teamów
segment INT, -- z bazy Teamów
tabl INT, -- z bazy Teamów
board INT, -- z bazy Teamów
open_score INT, -- score ze scores dla pokoju otwartego
closed_score INT, -- score ze scores dla pokoju zamkniętego
h_bam FLOAT, -- punkty BAMowe dla gospodarzy
v_bam FLOAT -- punkty BAMowe dla gości
);
-- Tabela kompilująca saldo druzyn w meczu
DROP TABLE IF EXISTS patton_sums;
CREATE TABLE patton_sums (
rnd INT, -- z bazy Teamów
segment INT, -- z bazy Teamów
tabl INT, -- z bazy Teamów
h_saldo INT, -- saldo gospodarzy
v_saldo INT, -- saldo gości
max_saldo INT, -- większa z 2 powyższych wartości (maksymalne saldo)
h_points FLOAT, -- punkty za saldo dla gospodarzy
v_points FLOAT -- punkty za saldo dla gości
);
-- Tabela kompilująca wyrównania (takie, by wynik meczu w VP był równy wynikowi wynikającemu z Pattona)
DROP TABLE IF EXISTS patton_adjustments;
CREATE TABLE patton_adjustments (
rnd INT, -- z bazy Teamów
segment INT, -- z bazy Teamów
tabl INT, -- z bazy Teamów
h_total FLOAT, -- wyrównanie dla gospodarzy
v_total FLOAT -- wyrównanie dla gości
);
-- Tabela zapamiętująca wszelkie "ręczne" zmiany na kolumnach corrv i corrh tabeli matches - więc zwykłe turniejowe wyrównania.
-- Zapamiętujemy celem nałożenia na wyrównania wynikające z wyniku meczu Pattonem.
CREATE TABLE IF NOT EXISTS patton_external_adjustments (
rnd INT, -- z bazy Teamów
tabl INT, -- z bazy Teamów
h_adj FLOAT, -- wyrównanie dla gospodarzy
v_adj FLOAT, -- wyrównanie dla gości
PRIMARY KEY (rnd, tabl)
);
SET @h_adj = 0;
SET @v_adj = 0;
DROP TRIGGER IF EXISTS patton_trigger_adjustment;
DELIMITER //
-- Wyzwalacz zapamiętrujący wszelkie "zewnętrzne" zmiany na tabeli matches, w kolumnach corrv i corrh - a więc wyrównania.
CREATE TRIGGER patton_trigger_adjustment BEFORE UPDATE ON matches FOR EACH ROW BEGIN
IF @patton_disable_trigger <> 1 OR @patton_disable_trigger IS NULL THEN
SET @h_adj = NEW.corrh - COALESCE(OLD.corrh, 0);
SET @v_adj = NEW.corrv - COALESCE(OLD.corrv, 0);
-- Zapamiętujemy do patton_external_adjustements, wstawiając rekordy, jeśli trzeba.
IF (SELECT COUNT(*) FROM patton_external_adjustments WHERE rnd = NEW.rnd AND tabl = NEW.tabl) THEN
UPDATE patton_external_adjustments
SET h_adj = h_adj + @h_adj, v_adj = v_adj + @v_adj
WHERE rnd = NEW.rnd AND tabl = NEW.tabl;
ELSE
INSERT INTO patton_external_adjustments(rnd, tabl, h_adj, v_adj)
VALUES(NEW.rnd, NEW.tabl, @h_adj, @v_adj);
END IF;
SET @h_adj = 0;
SET @v_adj = 0;
END IF;
END //
DELIMITER ;
-- Na czas wykonywania skryptu wyłączamy powyższy wyzwalacz (skrypt równiez edytuje matches, w końcu)
SET @patton_disable_trigger = 1;
-- Kompilujemy tabelę wyników rozdań i wyrówniania dla częśći BAM z rozdań.
DELETE FROM patton_scores;
INSERT INTO patton_scores
SELECT pb.*,
s1.score AS open_score,
s2.score AS closed_score,
-- Rodzania z różnicą +/- 10 wymagają wyrównania -1 na niekorzyść strony, która wzięła +10
IF(ABS(s1.score - s2.score) = 10, IF(s1.score > s2.score, -1, 1), 0) AS h_bam,
0 AS v_bam
FROM patton_boards pb
JOIN scores s1 ON pb.rnd = s1.rnd AND pb.segment = s1.segment AND pb.tabl = s1.tabl AND pb.board = s1.board AND s1.room = 1
JOIN scores s2 ON pb.rnd = s2.rnd AND pb.segment = s2.segment AND pb.tabl = s2.tabl AND pb.board = s2.board AND s2.room = 2;
UPDATE patton_scores SET v_bam = -h_bam;
-- Zmienna pomocnicza do wyliczenia punktów za saldo w zależności od liczby rozdań w rundzie.
SET @boards_per_segment = IF ((SELECT boardspersegment FROM admin) = 4, 1, 0.5); -- Dla 4 rozdań: = 1.0, dla 3 rozdań: = 0.5
-- Wypełniamy tabelę salda.
DELETE FROM patton_sums;
INSERT INTO patton_sums
SELECT
patton_scores.rnd, patton_scores.segment, patton_scores.tabl,
SUM(IF(open_score > 0, open_score, 0)) + SUM(IF(closed_score < 0, -closed_score, 0)) AS h_saldo,
SUM(IF(open_score < 0, -open_score, 0)) + SUM(IF(closed_score > 0, closed_score, 0)) AS v_saldo,
0 AS max_saldo,
0.0 AS h_points,
0.0 AS v_points
FROM patton_scores
GROUP BY rnd, segment, tabl;
-- Wybieramy maksymalne saldo
UPDATE patton_sums SET max_saldo = IF (h_saldo > v_saldo, h_saldo, v_saldo);
-- Roboczo liczymy wynik za saldo względem wyniku 0:0
-- Jeśli róznica salda > 1/3 maksymalnego, to gospodarze zdobywają:
-- * 2 punkty przy 4 rozdaniach
-- * 1 punkt przy 3 rozdaniach
UPDATE patton_sums SET h_points = 2 * @boards_per_segment
WHERE (max_saldo - v_saldo) / max_saldo > 1/3;
-- Jeśli róznica salda > 1/10 maksymalnego, ale < 1/3, to gospodarze zdobywają:
-- * 2 punkty przy 4 rozdaniach
-- * 1 punkt przy 3 rozdaniach
UPDATE patton_sums SET h_points = 1 * @boards_per_segment
WHERE (max_saldo - v_saldo) / max_saldo BETWEEN 1/10 AND 1/3;
-- Jeśli róznica salda > 1/10 maksymalnego, ale < 1/3, to goście zdobywają:
-- * 2 punkty przy 4 rozdaniach
-- * 1 punkt przy 3 rozdaniach
UPDATE patton_sums SET h_points = -2 * @boards_per_segment
WHERE (max_saldo - h_saldo) / max_saldo > 1/3;
-- Jeśli róznica salda > 1/10 maksymalnego, ale < 1/3, to goście zdobywają:
-- * 1 punkt przy 4 rozdaniach
-- * 0.5 punktu przy 3 rozdaniach
UPDATE patton_sums SET h_points = -1 * @boards_per_segment
WHERE (max_saldo - h_saldo) / max_saldo BETWEEN 1/10 AND 1/3;
-- Druga drużyna zdobywa dopełnienie do zera.
UPDATE patton_sums SET v_points = -h_points;
-- Podnosimy wynik za saldo z punktu odniesienia 0:0 do właściwego remisu, zależnego od liczby rozdań (2:2 dla 4, 1:1 dla 3)
UPDATE patton_sums SET v_points = v_points + 2 * @boards_per_segment;
UPDATE patton_sums SET h_points = h_points + 2 * @boards_per_segment;
-- Kompilujemy wyrównania Pattonowe, jako sumę wyrównań z BAMów i punktów za saldo
DELETE FROM patton_adjustments;
INSERT INTO patton_adjustments
SELECT patton_sums.rnd, patton_sums.segment, patton_sums.tabl,
SUM(patton_scores.h_bam) + patton_sums.h_points AS h_total,
SUM(patton_scores.v_bam) + patton_sums.v_points AS v_total
FROM patton_sums
JOIN patton_scores ON patton_sums.rnd = patton_scores.rnd AND patton_sums.segment = patton_scores.segment AND patton_sums.tabl = patton_scores.tabl
GROUP BY patton_scores.rnd, patton_scores.segment, patton_scores.tabl;
-- Ustawiamy wyrównania w matches, nanosząc na nie zapamiętane "zewnętrzne" wyrównania
UPDATE matches SET
corrh = COALESCE((SELECT h_total FROM patton_adjustments WHERE matches.rnd = patton_adjustments.rnd AND matches.tabl = patton_adjustments.tabl AND patton_adjustments.segment = 1), 0)
+ COALESCE((SELECT h_adj FROM patton_external_adjustments WHERE matches.rnd = patton_external_adjustments.rnd AND matches.tabl = patton_external_adjustments.tabl), 0),
corrv = COALESCE((SELECT v_total FROM patton_adjustments WHERE matches.rnd = patton_adjustments.rnd AND matches.tabl = patton_adjustments.tabl AND patton_adjustments.segment = 1), 0)
+ COALESCE((SELECT v_adj FROM patton_external_adjustments WHERE matches.rnd = patton_external_adjustments.rnd AND matches.tabl = patton_external_adjustments.tabl), 0);
-- Oblokowujemy obsługę wyzwalacza, na wypadek gdybyśmy chcieli coś jeszcze robić na tym samym połączeniu do bazy.
SET @patton_disable_trigger = 0;
|
