MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: 3D plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg2295] Re: [mg2245] 3D plot
  • From: Brown Jeffrey Scott <jsbrown0 at basalt.Mines.EDU>
  • Date: Mon, 23 Oct 1995 12:41:24 -0400


Begin forwarded message:

vecoven at montefiore.ulg.ac.be (Frederic Vecoven)
>Now, THE PROBLEM is that I now work with hexahedras.... and that I have
>2 files. The first file are all points coord., so that's "x1 y1 z1".
>The number of the line is the number of the points. As you may imagine,
>the second file is "n1 n2 n3 n4 n5 n6 n7 n8", which represents the 8 

>numbers of the points which form the hexahedra...

>My problem is that I can read the 2 lists, but I have problems to
>switch "n2" to "x2 y2 z2"... 



names = {{n11,n12,n13,n14,n15,n16,n17,n18},
         {n21,n22,n23,n24,n25,n26,n27,n28},
	 ...
	}

coords = {{x1,y1,z1},
          {x2,y2,z2},
	  ...
	 }
	 

You can use (I haven't tested it...)

Map[coords[[#]]&, names, {2}]

This will yield
{{{x1,y1,z1},(7 more terms)}
 {...}
 ...
}

Of course, if you start with line 0 instead of line 1 you'd need coords[[#+1]]&

They can be recombined as needed in a similar way as the tetrahedra.


Out[_]//TableForm  / / / / / / / / / / / / / / / / / / / / / / / / / / / //
//  JEFF BROWN                                 Colorado School of Mines  //
//  December 1993               BSc in Engineering Physics, Mathematics  //
//  January 1994 --  MS student in Geological Engineering: hydrogeology  //
//  jsbrown0 at mines.edu                                                   //
//                                jsbrown0 at basalt.mines.edu (NeXT mail)  //
// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / //





  • Prev by Date: Re: Bug in interpretation of mma Series[] command?
  • Next by Date: Help with factoring out an exponential
  • Previous by thread: 3D Plot
  • Next by thread: Re: 3D Plot