Example #1
0
Number* Rational::expt(Number* obj){
    if(sgn()<0){
        Complex* c = new Complex();
        c = SCAST_COMPLEX(c->convert(this));
        Complex* d = SCAST_COMPLEX(c->convert(obj));
        return c->expt(d);
    }else{
        Float* tmpf = new Float();
        tmpf = SCAST_FLOAT(tmpf->convert(obj));
        return new Float(pow(double(*this), double(*SCAST_RATIONAL(obj))));
    }
}
Example #2
0
SchemeUnit* Rational::isEql(Number* number2)
{
    if (!number2->exact_)
    {
        return new Boolean(false);
    }
    else if (number2->type_ == 1)
    {
        Rational* tmp2 = SCAST_RATIONAL(number2);
        Rational* tmp_dif = SCAST_RATIONAL(sub(tmp2));
        if (tmp_dif->num_ == ZERO_)
            return new Boolean(true);
        else return new Boolean(false);
    }
    else if (number2->type_ == 3)
    {
        Complex* tmp2 = SCAST_COMPLEX(number2);
        Rational* tmp2_real = SCAST_RATIONAL(tmp2->real_);
        Rational* tmp2_imag = SCAST_RATIONAL(tmp2->imag_);
        if (tmp2_imag->num_!=ZERO_)
            return new Boolean(false);
        else
        {
            Rational* tmp_dif = SCAST_RATIONAL(sub(tmp2_real));
            if (tmp_dif->num_ == ZERO_)
                return new Boolean(true);
            else return new Boolean(false);
        }

    }
}
Example #3
0
Number* Rational::expp(Number* number2)
{
    Rational* rtmp2 = SCAST_RATIONAL(number2);
    if (num_==ZERO_ && rtmp2->num_==ZERO_) return new Float(1);
    else if (num_==ZERO_ && rtmp2->num_!=ZERO_) return new Float(0);
    if(num_.sgn_)
    {
        Complex* c = new Complex;
        c = SCAST_COMPLEX(c->convert(this));
        Complex* d = SCAST_COMPLEX(c->convert(rtmp2));
        return c->expp(d);
    }
    else
    {
        Float* tmpf = new Float;
        tmpf = SCAST_FLOAT(tmpf->convert(rtmp2));
        return new Float(pow(SCAST_FLOAT(tmpf->convert(this))->number_, tmpf->number_));
    }
}