//
// 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;
}