view release on metacpan or  search on metacpan

examples/c6.pl  view on Meta::CPAN

use HackaMol::X::NERF;
use Modern::Perl;
use Data::Dumper;

my $nerf = HackaMol::X::NERF->new;

print 6*1000 . "\n\n";
foreach my $x (1 .. 1000){
  my ($x,$y,$z) = (rand(50), rand(50), rand(50));
  my $a = $nerf->init($x,$y,$z);
  my $b = $nerf->extend_a  ($a, 1.2);
  my $c = $nerf->extend_ab ($a,$b, 1.2, 120.0);

examples/ch4.pl  view on Meta::CPAN

use HackaMol::X::NERF;
use Modern::Perl;
use Data::Dumper;

my $nerf = HackaMol::X::NERF->new;

print 5*1000 . "\n\n";
foreach my $x (1 .. 1000){
  my ($x,$y,$z) = (rand(50), rand(50), rand(50));
  my $a = $nerf->init($x,$y,$z);
  my $b = $nerf->extend_a  (         $a, 1.09             );
  my $c = $nerf->extend_ab (     $b, $a, 1.09, 109.5      );

examples/helix.pl  view on Meta::CPAN

use HackaMol::X::NERF;
use Modern::Perl;
use Data::Dumper;
use Time::HiRes qw(time);

my $bld = HackaMol::X::NERF->new;

my @vecs = ();

push @vecs, $bld->init() ; # returns a Math::Vector::Real object
push @vecs, $bld->extend_a(  $vecs[0]  ,   1.47            );
push @vecs, $bld->extend_ab( @vecs[0,1],   1.47, 120.0     );