m_apm_set_double
extern void m_apm_set_double(M_APM, double);
{create();m_apm_set_double(val(),d);}
{m_apm_set_double(val(),d);return *this;}
m_apm_set_double(guess, (1.0 / atof(sbuf)));
m_apm_set_double(r, (1.0 / sqrt(dd)));
m_apm_set_double(r, (1.00001 / exp(dd)));
m_apm_set_double(r, (1.00001 * log(dd))); /* induce error of 10 ^ -5 */
m_apm_set_double(r, (1.00001 * asin(dd))); /* induce error of 10 ^ -5 */
m_apm_set_double(r, (1.00001 * acos(dd))); /* induce error of 10 ^ -5 */