coenter.m

来自「用MATLAB程序解决高阶问题；通过20多个实例来说明线性代数在后续课和工程中的」· M 代码 · 共 28 行

function coenter
% ATLAST65中的程序cogame调用的子程序
% 《工程线性代数（MATLAB版）》引用
% 陈怀琛，高淑萍，杨威合编，电子工业出版社，2007年6月
%
% This function is the callback for the edit box that receives
% new values for the coordinates of a user's guess.
%
% By Emily Moore.
w=2;
h1 = findobj( gcf, 'Tag', 'enterpair' );
h2 = findobj( gcf, 'Tag', 'storepairs' );

str = get(h1, 'String');
strlist = get(h2, 'String');
eval( ['A = [' str '];' ] )                     % extra []'s don't hurt
%eval(['A = ' str ';'])   % extra []'s don't hurt
h = findobj( gcf, 'Tag', 'xvec' );
x = get( h, 'Userdata' );
h = findobj( gcf, 'Tag', 'yvec' );
y = get( h, 'Userdata' );
v = A(1)*x + A(2)*y;
hold on
h = drawvec(v, 'm', w);

newlist = str2mat( ['  ' str], strlist );
set( h2, 'String', newlist )