; definicija trapeza s pravima kotoma ob osnovnici
; z ogliscem (p,q), osnovnico dolzine t,
; leve visine r in desne visine s predstavljenega kot
; seznama povezav
TRAP(p,q,r,s,t):=[[[p,q],[p,q+r]],[[p,q+r],[p+t,q+s]],
[[p+t,q+s],[p+t,q]]]
; funkcijo narisemo le na obmocju a,b
NARISI_ME(u,a,b):=IF(x>=a AND x<=b,u,?)
; definicija trapezov podanih s funkcijskimi vrednostmi
TRAPEZI(u,a,b,n):=VECTOR(TRAP(a+j*(b a)/n,0,LIM(u,x,a+j*(b a)/n),
LIM(u,x,a+(j+1)*(b a)/n),(b a)/n),j,0,n 1)
; vsota ploscin trapezov
TRAP_VS(u,a,b,n):=(b a)/(2*n)*(LIM(u,x,a)+
2*SUM(LIM(u,x,a+(b a)*j/n),j,1,n 1)+LIM(u,x,b))