Найти среднее геометрическое положительных вершин дерева

@Salamnov · Регистрация: 29.03.2009

Author24 — интернет-сервис помощи студентам

Найти среднее геометрическое положительных вершин дерева.

@Catstail · 27.10.2014, 18:53

Prolog

domains
treetype = tree(real, treetype, treetype); empty
 
predicates
counter_p(treetype,real)
sum_p(treetype,real)
avg_p(treetype,real)
pow(real,real,real)
 
clauses
 
pow(X,N,Z):- Z=exp(N*ln(X)).
 
counter_p(empty,0.0).
counter_p(tree(V,L,R),N) :- V<=0, counter_p(L,LP), counter_p(R,RP), N=LP+RP.
counter_p(tree(V,L,R),N) :- V>0, counter_p(L,LP), counter_p(R,RP), N=LP+RP+1.
 
sum_p(empty,0.0).
sum_p(tree(V,L,R),N) :- V<=0, sum_p(L,LP), sum_p(R,RP), N=LP+RP.
sum_p(tree(V,L,R),N) :- V>0, sum_p(L,LP), sum_p(R,RP), N=LP+RP+V.
 
avg_p(T,V) :- counter_p(T,N), sum_p(T,S), N > 0, N1=1/N, pow(S,N1,V).
avg_p(T,0) :- counter_p(T,N), abs(N)<1, write("No positive nodes!"),nl.
 
goal
avg_p(tree(-6,tree(7,empty,empty),tree(8,empty,tree(-1,empty,empty))),Z),write(Z),nl.

@Salamnov 5 / 5 / 3 Регистрация: 29.03.2009 Сообщений: 37
		1
	Найти среднее геометрическое положительных вершин дерева 14.03.2013, 22:47. Показов 1335. Ответов 1 Метки нет (Все метки) Найти среднее геометрическое положительных вершин дерева. 0

	27.10.2014, 18:53