久しぶりに、IGOR

毎回準備するのが面倒なので、ここにペースト。

// あれ、Forの後に変なの入ってる？
// う、プランク定数の桁間違ってた。-31 -> -34

Function ev2nm(src)
	Wave src  // [eV]
	Variable i

	Variable c_const=2.99792458*10^8 	// [m/s]
	Variable h_const=6.6260755*10^(-34)	// [J*s]
	Variable j2ev=1.60217646*10^(-19)
	Variable const=h_const/j2ev*c_const*10^9
	
	Duplicate/o src, lambda

	For(i=0; i<numpnts(src); i=i+1)
	 lambda[i] = const/src[i] // [nm]
	Endfor
End