
dt = Open("$DESKTOP/Sample.jmp");
max_value = Col Maximum(Column(dt, "Heat"));
total_rows = N Row(dt);
Time_col = Column(dt, "Heat");
row_num = 0;
For(i = total_rows, i >= 1, i--,
If(Time_col[i] == max_value,
row_num = i;
Break();
)
);
max_time = :Time[row_num];
col_data = Column(dt, "Heat") << Get Values;
min_data = col_data[row_num :: total_rows];
min_value = Minimum(min_data);
min_positions = Loc Min(min_data);
min_time_col = min_positions + (row_num - 1);
min_time = :Time[min_time_col];
Graph Builder(
Size(1032, 646),
Show Control Panel(0),
Fit to Window("Off"),
Variables(X(:Time), Y(:Heat)),
Elements(Line(X, Y, Legend(14))),
SendToReport(
Dispatch({}, "Time", ScaleBox,
{Format("Best", 12), Min(1.88), Max(5.07800951567129), Inc(0.5), Minor Ticks(4),
Add Ref Line(
max_time,
"Dotted",
"Black",
Char(max_time),
2,
1,
Label Settings({Label Color("Red")})
), Add Ref Line(
min_time,
"Dotted",
"Black",
Char(min_time),
2,
1,
Label Settings({Label Color("Red")})
)}
),
Dispatch({}, "Heat", ScaleBox,
{Add Ref Line(
max_value,
"Dotted",
"Black",
Char(max_value),
2,
1,
Label Settings({Label Color("Red")})
), Add Ref Line(
min_value,
"Dotted",
"Black",
Char(min_value),
2,
1,
Label Settings({Label Color("Red")})
)}
)
)
);