Function CP_set_mixture_binary_pair_data

wrappers/MathCAD/CoolPropMathcad.cpp:816–853

This code executes the user function CP_set_mixture_binary_pair_data, which is a wrapper for the CoolProp.set_mixture_binary_pair_data() function, used to set the mixing rule for a specific binary pair.

// the CoolProp.set_mixture_binary_pair_data() function, used to set the mixing rule for a
// specific binary pair.
static LRESULT CP_set_mixture_binary_pair_data(LPMCSTRING Msg,          // output string (verification message)
                                               LPCMCSTRING CAS1,        // First component
                                               LPCMCSTRING CAS2,        // Second component
                                               LPCMCSTRING Param,       // Parameter Name String to set
                                               LPCCOMPLEXSCALAR Value)  // Parameter Value
{
    std::string s = Param->str;
    s.append(" parameter set.");

    // check that the first scalar argument is real
    LRESULT r = CheckRealOrError(Value, 4);
    if (r) return r;

    // Invoke the std::string form of get_global_param_string() function, save result to a new string s
    try {
        CoolProp::set_mixture_binary_pair_data(CAS1->str, CAS2->str, Param->str, Value->real);
    } catch (const CoolProp::ValueError& e) {
        std::string emsg(e.what());
        CoolProp::set_error_string(emsg);
        if (emsg.find("parameter") != std::string::npos) {
            return MAKELRESULT(BAD_PARAMETER, 3);
        } else if (emsg.find("key") != std::string::npos) {
            if (emsg.find(CAS1->str) != std::string::npos)
                return MAKELRESULT(BAD_FLUID, 1);
            else
                return MAKELRESULT(BAD_FLUID, 2);
        } else
            return MAKELRESULT(UNKNOWN, 1);
    }

    // Must use MathcadAllocate(size) so Mathcad can track and release
    char* c = AllocMathcadString(s);
    // assign the string to the function's output parameter
    Msg->str = c;

    // normal return
    return 0;
}

// ********************************************************************************************************
// Fill out a FUNCTIONINFO structure with the information needed for registering the function with Mathcad