-1

等間隔の x、y、z 座標を持つ 3D ポイントの立方体を生成したいと思います。以下のプログラムを Perl で書いたのですが、可視化してみるといくつか抜けているように見えます。

for($x=0;$x<28;$x+=1.4){
    for($y=0;$y<28;$y+=1.4){
        for($z=0;$z<28;$z+=1.4){
            @arr_grid[$g]=$x."       ".$y."       ".$z."\n";
            $g++;
        }
    }
}
$c=scalar @arr_grid;
for($l=0;$l<$c;$l++){
    print "HETATM      O                 @arr_grid[$l]\n";
}

または、空間内の 3D ポイントと計算を扱っている本やサイトを教えてください。前もって感謝します。

4

1 に答える 1

0

Perl プログラマーがこれをどのように書くかにより似たものを見たいと思うかもしれません。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my @arr_grid;

for (my $x = 0; $x < 28; $x += 1.4) {
  for (my $y = 0; $y < 28; $y += 1.4) {
    for (my $z = 0; $z < 28; $z += 1.4) {

      push @arr_grid, "$x       $y       $z\n";
    }
  }
}

foreach (@arr_grid) {
  say "HETATM      O                 $_";
}

しかし、Nick が言うように、Perl の問題ではないようです。

于 2012-01-06T14:09:12.477 に答える