BodyTiga(file)

function BodyTiga(file)
global DST
%Program ini digunakan untuk menggambarkan secara 3-D
%data body plan yang dimasukkan.
%Program ini dijalankan harus dengan bantuan program LGirth.m
%Belum bagus tapi lumayan
file=uigetfile('D:\MatlabProg\Hydromat\*.txt');
fid=fopen(file,'r');
title=fgetl(fid); 
[uk]=fscanf(fid,'%f ',[1,5]);
% -------------
draft1=linspace(0.1*uk(5),uk(5),10);
for wl=1:10
   draft=draft1(wl);
   Lgirth(file,draft);
	fid=fopen('dokar2.txt','r');
	[ukuranutama]=fscanf(fid,'%f ',[1,5]); 
	for i=1:DST
   	ST1=fscanf(fid,'%f %f\n',[1,2]);       
   	ttd=fscanf(fid,'%f %f\n',[2,ST1(:,1)]);
   	dat=ttd';
      Bwl2(i)=2*dat(ST1(:,1),2);             
      x=dat(:,2);y=dat(:,1);
   	Z1=ones(length(y));
      z=Z1(:,1)*ST1(:,2)*ukuranutama(2)/10;
      view1.DataAspectRatio = [1 1 1];       
      set(gca,view1);                        
   	plot3(x,z,y);hold on
      plot3(-x,z,y);hold on
      ST11(i)=ST1(:,2);
   end
   ii=1:DST;
   Bwl22=Bwl2(ii);
   ST12=ST11(ii)*uk(2)/10;%++
   Z2=ones(DST);%++
   draftz=Z2(:,1)*draft;%++
   view1.DataAspectRatio = [1 1 1];set(gca,view1)
   plot3(Bwl22/2,ST12,draftz,'r');hold on
   plot3(-Bwl22/2,ST12,draftz,'r');hold on
end
axis off;
fclose('all');