matrix_symeigen.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 44 行

/*
  matrix symeigen

*!  VERSION 1.1.0  28mar2005

*/

VERSION 9.0

INCLUDE _std_small
INCLUDE _ht250
INCLUDE header

HELP hlp1, view("help matrix_symeigen")
RESET res1

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

  TEXT     tx_eigvec         @         _vs7      _iwd      .,		/*
		*/ label("Place eigenvectors in matrix:")
  EDIT     ed_eigvec         @         _ss       _vnwd     .,		/*
		*/ label("Place eigenvectors in matrix")

  TEXT     tx_eigval         @         _ls       _iwd      .,		/*
		*/ label("Place eigenvalues in vector:")
  EDIT     ed_eigval         @         _ss       _vnwd     .,		/*
		*/ label("Place eigenvalues in vector")
END

PROGRAM command
BEGIN
	require main.lb_mat main.ed_eigvec main.ed_eigval
	put "matrix symeigen "
	put main.ed_eigvec " " main.ed_eigval " " "= " main.lb_mat
END