Hydromat.m

% This is the simple program for naval architech
% Not complete yet
%
% Baharuddin Ali, Surabaya - East Java, Indonesia   
% 
% Email : [e-mail]
% 
disp('  ');
disp(' ');
disp('--------------------------------------------');
disp('        HYDROMAT');disp(' ');
disp('  1. Body Plan ');disp(' ');
disp('  2. 3-D Ship Body ');disp(' ');
disp('  3. Hydrostatic ');disp(' ');
disp('  4. Lewis Form for Body Plan ');disp(' ');
disp('  0. Exit');disp(' ');
a=-1;
while(a<0|a>5)
   a=input('   PILIHAN =  ');
   if a==1
      Bdplan;%(filename);
   elseif a==2
      BodyTiga;%(filename);
   elseif a==3
      Hydros;%(filename);
   elseif a==4
      LeForm;%(filename);
   elseif a==0
      close;
   else
      errordlg('    I N P U T   K E L I R U','Peringatan');
   end
end