/dports/lang/gnu-apl/apl-1.8/src/ |
H A D | ComplexCell.cc | 38 ComplexCell::ComplexCell(APL_Complex c) in ComplexCell() function in ComplexCell 44 ComplexCell::ComplexCell(APL_Float r, APL_Float i) in ComplexCell() function in ComplexCell 51 ComplexCell::get_real_value() const in get_real_value() 57 ComplexCell::get_imag_value() const in get_imag_value() 63 ComplexCell::is_near_int() const in is_near_int() 125 ComplexCell::is_near_zero() const in is_near_zero() 135 ComplexCell::is_near_one() const in is_near_one() 145 ComplexCell::is_near_real() const in is_near_real() 190 new (Z) ComplexCell(-cval()); in bif_negative() 357 new (Z) ComplexCell(z); in bif_multiply() [all …]
|
H A D | RealCell.cc | 58 return ComplexCell::zv(Z, z); in bif_logarithm() 116 case -12: ComplexCell(0, b).bif_exponential(Z); return E_NO_ERROR; in do_bif_circle_fun() 117 case -11: return ComplexCell::zv(Z, 0.0, b ); in do_bif_circle_fun() 124 if (b < 0.0) return ComplexCell::zv(Z, 0.0, -sq); in do_bif_circle_fun() 125 else return ComplexCell::zv(Z, 0.0, sq); in do_bif_circle_fun() 137 return ComplexCell::do_bif_circle_fun(Z, -7, cb); in do_bif_circle_fun() 140 return ComplexCell::do_bif_circle_fun(Z, -6, cb); in do_bif_circle_fun() 144 return ComplexCell::do_bif_circle_fun(Z, -4, cb); in do_bif_circle_fun() 147 return ComplexCell::do_bif_circle_fun(Z, -2, cb); in do_bif_circle_fun() 149 return ComplexCell::do_bif_circle_fun(Z, -1, cb); in do_bif_circle_fun() [all …]
|
H A D | ComplexCell.hh | 34 class ComplexCell : public NumericCell class 38 ComplexCell(APL_Complex c); 42 const { new (other) ComplexCell(value.cval[0], value.cval[1]); } in init_other() 45 ComplexCell(APL_Float r, APL_Float i); 160 { new (Z) ComplexCell(r, 0.0); return E_NO_ERROR; } in zv() 164 { new (Z) ComplexCell(r, j); return E_NO_ERROR; } in zv() 168 { new (Z) ComplexCell(v.real(), v.imag()); return E_NO_ERROR; } in zv()
|
H A D | NumericCell.cc | 1373 const APL_Complex gam_1_a = ComplexCell::gamma(r_1_a + 1.0, i_a); in bif_binomial() 1374 const APL_Complex gam_1_b = ComplexCell::gamma(r_1_b + 1.0, i_b); in bif_binomial() 1375 const APL_Complex gam_1_b__a = ComplexCell::gamma(r_1_b__a + 1.0,i_b_a); in bif_binomial() 1377 new (Z) ComplexCell(gam_1_b / (gam_1_a * gam_1_b__a)); in bif_binomial() 1467 new (Z) ComplexCell(A->get_complex_value() * (get_complex_value()/gcd)); in bif_and() 1604 new (Z) ComplexCell(get_complex_value()); in bif_or() 1610 new (Z) ComplexCell(A->get_complex_value()); in bif_or() 1621 new (Z) ComplexCell(gcd); in bif_or()
|
H A D | IntCell.cc | 467 new (Z) ComplexCell(log(bb)); in bif_nat_log() 624 new (Z) ComplexCell(A->get_complex_value()); in bif_power() 729 const APL_Float denom = ComplexCell::mag2(z); in bif_power() 730 if (!invert_Z) return ComplexCell::zv(Z, z); in bif_power() 733 return ComplexCell::zv(Z, z.real() / denom, - z.imag() / denom); in bif_power() 744 ComplexCell B(value.ival, 0); in bif_residue()
|
H A D | Quad_FFT.cc | 175 ComplexCell(out[n][0]/norm, out[n][1]/norm); in do_fft() 202 new (Z->next_ravel()) ComplexCell(w*cell_B.get_real_value(), in do_window() 219 new (Z->next_ravel()) ComplexCell(w*cell_B.get_real_value(), in do_window()
|
H A D | FloatCell.cc | 382 return ComplexCell::zv(Z, log(bb)); in bif_nat_log() 488 return ComplexCell::zv(Z, A->get_real_value() - get_real_value(), in bif_subtract() 544 return ComplexCell::zv(Z, zr, zi); in bif_multiply() 597 return ComplexCell::zv(Z, zar, zai); in bif_divide() 637 return ComplexCell::zv(Z, z); in bif_power() 725 ComplexCell B(get_real_value()); in bif_residue()
|
H A D | Cell.hh | 35 class ComplexCell; 474 virtual const ComplexCell & cComplexCell() { DOMAIN_ERROR; } in cComplexCell() 477 virtual ComplexCell & vComplexCell() const { DOMAIN_ERROR; } in vComplexCell()
|
H A D | Cell.icc | 89 const APL_Float Cmag2_A = C * ComplexCell::mag2(A); 90 const APL_Float Cmag2_B = C * ComplexCell::mag2(B);
|
H A D | Makefile.am | 48 ComplexCell.cc ComplexCell.hh \
|
H A D | LApack.cc | 93 new (cZ + r*cols_A + c) ComplexCell(a[r].real(), a[r].imag()); in divide_matrix()
|
H A D | CDR.cc | 370 new (&ret->get_ravel(n)) ComplexCell(vr, vi); in from_CDR() 431 ComplexCell(*reinterpret_cast<const APL_Float *> in from_CDR()
|
H A D | Parser.cc | 714 new (scalar->next_ravel()) ComplexCell(output.get_cpx_real(), in create_scalar_value() 762 new (addr) ComplexCell(tok.get_cpx_real(), in create_vector_value()
|
H A D | Makefile.in | 165 ComplexCell.cc ComplexCell.hh configure_args.cc DiffOut.cc \ 315 ComplexCell.cc ComplexCell.hh configure_args.cc DiffOut.cc \ 447 ComplexCell.cc ComplexCell.hh configure_args.cc DiffOut.cc \ 871 ComplexCell.cc ComplexCell.hh configure_args.cc DiffOut.cc \ 1628 lib_gnu_apl_la-ComplexCell.lo: ComplexCell.cc 2370 libapl_la-ComplexCell.lo: ComplexCell.cc 2372 …depCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libapl_la-ComplexCell.Tpo $(DEPDIR)/libapl_la-ComplexCe… 3273 apl-ComplexCell.o: ComplexCell.cc 3275 @am__fastdepCXX_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/apl-ComplexCell.Tpo $(DEPDIR)/apl-ComplexCell.Po 3280 apl-ComplexCell.obj: ComplexCell.cc [all …]
|
H A D | libapl.cc | 71 new (Z->next_ravel()) ComplexCell(real, imag); in complex_scalar() 320 new (cell) ComplexCell(new_real, new_imag); in set_complex()
|
H A D | python_apl.cc | 364 loop(z, len_Z) new (Z->next_ravel()) ComplexCell(real, imag); in python_to_apl()
|
H A D | PrimitiveFunction.cc | 924 new (Z->next_ravel()) ComplexCell(b / r2); in eval_B() 1508 new (cZ) ComplexCell(value); in decode_complex() 1510 new (cZ) ComplexCell(value); in decode_complex() 1659 const ComplexCell cC(b); in encode()
|
H A D | Quad_TF.cc | 426 new (&new_val->get_ravel(t)) ComplexCell(tos[t].get_cpx_real(), in tf1_inv()
|
H A D | Value.cc | 1989 new (Z->next_ravel()) ComplexCell(val); in ComplexScalar()
|
H A D | Archive.cc | 1539 new (C++) ComplexCell(real, imag); in read_Cells()
|
H A D | Command.cc | 2237 ComplexCell(tos[e].get_cpx_real(), in numeric_1TF()
|