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!
>
> Thank you in advance!
>
> Othman
>