product_fseq[T: TYPE+ FROM real]: THEORY %------------------------------------------------------------------------------- % % products over finite sequences of reals % % Author: Rick Butler NASA Langley % %------------------------------------------------------------------------------- BEGIN
IMPORTING structures@fseqs[T], product_nat
unk: VAR fsq[T]
fs,fs1,fs2: VAR fseq
product(fs): real = IF length(fs) = 0 THEN 1 ELSE product(0,length(fs)-1,fs`seq) ENDIF
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.