coenter.m

来自「线性代数实验及MATLAB入门,电子工业出版社出版 陈怀琛 龚杰民合著」· M 代码 · 共 27 行

function coenter

% 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 )