Response Surface Plot With Projection

[#1]

How can I generate a response surface plot with a projection, as seen in the following diagram:

Source: P. Kardar, M. Ebrahimi, S. Bastani, M. Jalili, Progress in Organic Coatings, 64(2009), 74-80

[#2]

^ Bump to the top

[#3]

The Surface Plot can do something similar if you select the correct options. See the documentation, particularly Surface Plot Controls and Settings.

The code below shows an example: Do 'File > New > New Script', cut and paste it, then 'Edit > Run Script'.

NamesDefaultToHere(1);

dt = New Table( "Surface Plot Options",

  Add Rows( 0 ),

  New Column( "x", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [] ) ),

  New Column( "y", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [] ) ),

  New Column( "z",

  Numeric,

  "Continuous",

  Format( "Best", 12 ),

  Formula( Sin( Sqrt( :x ^ 2 + :y ^ 2 ) ) / Sqrt( :x ^ 2 + :y ^ 2 ) )

  )

  );

dt << Surface Plot(

  Columns( :z ),

  Show Contour( "Below" ),

  Formula( "z" ),

);