Hey Karl and all..
I have been trying to get two electrons of the same size to move around in the
same matrix here is what I have , can anyone give me any advice
as how to go about doing that , I cant seem to figure it out ...
#######################################
use PDL;
use PDL::Graphics::TriD;
use PDL::Math;
use PDL::NiceSlice;
use PDL::Slices;
$PDL::BIGPDL =1;
keeptwiddling3d;
$unzoom = ones(5000);
$unzoom1 = ones(5000);
$unzoom2 = ones(5000);
for $c(1..199999) {
$n=6.28*$c;
$t=$c*rvals(exp(zeros(1000))*$c);
$cz=-1**$t*$c;
$cy=-1**$t*sin$t*$c;
$cx=-1**$c*rvals($t)*$c;
$g=sin($w=$cz-$cy-$cx);
$r=sin(cos$cy+$c+$cz);
$b=cos($w);
$i=($cz-$cx-$cy);
$q=$i*$n;
$x=$b*sin$q;
$y=$r*cos$q;
$z=$g*sin$q;
$xx= ($x*$y*$z);
#$unzoom->range([0],[1000]) .= $x/0.02;
#$unzoom1->range([0],[1000]) .= $y/0.02;
#$unzoom2->range([0],[1000]) .= $z/0.02;
$unzoom->range([0],[1000]) .= $x*-3.454;
$unzoom1->range([0],[1000]) .= $y*1.110;
$unzoom2->range([0],[1000]) .= $z*-1.620;
$unzoom->range([4000],[1000]) .= $x*8.986;
$unzoom1->range([4000],[1000]) .= $y*3.280;
$unzoom2->range([4000],[1000]) .= $z*4.029;
$point = points3d[ $unzoom, $unzoom1, $unzoom2] ;
print %$point,"\n";
}
#############################################_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
