Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F88181255
network.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
Thu, Oct 17, 06:49
Size
650 B
Mime Type
text/x-perl
Expires
Sat, Oct 19, 06:49 (2 d)
Engine
blob
Format
Raw Data
Handle
21727488
Attached To
rLAMMPS lammps
network.pl
View Options
#!/usr/bin/perl
#
This
script
takes
a
.
vol
file
that
has
neighbor
information
created
with
#
the
custom
output
string
"%i %q %v %n"
,
and
creates
a
map
of
the
network
,
by
#
drawing
a
line
between
all
particles
which
are
neighbors
open
A
,
"@ARGV[0].vol"
or
die
"Can't open input file"
;
open
B
,
">@ARGV[0].net"
or
die
"Can't open output file"
;
$
maxn
=
0
;
while
(
<
A
>
)
{
@
A
=
split
;
$
n=@
A
[
0
];
$
x
[
$
n
]
=@
A
[
1
];
$
y
[
$
n
]
=@
A
[
2
];
$
z
[
$
n
]
=@
A
[
3
];
$
c
[
$
n
]
=
$
#
A
-
5
;
$
l
[
$
n
][
$
_
-
5
]
=@
A
[
$
_
]
foreach
5
..
$
#
A
;
$
maxn=
$
n
if
$
n>
$
maxn
;
}
foreach
$
n
(
1
..
$
maxn
)
{
foreach
(
0
..
$
c
[
$
n
])
{
$
j=
$
l
[
$
n
][
$
_
];
print
B
"$x[$j] $y[$j] $z[$j]\n$x[$n] $y[$n] $z[$n]\n\n\n"
if
$
j>=
$
n
;
}
}
Event Timeline
Log In to Comment