MODEL: Charge_Discharge_Single_2EQUATIONS FOR BERKELEY MADONNAMETHOD RK4STARTTIME = 0STOPTIME = 10DT = 0.02Q(t) = Q(t - dt) + (IQ_charge - IQ_voltmeter - IQ_discharge) * dtINIT Q = C*UC_initINFLOWS:IQ_charge = IF (TIME < 10) THEN 0 ELSE IF (TIME < 80) THEN -(UC-U_S)/R1 ELSE 0OUTFLOWS:IQ_voltmeter = UC/RVIQ_discharge = IF (TIME < 400) THEN 0 ELSE UC/(R1+R2)C = 470e-6R1 = 9.88e3R2 = 10e3RV = 1e6U_S = IF (TIME < 10) THEN 0 ELSE IF (TIME < 80) THEN 3.00 ELSE 0UC = Q/CUC_init = 0.0UC_m_corr = Data - 0.06Data = GRAPH(TIME)(0.00, 0.0137), (0.5, 0.0198), (1.00, 0.0168), (1.50, 0.0137), (2.00, 0.0168), ...