f
[
y
_
]
:
=
N
S
o
l
v
e
[
-
2
π
+
2
x
+
2
π
y
S
i
n
[
2
x
]
&
&
0
≤
x
≤
P
i
,
x
]
o
u
t
F
i
l
e
=
O
p
e
n
W
r
i
t
e
[
"
C
:
\
\
U
s
e
r
s
\
\
P
a
t
r
i
c
k
\
\
D
e
s
k
t
o
p
\
\
p
o
w
e
r
_
s
t
e
p
s
.
d
a
t
"
,
F
o
r
m
a
t
T
y
p
e
O
u
t
p
u
t
F
o
r
m
]
;
T
a
b
l
e
[
W
r
i
t
e
[
o
u
t
F
i
l
e
,
f
[
i
]
]
,
{
i
,
0
,
1
,
0
.
0
1
}
]
C
l
o
s
e
[
o
u
t
F
i
l
e
]
;