BerlogaDen,
Поиск в графе существенно зависит от решаемой задачи. Рекурсия не всегда работает быстро, хотя и выглядит элегантно.
Решаем задачу выхода из строя корабельных систем на основе графа связей оборудования, а далее оценку состояния корабельных функций
По существу Вам надо решить комбинаторную задачу для заполнения некоторой таблицы, из которой Вы будите быстро выбирать вариант. Совсем не обязательно реализовывать рекурсию.
Решение без рекурсии
Решалась задача:
Определить состояние функции корабля, состояние которой определяется состоянием комбинации корабельных систем влияющих на функцию.
Исходные данные:
1. Функции корабля
2. Таблица корабельных систем ship_system.ship_system
3. Таблица связи функции и системы ship_system.fighting_systems
Две функции для формирования вариантов.
Для оценки состояния функции необходим алгоритм состояния функции для каждого варианта

CREATE OR REPLACE FUNCTION var1(st integer)
RETURNS character varying AS
$BODY$
/* входной параметр - код функции корабля*/
BEGIN
-- добавить в таблицу варианты, где поражена только одна система из списка обеспечивающих функции корабля систем и сортируем по важности и номеру системы ---------------------------------
INSERT INTO var_syst_char
SELECT st,row_number() OVER ()::integer as cod,system_id,lev FROM (SELECT a.system_id,0 as lev,power FROM ship_system.fighting_systems a,
ship_system.ship_system b,ship_system.fighting_systems c where a.fighting_functions_id=st
and a.system_id=b.system_id and a.system_id=c.system_id and a.fighting_functions_id=c.fighting_functions_id
)as d ;
--Выполнить функцию var3 столько раз сколько систем обеспечивает функцию корабля - по существу это количество систем в комбинации, то есть ------------------------------------------
PERFORM var3(d::int ,st) FROM generate_series( 1 ,(SELECT count(system_id) FROM ship_system.fighting_systems where fighting_functions_id= st )) as d ;
------------------------------------------------------------------------------------------------------------------------------
RETURN '1';
END;
$BODY$
LANGUAGE plpgsql VOLATILE SECURITY DEFINER
COST 100;
ALTER FUNCTION var1(integer)
OWNER TO postgres;

CREATE OR REPLACE FUNCTION var3(level integer)
RETURNS character varying AS
$BODY$
DECLARE
n_id integer;
c integer;
BEGIN
SELECT max(variant_id) into n_id FROM var_syst_char ; --получить максимальное значение варианта в таблице var_syst_char
INSERT INTO var_syst_char --добавить запись в таблицу var_syst_char
SELECT n_id +row_number() OVER ()::integer as cod,a.system_id||','||d.system_id,level FROM var_syst_char a,
--Выбрать коды боевых систем вариантов нулевого уровня, тоесть тех которые должны стоять в комбинаторном списке систем первыми --------------------------
(SELECT system_id FROM var_syst_char
where variant_id in (SELECT distinct variant_id FROM var_syst_char where lev=0 order by variant_id) --Выбрать список вариантов нулевого уровня
) as d
--------------------------------------------------------------------------------------------
where a.variant_id in (SELECT distinct variant_id FROM var_syst_char where lev=level-1 order by variant_id) --Выбрать список кодов вариантов уровня N
and not a.system_id=d.system_id --исключить совпадающие комбинации ----------------------
and not d.system_id<(SELECT b[level] from (SELECT (SELECT string_to_array(a.system_id,','))as b --исключит комбинации, которые меньше
) as f)
--(SELECT string_to_array(a.system_id,',')as a ) [level]
and position(d.system_id::varchar in a.system_id)=0
order by 1 ;
RETURN '1';
END;
$BODY$
LANGUAGE plpgsql VOLATILE SECURITY DEFINER
COST 100;
ALTER FUNCTION var3(integer)
OWNER TO postgres;

Посмотрите, может, поможет

BerlogaDen,

Извините не заходил на форум. Было много работы

вы правы.У меня две функции и я скопировал не ту
CREATE OR REPLACE FUNCTION var3(
level integer,
str integer)
RETURNS character varying AS
$BODY$
DECLARE
n_id integer;
c integer;
BEGIN
SELECT max(variant_id) into n_id FROM var_syst_char where st=str ; --получить максимальное значение варианта в таблице var_syst_char
INSERT INTO var_syst_char --добавить запись в таблицу var_syst_char
SELECT str,n_id +row_number() OVER ()::integer as cod,a.system_id||','||d.system_id,level FROM var_syst_char a,
--Выбрать коды боевых систем вариантов нулевого уровня, тоесть тех которые должны стоять в комбинаторном списке систем первыми --------------------------
(SELECT system_id FROM var_syst_char
where variant_id in (SELECT distinct variant_id FROM var_syst_char where lev=0 AND st=str order by variant_id)AND st=str --Выбрать список вариантов нулевого уровня
) as d
--------------------------------------------------------------------------------------------
where a.variant_id in (SELECT distinct variant_id FROM var_syst_char where lev=level-1 AND st=str order by variant_id)AND st=str --Выбрать список кодов вариантов уровня N
and not a.system_id=d.system_id --исключить совпадающие комбинации ----------------------
and not d.system_id<(SELECT b[level] from (SELECT (SELECT string_to_array(a.system_id,','))as b --исключит комбинации, которые меньше
) as f)
--(SELECT string_to_array(a.system_id,',')as a ) [level]
and position(d.system_id::varchar in a.system_id)=0
order by 1 ;
RETURN '1';
END;
$BODY$
LANGUAGE plpgsql VOLATILE SECURITY DEFINER
COST 100;
ALTER FUNCTION var3(integer, integer)
OWNER TO postgres;

BerlogaDen,
Нельзя сказать что формирование вариантов - это очень долго. Зато выборка быстро и подход инвариантен от "правил"
"Правила" (логика заданная постановщиком задачи) можно реализовать в виде процедуры, но Вам придется каждый раз переписывать обработку при изменении правил. Как реализовывать Ваш выбор.
Конечно расстановка "весов" вариантам выполняется процедурой в соответствии с заданными "правилами"
Я описал подход, который меня устраивает и не требует переписывания массы процедур оценки функционирования корабельных систем для разных проектов кораблей