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 >