<!--
<a name="0">
<h2>ある処理をするかどうかのダイアログ</h2>

◆[050119]

query.m を以下のように作る．
<pre>
function ans = query(str)
% $Id: query.m,v 1.2 2004/10/19 06:33:51 nao Exp $

a = input(strcat(str,' (y/n) ? [n] '),'s');
if (a == 'y')
	ans = 1;
else
	ans = 0;
end

if isempty(a) 
	ans = 0; 
end
return
</pre>

呼ぶ時は例えば
<pre>
if( query('plot X') )
   処理
end
</pre>
とでもしておくと，実行時に
<pre>
plot X (y/n) ? [n]
</pre>
と訊いて来る．実行したければ y [RET] すればよいし，無視したければ単に [RET]．

-->
