f::mul (public)

 f::mul n fraction

Defined in packages/acs-tcl/tcl/ad-functional-procs.tcl

multiplies n with a fraction (given as a tuple)

Parameters:
n
fraction

Partial Call Graph (max 5 caller/called nodes):
%3 f::fst f::fst (public) f::gcd f::gcd (public) f::snd f::snd (public) f::mul f::mul f::mul->f::fst f::mul->f::gcd f::mul->f::snd

Testcases:
No testcase defined.
Source code:
    set num [fst $fraction]
    set denom [snd $fraction]
    set g [gcd $n $denom]
    expr {($n/$g)*$num/($denom/$g)}
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: