#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3		// Use modern global access method and strict wave access.

Function/WAVE MakeWave(name)
	String name

	Make/N=(8,8) root:$name/WAVE=wv = p^2 + q^2
	return wv
End