use PDL;use PDL::Graphics::TriD;for$c(1..99){$n=6.28*$c;$v=$c*rvals
(zeros(9000)*$c);$z=-1**$v*$c;$y=-1**$v*sin$v*$c;$x=-1**$c*rvals
($v)*$c;$w=$z-$y-$x;$g=sin($w);$r=cos($y+$c+$z);$b=cos($w);$q=$w*$n;
points3d[$b*sin($q),$r*cos($q),$g*sin$q],[$g,$b,$r];}#electron by MRB
ok this one is better !!!
On Thursday, October 17, 2013 11:13 AM, MARK BAKER <[email protected]>
wrote:
Hey I know I should of done this a long time ago
here it is the "4 line electron" ....
use PDL;use PDL::Graphics::TriD;for$c(1..99){$n=6.28*$c;$x=$c*rvals
(zeros(9000)*$c);$cz=-1**$x*$c;$cy=-1**$x*sin$x*$c;$cx=-1**$c*rvals
($x)*$c;$w=$cz-$cy-$cx;$g=sin($w);$r=cos($cy+$c+$cz);$b=cos($w);$i=($w)
;$q=$i*$n;points3d[$b*sin($q),$r*cos($q),$g*sin$q],[$g,$b,$r];}#by MRB
If you could please replace my old piddle with this one
Cheers
-Mark Baker_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
