SHIN, Byeong-Chun's Board

Name	신병춘

Subject	주소록 Matlab

% juso.m
% function A = juso(mode)
%  mode = 'add' , 'del', 'mod', 'sea',  view(otherwise)

function  juso(mode)

mode = resize(mode,3);  % match the size of mode to 3
fn = 'jusor.mat';
if exist(fn)==0
    A = {'Name     ','Telephone    ','Hand Phone   ','Email-Address'};
    save jusor A
end

load jusor A
[m,n] = size(A);
view(A,[2:m]);  % view all data

nz = [12 13 13 30];  % size of name, tel, hp, email
if mode=='add'
    m = m+1;
    name = input('Input Name to add : ');
    tel  = input('Input Telephone Number : ');
    hp   = input('Input Handphone Number : ');
    email = input('Input Email : ');
      name = resize(name,nz(1)); tel = resize(tel,nz(2));
      hp = resize(hp,nz(3));   email = resize(email,nz(4));
    A(m,:) = {name, tel, hp, email};
    [x,id] = sort(A(2:m,1)); A(2:m,:) = A(id+1,:);
    save jusor A
    view(A,[2:m]);
elseif mode=='mod'
    name = input('Input Name to modify : ');
    name = resize(name,nz(1));
    kid = search1(A,name,1);
      if kid ~= 0
         tel  = input('Input Telephone Number : ');
         hp   = input('Input Handphone Number : ');
         email = input('Input Email : ');
      else
          fprintf('There is not the name! \n')
          return
      end
    tel = resize(tel,nz(2));
    hp = resize(hp,nz(3));
    email = resize(email,nz(4));
    A(kid,:) = {name, tel, hp, email};
    save jusor A
    view(A,[2:m]);
elseif mode=='del'
    name = input('Input Name to remove : ');
    name = resize(name,nz(1));
    kid = search1(A,name,1);
      if ~isempty(kid)==1
          A(kid:m-1,:) = A(kid+1:m,:);
          A = A(1:m-1,:);
      end
    save jusor A
    view(A,[2:m-1]);
elseif mode=='sea'
    name = input('Input Name : ');
    name = resize(name,nz(1));
    kid = search1(A,name,1);
      if kid ~= 0
         view(A,kid);
      else
          fprintf('There is not the name! \n')
          return
      end
end

function X = resize(X,nid)
  if length(X)<nid
    while length(X)<nid
        X = [X,' '];
    end
  elseif length(X)>nid
      X = X(1:nid);
  end

function k = search1(A,X,id)
  for k=2:size(A,1)
    if  A{k,id}==X, break; end
    k = 0;
  end

function view(A,L)
   fprintf('---------------------------------------------------------------------\n')
   fprintf('   %12s       %12s  %12s  %12s \n',A{1,:})
   fprintf('---------------------------------------------------------------------\n')
   for k=L
     fprintf(' %g.  %s  %s  %s  %s \n',k-1,A{k,:})
   end
   fprintf('---------------------------------------------------------------------\n')

DATE: 2008.05.15 - 15:40

Lecture Note : Spectral Methods[08.05.25]

FDM for 2D