RC and RL Circuit Simulation

% RCRLSimplePlot(RC_circuit, charge_circuit, current_circuit, Vs, R1, C1, L1, data_pnts, line_width, plugin_name, save_screen)
RCRLSimplePlot(true, true, true, 5, 5e6, 5e-6, 5e-3, 51, 0.5, "ExcelFile", true);

%% Notes

% RC_circuit is a boolean value. Icons for each of the 8 combinations of
% circuit are located in the icons\ subdirectory as png and vsdx (Visio) files.
%
%     true               Project is a resistor / capacitor RC circuit (so L1
%                        value will be ignored).
%     false              Project is a resistor / inductor RL circuit (so C1
%                        value will be ignored).
% 
% charge_circuit is a boolean value. 
%
%     true               Project has S1 switch in the circuit set to charge.
%     false              Project has S1 switch in the circuit set to discharge.
%
% 
% current_circuit is a boolean value.
%
%     true               Project plots current vs time
%     false              Project plots voltage vs time
%
%
% Vs is a floating point number defining supply voltage (in volts).
% 
%
% R1 is a floating point number defining the series resistor in the circuit 
% (in Ohms).
% 
%
% C1 is a floating point number defining the series capacitor in the circuit 
% (In Farads). Value not used in RL circuits. (RC_circuit = true).
%
%
% L1 is a floating point number defining the series inductor in the circuit 
% (In Henrys). Value not used in RC circuits. (RC_circuit = false).
%
%
% data_pnts is a positive integer greater than or equal to 2. The number 
% defines how many data points will be used in both the plot and in the
% plugin scripts. 
%
%     For Rigol DG4062 script DG4062_wfg.m, the maximum data points can be 
%     1024*16/2 or 8192. Divided by 2 because the arbitrary curve includes
%     both a charge (or discharge) plus a zero padded flat line of the same
%     length. Thus the full arb wave generated will fit into a square wave with
%     a period of 5*tau.
%
%     For Tektronix MSO64b script MSO64B_afg.m, the maximum data points can be 
%     1024*128/2 or 65536. Divided by 2 because the arbitrary curve includes
%     both a charge (or discharge) plus a zero padded flat line of the same
%     length. Thus the full arb wave generated will fit into a square wave with
%     a period of 5*tau.
% 
%
% line_width is a small floating point number typically in the range of 0.5 to 
% 10. The number defines the width of the plotted line.
%
%
% plugin_name is a script name (without .m) in the plugins subdirectory,
% (be careful for correct capitalization). Use "none" to skip this feature.
% I envision the two Arb instrument scripts to be used to display the
% circuit charge or discharge curve on an oscilloscope along with the
% actual results of a breadboarded circuit powered with a square wave. See 
% link below for a blog post demonstrating this usage.
% Scripts include:
%
%       none                    Skip the Plugin save feature
%
% 	ExcelFile		Script to save RC_RL_plot app curve results for
% 						saving results in XLSX Excel file format. Windows PC ActiveX
% 						offers more features so on the PC plot and circuit 
% 						images are embedded into the Excel file.
% 						
% 	DG4062_wfg		Script to save RC_RL_plot app curve results for 
% 						Rigol DG4062 wave form generator in csv format. 
% 						See the notes\ subdirectory for details on how to 
% 						configure this output for other Rigol wfg instruments.
% 						
% 	MSO64B_afg 	        Script to save RC_RL_plot app curve results for 
% 						Tektronix MSO64B Oscilloscope's licensed arbitrary wave 
% 						generator in CSV format. The same CSV format should work
% 						for other Tektronix MSO (4, 5, and 6) series scopes with a 
% 						licensed afg.
%
%
% save_screen is a boolean value.
%
%     true              Present dialog to save plot screen as .jpg, .png,
%                       .tif, or .pdf image.
%     false             Screen save option will be skipped.

%% Reference link:

% Arbitrary Wave Generator Compliments MATLAB RC and RL Circuit Simulation
% https://www.biophysicslab.com/2022/04/27/arbitrary-wave-generator-compliments-matlab-rc-and-rl-circuit-simulation/

function ManipulateEquationParameters(app)

            % Descriptions of truth table parameters
            %
            %   Charge, or discharge equation parameters: 
            %       V @ t = Vs * (app.term_1 + app.term_2 * exp(-t/tau));
            %
            %   Percent charge, or discharge equation parameters: 
            %       Percent @ 1*tau = 100 * (app.term_3 + app.term_4 * V@tau / Vs)
            %       Percent @ 5*tau = 100 * (app.term_3 + app.term_4 * V@5tau / Vs )
            %
            %   Where:
            %       t is time in seconds
            %       V is instantaneous Voltage (or current)
            %       Vs is constant circuit supply voltage (or current)
            %       tau = R*C (or L/R) measured in seconds
            %       R, C, L: Resistor (ohms), capacitor (Farads), inductor (Henry) circuit value
            %
            %   Small offset for 5RC or 5RL display: app.adj_str_5rcx and app.adj_str_5rcy
            %
            %   Optimized placement of 5RC (or 5RL) text: app.pcnt_txt_on_bottom
            %
            %   Optimized placement of time constant legend: app.lgndPosition

            if (app.RCButton.Value && app.ChargeButton.Value && app.C_T_Button.Value) ||...
               (app.RCButton.Value && ~app.ChargeButton.Value && ~app.C_T_Button.Value) ||...
               (~app.RCButton.Value && ~app.ChargeButton.Value && app.C_T_Button.Value) ||...
               (~app.RCButton.Value && app.ChargeButton.Value && ~app.C_T_Button.Value)
                % Truth Table for decay waveforms: e^(-x)
                %   RC Discharge Voltage
                %   RC Charge Current
                %   RL Charge Voltage
                %   RL Discharge Current
                app.term_1 = 0;
                app.term_2 = 1;
                app.term_3 = 1;
                app.term_4 = -1;
                app.pcnt_txt_on_bottom = false;  % Display percent charged 
                                                 %   info as first line of
                                                 %   text.
                app.adj_str_5rcx = -.02;   % Tweek data point display text 
                app.adj_str_5rcy =  .12;   %   above 5RC (or 5RL).

                app.lgndPosition = ["Location","northeast"];

            else
                % Truth Table for growth waveforms: 1-e^(-x)
                %   RC Charge Voltage
                %   RC Discharge Current
                %   RL Discharge Voltage 
                %   RL Charge Current
                app.term_1 = 1;
                app.term_2 = -1;
                app.term_3 = 0;
                app.term_4 = 1;
                app.pcnt_txt_on_bottom = true;  % Display percent charged 
                                                %   info as second line of
                                                %   text.
                app.adj_str_5rcx = -.02;  % Tweek data point display text 
                app.adj_str_5rcy = -.04;  %    below 5RC (or 5RL).

                app.lgndPosition = ["Location","southeast"];

            end
        end