表面は次のとおりです。
Surface Plot(
Columns( :Y, :X, :Data ),
Datapoints Choice( "Surface" ),
Surface Color Theme( "Green to Black to Red"(1) ),
Surface Color Theme2( "Green to White to Red"(1) ),
Surface Color Theme3( "White to Black"(1) ),
Surface Color Theme4( "Blue to Gray to Red"(1) ),
Response Column Fill( "Discrete Gradients" ),
Response Column Color Theme(
{"Viridis Copy", 2051, {{68, 1, 84}, {72, 24, 106}, {71, 45, 123}, {66, 64,
134}, {62, 73, 137}, {59, 82, 139}, {51, 99, 141}, {44, 114, 142}, {33, 144,
141}, {31, 159, 136}, {39, 173, 129}, {62, 188, 116}, {77, 194, 108}, {92,
200, 99}, {97, 202, 96}, {101, 203, 94}, {110, 206, 88}, {130, 211, 77},
{170, 220, 50}, {213, 226, 26}, {223, 227, 24}, {229, 228, 25}, {234, 229,
26}, {253, 231, 37}, Missing( {120, 120, 124} )}, {0, 0.0625, 0.125, 0.1875,
0.21875, 0.25, 0.3125, 0.375, 0.5, 0.5625, 0.625, 0.6875, 0.71875, 0.75,
0.75781, 0.76562, 0.78125, 0.8125, 0.875, 0.9375, 0.95312, 0.96094, 0.96875,
1}, 213, 1}
),
Response Column Color Theme2( "Blue to Gray to Orange"(1) ),
Response Column Color Theme3( "Spectral"(1) ),
Response Column Color Theme4( "Jet"(1) ),
Response( :Data ),
Surface Color Method( "Solid", "Solid", "Solid", "Solid" ),
SetVariableAxis( :Y, Axis Data( {} ) ),
SetVariableAxis( :X, Axis Data( {} ) ),
SetZAxis( :Data, Current Value( 5.713792 ), Axis Data( {} ) ),
SetXVariable( :Y ),
SetYVariable( :X ),
Frame3D(
Set Rotation( -60.3981900060503, -2.19569314789794, -70.6859668455606 )
)
)
輪郭は次のとおりです。
Contour Plot(
X( :X, :Y ),
Y( :Data ),
Show Data Points( 0 ),
Fill Areas( 1 ),
Label Contours( 1 ),
Transform( "Range Normalized" ),
Specify Contours( Min( 5.65 ), Max( 5.825 ), N( 8 ) ),
SendToReport(
Dispatch(
{},
"1111",
ScaleBox,
{Legend Model(
1,
Properties(
0,
{gradient(
{Color Theme( "Viridis"(1) ), Reverse Gradient( 1 )}
)},
Item ID( "Data", 1 )
)
)}
),
Dispatch(
{},
"1",
ScaleBox,
{Min( 0.206169638554217 ), Max( 1.59747700043548 ), Inc( 0.2 ),
Minor Ticks( 0 )}
),
Dispatch(
{},
"2",
ScaleBox,
{Min( 0.0101048701408042 ), Max( 0.0399859759036145 ), Inc( 0.01 ),
Minor Ticks( 1 )}
)
)
)
そしてテーブル:
New Table( "untitled 4",
Add Rows( 56 ),
New Script(
"Source",
Data Table( "untitled" ) << Stack(
columns(
:"0.2"n, :"0.4"n, :"0.6"n, :"0.8"n, :"1"n, :"1.2"n, :"1.4"n, :"1.6"n
),
Source Label Column( "X" ),
Stacked Data Column( "Data" ),
Output Table( "untitled 4.jmp" )
)
),
New Column( "Y",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values(
[0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.015, 0.015, 0.015,
0.015, 0.015, 0.015, 0.015, 0.015, 0.02, 0.02, 0.02, 0.02, 0.02, 0.02,
0.02, 0.02, 0.025, 0.025, 0.025, 0.025, 0.025, 0.025, 0.025, 0.025, 0.03,
0.03, 0.03, 0.03, 0.03, 0.03, 0.03, 0.03, 0.035, 0.035, 0.035, 0.035,
0.035, 0.035, 0.035, 0.035, 0.04, 0.04, 0.04, 0.04, 0.04, 0.04, 0.04,
0.04]
)
),
New Column( "X",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Selected,
Set Values(
[0.2, 0.4, 0.6, 0.8, 1, 1.2, 1.4, 1.6, 0.2, 0.4, 0.6, 0.8, 1, 1.2, 1.4,
1.6, 0.2, 0.4, 0.6, 0.8, 1, 1.2, 1.4, 1.6, 0.2, 0.4, 0.6, 0.8, 1, 1.2,
1.4, 1.6, 0.2, 0.4, 0.6, 0.8, 1, 1.2, 1.4, 1.6, 0.2, 0.4, 0.6, 0.8, 1,
1.2, 1.4, 1.6, 0.2, 0.4, 0.6, 0.8, 1, 1.2, 1.4, 1.6]
)
),
New Column( "Data",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values(
[5.65591, 5.73557, 5.7877, 5.81315, 5.81274, 5.78721, 5.73724, 5.663492,
5.65522, 5.73516, 5.78718, 5.81213, 5.81084, 5.78404, 5.73242, 5.656626,
5.65389, 5.73414, 5.78608, 5.81056, 5.8084, 5.78034, 5.72706, 5.649222,
5.65194, 5.73254, 5.78442, 5.80845, 5.80543, 5.77611, 5.72118, 5.641291,
5.64941, 5.73039, 5.78223, 5.80582, 5.80196, 5.77138, 5.71479, 5.632843,
5.64631, 5.72769, 5.77953, 5.80269, 5.79798, 5.77138, 5.70791, 5.623888,
5.64267, 5.72447, 5.77632, 5.79907, 5.79353, 5.76045, 5.70053, 5.614434]
)
)
)
