0
$\begingroup$

This question already has an answer here:

I numerically calculate eigenfunctions in a different program and upload them to Mathematica as a .csv file. They are saved in a matrix form (x,y coordinates are indices, z coordinates are entry values). I would like to 'map' them back onto the original 3D surface to produce a heat map on said surface. How would I do that?

Example of the surface:

R = 2;
f[s_] := {R*Cos[s/R], R*Sin[s/R], 0};
fT[s_] := {-Sin[s/R], Cos[s/R], 0};
fN[s_] := {-Cos[s/R], -Sin[s/R], 0};
fB[s_] := {0, 0, 1};
a = R/2;
fTheta[s_] := Pi/2;
fStrip[s_, t_] := f[s] + t*(fN[s]*Cos[fTheta[s]] - fB[s]*Sin[fTheta[s]])
Show[ParametricPlot3D[{fStrip[s, t]}, {s, 0, 2*Pi*R}, {t, -a, a}, Mesh -> None]]
$\endgroup$

marked as duplicate by J. M. will be back soon plotting Mar 6 '18 at 9:13

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • 1
    $\begingroup$ The example you provided doesn't seem adequate for demonstrating the situation, but I think you'd want to use the ColorFunction option. $\endgroup$ – user6014 Jan 29 '18 at 19:26
  • $\begingroup$ Why is it not adequate? The code (should) generate a cylinder, by playing with the curve function f and angle function fTheta one can get loads of different 'ribbons'. My understanding is that to use the ColorFunction, I need to know what function the eigenfunction is. However, that is not possible as I get some generalizations of sines and cosines. Am I wrong? $\endgroup$ – K Z Jan 30 '18 at 17:26
  • $\begingroup$ How is that code going to generate a cylinder without any use of Plot, Graphics, or related functionality? $\endgroup$ – user6014 Jan 30 '18 at 17:28
  • $\begingroup$ Sorry, I forgot to copy one line... My bad! $\endgroup$ – K Z Jan 30 '18 at 17:30
  • $\begingroup$ Can you provide a sample .csv file that includes the points you would want to map to that surface? (uploading to Pastebin or something might be best) $\endgroup$ – user6014 Jan 30 '18 at 17:45
1
$\begingroup$

We first create some random data to use:

randomdata = Flatten[Table[{{s, t}, RandomReal[]}, {s, 0, 2 Pi R, 2 Pi R/60}, {t, -a, a, 2 a/20}], 1];

This yields a list of the form

(* {{{0, -1}, 0.758619}, {{0, -(9/10)}, 0.471565}, {{0, -(4/5)}, 0.539463}, ... *)

i.e., points of the form { { s_value, t_value}, fn_value}. Note that Table produces a nested list by default, so I had to use Flatten to get it into the correct form. Depending on the format of your original data, this may not be necessary.

Once you have your generated data in the correct form, you can use Interpolation to create a function that interpolates between them, and then feed this into ParametricPlot3D as a ColorFunction:

heatfn = Interpolation[randomdata];
ParametricPlot3D[{fStrip[s, t]}, {s, 0, 2*Pi*R}, {t, -a, a}, 
   Mesh -> None, 
   ColorFunction -> Function[{x, y, z, s, t}, ColorData["ThermometerColors"][heatfn[s, t]]], 
   ColorFunctionScaling -> False]

enter image description here

$\endgroup$
  • $\begingroup$ Thank you so much! I needed to convert my data, but in the end, it worked! :) $\endgroup$ – K Z Feb 1 '18 at 15:39

Not the answer you're looking for? Browse other questions tagged or ask your own question.