matrix_eigenvalues.dlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
  matrix eigenvalues

*!  VERSION 1.1.0  28mar2005

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE _ht250
INCLUDE header

HELP hlp1, view("help matrix eigenvalues")
RESET res1


DIALOG main, label("matrix eigenvalues - Eigenvalues of square matrices") /*
		*/ tabtitle("Main")
BEGIN
  TEXT     tx_mat            _lft      _top      _iwd      .,		/*
		*/ label("Compute eigenvalues of:")
  LISTBOX  lb_mat            @         _ss       @         _ht7,	/*
		*/ contents(square)					/*
		*/ label("Compute eigenvalues of")

  GROUPBOX gb_eigvalues      @         _vs7      _iwd      _ht5,	/*
		*/ label("Place eigenvalues in vectors:")
  EDIT     ed_eigreal        _ilft     _ss       _vnwd     .,		/*
		*/ label("Real part")
  TEXT     tx_eigreal        _vnsep    @         _ivlwd    .,		/*
		*/ label("Real part")

  EDIT     ed_eigcomplex     _ilft     _ls       _vnwd     .,		/*
		*/ label("Imaginary part")
  TEXT     tx_eigcomplex     _vnsep    @         _ivlwd    .,		/*
		*/ label("Imaginary part")
END

PROGRAM command
BEGIN
	require main.ed_eigreal main.ed_eigcomplex main.lb_mat

	put "matrix eigenvalues "
	put main.ed_eigreal " " main.ed_eigcomplex " " "= " main.lb_mat
END