// // Function: IMSUB // Value func_imsub(valVector args, ValueCalc *calc, FuncExtra *) { Value result; if (args.count() == 1) awImSub(calc, result, args[0], Value(0)); else { result = args[0]; valVector vector = args.mid(1); calc->arrayWalk(vector, result, awImSub, Value(0)); } return result; }
// // Function: IMDIV // Value func_imdiv(valVector args, ValueCalc *calc, FuncExtra *) { Value result; if (args.count() == 1) { result = Value(complex<double>(1.0, 0.0)); awImDiv(calc, result, args[0], Value(0)); } else { result = args[0]; valVector vector = args.mid(1); calc->arrayWalk(vector, result, awImDiv, Value(0)); } return result; }