% program glowny
% program do wizualizacji wynikow z programu IZOTER
%
clc; clf; close all; clear all;
global el minx maxx miny maxy minz maxz nazwa_cis Mr4 rozp skok rozdz stri diam szer rys
sciezka=pwd;
eval('path(path,sciezka)')
cd ..\dan
iz_wczytaj
scrsz=get(0,'ScreenSize');
disp('Zapis rysunkow do plików?'); 
rys=input('[t-tak/n-nie]','s');
koniec=1;
 while koniec==1;
   clc
   Mp=menu('MENU GLOWNE','Siatka','Menu cisnienia','WYJSCIE');
    
   if Mp==1
      close all
      iz_siatka
   end 
      
   if Mp==2
      close all
      skalaz=input('Skala dla osi cisnien P: \n(r - reczna a - automatyczna) wpisz "r" lub "a": ','s');
      if skalaz=='r'
stri=['Najwieksza wartosc cisnienia=',num2str(maxz)];
disp('   ')
disp(stri)
clear stri;

maxz=input('Podaj wartosc maksymalna na osi P [N/m^2]: ','s');
maxz=str2num(maxz);
 end % if skalaz=='r'

      koniec_r=1;     
      while koniec_r==1;
        Mr=menu('Menu Cisnienia','Wybrany klin - wedlug PSI','Wszystkie kliny','Obrot','MENU GLOWNE');
        if Mr==1
           close all
           iz_cis
              end % if Mr==1

				  if Mr==2
               close all
               iz_ciskliny
            end % if Mr==2
            
            if Mr==3
				close all
         	   koniec_r4=1;     
             while koniec_r4==1;
       Mr4=menu('Menu Obrot ukl. wsp','Klin1','Klin2','Klin3','Klin4','MENU CISNIENIA');

              if Mr4==1
close all
clc
	if ~(N1==0)
PSI=psi1';
B=b1;
KAT=kat1;
EL=el;
KROK_EL=szer/L;
iz_suwaki(PSI, B, KAT, EL, KROK_EL,psi11,psi12);
end % if ~(N1==0)
         end % if Mr4==1

         if Mr4==2
close all
clc
	if ~(N2==0)
PSI=psi2';
B=b2;
KAT=kat2;
EL=el;
KROK_EL=szer/L;
iz_suwaki(PSI, B, KAT, EL, KROK_EL,psi21,psi22);
	end % if ~(N2==0)
         end % if Mr4==2

         if Mr4==3
close all
clc
	if ~(N3==0)
PSI=psi3';
B=b3;
KAT=kat3;
EL=el;
KROK_EL=szer/2;
iz_suwaki(PSI, B, KAT, EL, KROK_EL,psi31,psi32);
	end % if ~(N3==0)
         end % if Mr4==3

         if Mr4==4
close all
clc
	if ~(N4==0)
PSI=psi4';
B=b4;
KAT=kat4;
EL=el;
KROK_EL=szer/2;
iz_suwaki(PSI, B, KAT, EL, KROK_EL,psi41,psi42);
	end % if ~(N4==0)
         end % if Mr4==4

        if Mr4==5
close all
         koniec_r4=0;
        end
        end
        end

        if Mr==4
close all
clc
         koniec_r=0;
        end
      end 
   end
   
   if Mp==3
      koniec=0;
      close all
      eval(sprintf('rmpath %s',sciezka));
    end  
end

