Re: extract elements from a list

*To*: mathgroup at smc.vnet.net*Subject*: [mg2856] Re: [mg2841] extract elements from a list*From*: Christian Bennefeld <bennefeld at dkrz.d400.de>*Date*: Wed, 27 Dec 1995 00:49:06 -0500

=========================================================================== === >I've been trying to extract elements from a list x={a,b,c,d,e...} >then square each value and pair it up with the original unsquared value. >These two values form a point (2Dim) and I then try to pair up each >point with a given vertex of {5,25} and use Line[{{5,25},{a,a^2}}] to >graph this thing. > >My main routine (reAlly kinda small) >is...Do[n=x[[i]];Line[{{5,25},{n,n^2}}],{i,10,1}] > >When this is run nothing happens.... > >in this case x={5,5.5,5.4,5.3,5.2...ect} > > >I've been stuck for 2 weeks unable to get this to work and it is driving >me >crazy because it should be sooo easy. =========================================================================== === Hi Chris ... the next line should solve your problem ... just try to think functional .. In[1]:= graph[x_List]:=Map[Line[{{5,25},{#,#^2}}]&,x] In[2]:= graph[{1,2,3,4,5}] Out[2]= {Line[{{5, 25}, {1, 1}}], Line[{{5, 25}, {2, 4}}], Line[{{5, 25}, {3, 9}}], Line[{{5, 25}, {4, 16}}], Line[{{5, 25}, {5, 25}}]} In[3]:= Show[Graphics[%]] Out[3]= -Graphics- Happy new year. Christian bennefeld at dkrz.de -----BEGIN PGP PUBLIC KEY BLOCK----- Version: 2.6.2 mQCPAzDAqPIAAAEEAMIVQSdzO5dijhbMzQxZwAuYJZRXrApR5aIdyFGe7d79fzrg 3kQiEvvG2C7HZzvFS1kzLqhl8FoiapwDKKyFXb5RsGGDfMBdXJvwfXMAWcPh1tH5 q/vabj2PZmkbqS8KHQWf9nuuZq+G2xumC3jrG/5j3CHx5ap/fBVYHn4Sn3ltABEB AAG0J0NocmlzdGlhbiBCZW5uZWZlbGQgPGJlbm5lZmVsZEBka3J6LmRlPg== =p+NK -----END PGP PUBLIC KEY BLOCK-----