Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F88085987
timing_test.pl
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Wed, Oct 16, 17:17
Size
1 KB
Mime Type
text/x-perl
Expires
Fri, Oct 18, 17:17 (2 d)
Engine
blob
Format
Raw Data
Handle
21710255
Attached To
rLAMMPS lammps
timing_test.pl
View Options
#!/usr/bin/perl
#
The
range
of
grid
sizes
to
consider
@range=
(
10
..
40
);
#
The
number
of
trials
to
consider
.
If
this
is
set
to
one
,
the
time
for
a
#
single
trial
will
be
outputted
.
For
higher
values
,
the
mean
of
all
the
trials
#
will
be
outputted
,
along
with
the
standard
deviation
.
$
tries
=
3
;
#
The
flags
to
pass
for
code
optimization
$
opt=
"-O3"
;
foreach
$
r
(
@range
)
{
#
Compile
the
code
with
the
current
grid
size
system
"g++ $opt -I../../src -DNNN=$r -o timing_test "
.
"-L../../src timing_test.cc -lvoro++"
;
#
Carry
out
the
trials
for
this
grid
size
$
st=
$
stt
=
0
;
foreach
$
t
(
1
..
$
tries
)
{
#
Run
the
code
,
and
output
the
timing
information
to
the
#
"time_temp"
file
.
system
"./timing_test >time_temp"
;
#
Read
the
"time_temp"
file
to
find
the
duration
of
the
run
open
F
,
"time_temp"
or
die
"Can't open timing file: $!"
;
(
$
t
)
=
split
' '
,
<
F
>
;
$
st+=
$
t
;
$
stt+=
$
t*
$
t
;
close
F
;
}
#
Compute
the
mean
and
variance
and
print
to
standard
output
$
st/=
$
tries
;
$
stt=
$
stt/
$
tries-
$
st*
$
st
;
$
stt=
$
stt
>
0
?
sqrt
(
$
stt
)
:
0
;
print
"$r $st $stt\n"
;
}
#
Delete
the
temporary
timing
file
unlink
"time_temp"
;
Event Timeline
Log In to Comment