Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

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-----






  • Prev by Date: Re: Mathematica as a programming language.
  • Next by Date: Re: Mathematica as a programming language.
  • Previous by thread: extract elements from a list
  • Next by thread: Re: extract elements from a list