X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=wwwroot%2Fbackend%2Fmysql%2Ftest.sql;fp=wwwroot%2Fbackend%2Fmysql%2Ftest.sql;h=1d2b754788471cfeaecbc5290be4e21519a5d408;hb=1241a4283bad6f641dec63fb23ef9b2e58035e4c;hp=0000000000000000000000000000000000000000;hpb=0f3e30ba49a0ecdce3b731dfd2cc6ef7d50d2e9d;p=mirrors%2FKyberia-bloodline.git

diff --git a/wwwroot/backend/mysql/test.sql b/wwwroot/backend/mysql/test.sql
new file mode 100644
index 0000000..1d2b754
--- /dev/null
+++ b/wwwroot/backend/mysql/test.sql
@@ -0,0 +1,48 @@
+drop procedure if exists k_neurons;
+drop function if exists k_get_node_weigth;
+
+delimiter //
+
+create function k_get_node_weigth (node INT, user INT) returns DOUBLE
+BEGIN
+	declare vector,node2,len,n_owner,offset int;
+	declare final,n_weight,o_weight,s_weight double;
+
+	select node_vector into vector from nodes where node_id = node;
+
+	set final = 1;
+	/* select k from nodes into final where node_id = node;*/
+
+	set len = length(vector);
+	set offset = 1;
+	WHILE offset < len DO
+
+		/* XXX node length is hardcoded */
+		set node2 = substring(node2,offset,8);
+		set offset = offset + 8;
+		/* weigths from user to: 
+			- all nodes from node to root node
+			- all node owners from node to root node
+			- all nodes between themselves (safe?)
+		*/
+		select node_weight,node_creator into n_weight,n_owner from nodes where node_id=node2;
+		select synapse_weight into s_weight from neurons where src=user and dst=node2;
+		select synapse_weight into o_weight from neurons where src=user and dst=n_owner;
+		
+		if o_weight = NULL then set o_weight=1; end if;
+		if s_weight = NULL then set s_weight=1; end if;
+		if n_weight = NULL then set n_weight=1; end if;
+		
+		set final = final * s_weight * o_weight * n_weight;
+	END WHILE;
+
+	RETURN final;
+END//
+
+create procedure k_neurons ()
+begin
+	select k,node_id,node_name from nodes where k>0 
+		and node_created>now()-interval 20 day order by k_get_node_weigth(node_id,904) desc;
+end//
+
+delimiter ;