nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

find multiple peak values in a column

Kevin

Hello,

I am working a data table that have time and length, and the length data is like wave. I want to find peak value of length of each wave, and label the time when the peak happens in a new column as "peak".

Can someone take a look and help me with the script?

Sample 07132018.jmp

Accepted answers

txnelson

Here is a new column in your data table that detects peaks.

peak.jmp

All comments

txnelson

Here is a new column in your data table that detects peaks.

peak.jmp

Kevin

A lot of thanks!!

Marco1

Hello Super TxNelsol,

I am pleased to greet you, a query:

Attached a table with 200 columns of high and low stock prices, I would like to create new columns that indicate or place 1 for lower prices and -1 for the highest prices (peaks), 0 for the rest of prices.

Close (200) - 1.18076
Close (199) - 1.18073
Close (198) - 1.18071
Optimal signal1: -1
Optimal signal2: 0
Optimal signal3: 0

Close (200) - 1.18056
Close (199) - 1.18056
Close (198) - 1.18057
Optimal signal1: 0
Optimal signal2: 0
Optimal signal3: 0

Close (200) - 1.18094
Close (199) - 1.18077
Close (198) - 1.1805
Optimal signal1: 0
Optimal signal2: 0
Optimal signal 3: 1

Greetings,

Marco

Marco1

Scoping the Attachment 200 column table

Optimal Signal - Price Low-High.jmp

txnelson

See if this works the way you are thinking

Names Default To Here( 1 );
dt = Current Data Table();

colCount = N Cols( dt );
// Loop across all of the columns
For( i = 1, i <= colCount, i++,

	// Create the new column and set all values to 0
	dt << New Column( "Optimal signal" || Char( i ), set each value( 0 ) );
	
	// Get the name of the column to work on
	theColName = Column( dt, i ) << get name;
	
	// Find all of the High Points
	Eval(
		Parse(
			"theRows = dt<<get rows where(lag(:\!"" || theColName || "\!"n,1) <= :\!"" || theColName
			 || "\!"n &   lag(:\!"" || theColName || "\!"n,-1) <= :\!"" || theColName ||
			"\!"n |
	(row()==1 & lag(:\!"" || theColName || "\!"n,-1) <= :\!"" || theColName ||
			"\!"n) |
	(row()==N Rows(dt) & lag(:\!"" || theColName || "\!"n,1) <= :\!"" ||
			theColName || "\!"n)
);"
		)
	);
	
	// Set the found rows to -1
	If( N Rows( theRows ) > 0,
		Column( dt, N Cols( dt ) )[theRows] = -1
	);

	// Find all of the Low Points
	Eval(
		Parse(
			"theRows = dt<<get rows where(lag(:\!"" || theColName || "\!"n,1) >= :\!"" || theColName
			 || "\!"n &   lag(:\!"" || theColName || "\!"n,-1) >= :\!"" || theColName ||
			"\!"n |
	(row()==1 & lag(:\!"" || theColName || "\!"n,-1) >= :\!"" || theColName ||
			"\!"n) |
	(row()==N Rows(dt) & lag(:\!"" || theColName || "\!"n,1) >= :\!"" ||
			theColName || "\!"n)
);"
		)
	);

	// Set the found rows to 1
	If( N Rows( theRows ) > 0,
		Column( dt, N Cols( dt ) )[theRows] = 1
	);
);