       Re: Mapping Data

• To: mathgroup at smc.vnet.net
• Subject: [mg57321] Re: Mapping Data
• From: dh <dh at metrohm.ch>
• Date: Tue, 24 May 2005 05:12:59 -0400 (EDT)
• References: <d6p1ro\$igo\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi Othman,
If I understand your question, you want to change the temperature
radially and keep the same value for all angles.
Here is an example:

T = Table[Exp[-x], {x, 0, 1, 0.1}];
R = Table[x, {x, 0, 1, 0.1}];
fun = ListInterpolation[T, {R}];
ContourPlot[fun[Norm[{x, y}]], {x, -1, 1}, {y, -1, 1}]

This will give some warnings because the PlotRange is recangular and we
extrapolate the function in the corners.
Sincerely, Daniel

othman wrote:
> Hi All
> I'm a new user of Mathematica.The problem is that I started using Mathematica from the middle not the beginning.
> Anyway, My problem is:
> I have two Matrices
> Temperature= T = [Ax8]
> Radial position = RR = [1x8]
> as an example, let A=1,
> instead of Plotting T vs. RR at xy-axes, I want to map the data in a cylinderical Coordinates as a contour mapping, whic means I need to "copy" my data to N times.
> My proposed procedure is to do the following:
>
> Generate a position matrix, [x,y], as follows:
>
> Do [x,y] RR=0,1,.145, Theta = 0,360,M  ( M is the step 360/N)
> x = RR*Cos(theta)
> y = RR*Sin(theta)
> and
> T=T @ RR
>
> I would like to know:
> 1. if this is the easy way to do it ?
> 2. How can translate it to Mathematica Code?
>
> Hopefully it is clear!
>