MTL 复数向量 找 最大元素

//复数向量 找 最大元素

//整理 by RobinKin

//

#include "mtl/mtl.h"

#include "mtl/utils.h"

#include "mtl/linalg_vec.h"

using namespace mtl;

//begin

typedef complex<float> c;

typedef external_vec<c> Vec;

//end

/*

Note: the Sun Perf Lib docs show the correct answer

as item 1. This is incorrect. The correct answer

is item 5.cvazac

abs( (5,-4) ) = sqrt(5^2 + 4^2) = 6.40312

abs( (0, 8) ) = 8

Sample Output

[(5,-4),(-3,-2),(5,-4),(6,0),(0,8),]

Largest element in the vector x is item 5

*/

int

main()

{

//begin

const int N = 5;

c dx[] = { c(5,-4), c(-3,-2),

c(5,-4), c(6,0), c(0,8) };

Vec x(dx, N);

int imax = max_index(x);

//end

#if !defined(_MSVCPP_) && !defined(__sgi) || defined(__GNUC__)

// VC++ and SGI CC do not have operator << defined for complex numbers

print_vector(x);

#endif

std::cout << "Largest element in the vector x is item " << imax + 1 << std::endl;

return 0;

}