Home
last modified time | relevance | path

Searched refs:ComplexCell (Results 1 – 21 of 21) sorted by relevance

/dports/lang/gnu-apl/apl-1.8/src/
H A DComplexCell.cc38 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 DRealCell.cc58 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 DComplexCell.hh34 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 DNumericCell.cc1373 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 DIntCell.cc467 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 DQuad_FFT.cc175 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 DFloatCell.cc382 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 DCell.hh35 class ComplexCell;
474 virtual const ComplexCell & cComplexCell() { DOMAIN_ERROR; } in cComplexCell()
477 virtual ComplexCell & vComplexCell() const { DOMAIN_ERROR; } in vComplexCell()
H A DCell.icc89 const APL_Float Cmag2_A = C * ComplexCell::mag2(A);
90 const APL_Float Cmag2_B = C * ComplexCell::mag2(B);
H A DMakefile.am48 ComplexCell.cc ComplexCell.hh \
H A DLApack.cc93 new (cZ + r*cols_A + c) ComplexCell(a[r].real(), a[r].imag()); in divide_matrix()
H A DCDR.cc370 new (&ret->get_ravel(n)) ComplexCell(vr, vi); in from_CDR()
431 ComplexCell(*reinterpret_cast<const APL_Float *> in from_CDR()
H A DParser.cc714 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 DMakefile.in165 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 Dlibapl.cc71 new (Z->next_ravel()) ComplexCell(real, imag); in complex_scalar()
320 new (cell) ComplexCell(new_real, new_imag); in set_complex()
H A Dpython_apl.cc364 loop(z, len_Z) new (Z->next_ravel()) ComplexCell(real, imag); in python_to_apl()
H A DPrimitiveFunction.cc924 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 DQuad_TF.cc426 new (&new_val->get_ravel(t)) ComplexCell(tos[t].get_cpx_real(), in tf1_inv()
H A DValue.cc1989 new (Z->next_ravel()) ComplexCell(val); in ComplexScalar()
H A DArchive.cc1539 new (C++) ComplexCell(real, imag); in read_Cells()
H A DCommand.cc2237 ComplexCell(tos[e].get_cpx_real(), in numeric_1TF()