x_mult := function(a) # this function returns a map that multiplies by 'I*a' local phi; phi := function(b) return b*a*I; end; return Map(R,C,phi); end; x_f := x_mult(5); x_f(2); Image(3.1,x_f); Domain(x_f); Codomain(x_f);