Package org.apfloat

Examples of org.apfloat.Apfloat

24
25
26
27
28
29
30
31
 
  public BigDec round(ConsCell input) throws ParserException {
    ConsCell num = parser.run(input);
    if (num.length() != 1 || num.getCarType() != ConsType.NUMBER)
      throw new UndefinedResultException("The argument to the round function must evaluate to a number", this);
    Apfloat real = ((BigDec) num.getCar()).getInternal().real(), complex = ((BigDec) num.getCar()).getInternal().imag(), round = new Apfloat(0.5);
    return new BigDec(real.frac().compareTo(round) == -1 ? real.floor() : real.ceil(), complex.frac().compareTo(round) == -1 ? complex.floor() : complex.ceil());
  }
View Full Code Here
70
71
72
73
74
75
76
    this(real, 0.0);
  }
 
  public BigDec(double real, double complex) {
    infinity = real == Double.POSITIVE_INFINITY || complex == Double.POSITIVE_INFINITY ? 1 : real == Double.NEGATIVE_INFINITY || complex == Double.NEGATIVE_INFINITY ? -1 : 0;
    internal = infinity == 0 ? new Apcomplex(new Apfloat(real, PRECISION), new Apfloat(complex, PRECISION)) : null;
  }
View Full Code Here
84
85
86
87
88
89
90
      infinity = 1;
    else if (new Integer(real).doubleValue() == Double.NEGATIVE_INFINITY)
      infinity = -1;
    else
      infinity = 0;
    internal = infinity == 0 ? new Apcomplex(new Apfloat(real, PRECISION), new Apfloat(complex, PRECISION)) : null;
  }
View Full Code Here
98
99
100
101
102
103
104
      infinity = 1;
    else if (new Long(real).doubleValue() == Double.NEGATIVE_INFINITY)
      infinity = -1;
    else
      infinity = 0;
    internal = infinity == 0 ? new Apcomplex(new Apfloat(real, PRECISION), new Apfloat(complex, PRECISION)) : null;
  }
View Full Code Here
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
  public BigDec(String number) {
    Matcher m = complexNumber.matcher(number.replaceAll(" ", "").toLowerCase());
    if (!m.matches()) {
      if (number.equals("i")) {
        infinity = 0;
        internal = new Apcomplex(new Apfloat(0, PRECISION), new Apfloat(1, PRECISION));
        return;
      }
      throw new NumberFormatException(number + " is not a valid complex number.");
    }
    Apfloat real = new Apfloat(0, PRECISION), imaginary = new Apfloat(0, PRECISION);
    int sign = 1;
    if ("-".equals(m.group(1)))
      sign = -1;
    if (m.group(2).equals("infinity")) {
      infinity = sign;
      internal = null;
      return;
    }
    if (m.group(2).equals("i")) {
      imaginary = new Apfloat(1, PRECISION);
    }
    else if (m.group(5) != null)
      imaginary = sign == -1 ? new Apfloat("-" + m.group(3), PRECISION) : new Apfloat(m.group(3), PRECISION);
    else
      real = sign == -1 ? new Apfloat("-" + m.group(3), PRECISION) : new Apfloat(m.group(3), PRECISION);
    if (m.group(6) != null) {
      sign = 1;
      if ("-".equals(m.group(7)))
        sign = -1;
      if (m.group(8).equals("infinity")) {
        infinity = sign;
        internal = null;
        return;
      }
      if (m.group(8).equals("i")) {
        imaginary = new Apfloat(1, PRECISION);
      }
      else if (m.group(11) != null)
        imaginary = sign == -1 ? new Apfloat("-" + m.group(9), PRECISION) : new Apfloat(m.group(9), PRECISION);
      else
        real = sign == -1 ? new Apfloat("-" + m.group(9), PRECISION) : new Apfloat(m.group(9), PRECISION);
    }
    infinity = 0;
    internal = new Apcomplex(real, imaginary);
  }
View Full Code Here
311
312
313
314
315
316
317
318
319
320
321
    return new BigDec(b.subtract(getQ(b, a, ApZERO, ApZERO, -1).multiply(a)));
  }
 
  //0 -> +1, 1 -> +i, 2 -> -1, 3 -> -i
  private Apcomplex getQ(Apcomplex b, Apcomplex a, Apcomplex q, Apcomplex lastR, int direction) {
    Apfloat norm = ApcomplexMath.norm(b);
    //q, r
    Pair<Apcomplex, Apcomplex>[] r = (Pair<Apcomplex, Apcomplex>[]) Array.newInstance(new Pair<Apcomplex, Apcomplex>(null, null).getClass(), 4);
    if (direction >= 0) {
      direction = (direction + 2) % 4;
      r[direction] = new Pair<Apcomplex, Apcomplex>(q, lastR);
View Full Code Here
427
428
429
430
431
432
433
434
      return true;
    else if (infinity != 0 || number.infinity != 0)
      return false;
    if (!isComplex() && !number.isComplex())
      return internal.real().compareTo(number.internal.real()) > 0;
    return ApfloatMath.abs(ApcomplexMath.pow(internal.real(), new Apfloat(2)).real().add(ApcomplexMath.pow(internal.imag(), new Apfloat(2)).real())).
        compareTo(ApfloatMath.abs(ApcomplexMath.pow(number.internal.real(), new Apfloat(2)).real().add(ApcomplexMath.pow(number.internal.imag(), new Apfloat(2)).real()))) > 0;
  }
View Full Code Here
445
446
447
448
449
450
451
452
      return true;
    else if (infinity != 0 || number.infinity != 0)
      return false;
    if (!isComplex() && !number.isComplex())
      return internal.real().compareTo(number.internal.real()) < 0;
    return ApfloatMath.abs(ApcomplexMath.pow(internal.real(), new Apfloat(2)).real().add(ApcomplexMath.pow(internal.imag(), new Apfloat(2)).real())).
        compareTo(ApfloatMath.abs(ApcomplexMath.pow(number.internal.real(), new Apfloat(2)).real().add(ApcomplexMath.pow(number.internal.imag(), new Apfloat(2)).real()))) < 0;
  }
View Full Code Here
TOP

Related Classes of org.apfloat.Apfloat

  • lipstone.joshua.parser.types.BigDec
  • miscellaneous.Functions
    • Copyright © 2018 www.massapicom. All rights reserved.
    All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.