% Моделировние процессов в нелинейной электрической 
% цепи с диодом. При значениях параметров по умолчанию
global R C A omega
close all
R=3000; % сопротивление
C=1e-6; % ёмкость
A=300;  % амплитуда синусоидального входного напряжения
omega= 2*pi*50; % угловая частота  входного напряжения

%options= odeset('MaxStep',1e-6);
[t,u]=ode15s(@vypr_rp,[0 0.1] , 0); 
plot(t,u);
    
    
    
    
    
    
    
    
    
    
    

    

  
