1 | test_clock = ->
|
2 | run_test [
|
3 |
|
4 | "clock(exp(i pi/3))",
|
5 | "(-1)^(1/3)",
|
6 |
|
7 | "clock(exp(-i pi/3))",
|
8 | #"-(-1)^(2/3)",
|
9 | "1/(-1)^(1/3)",
|
10 |
|
11 | "rect(clock(3+4*i))", # needs sin(arctan(x)) and cos(arctan(x))
|
12 | "3+4*i",
|
13 |
|
14 | "clock((-108+108*(-1)^(1/2)*3^(1/2))^(1/3))",
|
15 | "6*(-1)^(2/9)",
|
16 |
|
17 | # TODO
|
18 | # the changes to abs/mag of Jan 2017
|
19 | # make it so a ends up as absolute value
|
20 | # (-1)^(1/5)*abs(a)
|
21 | # Rather, clock should somehow recognize
|
22 | # that this is already very close to clock
|
23 | # form and just replace the exponential with
|
24 | # the power of -1
|
25 | # Note that this was working before the Jan 2017
|
26 | # changes because abs/mag were blissfully
|
27 | # transforming abs(any_variable) -> any_variable
|
28 | #"clock(exp(1/5*i*pi)*a)",
|
29 | #"(-1)^(1/5)*a",
|
30 |
|
31 | ]
|