# Train DDPG Agent to Swing Up and Balance Cart-Pole System

This example shows how to train a deep deterministic policy gradient (DDPG) agent to swing up and balance a cart-pole system modeled in Simscape™ Multibody™.

For more information on DDPG agents, see Deep Deterministic Policy Gradient (DDPG) Agents. For an example showing how to train a DDPG agent in MATLAB®, see Train DDPG Agent to Control Double Integrator System.

### Cart-Pole Simscape Model

The reinforcement learning environment for this example is a pole attached to an unactuated joint on a cart, which moves along a frictionless track. The training goal is to make the pole stand upright without falling over using minimal control effort.

Open the model.

```mdl = 'rlCartPoleSimscapeModel'; open_system(mdl)```

The cart-pole system is modeled using Simscape Multibody.

For this model:

• The upward balanced pole position is `0` radians, and the downward hanging position is `pi` radians.

• The force action signal from the agent to the environment is from –15 to 15 N.

• The observations from the environment are the position and velocity of the cart, and the sine, cosine, and derivative of the pole angle.

• The episode terminates if the cart moves more than 3.5 m from the original position.

• The reward ${\mathit{r}}_{\mathit{t}}$, provided at every timestep, is

`${\mathbit{r}}_{\mathbit{t}}=\text{\hspace{0.17em}}-0.1\left(5{{\theta }_{\mathbit{t}}}^{2}\text{\hspace{0.17em}}+{{\mathit{x}}_{\mathbit{t}}}^{2}\text{\hspace{0.17em}}+\text{\hspace{0.17em}}0.05{\mathit{u}}_{\mathit{t}-1}^{2}\right)-100\mathit{B}$`

Here:

• ${\theta }_{\mathit{t}}$ is the angle of displacement from the upright position of the pole.

• ${\mathit{x}}_{\mathit{t}}$ is the position displacement from the center position of the cart.

• ${\mathit{u}}_{\mathit{t}-1}$ is the control effort from the previous time step.

• $\mathit{B}$ is a flag (1 or 0) that indicates whether the cart is out of bounds.

### Create Environment Interface

Create a predefined environment interface for the pole.

`env = rlPredefinedEnv('CartPoleSimscapeModel-Continuous')`
```env = SimulinkEnvWithAgent with properties: Model : rlCartPoleSimscapeModel AgentBlock : rlCartPoleSimscapeModel/RL Agent ResetFcn : [] UseFastRestart : on ```

The interface has a continuous action space where the agent can apply possible torque values from –15 to 15 N to the pole.

Obtain the observation and action information from the environment interface.

```obsInfo = getObservationInfo(env); numObservations = obsInfo.Dimension(1); actInfo = getActionInfo(env);```

Specify the simulation time `Tf` and the agent sample time `Ts` in seconds

```Ts = 0.02; Tf = 25;```

Fix the random generator seed for reproducibility.

`rng(0)`

### Create DDPG Agent

A DDPG agent approximates the long-term reward, given observations and actions, using a critic value function representation. To create the critic, first create a deep neural network with two inputs (the state and action) and one output. The input size of action path is `[1 1 1]` since the agent can apply an action as one force value to the environment. For more information on creating a deep neural network value function representation, see Create Policies and Value Functions.

```statePath = [ featureInputLayer(numObservations,'Normalization','none','Name','observation') fullyConnectedLayer(128,'Name','CriticStateFC1') reluLayer('Name','CriticRelu1') fullyConnectedLayer(200,'Name','CriticStateFC2')]; actionPath = [ featureInputLayer(1,'Normalization','none','Name','action') fullyConnectedLayer(200,'Name','CriticActionFC1','BiasLearnRateFactor',0)]; commonPath = [ additionLayer(2,'Name','add') reluLayer('Name','CriticCommonRelu') fullyConnectedLayer(1,'Name','CriticOutput')]; criticNetwork = layerGraph(statePath); criticNetwork = addLayers(criticNetwork,actionPath); criticNetwork = addLayers(criticNetwork,commonPath); criticNetwork = connectLayers(criticNetwork,'CriticStateFC2','add/in1'); criticNetwork = connectLayers(criticNetwork,'CriticActionFC1','add/in2'); criticNetwork = dlnetwork(criticNetwork);```

View the critic network configuration.

```figure plot(layerGraph(criticNetwork))```

Specify options for the critic representation using `rlOptimizerOptions`.

`criticOptions = rlOptimizerOptions('LearnRate',1e-03,'GradientThreshold',1);`

Create the critic representation using the specified deep neural network and options. You must also specify the action and observation information for the critic, which you already obtained from the environment interface. For more information, see `rlQValueFunction`.

```critic = rlQValueFunction(criticNetwork,obsInfo,actInfo,... 'ObservationInputNames','observation','ActionInputNames','action');```

A DDPG agent decides which action to take, given observations, using an actor representation. To create the actor, first create a deep neural network with one input (the observation) and one output (the action).

Construct the actor in a similar manner to the critic. For more information, see `rlContinuousGaussianActor`.

```actorNetwork = [ featureInputLayer(numObservations,'Normalization','none','Name','observation') fullyConnectedLayer(128,'Name','ActorFC1') reluLayer('Name','ActorRelu1') fullyConnectedLayer(200,'Name','ActorFC2') reluLayer('Name','ActorRelu2') fullyConnectedLayer(1,'Name','ActorFC3') tanhLayer('Name','ActorTanh1') scalingLayer('Name','ActorScaling','Scale',max(actInfo.UpperLimit))]; actorNetwork = dlnetwork(actorNetwork); actorOptions = rlOptimizerOptions('LearnRate',5e-04,'GradientThreshold',1); actor = rlContinuousDeterministicActor(actorNetwork,obsInfo,actInfo);```

To create the DDPG agent, first specify the DDPG agent options using `rlDDPGAgentOptions`.

```agentOptions = rlDDPGAgentOptions(... 'SampleTime',Ts,... 'ActorOptimizerOptions',actorOptions,... 'CriticOptimizerOptions',criticOptions,... 'ExperienceBufferLength',1e6,... 'MiniBatchSize',128); agentOptions.NoiseOptions.Variance = 0.4; agentOptions.NoiseOptions.VarianceDecayRate = 1e-5;```

Then, create the agent using the specified actor representation, critic representation and agent options. For more information, see `rlDDPGAgent`.

`agent = rlDDPGAgent(actor,critic,agentOptions);`

### Train Agent

To train the agent, first specify the training options. For this example, use the following options.

• Run each training episode for at most 2000 episodes, with each episode lasting at most `ceil(Tf/Ts)` time steps.

• Display the training progress in the Episode Manager dialog box (set the `Plots` option) and disable the command line display (set the `Verbose` option to `false`).

• Stop training when the agent receives an average cumulative reward greater than –400 over five consecutive episodes. At this point, the agent can quickly balance the pole in the upright position using minimal control effort.

• Save a copy of the agent for each episode where the cumulative reward is greater than –400.

For more information, see `rlTrainingOptions`.

```maxepisodes = 2000; maxsteps = ceil(Tf/Ts); trainingOptions = rlTrainingOptions(... 'MaxEpisodes',maxepisodes,... 'MaxStepsPerEpisode',maxsteps,... 'ScoreAveragingWindowLength',5,... 'Verbose',false,... 'Plots','training-progress',... 'StopTrainingCriteria','AverageReward',... 'StopTrainingValue',-400,... 'SaveAgentCriteria','EpisodeReward',... 'SaveAgentValue',-400);```

Train the agent using the `train` function. Training this agent process is computationally intensive and takes several hours to complete. To save time while running this example, load a pretrained agent by setting `doTraining` to `false`. To train the agent yourself, set `doTraining` to `true`.

```doTraining = false; if doTraining % Train the agent. trainingStats = train(agent,env,trainingOptions); else % Load the pretrained agent for the example. load('SimscapeCartPoleDDPG.mat','agent') end```

### Simulate DDPG Agent

To validate the performance of the trained agent, simulate it within the cart-pole environment. For more information on agent simulation, see `rlSimulationOptions` and `sim`.

```simOptions = rlSimulationOptions('MaxSteps',500); experience = sim(env,agent,simOptions);```

`bdclose(mdl)`