I
n
[
]
:
=
r
u
l
e
s
=
{
P
o
w
e
r
[
E
,
C
o
m
p
l
e
x
[
0
,
n
_
]
*
π
*
θ
]
:
>
n
x
,
s
_
*
P
o
w
e
r
[
E
,
C
o
m
p
l
e
x
[
0
,
n
_
]
*
π
*
θ
]
:
>
s
*
n
x
}
;
I
n
[
]
:
=
p
o
l
y
=
a
x
+
x
^
2
+
c
x
^
3
+
d
O
u
t
[
]
=
d
+
a
x
+
2
x
+
c
3
x
I
n
[
]
:
=
p
=
p
o
l
y
/
.
x
-
>
E
x
p
[
θ
I
P
i
]
O
u
t
[
]
=
d
+
a
π
θ
+
2
π
θ
+
c
3
π
θ
I
n
[
]
:
=
p
/
.
r
u
l
e
s
O
u
t
[
]
=
d
+
a
x
+
2
x
+
c
3
x