%This function offers solution to the formulaes of single phase convertor and general
%dc switch
%This function runs independently as well as with "power_electronics"
%In order to execute this function type ''converter'' on command prompt
function a=converter(varargin)

fprintf('Welcome From Worldhitter')
i=menu('Choose Type Of The converter','Single Phase Thyristor Converter','Single Phase Semi Converter','Three Phase Half Wave Converter','Three Phase Semi Converter','To Do Once Again');
if (i == 1)
        fprintf('\nProvide The Following Data :  ')
        Vm=input('\nEnter The Peak Voltage(Volt) :')
        a=input('\nEnter The Phase Angle(Degrees) :')
        R=input('\nEnter The Resistance(Ohms) :')
        pause(1)
%$$$$$$$$$$$$$$$$$$$$$$$$$$$
       e=menu('Choose What You Want To Calculate','Dc(Average) Voltage(Vdc)','','Rms Volatage(Vrms)','','Average Current(Idc)','','Rms Current(Irms)','','Maximum Output Voltage(Vdm)','','Normalized Voltage(Vn)','','Dc Power(Pdc)','','Ac Power(Pac)','','Rectification Efficiency(Etta)','','Form Factor(FF)','','Ripple Factor(RF)','','Secondary Voltage(Vs)','','Secondary Current(Is)','','Volt_Ampere Rating Of Transformer(VA)','','Transformer Utilization Factor(TUF)','','1/TUF','','Peak Inverse Voltage(PIV)');
       if(e == 1)
        fprintf('\nThe Value Of Dc Voltage Is As Under:  ')
        b=1+cos(a);
        Vdc=Vm*b/6.28
        thanks5 % Graphics
        thanks6 %Iteration for sub menu
        thanks6(1)%iteration for main menu
        %^^^^^^^^^^^^^^^^^^^^^^^^^
     elseif(e == 3)
        fprintf('\nThe Value Of Rms Voltage Is As Under:  ')
        e=2*a;
        f=sin(e)/2;
        d=a-f;
        Vrms=Vm/2*(sqrt(pi-d)/pi)
        thanks5(1)
        thanks6 %Iteration for sub menu
        thanks6(1)%iteration for main menu
        %^^^^^^^^^^^^^^^^^^^^^^^^^
     elseif(e == 5)
        fprintf('\nThe Value Of Average Current Is : ')
        b=1+cos(a);
        Vdc=Vm*b/6.28;
        Idc=Vdc/R
        thanks5(1,2)
        thanks6 %Iteration for sub menu
        thanks6(1)%iteration for main menu
        %^^^^^^^^^^^^^^^^^^^^^^^^^
     elseif(e == 7)
        fprintf('\nThe Value Of Rms Current Is : ')
        e=2*a;
        f=sin(e)/2;
        d=a-f;
        Irms=(Vm/2*(sqrt(pi-d)/pi))/R 
        thanks5(1,2,3)
        thanks6 %Iteration for sub menu
        thanks6(1)%iteration for main menu
        %^^^^^^^^^^^^^^^^^^^^^^^^^
     elseif(e == 9)
        fprintf('\nThe Value Of Maximum Output Voltage Is : ')
        Vdm=Vm/pi
        thanks5(1,2,3,4)
        thanks6 %Iteration for sub menu
        thanks6(1)%iteration for main menu
        %^^^^^^^^^^^^^^^^^^^^^^^^^
     elseif(e == 11)
        fprintf('\nThe Value Of Normalized Voltage Is : ')
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         Vdm=Vm/pi;
         Vn=Vdc/Vdm
         thanks5(1,2,3,4,5)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
         %^^^^^^^^^^^^^^^^^^^^^^^^
      elseif(e == 13)
         fprintf('\n The Value Of Dc Power Is :')
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         Idc=Vdc/R;
         Pdc=Vdc*Idc
         thanks5(1,2,3,4,5,6)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
          %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
       elseif(e == 15)
         fprintf('\n The Value Of Ac Power Is :')
         e=2*a;
         f=sin(e)/2;
         d=a-f;
         Vrms=Vm/2*(sqrt(pi-d)/pi);
         Irms=(Vm/2*(sqrt(pi-d)/pi))/R;
         Pac=Vrms*Irms
         thanks5(1,2,3,4,5,6,7)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
         %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
          elseif(e == 17)
         fprintf('\n The value Of Rectification Effieciency is :')
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         Idc=Vdc/R;
         Pdc=Vdc*Idc ;         
          
         e=2*a;
         f=sin(e)/2;
         d=a-f;
         Vrms=Vm/2*(sqrt(pi-d)/pi);
         Irms=(Vm/2*(sqrt(pi-d)/pi))/R;
         Pac=Vrms*Irms; 
          
         Eta=Pdc/Pac
         thanks5(1,2,3,4,5,6,7,8)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
         %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^      
      elseif(e == 19)
         fprintf('\n The Value Of Form Factor Is :')
         e=2*a;
         f=sin(e)/2;
         d=a-f;
         Vrms=Vm/2*(sqrt(pi-d)/pi);
         
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         
         FF=Vrms/Vdc
         thanks5(1,2,3,4,5,6,7,8,9)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
          %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 21)
         fprintf('\n The Value Of Ripple Factor Is :')
         e=2*a;
         f=sin(e)/2;
         d=a-f;
         Vrms=Vm/2*(sqrt(pi-d)/pi);
         
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         
         FF=Vrms/Vdc;
         
         RF=sqrt(FF^2-1)
         thanks5(1,2,3,4,5,6,7,8,9,10)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
          %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 23)
         fprintf('\n The Value Of Secondary Voltage Is :')
         Vs=.707*Vm
         thanks5(1,2,3,4,5,6,7,8,9,10,11)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
         %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 25)
         fprintf('\n The Value Of Secondary Current Is :')
         Is=.3536*Vm/R
         thanks5(1,2,3,4,5,6,7,8,9,10,11,12)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
         %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 27)
         fprintf('\n The Volt Ampere Rating Of Transformer Is :')
         VA=.707*Vm*.3536*Vm/R
         thanks5(1,2,3,4,5,6,7,8,9,10,11,12,13)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
          %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 29)
         fprintf('\n TheTransformer Utilization Factor Is :') 
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         Idc=Vdc/R;
         Pdc=Vdc*Idc
         
         VA=.707*Vm*.3536*Vm/R
         
         TUF=Pdc/VA
         thanks5(1,2,3,4,5,6,7,8,9,10,11,12,13,14)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
            %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 31)
         fprintf('\n The  Inverse Of Transformer Utilization Factor Is :') 
         b=1+cos(a);
         Vdc=Vm*b/6.28;
         Idc=Vdc/R;
         Pdc=Vdc*Idc
         
         VA=.707*Vm*.3536*Vm/R
         
         TUF=Pdc/VA;
         Inverse_TUF=1/TUF
       
         thanks5(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
         thanks6 %Iteration for sub menu
         thanks6(1)%iteration for main menu
            %^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          
       elseif(e == 33)
          fprintf('\n The Peak Inverse Voltage Is :')
          PIV=Vm
          thanks5(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)
          thanks6 %Iteration for sub menu
          thanks6(1)%iteration for main menu
           
           
     end
  end