•math.Atan2
This commit is contained in:
parent
25694db7ca
commit
36111276c6
@ -17,7 +17,7 @@
|
|||||||
/*internal.c*/M(itype,"•internal.Type") M(elType,"•internal.ElType") M(refc,"•internal.Refc") M(isPure,"•internal.IsPure") A(info,"•internal.Info") M(heapDump,"•internal.HeapDump") \
|
/*internal.c*/M(itype,"•internal.Type") M(elType,"•internal.ElType") M(refc,"•internal.Refc") M(isPure,"•internal.IsPure") A(info,"•internal.Info") M(heapDump,"•internal.HeapDump") \
|
||||||
/*internal.c*/M(squeeze,"•internal.Squeeze") M(deepSqueeze,"•internal.DeepSqueeze") D(eequal,"•internal.EEqual") A(internalTemp,"•internal.Temp") \
|
/*internal.c*/M(squeeze,"•internal.Squeeze") M(deepSqueeze,"•internal.DeepSqueeze") D(eequal,"•internal.EEqual") A(internalTemp,"•internal.Temp") \
|
||||||
/*internal.c*/D(variation,"•internal.Variation") A(listVariations,"•internal.ListVariations") M(clearRefs,"•internal.ClearRefs") M(unshare,"•internal.Unshare") \
|
/*internal.c*/D(variation,"•internal.Variation") A(listVariations,"•internal.ListVariations") M(clearRefs,"•internal.ClearRefs") M(unshare,"•internal.Unshare") \
|
||||||
/* arithm.c*/M(sin,"•math.Sin") M(cos,"•math.Cos") M(tan,"•math.Tan") M(asin,"•math.Asin") M(acos,"•math.Acos") M(atan,"•math.Atan")
|
/* arithm.c*/M(sin,"•math.Sin") M(cos,"•math.Cos") M(tan,"•math.Tan") M(asin,"•math.Asin") M(acos,"•math.Acos") M(atan,"•math.Atan") D(atan2,"•math.Atan2")
|
||||||
|
|
||||||
#define FOR_PM1(A,M,D) \
|
#define FOR_PM1(A,M,D) \
|
||||||
/*md1.c*/A(tbl,"⌜") A(each,"¨") A(fold,"´") A(scan,"`") A(const,"˙") A(swap,"˜") A(cell,"˘") A(insert,"˝") \
|
/*md1.c*/A(tbl,"⌜") A(each,"¨") A(fold,"´") A(scan,"`") A(const,"˙") A(swap,"˜") A(cell,"˘") A(insert,"˝") \
|
||||||
|
|||||||
@ -16,6 +16,7 @@ B mul_c2(B, B, B); B root_c2(B, B, B);
|
|||||||
B and_c2(B, B, B); B stile_c2(B, B, B);
|
B and_c2(B, B, B); B stile_c2(B, B, B);
|
||||||
B or_c2 (B, B, B); B log_c2(B, B, B);
|
B or_c2 (B, B, B); B log_c2(B, B, B);
|
||||||
B floor_c2(B, B, B);
|
B floor_c2(B, B, B);
|
||||||
|
B atan2_c2(B, B, B);
|
||||||
|
|
||||||
|
|
||||||
typedef void (*AndBytesFn)(u8*, u8*, u64, u64);
|
typedef void (*AndBytesFn)(u8*, u8*, u64, u64);
|
||||||
@ -359,4 +360,10 @@ AR_F_SCALAR("|", stile, pfmod(x.f, w.f))
|
|||||||
AR_F_SCALAR("⋆⁼",log , log(x.f)/log(w.f))
|
AR_F_SCALAR("⋆⁼",log , log(x.f)/log(w.f))
|
||||||
#undef AR_F_SCALAR
|
#undef AR_F_SCALAR
|
||||||
|
|
||||||
|
B atan2_c2(B t, B w, B x) {
|
||||||
|
if (isNum(w) && isNum(x)) return m_f64(atan2(x.f, w.f));
|
||||||
|
P2(atan2)
|
||||||
|
thrM("•math.Atan2: Unexpected argument types");
|
||||||
|
}
|
||||||
|
|
||||||
#undef P2
|
#undef P2
|
||||||
|
|||||||
@ -107,8 +107,8 @@ static B mathNS;
|
|||||||
B getMathNS() {
|
B getMathNS() {
|
||||||
if (mathNS.u == 0) {
|
if (mathNS.u == 0) {
|
||||||
#define F(X) inc(bi_##X),
|
#define F(X) inc(bi_##X),
|
||||||
Body* d = m_nnsDesc("sin","cos","tan","asin","acos","atan");
|
Body* d = m_nnsDesc("sin","cos","tan","asin","acos","atan","atan2");
|
||||||
mathNS = m_nns(d, F(sin)F(cos)F(tan)F(asin)F(acos)F(atan));
|
mathNS = m_nns(d, F(sin)F(cos)F(tan)F(asin)F(acos)F(atan)F(atan2));
|
||||||
#undef F
|
#undef F
|
||||||
gc_add(mathNS);
|
gc_add(mathNS);
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user