1 | test_arg = ->
|
2 | run_test [
|
3 |
|
4 | # wrong
|
5 | #"arg(-1)",
|
6 | #"-pi",
|
7 |
|
8 | "arg(pi)",
|
9 | "0",
|
10 |
|
11 | "arg(1+i)",
|
12 | "1/4*pi",
|
13 |
|
14 | "arg(1-i)",
|
15 | "-1/4*pi",
|
16 |
|
17 | "arg(-1+i)",
|
18 | "3/4*pi",
|
19 |
|
20 | "arg(-1-i)",
|
21 | "-3/4*pi",
|
22 |
|
23 | "arg((-1)^(1/3))",
|
24 | "1/3*pi",
|
25 |
|
26 | "arg(1+exp(i*pi/3))",
|
27 | "1/6*pi",
|
28 |
|
29 | "arg((-1)^(1/6)*exp(i*pi/6))",
|
30 | "1/3*pi",
|
31 |
|
32 | # check when not assuming real variables ----------
|
33 | "assumeRealVariables = 0",
|
34 | "",
|
35 |
|
36 | "arg(a)",
|
37 | "arg(a)",
|
38 |
|
39 | # TODO this is wrong
|
40 | #"arg(a*exp(b+i*pi/5))",
|
41 | #"1/5*pi",
|
42 |
|
43 | # this is wrong
|
44 | #"arg(-1)",
|
45 | #"-pi",
|
46 |
|
47 | # this is also highly debatable
|
48 | # take the example
|
49 | # a = -1-i
|
50 | # then arg(a) - arg(-a) should give pi
|
51 | # but arg(1+i) - arg(-1-i) gives -pi instead
|
52 | # "arg(-a)",
|
53 | # "-pi+arg(a)",
|
54 |
|
55 | "assumeRealVariables = 1",
|
56 | "",
|
57 | # --------------------------------------------------
|
58 |
|
59 | # TODO this is wrong.
|
60 | #"arg(a*exp(b+i*pi/5))",
|
61 | #"1/5*pi",
|
62 |
|
63 | # referencing the test above, if
|
64 | # a is positive:
|
65 | "arg(abs(a)*exp(b+i*pi/5))",
|
66 | "1/5*pi",
|
67 |
|
68 | # otherwise, if negative, we get:
|
69 | "arg((-8)*exp(b+i*pi/5))",
|
70 | "-4/5*pi",
|
71 |
|
72 | # if a is positive, zero
|
73 | # if a is negative, -pi, so
|
74 | # we can't say much
|
75 | "arg(a)",
|
76 | "arg(a)",
|
77 |
|
78 | # this is also wrong, this should
|
79 | # be either zero or pi
|
80 | #"arg(-a)",
|
81 | #"-pi+arg(a)",
|
82 |
|
83 | "arg(-(-1)^(1/3))",
|
84 | "-2/3*pi",
|
85 |
|
86 | "arg(-exp(i*pi/3))",
|
87 | "-2/3*pi",
|
88 |
|
89 | "arg(-i)",
|
90 | "-1/2*pi",
|
91 |
|
92 | "arg((a+b*i)/(c+d*i))",
|
93 | "arctan(b/a)-arctan(d/c)",
|
94 |
|
95 | "arg(((-1)^(1/2) / (3^(1/2)))^(1/2))",
|
96 | "1/4*pi",
|
97 |
|
98 | "arg((-1)^(1/6))",
|
99 | "1/6*pi",
|
100 |
|
101 |
|
102 | ]
|