I wonder if I could add in some functionality here 

like instead of points3d() like Tetrahedron3d()
I think that would be kinda over board ...

I manged to make 3 helium atoms that look like there in a lattice 

but the math is very complex and and I'm trying to understand it fully still ...
take a look tho 

#####################################
use PDL;use PDL::Graphics::TriD;
use PDL::Math; nokeeptwiddling3d;
                                           #sin
 for $c(1..199999){
 $n=6.28*$c;
 $x=$c*rvals(exp(zeros(19000))*$c);
                     #cos
 $cz=-1**($x)*$c;
 ## amplitude * sin 2*pi*frequency*time+phase 
 $cy=-1**$x*sin$x*$c;
                        #cos                #sin             #sin
 $cx=-1**$x*rvals($x)*$c;
 $g=sin($w=$cz+$cy+$cx);
 $r=cos$cy+$c+$cz;
 $b=cos$w;
                                             #cos
    $xx = $b*sin($q);                                         
    $yy = $r*cos($q);
    $zz = $g*sin$q;    
                                             
 $i=$cz-$cx-$cy;$q=$i*$n;
 
 $x1 = $xx*$yy;
 $y1 = $yy*$yy*$yy;
 $z1 = $zz*$yy;
 
 $dd = ($x1*$y1*$z1)<=>$dd;
 
points3d[($x1%$dd,$y1*$dd,$z1*$dd)], [$b,$r,$g];


}

that seem to work a little but I still need it to do a lot more 

let me know if you can make any progress here thanks!

Mark R baker 

[email protected]


________________________________
 From: zentara <[email protected]>
To: [email protected] 
Cc: MARK BAKER <[email protected]> 
Sent: Friday, March 2, 2012 3:20 PM
Subject: Re: [Perldl] Tetrahedron Space Framework
 
On Fri, 2 Mar 2012 11:08:12 -0800 (PST)
MARK BAKER <[email protected]> wrote:

>Cant I just add a extra Dimension to this some how 
>
>that will hold the tetrahedron in that matrix..
>
>like this 
>############

Hi Mark,

I applaud your effort to apply TriD to sub atomic visualization.
I have thought about it a few days.
These are my thoughts on your piddle.

I tried to make one tetrahedron from your code, and could if
I reduced the iterations from 199999 to 1999.
Even that took a long time to build just 1, and I suppose you would
need a supercomputer to build a whole lattice of them. :-(

So falling back on my experience with 2d canvases, like
the Gnome2, Goo, Wx, Zinc, or Tk canvas, the way to approach this problem
would be to build each tetrahedron at the origin, then translate
them into position, according to a piddle of lattice center points.

It would go something like this, in pseudo code:
Build 1 tetrahedron at the origin, then in a loop,
clone it, and translate it into position.

In the TriD OpenGL system, there seems to be a couple
of roadblocks to use this standard method. The first is how
to get the tetrahedron to be a real object, that is clonable.

If anyone knows an example, like how to define our own
surfaces and point sets as a defined group, which is clonable,
please post it. Even if it is simplistic.

The second is that I don't quite understand how the
translate function works.

The only clue I get is from the PDL::Graphics::TriD man page.
#####################
   There are objects that are not mentioned here; they are either internal
       to PDL3D or in rapidly changing states. If you use them, you do so at
       your own risk.

       The syntax "PDL::Graphics::TriD::Scale(x,y,z)" here means that you
       create an object like

               $a = new PDL::Graphics::TriD::Scale($x,$y,$z);
#####################

and then it almost makes me laugh, like from Catch-22, the following
explanation for Translation.

################################
  PDL::Graphics::TriD::Scale(x,y,z)
       Self-explanatory

   PDL::Graphics::TriD::Translation(x,y,z)
       Ditto
################################

So Scale is self-explanatory and Ditto for Translation. :-)


So I'm still waiting for the explanation.  :-)

Does anyone have a simple example of creating a set of points,
cloning and translating them?

Otherwise, I think you would need to use plain old vector
drawing to laboriously lay out the entire lattice.

0m,
Joe




























>$x = zeros(3,1,1);
>
>pdl> p $x
>
>[
> [
>  [0 0 0]
> ]
>]
>
>############
>so if this represents my tetrahedron then 
>
>##############
>$x = zeros(3,1,2);
>pdl> p $x
>
>[
> [
>  [0 0 0]
> ]
> [
>  [0 0 0]
> ]
>]
>
>
>############
>represents two of these tetrahedrons!
>
>
>is this right ????
>
>Thanks Cheers 
>
>
>-Mark R Baker 
>
>[email protected]
>
>
>
>________________________________
> From: MARK BAKER <[email protected]>
>To: perldl Users <[email protected]> 
>Sent: Wednesday, February 29, 2012 1:19 AM
>Subject: [Perldl] Tetrahedron Space Framework
> 
>
>
>
>
>Hey every one I wonder if someone could help me with this 
>as Im lost on how to do this .. well here is my tetrahedron code 
>#######################################################
>use PDL;use PDL::Graphics::TriD;
>use PDL::Math; nokeeptwiddling3d;
>                                           #sin
> for $c(1..199999){$n=6.28*$c;
> $t=$c*rvals(exp(zeros(10000))*$c);
>                     #cos
> $cz=-1**$t*$c;$cy=-1**$t*sin$t*$c;
>                        #cos                #sin             #sin
> $cx=-1**$c*rvals($t)*$c;
> $g=sin($w=$cz-$cy-$cx);
> $r=sin(cos$cy+$c+$cz);
> $b=cos$w;
>                                            
> #cos
> $i=($cz-$cx-$cy);$q=$i*$n;
> 
>$x=$b*sin$q;
>$y=$r*cos$q;
>$z=$g*sin$q;
> 
> $xx= ($x*$y*$z);
> 
>points3d [ (sin($xx**1/2)/$x,tan($xx**1/2)/$y,sin($xx**1/2)/$z)];
>########################################################
>
>now here is the  lattice code 
>#######################################################
> use PDL;use PDL::Graphics::TriD;
>use PDL::Math; nokeeptwiddling3d;
>{
>points3d ndcoords(7,7,7)->clump(1,2,3), {PointSize=>2} ;
>redo }
>######################################################
>
>so im wondering how do I replace those points in the clump there 
>with my tetrahedrons...  so that I have a lattice of tetrahedrons ???
>
>I have been looking at a theory that merges String Theory Quantum Mechanics 
>and General Relativity
>if I can get a bunch of tetrahedrons in a lattice that will be half my 
>battle...
>the other half involves
> getting them to effect each other ...
>
>any thought on how to do this properly or at all ???
>
>
>-Mark R Baker  
>
>
>
>_______________________________________________
>Perldl mailing list
>[email protected]
>http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl

Reply via email to